卡西欧5800程序LG计算器（Word）

1、一、坐标正算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+360J“I=”:I“J=”JDMS Goto 0三、圆曲线计算YQXJS“X0=”?X:“Y0=”?Y:“FWJ=”?D:“QDHAO=”?G:“ZDHAO=”?C:“R=”?RLbl 1“DQHAO=”?LL<G Or L>C => Goto 2“PY=”?K

2、180(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)BD+EO:O<0 => 360+OO“FWJ=”:ODMS Goto 1Lbl 2:“END”四、1.竖曲线SQX“QZHAO=”?J:“HB=”?B:“I1=”?C:“I2=”?D:“R=”?R“T=”?T:(D-C)÷100W:W÷Abs(W)A:“T”:0.5Abs(W)SJ-TX:J+TYLbl 0“DQ=”?LIf L<X:Then Goto 1:Else If L

3、>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)÷100W:W÷Abs(W)A:“T”:0.5Abs(W)S “YIGAO=”?OJ-TX:J+TYLbl 0“DQ=”?L:“PY=”?U: “HP=”?V2 / 7If L<X:Then

4、 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+QH“H0=”:O-HZ Goto 0Lbl 1L<G => Goto 3“HL=”:B+0.01C(L-J)+0.01UV+QH“H0=”:O-HZ Goto 0Lbl 2L>K => Goto 3“HL=”:B+0.01D(L-J)+0.01UV+QH“H0=”:O-HZ Goto 0Lbl 3:“END”说明：输入时可包括竖曲线前后各一段的平直段，HL为中桩或边桩标高，H0为前视读数

5、五、点到直线距离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”七、两直线交点LZXJ

6、DLbl 0：“X1=”?A:“Y1=”?B:“X2=”?C:“Y2=”?D:“X3=”?E“Y3=”?F:“X4=”?G:“Y4=”?HC-AN:D-BO:G-EP:H-FQ:QN-OPK:NB-OAU:PF-QEV“X=”:(PU-NV)÷KX “Y=”:(QU-OV)÷KY 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(

7、O)M:1÷tan(P)N“X0=”:(AN+CM+D-B)÷(M+N)X “Y0=”:(BN+DM+A-C)÷(M+N)YIf Z=1:Then Pol(X-A,Y-B):ClsIf J<0:Then J+360R:Else JR:IfEndPol(E-A,F-B):ClsIf J<0:Then J+360S:Else JS:IfEndR-SV: If V<0:Then V+360V: IfEnd“JCJ=”:VDMSQ-VW:“CHAZHI=”:WDMS Else “NO C”:IfEndGoto 0说明：C为是否有第三个点作为检查角。九、水

8、准计算SZJS（比赛用）Lbl 0“H1=”?A:“H2=”?B:“Q1=”?C:“Q2=”?D:(A+B)÷2E:(C+D)÷2F:A-CG:B-DH:Cls“HS=”Locate4,1,E:“QS=”Locate4,2,F:“H1-Q1=”Locate7,3,G:“H2-Q2=”Locate7,4,HCls1000(G-H)K:(G+H)÷2L:“PC=”:Locate4,1,K:“GC=”:Locate4,2,LClsGoto 0说明：H1H2为后视两次读数，Q1Q2为前视两次读数十、1.曲线计算1（速度快，半径小时准确度低）Lbl 0:“X0=”?A:“Y

9、0=”?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:PQI: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(co

10、s(M)+ cos(N)+2cos(K)+cos(J)÷12U:B+Q(sin(C)+4(sin(M)+ sin(N)+2sin(K)+sin(J)÷12V:“X=”:U+Ocos(J+90)X “Y=”:V+Osin(J+90)YIf J<0:Then J=J+360:IfEnd“FWJ=”:JDMS 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:“F

11、WJ=”?E:If M=1:Then Goto 1:Else If M=2:Then Goto 2:IfEnd:IfEndLbl 1:“DQHAO=”?L:“PY=”?I:“PYJD=”?F:L<A Or L>B => Goto 6Prog“SIM1”:W<0 => W+360W:“X=”:X “Y=”:Y “FWJ=”:WDMS Goto 1Lbl 2:“X=”?O:“Y=”?U:“PYJD=”?F:A+Abs(Y-D)cos(E+F-180°)LLbl 3:0I:Prog“SIM1”:(U-Y)cos(W+F-180°)-(O-X)sin(

12、W+F-180°)ZIf Abs(Z)<0.01:Then Goto 4:Else L+ZL:IfEnd:Goto 3Lbl 4:0I:Prog“SIM1”:(U-Y)÷sin(W+F)Z“DQHAO=”:L “PY=”:Z Goto 2Lbl 6:“END”:Goto 2SIM16N:(V-R)÷(B-A)T:(L-A)÷NH:TNH+RP:90H÷S:E+(P+R)NSW1G:C+H÷6(cos(E)+cos(W)+4(cos(E+(G+0.5)HT+2R)(G+0.5)S,G,0,(N-1)+Icos(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<