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

1、精選優(yōu)質(zhì)文檔-傾情為你奉上1 fx5800P計(jì)算器編程緩和曲線程序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 程序說(shuō)明“DimZ” 內(nèi)存變量擴(kuò)充 “ZHK”輸入直緩點(diǎn)樁號(hào)“R”輸入曲半徑“L”輸入緩和曲線長(zhǎng)“A”輸入偏角“Y1，Z1”路線右轉(zhuǎn)輸1，左轉(zhuǎn)輸1“FWJ”輸入起算方位角“JDX”輸入交點(diǎn)X坐標(biāo)“JDY”輸入交點(diǎn)Y坐標(biāo)“ZHK=”：得出直緩點(diǎn)樁號(hào)“HYK=”：得出緩圓點(diǎn)樁號(hào)“YHK=”：得出圓緩點(diǎn)樁號(hào)“HZK=”：得出緩直點(diǎn)樁號(hào)“ZHX=”：得出直緩點(diǎn)X“ZHY=”：得出直緩點(diǎn)Y“HZX=”：得出緩直點(diǎn)X“HZY=”：得出緩直點(diǎn)Y“CDZH”輸入待測(cè)點(diǎn)樁號(hào)“X=”：得出測(cè)點(diǎn)樁號(hào)中心樁N“Y=”：得出測(cè)點(diǎn)樁號(hào)中心樁E “ZBJS1，F(xiàn)Y1”（坐標(biāo)計(jì)算）施工坐標(biāo)轉(zhuǎn)大地坐標(biāo)輸+1， “ZB”輸入中樁到左邊樁的距離；“ZBX”: 得出待測(cè)點(diǎn)左邊N值“ZBY”: 得出待測(cè)點(diǎn)左邊E值“YB”輸入中樁到右邊樁的距離；“YBX”: 得出待測(cè)點(diǎn)右邊N值“YBY”: 得出待測(cè)點(diǎn)右邊E值 （放樣）大地坐標(biāo)轉(zhuǎn)施工坐標(biāo)輸1，“N”輸入大地坐標(biāo)的N坐標(biāo)；“E”輸入大地坐標(biāo)的E坐標(biāo)?！癐