fx-5800P计算器编程基于串列输入数据的边长与坐标方位角计算程序P0801fx-5800P设有List X、List Y、List Freq三个串列，串列的功能是用于存储单、双变量统计计算的样本数据，以便于用户查看与编辑样本数据在编程中也可用串列存储已知数据或程序计算结果，本程序是用于存储程序计算所需要的已知数据程序名：P0801"COORSIDE And BEAR P0801" 显示程序标题Deg: Fix 3 十进制度，3位固定小数显示nN:"POINT NUM=":N 提取与显示串列中的坐标点数Lbl 0:"START n="?O 输入站点点号If O≤0 Or O>N:Then "START n OVER!":Goto 0:IfEnd判断站点点号的合法性Lbl 1:"END n="?E 输入站点点号If E≤0 Or E>N Or E=O:Then "END n OVER!":Goto 1:IfEnd判断端点点号的合法性Pol(List X[E]-List X[O],List Y[E]-List Y[O]):Cls调用极坐标函数计算J<0J+360J 判断方位角"D(m)=":I 显示站点→镜点的平距"α(Deg)=":J 显示站点→镜点的方位角Goto 0运行程序前，需按(COMP)(CLR)键，执行ClrStat命令，清除统计串列的数据；按(STAT)(FreqOn)键打开频度串列List Freq；按(REG)键进入双变量统计回归计算模式，在统计串列中依次输入图所示的坐标点数据，结果见表1所示1 输入在统计串列的坐标数据点号List XList YList Freq14381.4113629.849124578.2263531.110134568.2523689.568144511.2333880.836154360.7083882.016164588.1434106.347174406.1324101.540每在List X与List Y行输入一个点的坐标后，List Freq行的频度自动变为1，它用于统计总点数，请用户不要改变该数值。
完成已知数据输入后，执行程序P0801，用户只需分别输入站点号与镜点号，程序即能自动计算并显示站点→镜点的平距与坐标方位角当用户输入的站点号超出总点数或为负数时，程序自动要求用户重新输入站点号；当用户输入的镜点号超出总点数、为负数或等于站点号时，程序自动要求用户重新输入镜点号执行程序P0801，1→7，5→6点的平距与坐标方位角的步骤如下：屏幕提示按键说明COOR→SIDE And BEAR P0801显示程序标题POINT NUM=7显示串列中的总点数START n=?1输入站点号1END n=?7输入站点号7D(m)=472.338显示平距α(Deg)=86°59′59.69″显示坐标方位角START n=?5输入站点号5END n=?6输入站点号6D(m)=319.454显示平距α(Deg)=44°36′22.82″显示坐标方位角……只能按键终止运行，终止程序运行后，用户可以随时按(REG)键进入双变量统计回归计算模式，编辑已输入的坐标数据或添加新点的坐标数据特别提示：CASIO fx-5800p大礼包热销中，【购买1台fx-5800p，赠送《CASIO fx-5800p可编程计算器测绘计算实用程序》书籍1本，此书籍中测量程序可直接传输到计算器中，《CASIO fx-5800p新型编程计算器使用方法与编程技巧》1本，fx-5800p间数据传输线（SB-62）1条，《fx-4850p/fx-4800p与fx-5800p编程语言的主要区别》对比表1份】，数量有限，欲购从速，可以到全国各地测绘店购买及常用测量程序传输。
fx-5800p的8大功能优点总结:优点1、结构化的类BASIC编程语言，程序结构化强，便于编写和阅读，程序代码更加简洁”If～Then～Else～IfEnd, For～To～Step～Next,While～WhileEnd, Do～LpWhile”优点2、两台fx-5800p间的数据通讯，免除了手工输入程序的麻烦，节省时间，避免输入错误优点3、fx-5800p大容量的内存及闪存存储功能，断电情况下，程序不会丢失优点4、fx-5800p自然书写功能，自然书写形式输入与输出不出错优点5、fx-5800p的夜晶点阵显示屏幕，可以更加清晰的显示数字内容，分辨率高优点6、强大的数理统计分析，串列数据存储功能，用于编程，可批量存储计算结果，方便查看数据结果优点7、fx-5800p矩阵计算功能，最大可计算10×10的矩阵，测量平差方程的解算优点8、耗电量小，fx-5800p的7号电池方便更换与耐用一、程序功能主要功能：采用交点法方式计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。
新版本优化：1、优化程序语句、2、以复数形式输入变量及做数据库，取消原矩阵数据库;3、修改隧道超欠挖程序为通用形，不受圆心个数限制、4、新增测量资料表计算二、源程序（绿色为程序名；蓝色为输入计算器内容）紫色为新版改动处（可以根据自己标段情况用相关主程序及子程序，再在0程序中汇总）0.汇总程序（1、坐标计算放样程序(1XY、A、AB、HX、JS、DX、QX、F、XY、X1)；2、坐标反算程序（2ZD、A、B、AB、HX、QX、F、ZD、X1)；3、高程计算查阅程序（3GC、H、I、QX、S1、I1）；4、路基半幅标准宽度查阅程序（4GD、C、QX、G1）；5、路基边坡及开挖口放样程序（5BP、A、B、AB、HX、H、I、C、JS、DX、QX、F、ZD、X1、S1、I1、G1、W1）；6、路基标准距离放样（6FM、A、AB、HX、H、I、JS、DX、QX、F、XY、X1、S1、I1)；7、桥梁锥坡计算放样程序（7ZP、A、AB、HX、C、JS、DX、QX、F、XY、X1、G1)；8、极坐标计算程序（8JS、JS、DS）；9、隧道超欠挖计算程序（9SD、A、B、AB、HX、H、I、QX、S、SD、F、ZD、X1、S1、I1、SD1）运行后按1~9数子约半秒，则选择1至9的程序，返回时，在桩号输入-1,返回选择计算类型。
输入-2,返回选择线路 程序名：0（数子0）ClrMat:ClrVar:12→DimZ：Norm 2:Do:＂(XY=1，ZD=2 ，GC=3，GD=4， BP=5，FM=6，ZP=7，JS=8，SD=9)===>QING AN 1-9＂：Getkey→Z[3]:While Z[3]=35:Prog＂1XY＂:WhileEnd:While Z[3]=36:Prog＂2ZD＂：WhileEnd: While Z[3]=37:Prog＂3GC＂：WhileEnd: While Z[3]=21:Prog＂4GD＂：WhileEnd: While Z[3]=22:Prog＂5BP＂：WhileEnd: While Z[3]=23:Prog＂6FM＂：WhileEnd: While Z[3]=31:Prog＂7ZP＂：WhileEnd: While Z[3]=32:Prog＂8JS＂：WhileEnd: While Z[3]=33:Prog＂9SD＂：WhileEnd:LpWhile Z[3]≠25:”XIE XIE SHI YONG”:计算器内程序排例：0、01（测量资料专用）、1SC（水准测量用）、1XY、2XY-S（由坐标计算面积）、2ZD、3GC、4GD、5BP、6FM、7ZP、8JS、9SD、A、AB、B、B6（测量表格检表6）、B7（检表7）、B8（检表8）、B9（检表9）、C、DX、DX0、F、G1、H、HX、I、I1、JS、M（度分秒转十进制）、QX、S、S1、SD0、SD1、T、W1、X1、XY、XYH（五点通线元法计算坐标）、ZD5800计算器线路、匝道中边桩万能程序彭赐明改编网上类似程序于河南高速郑漯8标LB1 1↙Cls : Fix 4 : Deg :"XZJ="?R◢ (输入置镜点X）"YZJ="?S◢ (输入置镜点Y）LB1 2↙"K="?K◢ (输入计算点里程）If K<第一线元终点里程 ：THEN 线元起点X→A:线元起点Y→B:线元起点半径（直线起点终为10的45次方）→T:线元起点里程→D：线元起点方位角→E:线元终点半径（直线起终点为10的45次方）→U：线元终点里程→G:线元偏向（左偏－1右偏＋1）→W:Goto 3:IfEnd↙………………………………（线元数据分段输入）LB1 3↙W*T→C:W*U→F:0→I:0→J:(C-F)/(2*C*F*(G-D))→H:K-D→X:E+(X/C+HX^2)×180/π→V:V<0=>V+360→V:"QXJ=":V→DMS◢(计算点切线方位角）A+∫(Cos(E+(X/C+HX^2)*180/π，0，X)→Z :B+∫(Sin(E+(X/C+HX^2)*180/π，0，X)→Y :"XI=":Z◢(计算点中心X）"YI=":Y◢(计算点中心Y）"PJ="?P◢(输入计算点边桩偏角左－右＋）"PD="?Q◢(输入计算点边桩偏距）Rec(Q,V+P):Z+I→Z :Y+J→Y:"XP=":Z◢(计算点边桩X）"YP=":Y◢(计算点边桩Y）Pol(Z-R,Y-S):J<0=>J+360→J:"FYJ=":J→DMS◢(放样方位角）"FYD=":I◢(放样距离）Goto 2↙ 提问人的追问 2010-08-29 21:20 fx5800计算器 要的四大主点的坐标和方位角计算程序：LU-XIAN Clrstat:20→Dimz:Fix6:Lib0:"NO.J(2)="?S:"R="?R:"L(H)="?L:Prog"FANG- WEI":J+180→J:J-O→K:K<0＝＞K+360→K:K-180→F:If>0:ThenL(1):ElseR(1):IfEnd←L(1)＝＞-1→W:R(1)＝＞1→W:J+W(I*180/(2πR))→z[6]:"B(HY)=":(z[6]-180)▲DME◢ I*180/(2πR)→B:I/2-I^(3)/(240*R^(2)→G:I^(2)/(24R)→P:"T=":(R+P)*tan(Abs(F)/2)+G→z[7]→◢ "L(Y)=":πR(Abs(F)-2B)/180→z[8]◢ "NO.ZH=":S-z[7]→z[9]◢ "NO.HZ=":z[9]+2I+z[8]◢ "X-ZH=":C+z[7]*cos(J)→z[1]◢ "Y-ZH=":D+z[7]*sin(J)→z[2]◢ "X-HZ=":C+z[7]*cos(O)→z[3]◢ "Y-ZH=":D+z[7]*sin(O)→z[4]◢I-I^(3)/(40R^(2))+I^(5)/(3456*R^(4))-I^(7)/(599040R^(6)→z[5]:"X-HY=":z[1]+z[5]/cos(30I/(πR))*cos(J-180+30WI/(πR))◢"Y-HY=":z[2]+z[5]/cos(30I/(Rπ))*sin(J-180+30WI/(πR))◢"B(Y)=":O+(-W)*(180I/(2πR)◢ "X-YH=":z[3]+z[5]/cos(30I/(πR))*cos(O+180-30WI/(πR))◢ "Y-YH=":z[4]+z[5]/cos(30I/(πR))*sin(O+180-30WI/(πR))◢ Goto 0 ← NO.JD(2),R,L(H)分别为：交点里程，半径，缓和曲线长;T,L(Y),NO.ZH,NO.HZ,X-ZH,Y-ZH,X-HZ,Y-HZ,X-HY,Y-HY,X-YH,Y-YH,B(YH) 分别为:切线长，圆曲线长，直缓点里程，缓直点里程，四大主点的坐标和圆缓点方位角方位角计算程序：FANG-WEIClrstat:Deg:"X1="?A:"Y1="?B:"X2="?C:"Y2="?D:"X3="?E:"Y3="?F← C-A→X:D-B→Y:Arg(X+Yi)→J:J<0＝＞J+360→J:E-C→M:F-D→U: Arg(M+Ui)→O:O<0＝＞O+360→O:"J=":J▲DME◢←"O=":O▲DME◢ X1,Y1,X2,Y2,X3,Y3:分别为三个交点的坐标。
J,O为方位角曲线上任意点坐标和切线方位角计算程序：LU-XIAN-1 Clrstat:Fix9:6→Dimz: "NO-ZH="?J: "NO-HZ="?Z: "X-ZH="?C: "Y-HZ="?D:"X-HY="?G:"Y-HY="?H: "R="?R: "L(Y)= "?L: "A1="?A: "A2="?B:Lbi0: "KP="?P: "W="?W:J-L→M:Z-L→Q:If P＜M And P＞J:Then Goto 1:IfEnd:If P＜QAnd P＞M:Then Goto 2: IfEnd:If P＜Z And P＞Q:Then Goto 3: IfEnd:If P＜J:Then Goto 4: IfEnd:If P＞Z:Then Goto 5:Lbi:P-J→z[2]:z[2]-z[2]^(5)/(40R^(2)L^(2))+z[2]^(9)/(3456R^(4)-z[2]^(13)/(R^(6)L^(6)) →z[1]: "X(ZH-HY)=":C+z[1]/cos(z[2]^(2)/(6RL))*cos(A+Wz[2]^(2)/(6RL)) ◢ "Y(ZH-HY)=":D+z[1]/ cos(z[2]^(2)/(6RL))*sin(A+Wz[2]^(2)/(6RL)) ◢ "AI=":A+W(z[2]^(2)/(2RL)) ◢ Goto 0 ← Lbi2:P-M→z[3]: "X(HY-YH)=":G+2Rsin(z[3]/(2R))*cos(A+W(L+z[3])/(2R)) ◢ "Y(HY-YH)=":H+2Rsin(Z[3]/(2R))*sin(A+W(L+z[3])/(2R)) ◢ "AI=":A+W(z[3]+0.5L)/R◢ Goto 0 ← Lbi3:Z-P→z[4]: "X(HZ-HY)=":E+(z[4]-z[4]^(5)/(40R^(2)L^(2))+z[4]^(9)/(3456R^(4)L^(4))-z[4]^(13)/(599040R^(6)L^(6))/cos(z[4]^(2)/(6RL))*cos(B+π-Wz[4]^(2)/(6RL)) ◢ "Y(HZ-HY)=":F+(z[4]-z[4]^(5)/(40R^(2)L^(2))+z[4]^(9)/(3456R^(4)L^(4))-z[4]^(13)/(599040R^(6)L^(6))/cos(z[4]^(2)/(6RL))*sin(B+π-Wz[4]^(2)/(6RL)) ◢ "AI=":B-W(z[4]^(2)/(2RL)) ◢ Goto 0 ← Lib4:J-P →z[5]:"X(HOU-ZH)=":C+z[5]*cos(A+π) ◢ "Y(HOU-ZH)=":D+z[5]*sin(A+π) ◢ "AI=":A ◢ "AI=":A ◢ Lbi5:P-Z→z[6]: "X(Q-HZ)=":E+ z[6]*cos(B) ◢ "Y(Q-HZ)=":F+ z[6]*sin(B) ◢ "AI=":B ◢ Goto 0 ← NO.ZH,NO.HZ:为直缓点和缓直点里程；X-ZH,Y-ZH,X-HY,Y-HY为直缓点﹑缓圆点和缓直点的大地坐标；R,L(Y)为曲线的半径和缓和曲线的长；KP为待定点的里程；AI为待定点的切线方位角；X(ZH-HY), Y(ZH-HY)为待定点在直缓点到缓圆点的坐标；X(HY-YH), Y(HY-YH)为待定定在缓圆点到圆缓点的坐标；X(HZ-YH), Y(HZ-YH)为缓直点到圆缓点得坐标；X(HOU-ZH), Y(HOU-ZH)为后直线上的坐标；X(Q-HZ),Y(Q-HZ)为前直线上的坐标。
坐标转换程序：ZUO-BIAO-ZHFix3:"ALFA="?A:Lbi0:"N="?N← If N=1:Then Goto 1:IfEnd← If N=2:Then Goto 2:IfEnd← If N=3:Then Goto 3:IfEnd←Lbi1:"X0="?Z:"Y0="?F:"XA="?C:"YA="?D←"XG=":Z+C*cos(A)-D*sin(A)◢ "YG=":F+C*sin(A)-D*cos(A)◢ Goto 0 ← Lbi2:"X0="?Z:"Y0="?F:"XG="?U:"YG="?V←"XA=":(U-Z)*cos(A)+(V-F)sin(A)◢ "YA=":(Z-U)*sin(A)+(V-F)*cos(A)◢ Goto 0 ← Lbi3:"XZ="?O:"YZ="?T:"P="?P:"E="?E←"XT=":O+(E+P/2)*cos(A+1.57079632)◢ "YT=":T+(E+P/2)*sin(A)-D*sin(A+1.57079632)◢ Goto 0 ← ALFA:为切线方位角（弧度） X0,YO：为大地坐标系中的坐标 XG,YG:为转换到大地坐标系中的坐标 XA,YA:为相对坐标 P,E:分别为线间距和偏距 XT,YT：为里程中心大地坐标 50楼各位师傅请帮小弟指点一下这个程序如何改和改成5800(有报酬5000筑龙币)1.主程序(TYQXjs)bl 4:"1.SZ => XY"："2.XY => SZ"：{ NS } :S<769.256（下一线元起点里程）=> O=500（本线元起点里程）：U= 19942.837 （线元起点X坐标）：V= 28343.561 （线元起点Y坐标）：G=125°16°31°（线元起点方位角）：H= 269.265 （线元长度）：P= 10^（45）（线元起点曲率半径）：R =10^（45）（线元终点曲率半径）：Q =0 （线元左右偏标志：左负右正）：Goto 0Δ←┘..........¬Lbl 0: D=(P-R)÷(2HPR)： N=1=>Goto 1：≠>Goto 2Δ←┘Lbl 1：{Z}：Z：W=Abs(S-O)：Prog "SUB1"：X"XS"=X◢Y"YS"=Y◢F"FS"=F-90◢C"XC": E"YC":I=0: J=Y:POL(X-C,Y-E): I "I="◢J<0=>J"J="+360◢Goto 1←┘Lbl 2：{XY}：XY：I=X：J=Y：Prog "SUB2"：S"S"=O+W◢Z"Z"=Z◢Goto 22. 正算子程序(SUB1)A=0.1739274226：B=0.3260725774：K=0.0694318442：L=0.3300094782：F=1-L：M=1-K：X=U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MWD)))：Y=V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD)))：F=G+QEW(C+WD)+90：X=X+ZcosF：Y=Y+ZsinF3. 反算子程序(SUB2)T=G-90：W=Abs((Y-V)cosT-(X-U)sinT)：Z=0：Lbl 0：Prog "SUB1"：L=T+QEW(C+WD)：Z=(J-Y)cosL-(I-X)sinL：AbsZ<1E-6=>Goto1：≠>W=W+Z：Goto 0Δ←┘Lbl 1：Z=0：Prog "SUB1"：Z=(J-Y)÷sinF三、使用说明1、规定 (1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。
(2) 当所求点位于中线时，Z=0；当位于中线左铡时，Z取负值；当位于中线中线右侧时，Z取正值 (3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替 (4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径 (5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径止点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径 (6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径2、输入与显示说明 输入部分： 1. SZ => XY 2. XY = > SZ N ? 选择计算方式，输入1表示进行由里程、边距计算坐标 ；输入2表示由坐标反算 里程和边距。
X0 ？线元起点的X坐标 Y0 ？线元起点的Y坐标 S0 ？线元起点里程 F0 ？线元起点切线方位角 LS ？线元长度 R0 ？线元起点曲率半径 RN ？线元止点曲率半径 Q ？ 线 元左右偏标志(左偏Q=-1，右偏Q=1，直线段Q=0） S ？ 正算时所求点的里程 Z ？正算时所求点距中线的边距(左侧取负，值右侧取正值，在中线上取零) X ？反算时所求点的X坐标 Y ？反算时所求点的Y坐标 显示部分： XS=××× 正算时，计算得出的所求点的X坐标 YS=××× 正算时，计算得出的所求点的Y坐标 S=××× 反算时，计算得出的所求点的里程 Z=××× 反算时，计算得出的所求点的边距18.203.182.*19楼一、坐标反算程序主程序：FSLbl 1 8？M：?N：?V：?W 8√((V－M) 2 +(W－-N)2 )→C 8cos-1((V－M)÷C) →T 8If W－N<0 : Then 360－T→T : Else T→T : IfEnd 8“C=” : C W “T=” : T WGoto 1 8程序说明：输入坐标（M,N）、（V,W），其中（M,N）为起点坐标，（V,W）为终点坐标，输出显示C为两点间距离，T为起点到终点的方位角。
坐标正算程序主程序:ZSLbl 1 8？C：?T：?M：?N 8“X=” : M+C cos（T） W “Y=” : N+C sin（T） WGoto 1 8程序说明：输入C为两点距离，T为方位角，（M,N）为起始点，（X,Y）为所求点扩大基础程序主程序:KDJCLbl 0 : “X0”？X：”Y0”?Y：”FWJ=”?A：”QHJ”?H : “ZYJ”?S 8“T=” : tan-1+(S÷H) →T W “L=” : √(H 2 +S2 )→L W“X1=” : X+L cos（A-T+360）→E W “Y1=” : Y+L sin（A-T+360）→F W “X2=” : X+L cos（A-180+T）→M W “Y2=” : Y+L sin（A-180+T）→N W “X3=” : X+L cos（A+T）→O W “Y3=” : Y+L sin（A+T）→P W “X4=” : X+L cos（A+180-T）→U W “Y4=” : Y+L sin（A+180-T）→V W Goto 0 8程序说明：如图曲线计算程序:QXJS“JD=”?D:?A:?R:”LS=”?C 8C2÷24÷R-C^(4)÷2688÷R^(3)+C^(6)÷675840÷R^(5) →P 8C÷2-C^(3)÷240÷R2+C^(5)÷41472÷R^(4) →Q 890C÷π÷R→B 8“T=”(R+P)tan(Abs(A)÷2)+Q→T W“E=”: (R+P)÷cos(A÷2)-R→W W“L=”(Abs(A)-2B) πr÷180+2c→L 8“ZH=”:D-T→G W“HY=”:G+C→H W“QZ=”:G+L÷2→I W“YH=”:G+C→H W“QZ=”:G+L÷2→I W“YH=”:G+L-C→K W“HZ=”:G+L→M W?N:?E:?F:?J 8If A<0:then -1→S : Else 1→S : IfEnd 8F+A÷2+90S→U 8W+R→V 8N+Vcos(U) →B 8E+ Vsin(U) →O 8Lbl 1 8?Z 8If Z≤ G : Then D-Z→L:F+180→V:F→U:Goto 2 : IfEnd 8If Z≤ H : Then Z-G→L:L-L^(5) ÷40÷R2÷C2+L^(9)÷3456÷R^(4)÷C^(4)-L^(13)÷599040÷R^(6)÷C^(6)→Q:L^(3)÷6÷R÷C-L^(7)÷336÷R^(3)÷C^(3)+L^(11)÷42240÷R^(5) ÷C^(5)→P : √(Q2+P2) → V : 30SL2 ÷π÷R÷C → L:F+Stan-1 (P÷Q) → Q:F+180→ P:F+3L→ U:Goto 4 : IfEnd 8If Z≤ K : Then F+A÷2+180+90S+(Z-I) &180S÷R÷π→L:L+90S→U:Goto 5 : IfEnd 8If Z≤ M : Then M－Z→L:L－L^(5) ÷40÷R2÷C2+L^(9)÷3456÷R^(4)÷C^(4)－L^(13)÷599040÷R^(6)÷C^(6)→Q:L^(3)÷6÷R÷C－L^(7)÷336÷R^(3)÷C^(3)+L^(11)÷42240÷R^(5)÷C^(5)→P : √(Q2+P2) → V : 30SL2 ÷π÷R÷C → L:F+A+180－Stan-1 (P÷Q) → Q:F+A→ P:F+A－3L→ U:Goto 4 : IfEnd 8If Z> M : Then Z-M+T→L:F+A→V:V→U:Goto 2 : IfEnd 8Lbl 2 8“X=”:N+Lcos(U) →X W“Y=”:E+ Lsin(U) →Y W“U=”:U WGoto 6 8Lbl 3 8?W 8“XL=”:X+Wcos(U-90) →P W“YL=”:Y+ Wsin(U-90) →Q W“XR=”:X+Wcos(U+90) →P W“YR=”:Y+ Wsin(U+90) →Q WGoto 1 8Lbl 4 8“X=”:N+Tcos(P)+Vcos (Q) →X W“Y=”:E+ Tsin(P)+Vsin (Q) →Y WIf U≥360:Then U-360 → U:Else U→U:IfEnd 8“U=”:U WGoto 6 8Lbl 5 8“X=”:B+ Rcos(L) →X W“Y=”:O+ Rsin(L) →Y WIf U≥360:Then U-360 → U:Else U→U:IfEnd 8“U=”:U 8Goto 6 8Lbl 6 8J=1 [ Goto 3 8Goto 1 8程序说明：输入数据中， JD为交点里程，A为曲线偏角，R为曲线半径， LS为缓和曲线长度，(N,E)为交点坐标，F为曲线起始方位角，J为判断值，当J=1时计算左右边桩坐标，Z为所求点的里程，W为左右边距。
输出显示中，T为切线长，E为切曲差，L为曲线总长，ZH为直缓点里程，HY为缓圆点里程，QZ为曲中点里程，YH为圆缓点里程，HZ为缓直点里程，（X,Y）为所求里程的中桩坐标，(XL,YL)为所求里程左边桩坐标， (XR,YR)为所求里程右边桩坐标 W [59.48.153.*27楼Deg:FreqOn:Clrstat:Fix6行符号100→DimZ换行符号“X”？A换行符号“Y”？B换行符号“FWJ” ？C换行符号“QD ZH” ？D换行符号LbI 0:“ZH” ？→List X[1] 换行符号List X[1]- D→E换行符号A+Ecos(C) →List Y [1] 换行符号B+Esin(C) →List Freq[1] 换行符号“X”: List Y [1] 显示符号 “Y”: List Freq[1] 显示符号118.78.15.*29楼Deg:FreqOn:Clrstat:Fix6行符号 100→DimZ换行符号 “X”？A换行符号 “Y”？B换行符号 “FWJ” ？C换行符号 “QD ZH” ？D换行符号 LbI 0:“ZH” ？→List X[1] 换行符号 List X[1]- D→E换行符号 A+Ecos(C) →List Y [1] 换行符号 B+Esin(C) →List Freq[1] 换行符号 “X”: List Y [1] 显示符号 “Y”: List Freq[1] 显示符号 “K”：？F换行符号有各个程序，诚信要的请联系839022416。
41楼文件名：PMCX(E-D)÷Abs(G-F)→P: Abs(L-F)→Q: P×Q→I: C+（I+2D）×Q×90÷∏→J:“FV＝”:J►DMS◢↲0→U: 0→V: 0→W: 0→Z: 6→T: T→S ↲LbI０↲U+Cos(C+(I×(2S-1)÷(2T)+2D)×（Q÷2）×(2S-1)÷（2T）×180÷∏)→U ↲V+Sin(C+(I×(2S-1)÷(2T)+2D)×（Q÷2）×(2S-1)÷（2T）×180÷∏)→V ↲DszS↲Goto０↲T-1→S↲LbI1↲W+Cos(C+(IS÷T+2D)×(Q÷2)×(S÷T)×180÷∏)→W↲Z+Sin(C+(IS÷T+2D)×(Q÷2)×(S÷T)×180÷∏)→Z↲DszS↲Goto1↲A+Q÷(6T)×(Cos(C)+4U+2W+Cos(J))→X：“XO=”:X◢B+Q÷(6T)×(Sin(C)+4V+2Z+Sin(J))→Y：“YO=”:Y◢X+OCos(J+H+180)→U:“XL=”:U◢Y+OSin(J+H+180)→V:“YL=”:V◢X+RCos(J+H)→W:“XR”:W◢Y+RSin(J+H)→Z:“YR”:Z◢。