卡西歐fx-5800計算器緩和曲線編程(共3頁)

1、精選優(yōu)質(zhì)文檔-傾情為你奉上1 fx5800P計算器編程緩和曲線程序14DimZ ： “ZHK”：?K：?R ：? A：?L：? T：? F：“Y1，Z1”：?P：“JDX”：?Q：“JDY”：?W： 180÷（R）Z：0.5LL3÷(240R2)Z8：“LZ”： ZL÷2B： A÷ZLZ13“ZHK=”：K“HYK=”：K+LZ1“YHK=”：K+ Z13 LZ2“HZK=”：K+ Z13Z3“ZHX=”：Q+Tcos(F+180)U“ZHY=”：W+Tsin(F+180)V“HZX=”：Q+ Tcos(F+PA)Z6“HZY=”：W+ Tsin (F+

2、PA)Z7Lb1 0：“CDZH” ：?MIf MK：Then Goto 6：Else If MZ1 ：Then Goto 1：Else If MZ2 ：Then Goto 2：Else If MZ3 ：Then Goto 7：Else If MZ2 ：Then Goto 5：If End：If End：If End：If End：If EndLb1 1： MKG：（GG(5)÷(40L2R2)G(9)÷(3456R(4)L(4)2(G(3)÷(6RL)G(7)÷(336R(3)L(3) G(11)÷(42240R(5)L(5)2）DFPZG2

3、÷(6L)C：FPBG2÷L2H：Goto 3Lb1 2： MZ1G： R（1cos（BZG）L2÷（24R）Z9：（Z92（Rsin（BZG）Z8）2）DFPtg-1(Z9÷(Rsin(BZG)Z8)C：FP(BZG)HLb1 3“X=”:UDcos(C)X “Y=”:VDsin(C)YLb1 B：“ZBJS1，F(xiàn)Y1”：?JIf J>0：Then Goto 4：Else If J0：Then Goto A：If End：If EndLb1 4：“ZB”：?S“ZBX”:XScos（H90） “ZBY”:YSsin（H90） “YB”：?N “Y

4、BX”:XNcos（H90） “YBY”:YNsin（H90）Goto 0Lb1 5：Z3MG：（T GG(5)÷(40L2R2)G(9)÷(3456R(4)L(4) sin(A) (G(3)÷(6RL)G(7)÷(336R(3)L(3)G(11)÷(42240R(5)L(5) cos(A)Z4： T（ T GG(5)÷(40L2R2)）cos(A) (G(3)÷(6RL)G(7)÷(336R(3)L(3) sin(A)Z5：（Z42Z52）D ：FPtg-1(Z4÷Z5)C： FP(ABG2÷

5、L2) H： Goto 3Lb1 6：KMD： F180C： FH：Goto 3Lb1 7： MZ3D： FPAC：CH：Goto 9Lb1 9：“X=”: Z6Dcos(C)X “Y=”: Z7Dsin(C)YGoto BLb1 A：“N”：?N:“E”：?S：“H”：?I “X=”:（NX）cos(H)(SY)sin(H)MZ10“Y=”:（SY）cos(H)(NX)sin(H) Z11“MS”：1711.15+0.004(Z10-85030) EIf IE+2 ：Then“+R1”：6.57(IE2) 2+ Z11 2O Else If I<E+2 ：Then“+R2”：7.47(

6、E+2I) 2+(Abs( Z11 )+0.9) 2O“DB”:(IE+0.5)O Z10 M：If End：If End Goto 01.1 程序說明“DimZ” 內(nèi)存變量擴充 “ZHK”輸入直緩點樁號“R”輸入曲半徑“L”輸入緩和曲線長“A”輸入偏角“Y1，Z1”路線右轉(zhuǎn)輸1，左轉(zhuǎn)輸1“FWJ”輸入起算方位角“JDX”輸入交點X坐標“JDY”輸入交點Y坐標“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”輸入大地坐標的E坐標?！癐