卡西欧5800程序L G计算器一、坐标正算ZBZSLbl 0“X0=”?X:“Y0=”?Y:“I=”?I:“J=”?JX+Icos(J)→U:Y+Isin(J)→V“X=”:U◀“Y=”:V◀ Goto 0二、坐标反算ZBFSLbl 0“X1=”?X:“Y1=”?Y:“X2=”?U:“Y2=”?VPol(U-X,V-Y):J<0 => J+360→J“I=”:I◀“J=”J▶DMS◀ Goto 0三、圆曲线计算YQXJS“X0=”?X:“Y0=”?Y:“FWJ=”?D:“QDHAO=”?G:“ZDHAO=”?C:“R=”?R Lbl 1“DQHAO=”?LL<G Or L>C => Goto 2“PY=”?K180(L-G)÷(πR)→E2Rsin(0.5E)→FRec(Abs(F),D+0.5E)“X=”:X+I+Kcos(D+E+90)→A◀“Y=”:Y+J+Ksin(D+E+90)→B◀D+E→O:O<0 => 360+O→O“FWJ=”:O▶DMS◀ Goto 1Lbl 2:“END”四、1.竖曲线SQX“QZHAO=”?J:“HB=”?B:“I1=”?C:“I2=”?D:“R=”?R“T=”?T:(D-C)÷100→W:W÷Abs(W)→A:“T”:0.5Abs(W)→S◀J-T→X:J+T→YLbl 0“DQ=”?LIf L<X:Then Goto 1:Else If L>Y:Then Goto 1:IfEnd:IfEnd“GC=”:B+0.01C(L-J)+A(L-J+T)2÷(2R)→H◀ Goto 0Lbl 1:“END”2.标高计算BGJS(含横坡计算边桩)“QZHAO=”?J: “QDHAO=”?G: “ZDHAO=”?K: “HB=”?B: “SX=”?Q:“I1=”?C:“I2=”?D: “R=”?R“T=”?T:(D-C)÷100→W:W÷Abs(W)→A:“T”:0.5Abs(W)→S◀“YIGAO=”?OJ-T→X:J+T→YLbl 0“DQ=”?L:“PY=”?U: “HP=”?VIf L<X:Then Goto 1:Else If L>Y:Then Goto 2:IfEnd:IfEnd“HL=”:B+0.01C(L-J)+A(L-J+T)2÷(2R)+0.01UV+Q→H◀“H0=”:O-H→Z◀ Goto 0Lbl 1L<G => Goto 3“HL=”:B+0.01C(L-J)+0.01UV+Q→H◀“H0=”:O-H→Z◀ Goto 0Lbl 2L>K => Goto 3“HL=”:B+0.01D(L-J)+0.01UV+Q→H◀“H0=”:O-H→Z◀ Goto 0Lbl 3:“END”说明：输入时可包括竖曲线前后各一段的平直段，HL为中桩或边桩标高，H0为前视读数五、点到直线距离DDZXJLLbl 0“X0=”?A:“Y0=”?B:“X1=”?X:“Y1=”?Y:“X2=”?U:“Y2=”?VPol(U-X,V-Y)“L=”(B-Y)cos(J)-(A-X)sin(J)→L◀“S=”(B-Y)sin(J)+(A-X)cos(J)→S◀ Goto 0六、横坡渐变HPJB“QDHAO=”?A:“QDHP=”?B:“ZDHAO=”?C:“ZDHP=”?DLbl 0“DQHAO=”?E:E<A Or E>C => Goto 1(D-B)÷(C-A)→U“DQHP=”:B+U(E-A)→F◀Goto 0Lbl 1:“END”七、两直线交点LZXJDLbl 0：“X1=”?A:“Y1=”?B:“X2=”?C:“Y2=”?D:“X3=”?E“Y3=”?F:“X4=”?G:“Y4=”?H C-A→N:D-B→O:G-E→P:H-F→Q:QN-OP→K:NB-OA→U:PF-QE→V“X=”:(PU-NV)÷K→X◀“Y=”:(QU-OV)÷K→Y◀Goto 0八、前方交会QFJHLbl 0“X1=”?A:“Y1=”?B:“X2=”?C:“Y2=”?D:“C Y(1) N(0)”?ZIf Z=1:Then“X3=”?E:“Y3=”?F:IfEnd“∠A=”?O:“∠B=”?P: If Z=1:Then“∠C=”?Q:IfEnd1÷tan(O)→M:1÷tan(P)→N“X0=”:(AN+CM+D-B)÷(M+N)→X◀“Y0=”:(BN+DM+A-C)÷(M+N)→Y◀If Z=1:Then Pol(X-A,Y-B):ClsIf J<0:Then J+360→R:Else J→R:IfEndPol(E-A,F-B):ClsIf J<0:Then J+360→S:Else J→S:IfEndR-S→V: If V<0:Then V+360→V: IfEnd“JCJ=”:V▶DMS◀Q-V→W:“CHAZHI=”:W▶DMS◀ Else “NO C”:IfEndGoto 0说明：C为是否有第三个点作为检查角。

九、水准计算SZJS（比赛用）Lbl 0“H1=”?A:“H2=”?B:“Q1=”?C:“Q2=”?D:(A+B)÷2→E:(C+D)÷2→F:A-C→G:B-D→H:Cls“HS=”Locate4,1,E:“QS=”Locate4,2,F:“H1-Q1=”Locate7,3,G:“H2-Q2=”Locate7,4,H◀Cls1000(G-H)→K:(G+H)÷2→L:“PC=”:Locate4,1,K:“GC=”:Locate4,2,L◀ClsGoto 0说明：H1H2为后视两次读数，Q1Q2为前视两次读数十、1.曲线计算1（速度快，半径小时准确度低）Lbl 0:“X0=”?A:“Y0=”?B:“FWJ=”?C:“1÷R-QD=”?D:“1÷R-ZD=”?E:“QDHAO=”?F:“ZDHAO=”?GLbl 1:“DQHAO=”?H:“PY=”?O:If H<F:Then Goto 2:ElseIf H>G:Then Goto2:IfEnd:IfEnd (E-D)÷Abs(G-F)→P:Abs(H-F)→Q:PQ→I:C+90Q(I+2D)÷π→J:C+45Q(I÷8+D)÷π→M:C+135Q(3I÷8+D)÷π→N:C+45Q(I÷2+2D)÷π→KA+Q(cos(C)+4(cos(M)+ cos(N))+2cos(K)+cos(J))÷12→U:B+Q(sin(C)+4(sin(M)+ sin(N))+2sin(K)+sin(J))÷12→V:“X=”:U+Ocos(J+90)→X◀“Y=”:V+Osin(J+90)→Y◀If J<0:Then J=J+360:IfEnd“FWJ=”:J▶DMS◀Goto 1Lbl 2:“END”:Goto 02.曲线计算2（速度慢，准确度高）①主程序：“1-ZS,2-FS”?M:“QDHAO=”?A:“ZDHAO=”?B:“1÷R-QD=”?R:“1÷R-ZD=”?V:“X0=”?C:“Y0=”?D:“FWJ=”?E:If M=1:Then Goto 1:Else If M=2:Then Goto2:IfEnd:IfEndLbl 1:“DQHAO=”?L:“PY=”?I:“PYJD=”?F:L<A Or L>B => Goto 6Prog“SIM1”:W<0 => W+360→W:“X=”:X◀“Y=”:Y◀“FWJ=”:W▶DMS◀ Goto 1Lbl 2:“X=”?O:“Y=”?U:“PYJD=”?F:A+Abs((Y-D)cos(E+F-180°))→LLbl 3:0→I:Prog“SIM1”:(U-Y)cos(W+F-180°)-(O-X)sin(W+F-180°)→ZIf Abs(Z)<0.01:Then Goto 4:Else L+Z→L:IfEnd:Goto 3Lbl 4:0→I:Prog“SIM1”:(U-Y)÷sin(W+F)→Z“DQHAO=”:L◀“PY=”:Z◀ Goto 2Lbl 6:“END”:Goto 2②SIM16→N:(V-R)÷(B-A)→T:(L-A)÷N→H:TNH+R→P:90H÷π→S:E+(P+R)NS→W1→G:C+H÷6(cos(E)+cos(W)+4Σ(cos(E+((G+0.5)HT+2R)(G+0.5)S,G,0,(N-1)))+I cos(W+F)→X: D+H÷6(sin(E)+sin(W)+4Σ(sin(E+((G+0.5)HT+2R)(G+0.5)S,G,0,(N-1))+2Σ(sin(E+(THG+2R)GS,G,1,(N-1)))+Isin(W+F)→Y十一、偏移正算PYZS(基于坐标正算)“X0=”?A:“Y0=”?B:“FWJ=”?D: “QDHAO=”?G: “ZDHAO=”?CLbl 0:“DQHAO=”?L:“PY=”?KC>G And L>C =>Goto 1: C>G And L<G =>Goto 1: C<G And L<C =>Goto 1: C<G And L>G =>Goto1Rec(Abs(L-G),D)“X=”:A+I+Kcos(D+90)→X◀“Y=”:B+J+Ksin(D+90)→Y◀ Goto 0Lbl 1:“END”十二、积分法JFFA（不常用）十三、导线平差DXPC（比赛用）。