卡西欧5800计算器程序.doc

文档介绍：CASIOfx—5800计算器工程测量与公路测量程序1、坐标正算"X0=″?X:"Y0=″?Y:"I=″?I:"J=″?JX+ICos(J)→U:Y+ISin(J)→V"X=″:U(待求点的X坐标)"Y=″:V(待求点的Y坐标)说明:X0Y0:已知点坐标I:两点的距离J:方位角2、坐标反算Lbl0"X1=″?X:"Y1=″?Y:"X2=″?U:"Y2=″?V Pol(U-X,V-Y): J<0J+360→J"I=″:I"J=″:JDMSGOTO0说明:X1Y1:第一点的坐标,X2Y2第二点的坐标,I:两点的距离,J:方位角3、圆曲线"X0=″?X:"Y0=″?Y:"FWJ=″?D:"QDHAO=″?G:"ZDHAO=″?C:"R=″?RLbl1"DQHAO=″?LL<GOrL>CGOTO2"PY=″?K180(L-G)÷(πR)→E2RSin()→FReC(Abs(F),D+):Cls"X=″:X+I+KCos(D+E+90)→A"Y=″:Y+J+KSin(D+E+90)→BD+E→o:o<0360+o→0o"FWJ=″:o DMSGoto1Lbl2"END″说明:X0Y0:起始点的坐标,FWJ:起始点的方位角,QDHAO:起点里程,ZDHAO终点里程,R:半径,DQHAO:待求点里程,PY:偏移量4、竖曲线"QZHAO=″?J:"H+B″=?B:"I1=″?C:"I2=″?D:"R=″?R:"T=″?T:((D-C)÷100)÷Abs((D-C)÷100)→A:Abs((D-C)÷100)→S"T″:SJ-T→XJ+T→YLbl0"DQ=″?LIfL<X:ThenGoto1:ElseIf L>Y:ThenGoto1:IfEnd:IfEnd"GC=″:B+C(L-J)÷100+A(L-J+T) ÷(2R)→HGoto0Lbl1"END″说明:QZHAO:曲中点里程,H+B:曲中点高程,I1:第一坡度,I2:第二坡度,R:半径,T:切线长,DQ:待求点里程。"X0=″?A:"Y0=″?B:"FWJ=″?D: Lbl0"LS=″?L:"PY=″?C ReC(L,D) "X=″:A+os(D+90)→X "Y=″:B+J+CSin(D+90)→YGoto0说明:X0Y0:已知点坐标,LS:两点距离,FWJ:"X0=″?A:"Y0=″?B:"FWJ=″?C:"1÷R-QD″?D:"1÷R-ZD″?E:"QDHAO″?F:"ZDHAO″?G Lbl1"DQHAO=″?H:"PY=″?o IfH<F:ThenGoto2:ElseIf H>G:ThenGoto2: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"FWJ=″:JDMSGoto1Lbl2"END″说明:X0Y0:起开点坐标,FWJ:起开点方位角,1÷R-QD:起开点曲率,1÷R-ZD终点曲率,QDHAO:起点里程,ZDHAO终点里程,DQHAO:待求点里程,XY:待求点坐标7、标高计算"QZHAO=″?J:"QDHAO=″?G:"ZDHAO=″?K:"B—HB=″?B:"SX=″?Q:"I1=″?C:"I2=″?D:"R=″?R:"T=″?T(D-C)÷100→W:W÷Abs(W)→A:"T″:(W)→S"o-YIGAO=″?oJ-T→X:J+T→YLbl1"L—DQHAO=″?L:"PY=″?U:"XIELV=″?VIfL<X:ThenGoto2:ElseIf L>Y:ThenGoto3:IfEnd:IEnd"HL=″:B+(L-J)+A(L-J+T) ÷(2R)++Q→Q"HO=″:o-H→ZGoto1Lbl2L<GGoto4"HL=″:B+(L-J)C++Q→H "H0=″:o-H→HGoto1Lab3L>KGoto4"HL=″:B+(L-J)D++Q→H"HO=:o-H→ZGoto1Lbl4:"END″说明:QZHAO:曲中点里程(竖曲线),QDHAO:起点里程,ZDHAO:终点里程,B—HB曲中点高程,SX:上下(路面标高下多少为水稳层面),I1:第一坡度,I2:第二坡度,R:半径,T切线长,L—DQ