1-JIN YU(主程序)
Lbl 4: “1→ZS,2→FS,3→CQW”?N(选择计算模式，1为正算，2为反算，3为超欠挖) N=1=>Goto 1:N=2=>Goto 2:N=3=>Goto 3
Lbl 1: “K=”? S：“P=”? Z：Prog “SJ?-PM”： Abs(S-O) → W：Prog “SUB1-ZS”： “X=”：Locate4,4,X: “Y=”：Locate4,4,Y:F-90→F:S→ K:Prog“SJ?-GC”：“H=”：Locate4,4,H：“W=”: Locate4,4,F°◢ Goto 4
(正算-输入待求点里程K=、输入待求点偏距P=、显示待求点里程X=、显示待求点里程Y=、显示待求点里程设计高程H=)
Lbl 2: “K(L)=”? S: “X=”? X：“Y=”？ Y:Prog“SJ?-PM”： X→ I： Y→ J：Prog \：O+W→S: “K=\：Locate4,4, S ：“P=\：Locate4,4, Z：S→ K:Prog“SJ?-GC” ：“H=”：Locate4,4, H:F-90→F: “W=”: Locate4,4,F°◢ Goto 4
(反算- 输入反算点大概里程K(L)=、输入实测点X=、 输入实测点Y=、显示实测点里程K=、显示实测点偏距P=、显示实测点的设计高程H=)
Lbl 3: “K(L)=”? S: “X=”?X：“Y=”？Y:Prog“SJ?-PM”： X→ I： Y→ J：Prog \：O+W→S: “K=\：Locate4,4, S ：“P=\：Locate4,4, Z：S→ K:Prog“SJ?-GC” ：“H=”：Locate4,4, H:F-90→F: “W=”: Locate4,4,F°◢ Prog“SJ-CQW” ◢ Goto4
(超欠挖-输入实测点X=、 输入实测点Y=、显示实测点里程K=、显示实测点偏距P=、显示实测点的设计高程H=、输入实测高程H1=、显示超欠挖值及第几圆心上CQ→Y？=) SJ?-PM（子程序名-平面线形数据库）
If S ≥59227.681（线元起点里程）:Then 2599818.013→U（线元起点X坐标）：496887.918→V（线元起点Y坐标）：59227.681→O（线元起点里程）：208028’39”→G（线元起点方位角）：100 →H（线元长度）：1×1045→P（线元起点曲率半径）：1×1045→R（线元终点曲率半径）：0 →Q（线元左右偏标志：左-1右1直0）：IfEnd
If S ≥59327.681（线元起点里程）:Then 2599730.112→U（线元起点X坐标）：496840.237→V（线元起点Y坐标）：59327.681→O（线元起点里程）：208028’39”→G（线元起点方位角）：90 →H（线元长度）：1×1045→P（线元起点曲率半径）：750→R（线元终点曲率半径）：-1 →Q（线元左右偏标志：左-1右1直0）：IfEnd
(注：有多个平面线形，依照上面的依次变更, 每多一个，就增加一个。每次只需要修改以上的数据或增加一个判断。)
SJ-GC?（子程序名-竖曲线数据库）
If S＜变坡终点里程And S≥变坡起点里程：Then大里程坡度→A：小里程坡度→B：变坡点里程→O：变坡点高度→G：半径→R：Prog“SUB3-GC”:IfEnd
(注：1.有多个竖曲线，依照上面的依次变更，每多一个，就增加一个。每次只需要修改以上的数据或增加一个判断。2.如整条线只有一个纵坡比喻为2﹪，那么程序应为If S＜终点里程And S≥起点里程：Then 0.02→A：0.02→B：起点里程→O：起点高程→G：1×1045→R：Prog“SUB3-GC”:IfEnd)
SJ-CQW (子程序名-隧道数据库) “H1=”?F
If F-H＞5.845:Then √((Abs (Z))2+(F-H-0.45)2 )-7.45→W: “CQ→Y1=”:W: IfEnd:(显示超欠和第1圆心)
If F-H≤5.845 And F-H＞-1.169: Then √((Abs (Z)-1)2+( Abs (F-H-1.5)) 2)-6→W :
“CQ→Y2=”:W:IfEnd: (显示超欠和第2圆心)
If F-H≤-1.169: Then √((Abs (Z)) 2+(H-F+14.05) 2)-16.5→W: “CQ→Y3=”:W: IfEnd: (显示超欠和第3圆心)
(注：隧道断面有多个圆心，依照上面的依次变更, 每多一个，就增加一个。每次只需要修改以上的数据或增加一个判断。)详细数据见下图:
SUB1-ZS(正算子程序)?
1÷P→ C： (P-R)÷(2HPR) → D： 180÷π→ E： 0.1739274226→ A： 0.3260725774→ B： 0.0694318442→
K
：
0.3300094782→
→
L
：
1-L→
XF
：
1-K→
M
： ：
U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MWD)))
V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD))) → Y： G+QEW(C+WD)+90→ F： X+Zcos(F)→ X： Y+Zsin(F)→ Y SUB2-FS(反算子程序)?
G-90→T： Abs((Y-V)cos(T)-(X-U)sin（T）) → W： 0→ Z：Lbl 0：Prog \： T+QEW(C+WD) →L： (J-Y)cos(L)-(I-X)sin(L) → Z：If Abs(Z)<1E-6(注：此处1E-6可输入0.000001)：then Goto1：Else W+Z → W：Goto 0：IfEnd
Lbl 1： 0→ Z：Prog \： (J-Y)÷sin(F)→ Z SUB3-GC（高程子程序）
O-S→L:A-B→W:Abs(R*W÷2) →T:O-T→M:O+T→P
If S≤M:ThenG-L*B→H:Goto5:Else If S≤O:Then Goto3:Else If S≤P:Then Goto4:IfEnd: IfEnd: IfEnd Lbi3
If W＞O：Then G+(M-S)2÷2÷R-L*B→H:Goto5: Else If W＜O: Then G-(M-S)2÷2÷R-L*B→H:Goto5: IfEnd: IfEnd Lbi4
If W＞O：Then G+( S-P)2÷2÷R-L*A→H:Goto5: Else If W＜O: Then G-( S-P)2÷2÷R-L*A→H:Goto5: IfEnd: IfEnd Lbi5 H→H: Return
说明：(正算1秒，反算和超欠挖5秒完成)
所有程序名。不同线路，只需改动SJ-PM，SJ-GC，SJ-CQW三个子程序里的内容，其它不变。 1为正算，2为反算，3为超欠挖.
K= 正算时，输入所求点里程。 反算时得出里程结果 X=，Y= 正算时得出结果。 反算时输入实测坐标 P= 正算时输入偏距。 反算时得出偏距 H= 正算时得出高程。 反算时得出高程 H1= 超欠挖时输入实测高程 CQ→Y?= 得出超欠挖值及第几圆心上
CASIO fx-4850p公路工程计算器程序集
编号 主程序名（其中文含义） 程序计算功能 一
FANG YANG （ 放 样 ） 计算路线中、边桩坐标，测站点与路线中、边桩坐标间的距离和方位角等 二
CHAO GAO (超高) 计算设计高程、左右两侧路基横坡度、宽度、左中右处设计标高之差值及设计高程 三
YYLDFWJ (任意两点方位角) 计算任意两点间的距离和方位角 四
SQXBG（竖曲线标高） 计算竖曲线设计标高 五
TIAN WA G-C(填挖高差) 计算左、中、右处填挖高差 六 BZZB （边桩坐标） 主要进行桥梁及涵洞各点放样计算 七 ZHUI PO （锥坡） 进行锥坡放样计算
编号 子程序名（其中文含义） 程序计算功能
1 XY （坐标计算子程序） 利用交点参数数据库进行计算
2 P-Q-X J-S （平曲线计算子程序） 利用交点坐标进行计算曲线要素 3 YAO-SU (平曲线要素计算子程序) 进行平曲线要素计算 4 ZB (平曲线的坐标计算子程序) 进行平曲线的坐标计算
5 X1 （曲线要素数据库子程序） 曲线要素数据库（按桩号先后顺序依次输入） 6 ZHONG ZHUANG（中桩坐标计算之子程序） 计算任意点中桩坐标及其切线方位角
7 ZH HY（直缓点 缓圆点处中桩坐标计算之子程序） 计算ZH至HY间中桩坐标及其切线方位角
8 HY YH（缓圆点 圆缓点坐标计算之子程序） 计算HY至YH间中桩坐标及其切线方位角 9 YH HZ（圆缓点 直缓点坐标计算之子程序） 计算YH至HZ间中桩坐标及其切线方位角 10 S0（缓和曲线长度等于零坐标计算之子程序） 计算S=0的圆曲线中桩坐标及其切线方位角 11 ZXZB（直线段坐标计算之子程序） 计算直线段中桩坐标及其切线方位角
12 CHAO GAO-1（超高计算之子程序） 计算左右两侧路基横坡度、宽度、左中右处设计标高之差值
13 JK--B[2]（加宽计算之子程序） 计算内侧路基宽度
14 JU-LI FWJ(任意两点间距离、方位角计算之子程序) 计算任意两点间的距离和方位角 15 SQXBG-1（竖曲线标高计算之子程序） 计算竖曲线设计标高
16 SQX CAN SHU（竖曲线参数） 输入各个竖曲线相关参数（按桩号先后顺序依次输入） 17 CAN SHU（圆曲线参数） 输入各个平曲线相关参数（按桩号先后顺序依次输入）
18 S244-QIAO（S244 线桥梁坐标参数） S244 线桥梁坐标参数数据库（按桩号先后顺序依次输入）
19 S244-BM（S244 线桥梁附近的导线点参数） S244 线桥梁附近的导线点参数数据库（按桩号先后顺序依次输入）
常用字母的一般含义：（输入时）
1. 判断参数M，当M≥0时，调用子程序相应参数；当M＜0时，直接输入相应参数。任意点
的桩号为Z。
2. 圆曲线（ZH）起点桩号Q，其坐标为（X，Y），方位角为A；圆曲线（HZ）起点桩号C，其坐标为（N，E），方位角为B；圆曲线半径为R，缓和段长度为S，内侧路基最大加宽值为J，路面宽度为K（半幅宽度），路拱横坡度为B（必须取负数），最大超高横坡度为H（必须取非负数）。
3. 竖曲线：第一坡度值为I（上坡为正值，下坡为负值），第二坡度值为J（上坡为正值，下坡为负值），竖曲线半径为R，变坡点桩号为N，变坡点高程为H。
4. 计算边桩坐标时： V为旋转角度（左为负值，右为正值。正交时V取90或-90），K为边桩到中桩的距离。
主程序名及内容 备 注 一 FANG YANG （ 放 样 ）
[原名为 JU-LI FWJ FY (距离 方位角 放样 即偏角法放样)]
M“1-11 XY，2-12 JU-LI，3-13 XY JU-LI，4-14 YSZH，M≤0-INPUT JDXY”：V=M：Z[67]= 0 M＞10﹦> Goto W：≠> M≤0﹦> Goto 3
Lbl 7：{T}：T“INPUT QIAN-HOU JU-LI（QIAN +，HOU -）”： Z[51]=T：{U}：U“INPUT P（ZHUANG WEI SHU）”：Z[52]=U：Goto 1 Lbl 3: Z[67]= -1：Prog “P-Q-X J-S” Lbl W: V=14﹦>Prog “X1” V=14﹦>Goto V
V＞10﹦>V=V-10：Z[67]= 1:≠> V=V
V=Abs V：V=1﹦> Z[67]= 1:Goto 6:≠> V＞1﹦> V＜4﹦>“INPUT CE-ZHAN-DIAN X，Y”：{X，Y}：≠> V=4﹦> Goto V Lbl 6:Goto 7
Lbl 9:Z：Z[67]= 1﹦> Prog “X1” Prog “YAO-SU” ：Prog “XY” Z[67]=-1﹦>K=Z[15] Goto 9 Lbl 1:
{P}：P“SHI FUO INPUT V，K（P＞0，N O P＜0，YES）”： Z[65]=P： P＜0﹦> Goto K
V=Z[55]：K=Z[61]：“INPUT V[1]=”：{V}：Z[55]=V：“INPUT K[1]=”：{K}：Z[61]=K：Z[52]=1﹦> Goto K
V=Z[56]：K=Z[62]：“INPUT V[2]=”：{V}：Z[56]=V：“INPUT K[2]=”：{K}：Z[62]=K：Z[52]=2﹦> Goto K
V=Z[57]：K=Z[63]：“INPUT V[3]=”：{V}：Z[57]=V：“INPUT K[3]=”：{K}：Z[63]=K：Z[52]=3﹦> Goto K
V=Z[58]：K=Z[64]：“INPUT V[4]=”：{V}：Z[58]=V：“INPUT K[4]=”：{K}：Z[64]=K Lbl K: Z[67]=1﹦> Goto 9 M=1﹦> Goto 0
“INPUT CE-ZHAN-DIAN X,Y”:I“X”：J“Y”
Z：Z[1]=I:Z[2]=J：“INPUT HOU-SHI-DIAN N,E”:NE：Z[10]=N：Z[11]=E:P=N-I：F=E-I：Prog “JU-LI FWJ”
“HOU-SHI-DIAN”: “JU-LI=”:L▲
“FWJ=”:W->DMS▲ Z[12]=W
Lbl 0:Z:Prog“CAN SHU” M≠4﹦> Goto 2 “ZH=”:Q▲ “X=”:X▲ “Y=”: Y▲ “A-FWJ=”:A▲ “HZ=”:C▲ “N=”:N▲ “E=”:E▲ “B-FWJ=”:B▲ “R=”:R▲
“S=”:S▲ (输入M值，当M〈0时，则需要输入圆曲线交点参数；当M≥0,则直接调用子程序中的对应参数，M=1，2，3，4时调用其自程序《CAN SHU》的参数，M=11，12，13，14时，调用《X1》的参数。）
输入前后距离，前为正值，后为负值。 输入每个断面的桩数（为1～4）。
输入测站点坐标X、Y值。
是否输入V，K值，当输入正数时，计算过程中不必输入V，K；当输入负值时，计算过程中需要输入V，K。
输入第1～4个桩位的K，V值：K为边桩到中桩的距离（左为负值，右为正值）， V为旋转角度（左为负值，右为正值。正交时V取90或-90）；当V或K为负值时，计算左侧边桩；当V、K同时为正值时，计算右侧边桩；当K=0时，计算中桩。
输入测站点坐标X、Y值。 输入后视点坐标N、E值。
显示结果含义：
HOU-SHI-DIAN （后视点）；
JU-LI=为测站点与后视点的计算距离； FWJ=为测站点与后视点的计算方位角。
曲线的ZH桩号、坐标X、Y、方位角；
曲线的HZ桩号、坐标N、E、方位角； 曲线半径R； 缓和段长度S；
主程序名及内容 备 注 （接上页）