Question

CASIO4800怎么样编圆曲线程序

Answer 1

CASIO4800缓和曲线、圆曲线、直线段坐标计算程序 plRBfw>]N
1、该程序适用于计算器 CASVO fx-4800P，可计算与线路中心成任意夹角的缓和曲线、圆曲线、直线段中、边桩坐标及切线方位角。 _Fz]QxO
2、A？ 输入转角：左转为负，右转为正 n@)Kf A)&
3、R？ 输入圆曲线半径 0Y81B;/F
4、LS？ 输入缓和曲线长度 0 xUw}T6
5、JD？ 输入交点桩号 ,u1Yn}
6、J？ 输入0程序计算中桩，输入1程序计算边桩 :QGd/JX$n`
7、N？E？ 输入交点X、Y坐标 LK}Ih@ f
8、FW 待求点切线方位角 Ca&5"aki
9、当计算交角为60°时，则公式改为（U-60），（U+120） <,r|*pkhp~
\pXs&}%1,F
)AxgKBW
b ?p <y`
1 A：R：C“LS”：D“JD” IMKyFp]h-
2 P=C∧2/24/R-C∧4/2688/R∧3 o7/S'Haxc]
3 Q=C/2-C∧3/240/R∧2 M.|cl#
4 B=90C/兀/R *Kp k1
5 T=(R+P)tan(AbsA/2)+Q◢ yqEX0|V%
6 W=(R+P)/cos(A/2)-R◢ 8T7ex(w
7 L=((AbsA)-2B)兀R/180+2C◢ n(i Uc1Y
8 G=D-T◢
m#}41<

9 H=G+C◢ +-DF3(
10 I=G+L/2◢ z%)~s/2Rs
11 K=G+L-C◢ YUzx,Y>k
12 M=G+L◢ P3 Wnso
13 N：E：F: J 9nM_LV
14 A＜0=>S=-1:≠=>S=1⊿  ?z hw0
15 U=F+A/2+90S `"(FWK=8)"
16 V=W+R 2)~`.CD?L
17 B=N+VcosU `D%U5
Jb
18 O=E+VsinU LD=eMk: ~
19 Lbl 1 -> ^Ex`
20 {Z} %,1xOl4l
21 Z≤G=>L=T+G-Z g"Tb\
22 V=F+180 0.aIcc
23 U=F ] 6X;&=H
24 Goto 2⊿ E0*KKo%
25 Z≤H=>L=Z-G g kM Q=;Nn
26 V=L-L∧5/(90R∧2C∧2) 68?> #o865
27 L=30L∧2S/(兀RC) Op'&c0l
28 P=F+180 q^DQ9B
29 Q=F+L dC<2%y
30 U“FW”=F+3L◢ 4J1_rMfh
31 Goto 4⊿ .(&w/jR
32 Z≤K=>L=F+A/2+90S+180+180(Z-I)S/R/兀 b/w 5K2
33 U“FW”=L+90S◢ K(uz`(5
34 Goto 5⊿ p/qu4[Mm
35 Z≤M=>L=M-Z 'T|EwrS j
36 V=L-L∧5/(90R∧2C∧2) M>Q3;s
37 L=30SL∧2/(兀RC) [4hi/6 0
38 P=F+A O#k eoC4
39 Q=F+A+180-L 8Vjv #pm
40 U=F-3L+A lGt:.p{NG <br/>41 Goto4⊿ +w7U7" xQ <br/>42 Z>M=>L=Z-M+T >& 4): <br/>43 U=F+A X`3_ yeQc <br/>44 V=U %# o@c <br/>45 Goto 2 B9Mp3[  <br/>46 Lbl 2 Qv`: E  <br/>47 X=N+LcosV◢ =)G]\W)m <br/>48 Y=E+LsinV◢ o>nw~_ H\ <br/>49 Goto 6⊿ Zoc4@% n <br/>50 Lbl 3 Q"D5D rj <br/>51 {W} 2 S~(P
52 P“XL”=X+Wcos(U-90) ◢ V9SL96'[I
53 Q“YL”=Y+Wsin(U-90) ◢ \q*-9_M
54 P“XR”=X+Wcos(U+90) ◢ ~Kt1%&3{a? <br/>55 Q“YR”=Y+Wsin (U+90) ◢ ;/_htdj <br/>56 Goto 1 W7'<Jom|? <br/>57 Lbl 4 Hi=</ Wy; <br/>58 X=N+TcosP+VcosQ◢ wggB^ }~
59 Y=E+TsinP+VsinQ◢ j`"!G*Vh
60 Goto 6 \/<VJB uV
61 Lbl 5 1P[x.t#
62 X=B+R cosL◢ P{UV3ZA%
63 Y=O+RsinL◢ {&>rKCi
64 Goto 6 &K60n6q{aQ
65 Lbl 6 ,>rvl P
66 J=1=> Goto 3⊿ Pb>/b\&JS
67 Goto 1

程序即是语言，按照你的想法，你的需要，进行编辑，你也是从事测量工作的 吗