卡西歐fx5800計算器緩和曲線編程

1、1 fx5800P 計算器編程緩和曲線程序14 DimZ :“ZHK”： ?K: ?R : ? A: ?L: ? T: ? F: “Y + 1, Z 1”： ？P:“ JDX”： ？Q: “JDY ”： ?W:180- ( n R) Z: 0.5L LA3 - (240R2)Z8 : “LZ”：ZL - 2B: A - Z+ LZ13丄“ ZHK= ”： K 丄“ HYK= ”： K+L Z1丄“YHK= ” ： K+ Z13 L Z2丄“ HZK= ” : K+ Z13 Z3丄“ ZHX= ” : Q+Tcos(F+180 U 丄“ ZHY= ” : W+Tsi n(F+180)V 丄“ H

2、ZX= ” : Q+ Tcos(F+PA Z6丄“ HZY= ” : W+ Tsin (F+PA) Z7丄Lb1 0“ CDZH : ?MIf M < K : Then Goto 6 : Else If M < Z1 : Then Goto 1 : Else If M < Z2 : Then Goto 2 : Else If M >Z3 : Then Goto 7: Else If M >Z2 : Then Goto 5 : If End: If End If End If End If EndLb1 1 : M KG: V ( (G GA(5) - (40L2R

3、2)+ GA(9) - (3456RALA(4) 2+ (GA(3) - (6RL) GA(7) - (336RA(3兒八(3) + GA(11)十(42240RA(5)LA(5)2) D2 2 2F+ PZG2- (6L) C : F+ PBG2- L2 H : Goto 3Lb1 2 : M Z1 G : R (1 cos( B+ ZG) + L2- (24R) Z9 : V (Z92 +( Rsin(B+ZG)+ Z8 ) 2)D-1F+ Ptg1 (Z9 -(Rsin(B + ZG) + Z8) C : F+ P(B + ZG)HLb1 3“ X= ”：U + Dcos(C)X 丄“Y

4、= ” :V + Dsin(C)Y 丄Lb1 B “ZBJS1， FY1: ?JIf J>0 Then Goto 4 Else If J0 Then Goto A If End If EndLb1 4“ ZB: ?S“ ZBX ” :X + Scos (H 90)丄“ ZBY ” :Y + Ssin ( H 90)丄“ YB : ?N“ YBX ” :X + Ncos (H + 90)丄“ YBY ” ：丫 + Nsin ( H + 90)丄Goto 02 2Lb1 5: Z3 M G: (T G + GA(5) - (40L R ) GA(9) - (3456RALA(4) sin(A

5、) + (GA(3) - (6RL) GA(7) - (336RA(3)LA(3) + GA(11)十(42240RA(5)LA(5)2 2cos(A)Z4 : T+( T G + GA(5) - (40L2R2) cos(A) (GA(3) - (6RL) GA(7) 十(336RA(3)LA(3) sin(A) Z5 : V (Z42 + Z52) D : F+ Ptg-1(Z4 -Z5) C:2 2F+ P(A BG2-L2) H : Goto 3Lb1 6: K M D: F+ 180 C: FH : Goto 3Lb1 7 : M Z3 D : F+ PA C : C H: Goto

6、 9Lb1 9: “X= ” : Z6 + Dcos(C)X 丄“Y= ” : Z7 + Dsin(C) Y 丄Goto BLb1 A :“ N ” : ?N:“ E” : ?S :“ H ” ： ?I“X= ” : (N X) cos(H) + (S Y)sin(H) + M Z10丄“Y= ” : (SY) cos(H) (N X)sin(H) Z11丄MS ”： 1711.15+0.004(Z10-85030) EJ22If I >E+2 : Then “ + R1”： 6.57V(I E 2) + Z11 OElse If I<E+2 : Then “+R2： : 7.47

7、V(E+2 I) 2+(Abs( Z11 )+0.9) 2OJ“=> DB” :(I E+0.5) OJZ10 M : If End: If EndGoto 01.1程序說明“ DimZ ” 一內(nèi)存變量擴充“ZHK ”一輸入直緩點樁號“ R”一輸入曲半徑“L ”一輸入緩和曲線長“A” 一輸入偏角“丫 + 1, Z 1”一路線右轉(zhuǎn)輸+ 1,左轉(zhuǎn)輸1“ FWJ”一輸入起算方位角“ JDX ”一輸入交點X坐標“ JDY”一輸入交點丫坐標“ ZHK= ”：得出直緩點樁號“ HYK= ”：得出緩圓點樁號“YHK= ”：得出圓緩點樁號“HZK= ”：得出緩直點樁號“ZHX= ”：得出直緩點 X“ZHY= ”：得出直緩點 Y“HZX= ”：得出緩直點 X“HZY= ”：得出緩直點 Y“CDZH ”輸入待測點樁號“X= ”：得出測點樁號中心樁 N“Y= ”：得出測點樁號中心樁 E“ZBJS1，F(xiàn)Y1” （坐標計算）施工坐標轉(zhuǎn)大地坐標輸 +1,“ ZB ”一輸入中樁到左邊樁的距離； “ ZBX”: 得出待測點左邊 N 值 “ZBY” : 得出待測點左邊 E 值“ YB ”一輸入中樁到右邊樁的距離；“YBX” : 得出待測點右邊 N 值 “YBY ” : 得出待測點右邊 E 值 （放樣）大地坐標轉(zhuǎn)施工坐標輸1,“ N” 輸入大地坐標的 N 坐標； “E”