FX-9860X计算器曲线坐标放样程序
核心提示：适用于FX-9X系列计算器的曲线坐标计算，极坐标放样的综合程序。置仪点可选择在曲线上，也可选择线外的同测区的各类控制点。线元法
&适用于FX-9X系列计算器的曲线坐标计算，极坐标放样的综合程序。置仪点可选择在曲线上，也可选择线外的同测区的各类控制点。线元法计算，采用通用积分公式。在串列文件中建立线元数据库。可以建立2&N条线元数据，供较长一段时间使用。整个操作十分简单，除建立数据库需要仔细一点外，程序运行很简单，输入较少，响应速度快，计算精度高，满足使用要求。程序附件中有说明。
FX-9X计算器曲线坐标及放样综合程序&
一、主程序&&Q-FYZB&&&(程序每行后面应回车，由于程序复制过来，回车键符号无）
&X.CZ&?&X&(输入置仪点X坐标)
&Y.CZ&?&Y&(输入置仪点Y坐标)
&X.HS&&C&(输入后视点X坐标)
&Y.HS&?&D&(输入后视点Y坐标)
Pol(C-X,D-Y)&(计算器反算坐标)
List Ans[2]&E&(将反算的方位角放入&E&)
&XZ.XYH(1-N)&?&I&(选择输入线元编号1-N,参考串列文件数据库编号)
&SR.BJ(M)&?&O&(输入边距,不计算边桩坐标输入&0&)
List 3[I]&C&(将编号为I的线元桩号放入&C&)
List 4[I]&A&(将编号为I的线元X坐标放入&A&)
List 5[I]&B&(将编号为I的线元Y坐标放入&B&)
List 6[I]&G&(将编号为I的线元切线方位角放入&G&)
List 7[I]&R&(将编号为I的线元起点半径放入&R&,带符号,左负右正)
List 7[I+1]&T&(将编号为I的线元终点半径放入&T&,带符号,左负右正)
List 3[I+1]-List 3[I]&S&(计算线元长度)
If R&0&&And&&Abs(G-List 6[I＋1])&.5&
Then 1&R&R&(计算曲线起点曲率)
If T&0&&And&&Abs(G-List 6[I＋1])&.5&
Then 1&T&T&(计算曲线终点(或下一个起点)曲率
Else&&0&T&
(T-R)&S&M&
&SR.DK.PZ&?&D&(输入计算点中桩桩号)
G+(RF+.5MF^2)&180&&&P&(计算计算点切线方位角)
A+&cos (G+(RX+.5MX^2)&180&&),0,F)&U&(计算的计算点X坐标)
B+&sin (G+(RX+.5MX^2)&180&&),0,F)&V&(计算的计算点Y坐标)
Pol(U-X,V-Y)&(测站点到计算点的距离)
List Ans[2]&Q&
DK.PZ:D▲&(显示:测站点到所求点(中桩)桩号)
Then Q-E+360&Q&
Else Q-E&Q&
&S(M).APZ&:List Ans[1]▲&(显示:测站点到所求点(中桩)水平距离)
&&BAP.Z&:Q▶DMS▲&(显示:后视点测站点所求点(中)的水平夹角(度分秒)
Pol(U-X+Ocos (P-90),V-Y+Osin (P-90))&(反算测站点到左边桩坐标)
List Ans[1]▲&(显示:测站点到所求点(左边桩)水平距离)
List Ans[2]&Q&
Q-E+360&Q&
&&BAP.ZU&:Q▶DMS▲&(显示:后视点测站点所求点(左)的水平夹角(度分秒)
Pol(U-X+Ocos (P+90),V-Y+Osin (P+90))&(反算测站点到右边桩坐标)
List Ans[1]▲&(显示:测站点到所求点(右边桩)水平距离)
List Ans[2]&Q&
Q-E+360&Q&
&&BAP.YO&:Q▶DMS▲&(显示:后视点测站点所求点(右)的水平夹角(度分秒)
Goto 1&(返回 Lbl 1 连续计算)
二、清除数据及准备程序&&[[0000]]&
ClrList&&&&&&&&&&&&&&&（清除串列文件数据）只需启动按一次回车键即可
&X.KZD&&L ist&&1[0]&&&& &（将线路控制点X坐标名冠入串列文件对应的列）
&Y.KZD&&L ist&&2[0]&&&& &（将线路控制点Y坐标名冠入串列文件对应的列）
&DKA&&L ist&&3[0]&&&& &（L ist&&3[0]&&L ist&&7[0]分别为线元桩号
&XA&&L istL&&4[0]&&&&&& &线元X坐标
&YA&&L ist&& 5[0]&&&&&&&& &线元Y坐标&
&CA&&L ist&&6[0]&&&&&&&&& 线元切线方位角
&RA&&L ist&& 7[0]&&&&&&&&&线元起点半径
&DK.JD&&L ist&&15[0]&& &（为交点桩号列冠名）
&X.JD&&L ist&& 16[0]&&&&&（为交点X坐标列冠名）
&Y.JD&&L ist&& 17[0]&&&& &（为交点Y坐标列冠名）
&C.JD&&L ist&&18[0]&&&& &（为交点切线方位角列冠名）
&&ZJ.JD&&L ist&&19[0]&&&&&（为交点转角列冠名）&&
&LS1&&L ist&& 20[0]&&&&&& &（为第一缓和曲线列冠名）
&LS2&&L ist&& 21[0]&&&&&（为第二缓和曲线列冠名）&
&R&&L ist&& 22[0]&&&&&&&&&&&（为交点转弯半径列冠名）
&&&&&&&&&&&&&&&&&&&&&&&&使用说明&
一、先运行[0000]程序。按&MENU&，选择&STAT&图标，进入串列文件。&
二、在第一列&X.KZD&从第一行起输入线路上各类控制点的X坐标;第二列的第一行起输入Y&
&& 坐标;每一行输入一个点的坐标数据;一直往下输入,直至输入到最后一个点的坐标为止。没有&
&& 控制点的第一列和第二列不需要输入，放样的已知点将采用线路上的特征点。&
&& 从第三列起输入线元参数；一行输入一个线元完整参数。如：第一行第三列至七列分别为&
&&&&线元起点的桩号、X、Y、切线方位角、半径；第二行第三列至七列分别为线元终（起）点的桩&
&&&&号、X、Y、切线方位角、半径。（半径值按曲线转向赋予左负右正符号）且规定：直线端、&
&&&&缓和曲线接直线端的半径值输入&0&，圆曲线和缓和曲线接圆曲线端半径输入设计半径值。&
&&&&整条线路或整个标段只需建一次数据库,可较长时间使用.&
三、线元数据库输入检查完毕后回到图标菜单，选择&PRGM&，运行主程序。&
&& 计算器显示 X.CZ? 时,提示输入测站点X坐标,你可输入串列文件中的数据,也可输入其他可用&
&& 的数据; Y.CZ? 同.X.HS?&&Y.HS? 提示输入后视点X;Y坐标; 显示 XZ.XYH(1-N)?时,请输入&
&&&&你要选择的线元编号(1-N);输入后,计算器将计算你选择的线元号和下一线元号之桩号间的中&
&& 边桩任意桩号的坐标. 显示 SR.BJ(M)? 请输入边距;如果边距输入为&0&,表示不计算边桩坐标&
&& 显示 SR.DK.PZ?&&请输入线元内任意中桩桩号,此时计算器自动计算坐标(如果边距不为零还将&
&& 自动计算边桩坐标),计算的坐标不显示,而显示以极坐标形式计算的置仪点到放洋点(桩号点)的&
&& 距离和偏角参数.此过程反复进行直至线元桩号完全放洋或需要移动置仪点为止.&}