主程序[K0~K9+376.17] XY:Lbl 1:{K}:K:Fix 3
K≥-50＝＞C=214°51′24″:D=54857.333:E=6886.809:F=75:G=-10°1423″:H=221.755:R=750⊿
K≥517.484＝＞C=204°37′01″:D=54478.000:E=6713.000:F=80:G=8°3450″:H=638.604:R=1081.11⊿
K≥759.389＝＞C=213°11′51″:D=54235.000:E=6554.000:F=110:G=-17°3943″:H=928.664:R=734.92⊿
K≥1095.936＝＞C=195°32′08″:D=53976.000:E=6482.000:F=70:G=17°0325″:H=1195.482:R=430⊿
K≥1474.522＝＞C=212°35′33″:D=53610.000:E=6248.000:F=80:G=48°5752″:H=1628.811:R=250⊿
K≥2246.555＝＞C=261°33′25″:D=53494.020:E=5466.646:F=105:G=-28°0526″:H=2403.795:R=417.694⊿
K≥2643.24＝＞C=233°28′01″:D=53317.788:E=5228.771:F=90:G=33°3412″:H=2782.044:R=310⊿
K≥2914.873＝＞C=267°02′14″:D=53304.079:E=4963.907:F=80:G=-22°5959″:H=3041.289:R=424.177⊿
K≥3165.148＝＞C=244°02′14″:D=53060.346:E=4463.354:F=80:G=19°5952″:H=3595.472:R=456.323⊿
K≥3714.196＝＞C=264°02′06″:D=53029.057:E=4163.893:F=120:G=-28°2111″:H=3894.741:R=476.079⊿
K≥4069.785＝＞C=235°40′56″:D=52851.732:E=3904.118:F=0:G=2°4822″:H=4203.767:R=5470.41⊿
K≥4337.696＝＞C=238°29′18″:D=52719.258:E=3688.040:F=80:G=-24°0147″:H=4457.168:R=372.768⊿
K≥4574.033＝＞C=214°27′31″:D=52526.447:E=3555.730:F=80:G=26°0632″:H=4688.403:R=320⊿
K≥4799.852＝＞C=240°34′03″:D=52361.801:E=3263.919:F=70:G=-7°1602″:H=5020.537:R=1000⊿
K≥5118.858＝＞C=233°18′01″:D=51983.590:E=2756.506:F=95:G=-29°2806″:H=5653.204:R=361.104⊿
K≥5791.216＝＞C=203°49′55″:D=51704.079:E=2633.041:F=110:G=-44°4331″:H=5954.071:R=260.426⊿
K≥6104.505＝＞C=159°06′24″:D=51381.570:E=2756.152:F=125:G=44°1335″:H=6286.858:R=292.982⊿
K≥6455.657＝＞C=203°20′00″:D=51111.890:E=2639.824:F=80:G=31°3405″:H=6567.004:R=251.46⊿
K≥6674.204＝＞C=234°54′05″:D=50973.347:E=2442.687:F=90:G=6°4019″:H=6803.808:R=1451.25⊿
K≥6933.198＝＞C=241°34′24″:D=50737.928:E=2007.772:F=125:G=14°3926″:H=7298.136:R=950⊿
K≥7481.402＝＞C=256°13′50″:D=50659.979:E=1689.690:F=85:G=-43°63″:H=7624.137:R=252.72⊿
′′′′′′′′′′′′′′′′′′′′′
K≥7756.51＝＞C=213°7′47″:D=50457.914:E=1557.816:F=70:G=7°9′17″:H=7855.065:R=1016.385⊿
K≥7953.432＝＞C=220°17′4″:D=49853.956:E=1045.902:F=70:G=-17°36′11″:H=8646.598:R=457.81⊿
K≥8751.304＝＞C=202°40′53″:D=49560.104:E=923.093:F=135:G=55°6′58″:H=8963.839:R=275.428⊿ Prog“PQXY”:Norm:Goto 1
子程序[PQXY] XY:Deg:C“FWJ”D“JDX”E“JDY”F“LS”G“ZJ”H“JDK”R:V=G÷AbsG:P=F2÷24R:Q=F÷2-F＾3÷240R2:T=Q+(R+P)Vtan(G÷2):I=πRGV÷180+F:K≤H-T＝＞J=K-H: Goto 1⊿ K≤H-T+F＝＞J=K-H+T:Z=C:S=1: Goto 2⊿ K≤H-T+I-F＝＞J=K-H+T:Z=C:S=1: Goto 3⊿ K＜H-T+I＝＞J=H-T+I-K:C=C+G:S=-1: Goto 2⊿ K≥H-T+I＝＞J=K-H-I+2T:C=C+G: Goto 1⊿ Lbl 1:M=D+JcosC:N=E+JsinC:O=C: Goto C
Lbl 2:W=(J-J＾5÷40R2F2-T)S:L=(J＾3÷6RF-J＾7÷336R＾3F＾3)V:O=C+90J2SV÷πRF: Goto B
Lbl 3:O=180(J-0.5F) ÷πR:W=Q+RsinO-T:L=(P+R(1-cosO))V:O=C+OV: Goto B Lbl B:M=D+WcosC-LsinC:N=E+WsinC+LcosC: Goto C Lbl C:A=90:{B}:B＜0＝＞A=180-A⊿
Z=O+AAbsB÷(B+10-10):M=M+AbsBcosZ:N=N+AbsBsinZ:I=M-X:J=N-Y:Pol(I,J):J＜0＝＞J=J+360⊿
“J=”:J→DMS “I=”：I◢
“M=”:M:Pause 0:“N=”:N◢
运行[K0~K9+376.17]程序
输入：X---测站X坐标 Y---测站Y坐标 K---桩号 B---距中（左负 右正 中零） 结果：J=测站到放样点的方位角 I=测站到放样点的平距
M=放样点X坐标 N=放样点Y坐标
若果运行程序[PQXY]，可单独计算一条曲线
输入：X---测站X坐标 Y---测站Y坐标 FWJ---交点1到交点2的方位角 JDX---交点2的X坐标 JDY---交点2的Y坐标 LS---缓和曲线长度
ZJ---转角（左负，右正） JDK---交点桩号 R---半径 K---桩号 B---距中（左负 右正 中零）
备注：子程序中Z=O+AAbsB÷(B+10-10)的小“10”输入时先按黄色的SHIFT键，放手，再按白色的log键即可
如果计算器不是4850，则将子程序[PQXY]中 “J=”:J→DMS “I=”：I◢
“M=”:M:Pause 0:“N=”:N◢ 修改为： J“J=” ◢ I“I=” ◢ M“M=”◢ N“N=”◢
例：当显示J=128.356时，先按黄色的SHIFT键，放手，再按白色的°′″键，即可转化为128°21′21.6″
例：[K0+000~K?+???]（各曲线要素数据库文字说明） XY:Lbl 1:{K}:K:Fix 3
K≥0＝＞C=交点1到交点2的方位角:D=交点2的X坐标:E=交点2的Y坐标:F=缓和曲线长度:G=道路转角（右转时输入为正值，左转时输入负值）:H=交点2的桩号:R=半径⊿ K≥交点3角桩曲线的直缓点桩号＝＞C=交点2到交点3的方位角:D=交点3的X坐标:E=交点3的Y坐标:F=缓和曲线长度:G=道路转角（右转时输入为正值，左转时输入负值）:H=交点3的桩号:R=半径⊿
K≥交点4角桩曲线的直缓点桩号＝＞C=交点3到交点4的方位角:D=交点4的X坐标:E=交点4的Y坐标:F=缓和曲线长度:G=道路转角:H=交点4的桩号:R=半径⊿
K≥下一曲线的直缓点桩号＝＞C=交点4到交点5的方位角:D=交点5的X坐标:E=交点5的Y坐标:F=缓和曲线长度:G=道路转角:H=交点5的桩号:R=半径⊿ …
Prog“PQXY”:Norm:Goto 1
2008．08．22．最新修改