当前位置：文档之家 › CASIO 5800程序编辑说明

CASIO 5800程序编辑说明

  • 格式：doc
  • 大小：66.50 KB
  • 文档页数：7

CASIO-5800P计算器程序编辑说明
一．程序名称：直线坐标计算——Z-X-Z
程序内容：1. “X=“？A : “Y=“？B : “Q=”？Q
2. LbI 0
3. “N=”？N : “S=”？S : ”E=”？E
4. A + N cos(Q)→D : B + N sin(Q)→F
5. D + S cos(Q + E)◢
6. F + S sin(Q + E)◢
7. Goto 0
内容说明：A 、B——以知点即起算点的x,y坐标值；
Q——直线段方位角；
N——直线段距离；
S——边桩距离；
E——转向角；（左转为“－E”，右转为“E”）
二．程序名称：圆曲线任意坐标计算——ZY-YZ
程序内容：1. “Q=”？Q : “X= ”？W: “Y= “？K : “R= ”？R:
“F=”？F : “N=”？N : “U=”？U
2. R tan(N÷2) → T
3. Q–T → A
4. W+T cos(F+180) →M : K+T sin(F+180) →G
5. LbI 0
6. “H=”？H: ” S=”→？S : “E=”？E
7. Abs(H - A) →D
8. 180 D÷(Rπ) →О
9. R sin(О) →C
10. R (1-cos(О))→D
11. M+C cos(F) →I : G+C sin(F) →J
12. I+D cos(F+90U) →X : J+D sin(F+90U)→Y
13. X+S cos(F+ОU+E)◢
14. Y+S sin(F+ОU+E)◢
15. Goto 0
内容说明：Q——交点里程桩号；
W 、K——交点X、Y坐标；
R——圆曲线半径；
F——前切线正方位角；
N——偏角；（即转向角）
U——控制偏角条件；（左偏角输入“－1”，右偏角输入“+1”）
H——圆曲线上任意一点里程桩号；
S——中桩至边桩距离；
E——夹角；（左边桩输入“－E”，右边桩输入“E”）
三．程序名称：极坐标放样元素计算——J-Z-B-F-J
程序内容: 1. “X=”？A : “Y=”？B : “X0=”？C :“Y0=”？D
2. PoI ( C - A,D - B ) : CIs
3. I f J﹤0 : Then J+360→E : EIse J→E:IfEnd:E▶DMS◢
4. I◢
5. LbI 0
6. “XN=”？U
7. WhiIe U≠0 （输入“0”即结束程序）
8. “YN=”？V
9. PoI(U-A,V-B):CIs
10. I f J﹤0:Then J+360→F:EIse J→F:IfEnd:F▶DMS◢
11. I◢
12. F – E →H
13. I f H﹤0:Then H+360→H:IfEnd : H▶DMS◢
14. Goto 0
内容说明: A、B——测站点坐标
C、D——0方向点坐标
E——计算出的测站点至0方向点的方位角
I——计算出的测站点至0方向点的距离
U，V——N方向点坐标
F——计算出的测站点至N方向点的方位角
I——计算出的测站点至N方向点的距离
H——计算出的0方向与N方向的水平夹角
表格：
四．程序名称：有缓和曲线的圆曲线上点位坐标计算F-Y-X-Y 程序内容：1．“Q=”？Q ：“J=”？J ：“K=”？K ：“R=”？R ：
“F=”？F ：“N=”？N ：“I =”？I：“U=”？U
2．6 → Dim Z
3．90 I÷(Rπ) → G （切线角，即缓和曲线角计算）
4．I 2 ÷(24R) - I 4÷(2688R3) → P （内移距）
5．I÷2 - I3÷(240R2) → M （切线增值）
6．(R+P) tan (N÷2)+M → T （切线长）
7．πRN ÷ 180 + I → L （曲线长）
8．Q – T →A : A + I→B :
A + L →D : D –I→ C
9．J + T cos(F+180)→Z[1] :K + T sin (F+180) →Z[2]
10．LbI 0
11．“H=”？H ：“S=”？S ：“E=”？E
12．H – A –I → Z
13．180 Z÷(Rπ) + G →О
14．R sin(О) + M → X
15．R (1 – cos（О）) + P → Z
16．Z[1]+ X cos( F ) →Z[3] :Z[2] + X sin( F )→Z[4]
17．Z[3]+ Z cos (F + 90U ) →Z[5] :
Z[4] + Z sin(F + 90U )→Z[6]
18．Z[5]+ S cos ( F +ОU + E )◢
19. Z[6] + S sin( F+ОU + E )◢
20．Goto 0
内容说明:Q——交点里程桩号；
J 、K——交点X、Y坐标；
R——圆曲线半径；
F——前切线正方位角；
N——偏角；（即转向角）
I——缓和曲线长；
U——控制偏角条件；（左偏角输入“－1”，右偏角输入“+1”）
H——有缓和圆曲的线圆曲线上任一点里程桩号；
S——中桩至边桩距离；
E——夹角；（左边桩输入“－E”，右边桩输入“E”）第9项——ZH点坐标；
五．程序名称：缓和曲线段上点位坐标计算F-H-X-Y
程序内容：1 ．“Q=”？Q ：“J=”？J ：“K=”？K ：“R=”？R ：
“F=”？F ：“N=”？N ：“I =”？I：“U=”？U
2．12 → Dim Z
3．I÷2 - I3÷(240R2) → M （切线增值）
4．I 2 ÷(24R) - I 4÷(2688R3) → P （内移距）
5．πRN ÷ 180 + I → L （曲线长）
6．M+ (R+P) tan (N÷2) → T （切线长）
7．Q – T →A : A + I→B : （ZH : HY）
A + L →D : D –I→ C (HZ:YH)
8．J + T cos(F+180)→Z[1] :K + T sin (F+180) →Z[2]
9. J + T cos(F+NU)→Z[3] :K + T sin (F+NU) →Z[4]
10．LbI 0
11．“H=”？H ：“S=”？S ：“E=”？E
12. H﹤B⇒Goto 1
13. H﹤D⇒Goto 2
14．LbI 1
15．Abs(H - A)→ Z
16．90 Z2÷(πR I ) →О
17．Z - Z5÷(40 R2I2) + Z9÷(3456 R4I4)→ X
18．Z3÷(6 RI) – Z7÷(336 R3I3) + Z11÷(42240 R5I5)→ Z 19．Z[1]+ X cos( F ) →Z[5] :Z[2] + X sin( F )→Z[6] 20．Z[5]+ Z cos (F + 90U ) →Z[7] :
Z[6] + Z sin(F + 90U )→Z[8]
21．Z[7]+ S cos ( F +ОU + E )◢
22. Z[8] + S sin( F+ОU + E )◢
23．Goto 0
24. LbI 2
25. D - H → Z
26．90 Z2÷(πR I ) →О
27．Z - Z5÷(40 R2I2) + Z9÷(3456 R4I4)→ X
28．Z3÷(6 RI) – Z7÷(336 R3I3) + Z11÷(42240 R5I5)→ Z 29．Z[3]+ X cos( F + NU+180 ) →Z[9] :
Z[4] + X sin( F + NU+180)→Z[10]
30．Z[9]+ Z cos (F+ NU+180 - 90U ) →Z[11] :
Z[10] + Z sin(F + NU+180 - 90U )→Z[12]
31．Z[11]+ S cos ( F +NU+180 - ОU -（180 – E）)◢
32. Z[12] + S sin( F+ NU+180 - ОU -（180 - E）)◢
33. Goto 0
内容说明:Q——交点里程桩号；
J 、K——交点X、Y坐标；
R——圆曲线半径；
F——前直线段正方位角；
N——偏角；（即转向角）
I——缓和曲线长；
U——控制偏角条件；（左偏角输入“－1”，右偏角输入“+1”）
H——缓和曲线段上任一点里程桩号；
S——中桩至边桩距离；
E——夹角；（左边桩输入“－E”，右边桩输入“E”）第8项——ZH点坐标
第9项——HZ点坐标。

合集下载

卡西欧5800计算机程序

卡西欧5800计算机程序

BL-1(总文件名)Lbi 1{K,P}↙K≤569449.695⇒prog"6":≠⇒K≤570541.926⇒prog"9":≠⇒K≤571653⇒prog"10"▽▽▽↙（注：①K≤JD76HZ点；②K≤JD79ZH点；③K≤终点。

▽▽▽为①②③。

本条路线分为三段）1X=X+Pcos(C+90)▼（注：“1”为边桩坐标）Y=Y+Psin(C+90)▼prog"2"↙2pol(X-M,Y-N)▼（注：“2”为置仪点到计算点的距离、方位角）J＜0⇒J=J+360▽J▼3X=I+LcosD:Y=J+LsinD:C=D:prog"1"↙（注：“3”为直线中桩坐标）30B=L-L∧5÷(40R²S²)+L∧9÷(3456R∧4S∧4):H=L∧3÷(6RS)-L∧7÷(336R∧3S∧3)+L∧11÷(42240R∧5S∧5):X=E+BcosD-QHsinD:Y=F+BsinD+QHcosD:C=D+90L²÷(RSπ)Q:prog"1"（注：“30”为ZH点到HY点中桩坐标）40O=180(L-S)÷(Rπ)+U:B=RsinO+W:H=R(1-cosO)+V:X=E+BcosD-QHsinD:Y=F+BsinD+QHcosD:C=D+QO:prog"1"↙（注：“40”为HY点到YH点中桩坐标）50B=L-L∧5÷(40R²S²)+L∧9÷(3456R∧4S∧4):H=L∧3÷(6RS)-L∧7÷(336R∧3S∧3)+L∧11÷(42240R∧5S∧5) :X=I+BcosO+QHsinO:Y=J+BsinO-QHcosO:C=O-90QL²÷(RSπ)+180:C＞360⇒C=C-360▽prog"1"（注：“50”为YH点到HZ点中桩坐标）QDI=E+2Tcos(A÷2)cos(D+QA÷2):J=F+2Tcos(A÷2)sin(D+QA÷2):O=D+QA+180:O＞360⇒O=O+360▽L=abs(L-G)↙（注：”QD”为“50”计算点的坐标和方位角）QXV"P1"=S²÷(24R)-S∧4÷(2688R∧3):W"Q1"=S÷2-S∧3÷(240R²):U=90S÷(Rπ):T=(R+V)tan(A÷2)+W:G"LS"=(A-2U)Rπ÷180+2S(注：曲线要素计算)6K≤568452.69⇒I=2748463.944:J=241175.046:L=K-568000:D=303°30′57.98″:prog"3":≠⇒K≤569118.937⇒E=2748713.90676:F=240797.62406:D=303°30′57.98″:R=205:S=140:A=147°04′53.94″:Q=-1:L=K-568452.69:prog"QX":prog"7":≠⇒K≤569449.695⇒E=2748430.72858:F=240460.44096:D=156°26′04″:R=627.527:S=85:A=22°26′19.03″:Q=1:L=K-569118.938:prog"QX":prog"7"▽▽▽(注：①K≤JD75ZH点；I,J为直线起点坐标；L=K-直线起点桩号；D为直线起点到JD75的方位角；prog"3"为直线坐标计算。

5800p高程程序

5800p高程程序

CASIO-5800P路面高程控制测量程序（一）“XXX”主程序(注：本程序用“_”代替空格，其余均无空格)Clr Mat：Fix 3：Clr stat：FreqOn0→M(数字零)Cls：“1ZX_2YX”？→ECls：？KE=1＝＞prog“ZX”E=2＝＞prog“YX”Mat C[1,1] →F:Mat C[1,2] →Z:Mat C[1,3] →X:Mat C[1,4] →Y:Mat C[1,5] →R:Mat C[1,6] →B:Mat C[1,7] →GX/100→X:Y/100→YRabs(Y-X)/2→TCls:“HS”？A: “BM(HS)”?C:Cls:“SXG=”:Locate5,1,A+C◢Lb1 A:Cls: “QS”?PCls:?KIf K<F or K>Z:Then Cls :Locate6,2, “K Out ！”◢Stop :If EndIf Y>X:Then 1→W:Else -1→W:If EndIf K<B:Then -X→I:Else Y→I:If EndAbs(B-K) →LIf L>T:ThenG+IL→H:Cls:“H（ZZ）=”:Locate7,1,H◢Goto B:ElseG+IL+W(T—L) 2(平方)/2/R→H：Cls:“H(ZZ)=”Locate7,1,H◢Goto B:If EndLb1 B:“JGC（H）”？O“BJ”？N11→Dim Z“ZXHP__YXHP”? →JJ=1＝＞Prog“ZXHP”J=2＝＞Prog“YXHP”Mat D[1,1] →Z[2]:Mat D[1,2] →Z[3]:Mat D[1,3]→Z[4]:Mat D[1,4]→Z[5]:Mat D[1,5]→Z[6]:Mat D[1,6] →Z[7]:Z[4]+((Z[5]-Z[4])*(K-Z[3])):(Z[2]-Z[3]) →U:Z[6]+(Z[7]-Z[6])*(K-Z[3]))/(Z[2]-Z[3]) →SCls:If N≤0:Then H-0-U(N+1)/100→V:Else H-0+S(N+1)/100→V:If endCls :V-A-C+P→QCls:“HC=”: “HS=”:Loacte6,1,A+C-P:Locate6,2,V◢Cls:“H=”:Locate6,1,Q◢M+1→M:K→List→X[M]:V→List Y[M]:Q→List Freq[M]Goto A:If end（二）“ZX”（主线竖曲线）子程序If K<本线路起点桩号Or K>本线路终点桩号：Then Cls ：Locate 6,2，“K_ ERR!”◢Stop ：IfEndIf K≤下一曲线起点或本线路终点桩号：Then [[上一曲线终点或本线路起点桩号，下一曲线起点或本线路终点桩号，前纵坡（只输入%前的数字且上坡为正，下坡为负需输入负号），后纵坡（同上），本曲线半径，本曲线交点桩号，本曲线标高]]→Mat C：Goto 1 ：IfEnd ……………………………………………同理循环输入………………………………………LbI 1(三)“ZXHP”（主线横坡）子程序If K<本线路起点桩号Or K>本线路终点桩号：Then Cls ：Locate 6,2，“K_ ERR!”◢Stop ：IfEndIf K≤下一横坡起变点或本线路终点桩号：Then [[下一横坡起变点或本线路终点桩号，上一横坡起变点或本线路起点桩号，左幅起点横坡（只需输入横坡%前数字且低于中线为负），左幅终点横坡，右幅起点横坡，右幅终点横坡]] →Mat D：Goto 1 ：IfEnd ……………………………………………同理循环输入………………………………………LbI 1(四)“YX”（右线竖曲线）子程序If K<本线路起点桩号Or K>本线路终点桩号：Then Cls ：Locate 6,2，“K_ ERR!”◢Stop ：IfEndIf K≤下一曲线起点或本线路终点桩号：Then [[上一曲线终点或本线路起点桩号，下一曲线起点或本线路终点桩号，前纵坡（只输入%前的数字且上坡为正，下坡为负需输入负号），后纵坡（同上），本曲线半径，本曲线交点桩号，本曲线标高]]→Mat C：Goto 1 ：IfEnd ……………………………………………同理循环输入………………………………………LbI 1（五）“YXHP”（右线横坡）子程序If K<本线路起点桩号Or K>本线路终点桩号：Then Cls ：Locate 6,2，“K_ ERR!”◢Stop ：IfEndIf K≤下一横坡起变点或本线路终点桩号：Then [[下一横坡起变点或本线路终点桩号，上一横坡起变点或本线路起点桩号，0（此为数字零，一般左线为主线），0，右幅起点横坡，右幅终点横坡]] →Mat D：Goto 1 ：IfEnd……………………………………………同理循环输入………………………………………LbI 1。

卡西欧5800计算器编程入门程序集

卡西欧5800计算器编程入门程序集

fx-5800P易学易用程序集卡西欧(中国)贸易有限公司版程序列表备注；；用户对用本书疑问，请发邮件到：gongchengji@ 。

欢迎交流！卡西欧的客服热线：400-700-6655。

联系:gongchengji@ 。

G1G2G3G4G5G6G7G8G9G10G111-1G12G12-10-10-2fx-5800P G2011-9-30...常用测量程序1极坐标放样程序（已知坐标计算边长、方位角计算程序），程序名5 J<0J+360→J把小于6 7 "FWJ="：J DMS ◢显示方位角2已知边长方位角计算坐标程序，程序名3建筑轴线偏移程序(或扩大基础程序)。

程序名（）（）4测角前方交会坐标计算，程序名5测角后方交会坐标计算，程序名3 Pol((C –A),(D –B)) : J<0J+360→J : J →Z[4] 计算点（）的方位角4 Pol((E –A),(F –B)) : J<0J+360→J : J →Z[5]计算点（）的方位角5 6 Z[1]<0Z[1]+360→Z[1]计算点（）的顶角并存贮到变量 7 Pol((E –C),(F –D)): J<0J+360→J : J →Z[4] 计算点（）的方位角 8 Pol((A –C),(B –D)): J<0J+360→J : J →Z[5] 计算点（）的方位角9Z[4]-Z[5]→Z[2]方位角计算顶角10 Z[2]<0Z[2]+360→Z[2]计算点（）的顶角并存贮到变量 11 Pol((A –E),(B –F)) : J<0J+360→J :J →Z[4] 计算点（）的方位角 12 Pol((C –E),(D –F)) : J<0J+360→J : J →Z[5]计算点（）的方位角13 14 Z[3]<0Z[3]+360→Z[3]计算点（）的顶角并存贮到变量 15 tan(Z[1]) tan(G) ÷(tan(Z[1])- tan(G))→Z[7] 计算点（）的参数 计算点（）的参数 计算点（）的参数（）（）（）6坐标转换计算程序，程序名-D （）（）（）7直线中边桩坐标计算程序,程序名8圆曲线中边桩坐标计算程序,程序名9完整缓和曲线中边桩坐标计算程序,程序名fx-5800P 程序使用流程：本程序数据和主程序是分开的，编程时将不同的工程数据存放到不同的数据文件里，如A匝道，文件名为A ，将匝道A 所有的曲线线元参数输入A文件里。

5800卡西欧 隧道程序-----1主动竹山

5800卡西欧 隧道程序-----1主动竹山

1-1－SUIDAO－ZCX (隧道主程序)2-Lbl 5:" ZS=1,FS=2, SD=3, QH=4 "?N3-N=1=>Goto 1:N=2=>Goto 2:N=3=>Goto 3:N=4=>Goto 4:4-Lbl 1: “(JSZH)K=”?S（计算桩号）：“（＋Z,－Y）Z=”?Z（计算偏距，左正右负）：Prog “SJ－PM”（平曲线数据库）：Abs(S－O) → W：Prog "SUB 1－ZS"（正算子程序）：“X="：Locate4,4,X:"Y="：Locate4,4,Y：F－90→F （该处F－90为计算正交90°边桩，要算斜交边桩即可改为？N：F－N→F）：S→ K：Prog“SJ－GC”（竖曲.线数据库）：“H=”：Locate4,4,H◢5-Goto 56-Lbl 2：“X=”?X：“Y=”？Y：Prog“SJ－PM”（平曲线数据库）：X→ I：Y→ J：Prog "SUB2－FS"（反算子程序）：O+W→S ：“K="：Locate4,4, S ：“（＋Z,－Y）P="：Locate4,4, Z：S→ K：Pro g“SJ－GC”（竖曲线数据库）：“H=”：Locate4,4, H◢7-Goto 58-Lbl 3 ：“X=”?X：“Y=”？Y：Prog“SJ－PM”（平曲线数据库）：X→ I：Y→ J：Prog "SUB2－FS"（反算子程序）：O+W→S：“K="：Locate4,4, S ：“（＋Z,－Y）P="：Locate4,4, Z：S→ K：Prog“SJ－GC” ：“H=”：Locate4, 4, H◢9-Prog“SJ－CQW”（隧道超欠挖数据库）: “（SJ-GD）H="：Locate4,4,F:“R:(+ CW,-QW)=”：Locate4,4,W◢10-Goto511-Lbl 4 ：“K=”?S（计算桩号）：“（＋Z,－Y）P=”?Z（计算偏距，左正右负）：Prog“SJ－PM”（平曲线数据库）：Abs(S－O) → W：Prog "SUB1－ZS"（正算子程序）：F－90→F（该处F－90为计算正交90°边桩，要算斜交边桩即可改为？N：F－N→F）：“JJ=”?J （涵洞轴线于路线主线右夹角）：0→A：0→B：Prog "QHZBJS"（桥涵坐标计算程序）：12-Goto5以上为第一个主程序13-SJ-PM（子程序名-平曲线形数据库）14-If S ≥38990.919（线元起点里程）:Then 9502.991→U（线元起点X坐标）：9616.568→V（线元起点Y坐标）：38990.919→O（线元起点里程）：298°11’04.8”→G（线元起点方位角）：130 →H（线元长度）：1×1045→P（线元起点曲率半径）：850→R（线元终点曲率半径）：－1 →Q（线元左右偏标志：左-1右1）：IfEnd15-If S ≥39120.919:Then9561.437→U：9500.485→V：39120.919→O：293°48’11.62”→G：295.75 →H：850→P：850→R：－1 →Q：IfEnd16-If S ≥39416.670:Then9631.804→U：9214.762→V：39416.670→O：273°52’03.4”→G：130→H：850→P：1×1045→R：－1 →Q：IfEnd17-If S ≥39546.67:Then9633.951→U：9084.813→V：39546.67→O：269°29’10.2”→G：486.016 →H：1×1045→P：1×1045→R：0→Q：IfEnd18-If S ≥40032.687:Then9629.593→U：8598.816→V：40032.687→O：369°29’10.2”→G：524.34 →H：2500→P：2500→R：－1 →Q：IfEnd19-If S ≥40557.027:Then9570.142→U：8078.824→V：40557.027→O：257°28’09.1”→G：295.341 →H：1×1045→P：1×1045→R：0→Q：IfEnd20-If S ≥40852.366:Then9506.063→U：7790.519→V：40852.366→O：257°28’09.1”→G：130 →H：1×1045→P：800→R：1 →Q：IfEnd21-If S ≥340982.366:Then9481.312→U：7662.936→V：40982.366→O：262°07’28.12”→G：169.903 →H：800→P：800→R：1 →Q：IfEnd22-If S ≥41152.27:Then9467.011→U：7493.435→V：41152.27→O：274°17’35.205”→G：130 →H：800→P：1×1045→R：1 →Q：IfEnd以上为第二个数据子程序23-SJ－GC（子程序名-竖曲线数据库）24-If S＜39537.6（变坡终点里程）And S≥39062.4（变坡起点里程）：Then0.02 98（大里程坡度）→A：0.01（小里程坡度）→B：39300（变坡点里程）→O：379.858（变坡点高度）→G：－24000（竖曲线半径，凸为正号，凹为负号，直线过度纵坡段半径为1×1045）→R：Prog“SUB3－GC”（高程子程序）:If End25-If S＜40048.9And S≥39537.6：Then0.0298→A：0.0298→B：39537.6→O：386.938→G：1×1045→R：Prog“SUB3－GC”:IfE nd26-If S＜40551.1And S≥40048.9：Then－0.026→A：0.0298→B：40300→O：409.658→G：9000→R：Prog“SUB3－GC”:IfEnd27-If S＜40924.5And S≥40551.1：Then－0.026→A：－0.026→B：40551.1→O：403.129→G：1×1045→R：Prog“SUB3－GC”:IfEnd28-If S＜41275.5And S≥40924.5：Then－0.013→A：－0.026→B：41100→O：388.858→G：－27000→R：Prog“SUB3－GC”:IfEnd29-If S＜41670And S≥41275.5：Then－0.013→A：－0.013→B：41275.5→O：386.576→G：1×1045→R：Prog“SUB3－GC”:IfEnd以上为第三个数据子程序30-SJ－CQW (子程序名-隧道超欠挖数据库)31-Fix 3 ：“H1=”?F（输入实测的高程）：“CQHD=”?C（输入超欠厚度）：5.6+C（圆心1的半径，拱顶圆弧）→R：8.1+C（圆心2的半径，左右两个）→P：1+C（圆心2的半径，左右两个）→M：15+C（圆心2的半径，左右两个）→N：F－H→F：Abs（6.8－Z）→Z（该处的0为数值，即道路中心线到圆心1的竖轴线的水平距离）32-If F＞1.4（圆心1的弧线到设计路面高程的距离）:Then √(Z2+(F－1.4)2)－R（该处的0.980为圆心1点到设计路面高程的距离，圆心点高于设计标高该处为－号，反则为+号）→W（即计算出来的超欠挖值，正为超挖，负为欠挖）: IfEnd:33-If F≥－0.161（即为2.3两个左右圆弧的下限底点到设计高程的距离）AndF ＜1.4（圆心1的弧线到设计路面高程的距离）: Then √((Z+2.1)2+( F－1.4)2)－P→W :IfEnd:（该处的+1.4722为圆心点2.3到隧道中心线的水平距离，注意该处的符号判别，左边的圆弧圆心重到中心线右边的距离为+号，反则为－号；0.13为圆心点2.3到设计路面高程的距离，圆心点高于设计标高该处为－号，反则为+号）34-若If F≥－0.916（即为2.3两个左右圆弧的下限底点到设计高程的距离）And F＜-0.161（圆心1的弧线到设计路面高程的距离）: Then √((Z-4.4669)2+( F +1.3683)2)－M→W :IfEnd:（该处的+1.4722为圆心点2.3到隧道中心线的水平距离，注意该处的符号判别，左边的圆弧圆心重到中心线右边的距离为+号，反则为－号；0.13为圆心点2.3到设计路面高程的距离，圆心点高于设计标高该处为－号，反则为+号）35-If F<－0.916（即为2.3两个左右圆弧的下限底点到设计高程的距离）: Then √((Z-0)2+(- F+13.3)2)－N→W :IfEnd:（该处的+1.4722为圆心点2.3到隧道中心线的水平距离，注意该处的符号判别，左边的圆弧圆心重到中心线右边的距离为+号，反则为－号；0.13为圆心点2.3到设计路面高程的距离，圆心点高于设计标高该处为－号，反则为+号以上为第四个数据子程序36-SUB1－ZS (正算子程序)1÷P→ C：(P-R)÷(2HPR) → D：180÷π→ E：0.1739274226→ A：0.326 0725774→ B：0.0694318442→ K：0.3300094782→ L：1-L→ F：1-K→ M：U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QE FW(C+FWD))+Acos(G+QEMW(C+MWD))) → X：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以上为第五个正算子程序37-SUB2－FS (反算子程序)38-G-90→T：Abs((Y-V)cos(T)-(X-U)sin（T）) → W：0→ Z：Lbl 0：Prog "SUB1-ZS"：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：Got o 0：IfEndLbl 1：0→ Z：Prog "SUB1-ZS"：(J-Y)÷sin(F)→ Z以上为第六个反算子程序39-SUB3－GC （高程子程序）O-S→L:A-B→W:Abs(R*W÷2) →T:O-T→M:O+T→PIf S≤M:ThenG-L*B→H:Goto5:Else If S≤O:Then Goto3:Else If S≤P:Then Go to4:IfEnd: IfEnd: IfEndLbi3If 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: IfEndLbi4If 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: IfEndLbi5H→H: Return以上为第七个高程子程序40-QHZBJS（桥涵坐标计算子程序）41-Lbl 0：42-“ZXJL(+D,－X)=”?A（中线上的距离即涵洞宽度尺寸）：“BXJL（＋Z,－Y）=”?B（中线到边线上的距离即涵洞长度尺寸）：43-180°－J→I：44-180°－I－90→M：45-A÷cos（M）→T：46-X+cos（F）×T→C（该处是计算的中线上的坐标点，改为“XZ=”：X+cos（F）×T→C◢即可显示出来）：47-Y+sin（F）×T→D（该处是计算的中线上的坐标点，改为“YZ=”：Y+sin（F）×T→D◢即可显示出来）：48-“XB=”（显示计算的边桩）：C+cos（F－I）×B→H◢49-“YB=”（显示计算的边桩）：D+sin（F－I）×B→V◢50-0→D："JIXU"?D（是否继续运算输入0继续运算，输入1结束桥涵坐标的计算）：D=0＝﹥Goto 0以上为第八个桥涵子程序51-说明：(正算1秒，反算和超欠挖5秒完成)所有程序名。