缓和曲线5800版中边桩计算程序修改版.doc

CASIO fx5800p计算器程序程序名：HHQXJD?Q:JDX?W:JDY?K:?R:QDFWJ?F:ZJZ?N:LS?V:-L,+R?G:QDZH?C:ZDZH ?D:”ZJX?A:”ZJY”?B8Dimz V2-V(3)(240R2)M V2(24R)V(4)(2688R(3)PpRN180+VLM+(R+P)tan(N2)TQ-TZ5Z5+VZ6Z5+LZ8Z8-VZ7Rec(T，F+180)W+IZ1:K+JZ2Rec(T，F+GN) W+IZ3:K+JZ4Lbl 0SQZH,0双横线到（多加一条横线）END=?HIf H0:Then Goto 8:IfEndBIAN JU?S:JIA JIAO?EIf HD:Then Goto 0:IfEndIf HZ5:Then Goto 1:IfEnd:If HZ6:Then Goto 2:IfEnd:If HZ7:Then Goto 3:IfEnd:If HZ8:Then Goto 4:Else Goto 5:IfEndLbl 1Rec(Q-H，F+180) W+IX: K+JYRec(S，F+E)X=:X+IXY=:Y+JYGoto 7Lbl 2H-Z5Z90Z2(pRV)O Z-Z(5)(40R2V2)+Z(9)(3456R(4)V(4)X Z(3)(6RV)-Z(7)(336R(3)V(3)+Z(11)(42240R(5)V(5)Y Rec(X2+Y2)，F+Gtan-1(YX) Z1+IX:Z2+JYRec(S，F+GO+E) X=:X+IXY=:Y+JYGoto 7Lbl 3H-(Q-T)-V2Z180Z(Rp)ORsin (O)+MXR(1-cos(O)+PZRec(X，F) Z1+IX:Z2+JYRec(Z，F+90G) X+IX:Y+JYRec(S，F+OGE) X+IXY+JYX=:XY=:YGoto 7Lbl 4Z8-HZ90Z2(VRp)OZ-Z(5)(40R2V2)+Z(9)(3456R(4)V(4)X Z(3)(6RV)-Z(7)(336R(3)V(3)+Z(11)(42240R(5)V(5)Y Rec(X2+Y2)，FGN+180-Gtan-1(YX) Z3+IX:Z4+JYRec(S，F+GN+180-OG-(180-E) X=:X+IXY=:Y+JYGoto 7Lbl 5Rec(H-Z8+T，F+GN) W+IX:K+JYRec(S，F+GN+E) X=:X+IXY=:Y+JYGoto 7Lbl 7Pol(X-A，Y-B) If J0:Then J+360J:IfEndFWJ=:JDMSCJ=:IGoto 0Lb1 8:”HHQX双横线箭头（多一横）END”注：FYXY程序单代号QJ D 交点里程桩号WJDX 交点X坐标值KJDY 交点Y坐标值R 圆曲线半径FQDFWJ 第一直线段方位角NZJZ 交点转向角(转角值)VLS 缓和曲线长度G-L,+R 如果为左转角输入“1”，如果为右转角输入“1”CQDZH 所求段起点里程桩号DZDZH 所求段终点里程桩号ZJX 置镜点坐标ZJY 置镜点Y坐标HSQZH 所求点的里程桩号SBIAN JU 边桩至中桩的距离，求中桩时输入0 距离不为