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

一、坐标正算ZBZS Lbl 0 “X0=”?X:“Y0=”?Y:“I=”?I:“J=”?J X+Icos(J)→U:Y+Isin(J)→V “X=”:U? “Y=”:V? Goto 0 二、坐标反算ZBFS Lbl 0 “X1=”?X:“Y1=”?Y:“X2=”?U:“Y2=”?V Pol(U-X,V-Y): J0 = 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=”?L LG Or LC = Goto 2 “PY=”?K 180(L-G)÷(πR)→E 2Rsin(0.5E)→F Rec(Abs(F),D+0.5E) “X=”:X+I+Kcos(D+E+90)→A? “Y=”:Y+J+Ksin(D+E+90)→B? D+E→O:O0 = 360+O→O “FWJ=”:O?DMS? Goto 1 Lbl 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→Y Lbl 0 “DQ=”?L If LX:Then Goto 1:Else If LY:Then Goto 1:IfEnd:IfEnd “GC=”:B+0.01C(L-J)+A(L-J+T)2÷(2R)→H? Goto 0 Lbl 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=”?O J-T→X:J+T→Y Lbl 0 “DQ=”?L:“PY=”?U: “HP=”?V If LX:Then Goto 1:Else If LY: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 0 Lbl 1 LG = Goto 3 “HL=”:B+0.01C(L-J)+0.01UV+Q→H? “H0=”:O-H→Z? Goto 0 Lbl 2 LK = Goto 3 “HL=”:B+0.01D(L-J)+0.01UV+Q→H? “H0=”:O-H→Z? Goto 0 Lbl 3:“END” 说明：输入时可包括竖曲线前后各一段的平直段，HL为中桩或边桩标高，H0为前视读数 五、点到直线距离DDZXJL Lbl 0 “X0=”?A:“Y0=”?B:“X1=”?X:“Y1=”?Y:“X2=”?U:“Y2=”?V Pol(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=”?D Lbl 0 “DQHAO=”?E:EA Or EC = Goto 1 (D-B)÷(C-A)→U “DQHP=”:B+U(E-A)→F? Goto 0 Lbl 1:“END” 七、两直线交点LZXJD Lbl 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 八、前方交会QFJH Lbl 0 “X1=”?A:“Y1=”?B:“X2=”?C:“Y2=”?D:“C Y(1) N(0)”?Z If Z=1:Then“X3=”?E:“Y3=”?F:IfEnd “∠A=”?O:“∠B=”?P: If Z=1:Then“∠C=”?Q:IfEnd 1÷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):Cls If J0:Then J+360→R:Else J→R:IfEnd Pol(E-A,F-B):Cls If J0:Then J+360→S:Else J→S:IfEnd R-S→V