1fx－5800P计算器编程
缓和曲线程序
14→DimZ ：“ZHK”：?K：?R ：? A：?L：? T：? F：“Y＋1，Z－1”：?P：“JDX”：?Q：“JDY”：?W：180÷（πR）→Z：0.5L－L^3÷(240R2)→Z[8]：“LZ”：ZL÷2→B：A÷Z＋L→Z[13]◢
“ZHK=”：K◢
“HYK=”：K+L→Z[1]◢
“YHK=”：K+ Z[13] －L→Z[2]◢
“HZK=”：K+ Z[13]→Z[3]◢
“ZHX=”：Q+Tcos(F+180)→U◢
“ZHY=”：W+Tsin(F+180)→V◢
“HZX=”：Q+ Tcos(F+PA)→Z[6]◢
“HZY=”：W+ Tsin (F+PA)→Z[7]◢
Lb1 0：“CDZH”：?M
If M≤K：Then Goto 6：Else If M≤Z[1] ：Then Goto 1：Else If M≤Z[2] ：Then Goto 2：Else If M≥Z[3] ：Then Goto 7：Else If M≥Z[2] ：Then Goto 5：If End：If End：If End：If End：If End
Lb1 1：M－K→G：√（（G－G^(5)÷(40L2R2)＋G^(9)÷(3456R^(4)L^(4)))2＋(G^(3)÷(6RL)－G^(7)÷(336R^(3)L^(3)) ＋G^(11)÷(42240R^(5)L^(5)))2）→D F＋PZG2÷(6L)→C：F＋PBG2÷L2→H：Goto 3
Lb1 2：M－Z[1]→G：R（1－cos（B＋ZG））＋L2÷（24R）→Z[9]：√（Z[9]2＋（Rsin（B＋ZG）＋Z[8]）2）→D
F＋Ptg-1(Z[9]÷(Rsin(B＋ZG)＋Z[8]))→C：F＋P(B＋ZG)→H
Lb1 3
“X=”:U＋Dcos(C)→X◢
“Y=”:V＋Dsin(C)→Y◢
Lb1 B：“ZBJS1，FY－1”：?J
If J>0：Then Goto 4：Else If J〈0：Then Goto A：If End：If End
Lb1 4：“ZB”：?S
“ZBX”:X＋Scos（H－90）◢
“ZBY”:Y＋Ssin（H－90）◢
“YB”：?N
“YBX”:X＋Ncos（H＋90）◢
“YBY”:Y＋Nsin（H＋90）◢
Goto 0
Lb1 5：Z[3]－M→G：（T－G＋G^(5)÷(40L2R2)－G^(9)÷(3456R^(4)L^(4))) sin(A) ＋(G^(3)÷(6RL)－G^(7)÷(336R^(3)L^(3))＋G^(11)÷(42240R^(5)L^(5))) cos(A)→Z[4]：T＋（T －G＋G^(5)÷(40L2R2)）cos(A) －(G^(3)÷(6RL)－G^(7)÷(336R^(3)L^(3))) sin(A)→Z[5]：√（Z[4]2＋Z[5]2）→D ：F＋Ptg-1(Z[4]÷Z[5])→C：F＋P(A－BG2÷L2) →H：Goto 3
Lb1 6：K－M→D：F＋180→C：F→H：Goto 3
Lb1 7：M－Z[3]→D：F＋PA→C：C→H：Goto 9
Lb1 9：“X=”: Z[6]＋Dcos(C)→X◢
“Y=”: Z[7]＋Dsin(C)→Y◢
Goto B
Lb1 A：“N”：?N:“E”：?S：“H”：?I
“X=”:（N－X）cos(H)＋(S－Y)sin(H)＋M→Z[10]◢
“Y=”:（S－Y）cos(H)－(N－X)sin(H) →Z[11]◢
“MS”：1711.15+0.004(Z[10]-85030) →E◢
If I≥E+2 ：Then“+－R1”：6.57－√((I－E－2)) 2+ Z[11] 2→O
Else If I<E+2 ：Then“+R2”：7.47－√((E+2－I) 2+(Abs( Z[11])+0.9) 2→O◢
“﹦＞DB”:(I－E+0.5)→O◢
Z[10] →M：If End：If End
Goto 0
1.1程序说明
“DimZ”—内存变量扩充
“ZHK”—输入直缓点桩号
“R”—输入曲半径
“L”—输入缓和曲线长
“A”—输入偏角
“Y＋1，Z－1”—路线右转输＋1，左转输－1
“FWJ”—输入起算方位角
“JDX”—输入交点X坐标
“JDY”—输入交点Y坐标
“ZHK=”：得出直缓点桩号
“HYK=”：得出缓圆点桩号
“YHK=”：得出圆缓点桩号
“HZK=”：得出缓直点桩号
“ZHX=”：得出直缓点X
“ZHY=”：得出直缓点Y
“HZX=”：得出缓直点X
“HZY=”：得出缓直点Y
“CDZH”—输入待测点桩号
“X=”：得出测点桩号中心桩N
“Y=”：得出测点桩号中心桩E
“ZBJS1，FY－1”—
①（坐标计算）施工坐标转大地坐标输+1，
“ZB”—输入中桩到左边桩的距离；
“ZBX”: 得出待测点左边N值
“ZBY”: 得出待测点左边E值
“YB”—输入中桩到右边桩的距离；
“YBX”: 得出待测点右边N值
“YBY”: 得出待测点右边E值②（放样）大地坐标转施工坐标输－1，
“N”—输入大地坐标的N坐标；
“E”—输入大地坐标的E坐标。

“I”—输入大地坐标的H坐标。

“X=”：得出测点桩号X
“Y=”：得出测点偏心Y
“MS”：得出测点设计高程
“+-R1”：得出测点R1的超欠挖
“+-R2”：得出测点R2的超欠挖
“﹦＞DB”测点到底部超欠挖。