卡西欧fx-5800p计算道路中、边线坐标放样程序(此程序计算速度快，可以查找桩号和偏中距离)（单园曲线超过半圈后有误差，半径5000米时，在半圈处的计算误差单方向8cm）SUB-10.1739274226→A:0.3260725774→B:0.0694318442→K:0.3300094782→L:U+W(Acos(G+180QKW(1÷P+KWD)÷π)+Bcos(G+180QLW(1÷P+LWD)÷π)+Bcos(G+180QW(1-L)(1÷P+WD(1-L))÷π)+Acos(G+180QW(1-K)(1÷P+WD(1-K))÷π))→X:V+W(ASIN(G+180QKW(1÷P+KWD)÷π)+Bsin(G+180QLW(1÷P+LWD)÷π)+Bsin(G+180QW(1-L)(1÷P+WD(1-L))÷π)+Asin(G+180QW(1-K)(1÷P+WD(1-K))÷π))→Y:G+180QW(1÷P+WD)÷π→FS—O(放线主程序)Deg:Fix3LbI7:“XC=”？C:“YC=”？ELbI1:“XL=1,2”？NIFN=0:THYPERLINK"en"hen“X0=”?U:“Y0=”?V:“F0=”?G:“R1=”?P:“R2=”?R:“DK1=”?О:“DK2=”?H:“L(-1),R(+1),Z(0)”?Q:IfendLbI0:“ZHUANGHAO=”?S:“KUANDU=”?ZLbI8IFN=0:THYPERLINK"en"henGOTO2:IfendIFN=1:THYPERLINK"en"henProg“1”:GOTO2:IfendIFN=2:THYPERLINK"en"henProg“2”:GOTO2:IfendIFN=3:THYPERLINK"en"henProg“3”:GOTO2:Ifend……………………………………………GOTO1LbI2:IFS＜О-0.001:THYPERLINK"en"henGOTO1:IfendIFS＞H+0.001:THYPERLINK"en"henGOTO1:Ifend(P-R)÷(2PR(H-О))→D:Abs(S-О)→W:Prog“SUB-1”IFZ=1000:THYPERLINK"en"henGOTO5:IfendIFZ≠0:THYPERLINK"en"henGOTO3:Ifend“ZX=”:X→X▲“ZY=”Y→Y▲IFF＜0:THYPERLINK"en"henF+360→F:Ifend“QX-FWJ=”F→F▲LbI4:0→I:0→J:PoI(X-C,Y-E+0.00001)IFJ＜0:THYPERLINK"en"henJ+360→J:Ifend“FWJ=”:J→J▲“HD=”:I→I▲GOTO0Lb13:“PJ=”?M:F+M→F:“BX=”：X+ZCosF→X▲“BY=”：Y+ZSinF→Y▲Goto4Lb15:Deg0→J:0→I:PoI(X-C,Y-E+0.00001):IFJ＜0:THYPERLINK"en"henJ=J+360:IfendIFAbs(Icos(J-F))＜0.010:THYPERLINK"en"henGoto6:IfendS-Icos(J-F)→S:Goto8Lb16:0→Z:”JISUANZH=”:S→S▲IFJ-F=0orJ-F=180:THYPERLINK"en"hen”ZX--PT”:I→I▲Goto7:IfendIFJ-F＞0andJ-F＜180orJ-F＜-180:THYPERLINK"en"hen”L=m”:I→I▲Goto7:Else”R=m”:I→I▲Goto7:Ifend1(1为线路名称，预装要素子程序)IFS≥线元起点里程andS≤线元终点里程:THYPERLINK"en"hen线元起点x坐标→U:线元起点y坐标→V:线元起点方位角→G:线元起点半径(直缓点、缓直点半径为1045)→P:线元终点半径(直缓点、缓直点半径为1045)→R:线元起点里程→O:线元终点里程→H:(左转为-1，右转为+1，直线为0)→Q:Goto3:IfendIFS＞线元起点里程ANDS≤线元终点里程:THEN=>线元起点x坐标→U:线元起点y坐标→V:线元起点方位角→G:=线元起点半径(直缓点、缓直点半径为1045)→P:线元终点半径(直缓点、缓直点半径为1045)→R:线元起点里程→O:线元终点里程→H:(左转为-1，右转为+1，直线为0)→Q:Goto3:Ifend。。。。。。。