fx-4800P计算器
公路竖曲线高程计算程序
（程序名：GAO CHENG-HP）
Lb1 0︰｛CDAB｝︰C“K1=”︰D“H1=”︰A“PV-K0=”︰B “PV-H0=”↙
Lb1 1 ︰｛REF ｝︰R“R=”︰E“K2=”︰F“H2=”↙Lb1 2︰U =（B－D）÷（A－C）︰V =（F－B）÷（E－A）︰U ＞V =＞N = 0︰T = R ( U－V ) ÷2︰≠＞N = 1︰T = R ( V－U ) ÷2 ︰⊿G = A －T ︰Q = A ＋T ︰W = T 2÷（2 R）↙
Lb1 3︰｛K｝︰K “I.T.E.ZY-K.YZ-K=0,1”︰
K =0 =＞Goto 4 ︰⊿U “I 1”= U ▲V “I 2”= V ▲T = T ▲W “E”= W ▲G “ZY-K”= G ▲Q “YZ-K”= Q▲↙
Lb1 4︰｛M｝︰M“PK=”︰M ≤A =＞Goto 5︰⊿Goto 6 ↙Lb1 5︰M ≤G =＞H = B－U ( A－M ) ︰Goto 7 ︰≠＞Prog “H1 ”︰N = 1 =＞H = B＋X－Y ︰Goto 7︰≠＞N = 0 =＞H = B－X －Y ︰Goto 7↙
Lb1 6︰M ≥Q =＞H = B＋V ( M－A ) ︰Goto 7 ︰≠＞Prog “H2 ”︰N = 1 =＞H = B＋X＋Y ︰Goto 7︰≠＞N = 0 =＞H = B－X ＋Y ↙
Lb1 7︰H “HP”= H ▲｛L｝︰L“BZ-T=0,L”︰L = 0 =＞Goto 8 ︰⊿｛S｝︰S “IL=”︰H “HL”= H ＋S L ▲↙
Lb1 8︰｛Z ｝︰Z “NEXT-PV=0,1”︰Z = 0 =＞Goto 4 ︰⊿C= A ︰D= B ︰A =E ︰B= F ︰Goto 1↙
子程序:
H1:
X = ( M－G ) 2÷( 2 R ) ︰Y = U ( A－M ) ↙
H2:
X = ( Q－M ) 2÷( 2 R ) ︰Y = V ( M－A ) ↙
二00二年元月二十三日
公路竖曲线高程计算程序
（程序名：GAO CHENG-HP）
使用说明
1、按“ON”-“FILE”-“GAO CHEHG-HP”-“EXE”
2、输入竖曲线后方直线段任一点桩号、高程（K1=？，H1=？），变坡点桩
号、高程（PV-K0=？，PV-H0=？）-“EXE”
3、输入竖曲线半径（R=？）, 竖曲线前方直线段任一点桩号、高程（K2=？，
H2=？） -“EXE”
4、是否显示重要参数（后坡度%I1、前坡度%I2、以及竖曲线切线长T、
外距E、曲线起点桩号ZY-K、曲线终点桩号YZ-K？，显示：输入1；
不显示：输入0。
-“EXE”
5、PK=？输入计算段任一待求高程点的桩号-“EXE”
6、HP= 显示“PK”桩号点的高程（HP= ）-“EXE”
7、BZ-T=0，L？是否计算边桩高程？，是：L=（长度）；否：L=0 -
“EXE”
8、IL=？输入横坡度 -“EXE”
9、HL= 显示距PK点L距离、坡度为I的高程 -“EXE”
10、NEXT-PV=0,1?是否计算下一竖曲线段，是，则输入1，重复第3步
以下过程计算；否，则输入0，重复第5步以下过程计算 -“EXE”
计算示例一
（凸曲线）
1、输入：后方桩号K1=93100、高程H1=124.87；变坡点桩号PV-K0=93430、
高程PV-H0=131.47及竖曲线半径R=10000；前方桩号K2=93800、高程H2=126.439
2、I、T、E、ZY-K、YZ-K：0，1 ？是否显示曲线参数？是为1，否为0；
输入1
3、I1=0.02，I2=-0.0136，T=168.00，E=1.411，ZY-K=93262.01，
YZ-K=93597.986
4、PK=? 输入93380
5、HP=129.774
6、ZB-T=0,L? 输入20
7、IL=? 输入-0.015
8、HL=129.474
9、NEXT-PV=0,1? 输入0
10、PK=? 输入93440
11、HP=130.086
12、ZB-T=0,L? 输入0
13、NEXT-PV=0,1? 输入0
14、PK=?
计算示例二
（凹曲线）
1、输入：后方桩号K1=94200、高程H1=121.001；变坡点桩号
PV-K0=94420、高程PV-H0=118.01及竖曲线半径R=25000；前方桩号K2=94700、高程H2=117.171
2、I、T、E、ZY-K、YZ-K：0，1 ？是否显示曲线参数？是为1，否为0；
输入1
3、I1=-0.0136，I2=-0.003，T=132.48，E=0.35
4、PK=? 输入94450
5、HP=118.130
6、ZB-T=0,L? 输入0
7、NEXT-PV=0,1? 输入0
8、PK=? 输入94350
9、HP=119.040
10、ZB-T=0,L? 输入0
11、NEXT-PV=0,1? 输入0
12、PK=? 输入94140
13、HP=121.817
14、ZB-T=0,L? 输入0
15、NEXT-PV=0,1? 输入0
fx-4800P计算器
用坐标计算多边形面积程序
（程序名：MIAN JI-S）
Lb1 0 ︰｛NAB｝︰N “N=”︰S = 0 ︰I “N”= 1 ▲ A “X=”︰ B “Y=”︰ C = A ︰ D = B ↙
Lb1 1 ︰｛XY｝︰I “N”= I ＋1 ▲︰X “X=”︰Y “Y=”↙Lb1 2︰S = S ＋0.5 ( AY－BX )︰A = X ︰B = Y ↙
Lb1 3 ︰I ＜N =＞Goto 1︰≠＞S = S＋0.5 ( DX－CY ) ↙
Lb1 4 ︰S “S ”= Abs S ▲↙
Lb1 5 ︰Goto 0 ↙
二00二年元月二十三日
用坐标计算多边形面积程序
（程序名：MIAN JI-S）
使用说明
1、按“ON”-“FILE”-“MIAN JI-S”-“EXE”
2、N = ？输入多边形角点数，如：3 -按“EXE”
3、N = 1 提示输入第一点角点的X，Y值-按“EXE”
4、X = ？输入第一点角点的X值，如：1 -按“EXE”
5、Y = ？输入第一点角点的Y值，如：1 -按“EXE”
6、N = 2 提示输入第二点角点的X，Y值-按“EXE”
7、X = ？输入第二点角点的X值，如：4 -按“EXE”
8、Y = ？输入第二点角点的X值，如：5 -按“EXE”
9、N = 3 提示输入第三点角点的X，Y值 -按“EXE”
10、X = ？输入第三点角点的X值，如：1 -按“EXE”
11、Y = ？输入第三点角点的X值，如：5 -按“EXE”
12、S = 6 多边形（三角形）的面积等于6 -按“EXE”
重复上面过程计算。