卡西歐fx-5800編程模擬

1、程序輸入譯釋直線坐標計算及方位角放樣Lbl 0 匚Deg:Fix 3“ NE(0),X(CZ) ”？ Z:Z 心 “Y(CZ)= ” ?W“ QDLC=” ？L: “ X(QD)=? A: “ Y(QD)= ”B:“ X(ZD),0 -FWJ ” ?C: IfC=0: Then FWJ= ”？F:Else “ Y(ZD)= ” ?H:Pol(C-A,H-B):Cls: If J<0: Then J+360 刁F:ElseJ?F:lfEnd: IfEnd ILbI譏“ LC產(chǎn)0 To End ”?D:D<0 * Goto 0:W(L,R)= ” ? S: SH0“L毛0°,

2、R=+90°”？Abs( D-L)2K:Rec (K，F(xiàn)):A+I?X:B+J?Y:Rec( S,F+E)If Z=0: Then “X=X+I 刁X丄“ Y=Y+J 刁Y丄 Goto 1: Else Pol (X+I-Z ) ,(Y+J-W) ) :Cls: IfJ<0 : Then 360+J J: Else J: IfEnd 毛“ hr= JU “ hd= / Goto 1: IfEnd °程序輸入譯釋圓（緩和）曲線坐標計算及方位角放樣起算數(shù)據(jù)(任意樁)起點坐標及方位角起點及終點坐標Lbl 0©Deg:Fix 33 汕imZ“NE(0),X(CZ) ”

3、？N:Nh0¥ “YCZ)?W:?R: “LS=?V: “L=,R=+1”？ G: “QDLC二”？A: “X(QD)=?P: “Y(QD)二？Q: “X(ZD)=?H:If H=0: Then “FWJ=?F:Goto1: Else “Y(ZD)=?M:Pol(H-P),(M-Q): If J<0: Then 360+J J:ElseJ:lfEnd :Sin-1(l 2申)？Z1:J-GZ1刁F: YHC= :2Z1R X ( n2 18CIJEnd °LbI 1 ©“ LC=?B:B<0 - Goto 0: W(L,R)= ”S:S 心 “ LM&

4、#39; ,R=+90 ”E 90(V2 (R n )T:VA2 224R)-V八4 22688R八3) ?D:VP-V八3 2240 RA2 ) ?L:Abs(B-A)刁K:180K2 (R n )+PO:RsinO+L ?Z:R(1 -cosO )+D U:Rec(Z,F):P+I 刁X: Q+J 9Y:Rec(U,F+90G)X+l -X: Y+J -Y: X+Scos(F+OG+E) -Z2:Y+Ssin(F+OG+E) Z3 °If N=0: Then “X=” :Z孕 “ Y=” :Z母 Goto 1: ElsePoL(Z2卜N),(Z3卜W) : If J<0 : Then 360+J J: Else J:IfEnd :“ hr=“ hd= / Goto 1: IfEnd °程序輸入譯釋圓（緩和）曲線坐標計算及方位角放樣起算數(shù)據(jù)（任意樁）起點坐標及方位角起點及終點坐標NE（O）,X（CZ）-輸入0計算坐標，或輸入測站 X坐標（極坐標放 樣）Y（CZ）-測站點Y坐標R（輸入半徑）LS-緩和曲線長（不帶緩和曲線單圓輸入0）L=+1，R=-1 ？（ L右轉輸入1，R左轉輸入-1）QD-LC=（輸入起點里程）X（QD）= ，Y（QD）=，X（ZD）=，Y（ZD）=,起點，終點的 XY 值。L（ YH）=（不用輸入數(shù)據(jù)）FWJ=-（輸入圓弧起