卡西欧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=〃?VPol(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=〃:oDMSGoto1Lbl2”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:ElseIfL>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=〃?CReC(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〃?GLbl1”DQHAO=〃?H:”PY=〃?oIfH<F:ThenGoto2:ElseIfH>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: