卡西欧5800程序lg计算器

《卡西欧5800程序lg计算器》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、一、坐标正算ZBZSLbl0“X0=”?X:“Y0=”?Y:“I=”?I:“J=”?JX+Icos(J)→U:Y+Isin(J)→V“X=”:U◀“Y=”:V◀Goto0二、坐标反算ZBFSLbl0“X1=”?X:“Y1=”?Y:“X2=”?U:“Y2=”?VPol(U-X,V-Y):J<0=>J+360→J“I=”:I◀“J=”J▶DMS◀Goto0三、圆曲线计算YQXJS“X0=”?X:“Y0=”?Y:“FWJ=”?D:“QDHAO=”?G:“ZDHAO=”?C:“R=”?RLbl1“DQHAO=”?LL

2、C=>Goto2“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◀Goto1Lbl2:“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

3、Lbl0“DQ=”?LIfLY:ThenGoto1:IfEnd:IfEnd“GC=”:B+0.01C(L-J)+A(L-J+T)2÷(2R)→H◀Goto0Lbl1:“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+

4、T→YLbl0“DQ=”?L:“PY=”?U:“HP=”?VIfLY:ThenGoto2:IfEnd:IfEnd“HL=”:B+0.01C(L-J)+A(L-J+T)2÷(2R)+0.01UV+Q→H◀“H0=”:O-H→Z◀Goto0Lbl1LGoto3“HL=”:B+0.01C(L-J)+0.01UV+Q→H◀“H0=”:O-H→Z◀Goto0Lbl2L>K=>Goto3“HL=”:B+0.01D(L-J)+0.01UV+Q→H◀“H0=”:O-H→Z◀Goto0Lb

5、l3:“END”说明：输入时可包括竖曲线前后各一段的平直段，HL为中桩或边桩标高，H0为前视读数五、点到直线距离DDZXJLLbl0“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◀Goto0六、横坡渐变HPJB“QDHAO=”?A:“QDHP=”?B:“ZDHAO=”?C:“ZDHP=”?DLbl0“DQHAO=”?E:E

6、C=>Goto1(D-B)÷(C-A)→U“DQHP=”:B+U(E-A)→F◀Goto0Lbl1:“END”七、两直线交点LZXJDLbl0：“X1=”?A:“Y1=”?B:“X2=”?C:“Y2=”?D:“X3=”?E“Y3=”?F:“X4=”?G:“Y4=”?HC-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◀Goto0八、前方交会QFJHLbl0“X1=”?A:“Y1=”?B:“X2=”?C:“Y2=”

7、?D:“CY(1)N(0)”?ZIfZ=1:Then“X3=”?E:“Y3=”?F:IfEnd“∠A=”?O:“∠B=”?P:IfZ=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◀IfZ=1:ThenPol(X-A,Y-B):ClsIfJ<0:ThenJ+360→R:ElseJ→R:IfEndPol(E-A,F-B):ClsIfJ<0:ThenJ+360→S:ElseJ→S:IfEnd

8、R-S→V:IfV<0:ThenV+360→V:IfEnd“JCJ=”:V▶DMS◀Q-V→W:“CHAZHI=”:W▶DMS◀Else“NOC”:IfEndGoto0说明：C为是否有第三个点作为检查角。九、水准计算SZJS（比赛用）Lbl0“H1=”?A:“H2=”?B:“Q1=”?C:“Q2=”?D:(A+B)÷