《卡西欧5800程序(lg计算器)》由会员分享，可在线阅读，更多相关《卡西欧5800程序(lg计算器)（4页珍藏版）》请在金锄头文库上搜索。
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 J+360J“I=”:I“J=”JDMS Goto 0三、圆曲线计算 YQXJS“X0=”?X:“Y0=”?Y:“FWJ=”?D:“QDHAO=”?G:“ZDHAO=”?C:“R=”?RLbl 1“DQHAO=”?LLC = Goto 2“PY=”?K180(L-G)(R)E2Rsin(0.5E)FRe
2、c(Abs(F),D+0.5E)“X=”:X+I+Kcos(D+E+90)A“Y=”:Y+J+Ksin(D+E+90)BD+EO:O 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:WAbs(W)A:“T”:0.5Abs(W)SJ-TX:J+TYLbl 0“DQ=”?LIf LY:Then Goto 1:IfEnd:IfEnd“GC=”:B+0.01C(L-J)+A(L-J+T)2(2R)H Goto 0Lbl 1:“END”2.标高计
3、算 BGJS(含横坡计算边桩)“QZHAO=”?J: “QDHAO=”?G: “ZDHAO=”?K: “HB=”?B: “SX=”?Q:“I1=”?C:“I2=”?D:“R=”?R“T=”?T:(D-C)100W:WAbs(W)A:“T”:0.5Abs(W)S “YIGAO=”?OJ-TX:J+TYLbl 0“DQ=”?L:“PY=”?U: “HP=”?VIf LY: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 Goto 3“HL=”:B+0.01C(L-J)+0
4、.01UV+QH“H0=”:O-HZ Goto 0Lbl 2LK = Goto 3“HL=”:B+0.01D(L-J)+0.01UV+QH“H0=”:O-HZ 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=”
5、?A:“QDHP=”?B:“ZDHAO=”?C:“ZDHP=”?DLbl 0“DQHAO=”?E:EC = 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=”?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=”
6、?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:IfEnd1tan(O)M:1tan(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 JG:Then Goto2:IfEnd:IfEnd(E-D)Abs(G-F)P:Abs(H-F)Q:PQI:C+90Q(I+2D)J:C+45Q(I8+D)M:C+135Q(3I8+D)N:C+45Q(I2+2D)KA
7、+Q(cos(C)+4(cos(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 JB = Goto 6Prog“SIM1”:W 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(W+F-180)ZIf Abs(Z)G And LC =Goto 1: CG And LGoto 1: CGoto 1: CG =Goto 1Rec(Abs(L-G),D)“X=”:A+I+Kcos(D+90)X “Y=”:B+J+Ksin(D+90)Y Goto 0Lbl 1:“END”十二、积分法 JFFA（不常用）十三、导线平差 C（比赛用）
