圆曲线缓和曲线线路中边桩放样卡西欧5800坐标计算程序.docVIP

圆曲线缓和曲线线路中边桩放样卡西欧5800坐标计算 程序名：FYXY JD?Q:JDX?W:JDY?K:R:QDFWJ?F:A0?N:LS?V:-L,+R?G:DKQD?C:DKZD ?D:”ZJX?A:”ZJY”?B 8→Dimz V÷2-V^ 3 ÷ 240R2 →M V2÷ 24R －V^ 4 ÷ 2688R^ 3 →P pRN÷180+V→L M+ R+P tan N÷2 →T Q-T→Z[5] Z[5]+V→Z[6] Z[5]+L→Z[8] Z[8]-V→Z[7] Rec T，F+180 W+I→Z[1]:K+J→Z[2] Rec T，F+GN W+I→Z[3]:K+J→Z[4] Lbl 0 DKI?H:BIAN JU?S:JIA JIAO?E If H? If H D:Then Goto 0:IfEnd If H? Lbl 1 Rec Q-H，F+180 W+I→X: K+J→Y Rec S，F+E X :X+I→X◢ Y :Y+J→Y◢ Goto 7 Lbl 2 H-Z[5]→Z 90Z2÷ 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 Y÷X Z[1]+I→X:Z[2]+J→Y Rec S，F+GO+E X :X+I→X◢ Y :Y+J→Y◢ Goto 7 Lbl 3 H- Q-T -V÷2→Z 180Z÷ Rp →O Rsin O +M→X R 1-cos O +P→Z Rec X，F Z[1]+I→X:Z[2]+J→Y Rec Z，F+90G X+I→X:Y+J→Y Rec S，F+OG＋E X :X+I→X◢ Y :Y+J→Y◢ Goto 7 Lbl 4 Z[8]-H→Z 90Z2÷ VRp →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＋GN+180-Gtan-1 Y÷X Z[3]+I→X:Z[4]+J→Y Rec S，F+GN+180-OG- 180-E X :X+I→X◢ Y :Y+J→Y◢ Goto 7 Lbl 5 Rec H-Z[8]+T，F+GN W+I→X:K+J→Y Rec S，F+GN+E X :X+I→X◢ Y :Y+J→Y◢ Goto 7 Lbl 7 Pol X-A，Y-B If J 0:Then J+360→J:IfEnd FWJ :J?DMS◢ CJ :I◢ Goto 0 注：FYXY程序单代号 QJ D 交点里程桩号 WJDX 交点X坐标值 KJDY 交点Y坐标值 R 圆曲线半径 FQDFWJ 第一直线段方位角 NA 0 交点转向角 VLS 缓和曲线长度 G-L,+R 如果为左转角输入“－1”，如果为右转角输入“1” CDKQD 所求段起点里程桩号 DDKEZD 所求段终点里程桩号 ZJX 置镜点Ｘ坐标 ZJY 置镜点Y坐标 HDKI 所求点的里程桩号 SBIAN JU 边桩至中桩的距离，求中桩时输入0 距离不为负 EJIA JIAO 左边桩输入“－90”，右边桩输入“90” X Y 所求点的坐标值 C J 置镜点至待求点的距离 FWJ 置镜点至待求点的方位角