计算曲线上任一点放样极坐标
F1 文件名 SWD ONE NERO（主程序fx－4800p）
Abs J “FixmC﹦>”＝7﹦>Fixm:Goto F△Z＝E7A“A0”÷Abs AA［9:A=Abs A:Q=R+S“LSci”2÷24R:T=S÷2-S^3÷240R2+Anstan. 5A▲
L=RA÷1r+S▲
H“ZH”＝W“JDT”－T▲
I“HY”＝H＋S▲
I“QZ”＝H＋. 5L▲
I“YH”＝H＋L－S▲
L“HZ”＝H＋L▲
D“XJ”K“YJ”B“Gra”O“XE”U“YE”G“XM”M“YM”:Lbi F:{FN}:F≤H﹦>X=F-W:ZN:≠＝>F≤L-S＝>V=F-H:F<H+S＝>Prog“Q”:≠＝>Rec（R-ZN,(2V-S)r÷2R:X=J-Qtan.5A:Q-I△≠＝>V=L-F:Pol(T-V,ZN:F<L＝> Prog“Q”: Pol(-x,Ans△X= Rec（Ans,A+J:J△△X=D+ Rec（Pol(X,ZAns,J+B:Y=K+J:“END OK”: Pol(G-O,M-U:I“HOUSHI D=”▲
J<0（数字）＝>J=J+360△J>360＝>J=J-360△J“HOUSHI α0=”▲
V=J: Pol(X-0（数字）,Y-U:I▲
V=J:Ans<0＝> Ans+360△V=Ans:V“J”▲
X▲
Y▲
Goto F ←
[主程序结束]
F2 文件名 Q（子程序fx－4800p）
Y=2RS: Rec（ZN,V 2r÷Y:X=V-V^5÷10Y2-T-J: V^3÷3Y- V^7÷42^3+I ←
[子程序结束]输入说明：
1.本程序为fx－4800p版，本程序适用于缓和曲线对称的曲线；
2.程序中Z＝E7A“A0”÷Abs AA［9处E用按键EXP键输入；
3、程序中Ans用按键[Ans]即shift+“（-）”键输入；
3. ▲ 用SHIFT+x2键输入；
4.← 用EXE键输入；
5．注意：程序中有几处输入 “. 5”而非“0. 5”
6．子程序Q中V的指数为 2r
操作说明：Fixm C=>? 首次启动时，需输入密码：“10000000”。A0？ 曲线转向角，要求以度分秒形式输入，左转输入“负” 值，右转输入“正”值。R? 曲线半径，直接输入即可。LSci?缓和曲线长度，有缓和曲线时输入缓和曲线长度，圆曲线输入“0”。T 程序输出曲线切线长度。L 程序输出曲线长度。JDT?曲线交点里程，直接输入平曲线交点里程，如K123+456.789输入123456.789即可。ZH=程序输出曲线起点ZH里程。HY=程序输出HY里程。QZ=程序输出QZ里程。YH=程序输出YH里程。HZ=程序输出曲线止点[HZ]里程。XJ?交点大地坐标[X坐标]。YJ?交点大地坐标[Y坐标]。Gra?曲线起始方位角。即由ZH指向实交点的方位角。XE?输入放样置仪点大地坐标[X坐标]。
YE?
输入放样置仪点大地坐标[Y坐标]。Xm?输入放样后视点大地坐标[X坐标]。Ym?输入放样后视点大地坐标[Y坐标]。F?放样点里程桩号。N？放样中桩距，即边桩至中桩的距离。无论曲线左转还是右转，均以左“负”右“正”输入，中桩输入“0”。EnD OK程序提示：程序已完成放样点的坐标计算，正在进行放样元素计算，请稍候！HOUSHI D=
程序输出置镜点到后视点水平距离。HOUSHI α0=程序输出后视点度盘读数，单位： 度，按shift+【°′″】键人为转换即可，将仪器水平度盘拨至该角度即可放样。
I 程序输出放样极距。即置镜点至放样点的水平距离。J 程序输出放样极角，单位：度，按shift+【°′″】键人为转换即可，将仪器水平度盘拨至该角度即可放样。X 放样点大地坐标[X坐标]Y 放样点大地坐标[Y坐标]按EXE键循环到F?。依次计算曲线上各点。以上程序输入Fx-4800P计算器内，界面简单明了，程序也很简单，可以计算曲线上任一点。这些程序在CASIO－4800上调试运行通过，并在实际测量中应用，非常实用，保证各位测友使用。如有对该程序有疑问或批评之处，请发邮件：zhangzong@sohu.com 上传时指数非人为原因可能分不清，见谅。


补充说明:
F1 文件中：
Q=R+S“LSci”2÷24R:T=S÷2-S^3÷240R2+Anstan. 5A中，“LSci”2 中2为指数，240R2中2为指数
L=RA÷1r+S中r为指数
Rec（R-ZN,(2V-S)r÷2R中r为指数
子程序Q中 Rec（ZN,V 2r÷Y:X V的指数为 2r
本人邮箱：zhangzong05@sohu.com


由本站论坛　xugongyiduan　原创。