自编卡西欧5800程序(简单易懂-有说明1).docx

一、直线段中边桩坐标计算Deg:Fix3(设置角度单位为十进制,3位固定小数显示)“QD:K=”?→A:“QD:X=”?→B:“QD:Y=”?→C:“QD:FWJ=”?→D(输入起点桩号、坐标、方位角)Lbl1(设置程序标签)“K=”?→E:“L=”?→F:“JJ=”?→J(输入待求点桩号;边距:左负右正)B+(E-A)cos(D)+Fcos(D+J)→HC+(E-A)sin(D)+Fsin(D+J)→I“Xn=”:H◢“Yn=”:I◢(计算并显示待求点坐标)Goto1(转向程序标签1继续执行程序)二、圆曲线中边桩坐标计算Deg:Fix3(设置角度单位为十进制,3位固定小数显示)“ZY:K=”?→A:“ZY:X=”?→B:“ZY:Y=”?→C:“ZY:FWJ=”?→D:“R=”?→E:“ZJ=”?→F(输入ZY点桩号、坐标、方位角,圆曲线半径,转角:左负右正)Lbl1(设置程序标签)“K=”?→G:“L=”?→H:“JJ=”?→S(输入待求点桩号;边距:左负右正)(G-A)×180°÷π÷E→J(计算圆心角)D+J→M(计算P点的切向方位角)2Esin(J÷2)→K(计算弦长)IfF>0:Then(D+J÷2)→L:Else(D-J÷2)→L:IfEnd(计算ZY到P点的方位角)B+Kcos(L)+Hcos(M+S)→NC+Ksin(L)+Hsin(M+S)→O“Xn=”:N◢“Yn=”:O◢“a=”:M◢(计算并显示待求点坐标、路线切向方位角)Goto1 (转向程序标签1继续执行程序)三、第一完整缓和曲线中边桩坐标计算Deg:Fix3(设置角度单位为十进制,3位固定小数显示)“ZH:K=”?→A:“ZH:X=”?→B:“ZH:Y=”?→C:“ZH:FWJ=”?→D:“R=”?→E:“L1=”?→F:“ZJ=”?→G(输入起点桩号、坐标、方位角,圆曲线半径,缓和曲线长度,转角:左负右正)Lbl1“K=”?→H:“L=”?→I:“JJ=”?→V(输入待求点桩号;边距:左负右正)(H-A)-(H-A)5÷40÷E2÷F2→K(H-A)3÷6÷E÷F-(H-A)7÷336÷E3÷F3→L(H-A)2×90°÷π÷E÷F→MIfG>0:ThenD+M→N:ElseD-M→N:IfEnd任意点的切向方位角计算弦长IfG>0:ThenD+M÷3→U:ElseD-M÷3→U:IfEnd计算弦的方位角B+TcosU+Icos(N+V)→RC+TsinU+Isin(N+V)→S“Xn=”:R◢“Yn=”:S◢“a=”:N◢Goto1四、第二完整缓和曲线中边桩坐标计算Deg:Fix3(设置角度单位为十进制,3位固定小数显示)“HZ:K=”?→A:“JD:X=”?→B:“JD:Y=”?→C:“ZH:FWJ=”?→D:“ZJ=”?→E:“T2=”?→F:“L2=”?→G:“R=”?→H(输入终点桩号,交点坐标,起点方位角,转角:正左负右,第二缓和曲线长度、切线长,圆曲线半径)IfE<0:ThenD+180°-(180°+E)→I:IfEnd:IfE>0:ThenD+180°+(180°-E)→I:IfEndB+Fcos(I)→KC+Fsin(I)→L“HZ:X=”:K◢“HZ:Y=”:L◢“a=”:I◢Lbl1“K=”?→M:“L=”?→N:“JJ=”?→O(输入待求点桩号