《5biaoFX5800计算器测量程序集24版.doc》由会员分享，可在线阅读，更多相关《5biaoFX5800计算器测量程序集24版.doc（58页珍藏版）》请在三一文库上搜索。
1、CASIO fx-5800P计算器测量程序设计2.4版 作者： QQ: FX5800计算器测量程序集2.4 版一、程序功能主要功能：采用交点法方式计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。新版本优化：1、优化程序语句、2、以复数形式输入变量及做数据库，取消原矩阵数据库;3、修改隧道超欠挖程序为通用形，不受圆心个数限制、4、新增测量资料表计算二、源程序（绿色为程序名；蓝色为输入计算器内容）紫色为新版改动处0.汇总程序（1、坐标计算放样程序(1XY、
2、A、AB、HX、JS、DX、QX、F、XY、X1)；2、坐标反算程序（2ZD、A、B、AB、HX、QX、F、ZD、X1)；3、高程计算查阅程序（3GC、H、I、QX、S1、I1）；4、路基半幅标准宽度查阅程序（4GD、C、QX、G1）；5、路基边坡及开挖口放样程序（5BP、A、B、AB、HX、H、I、C、JS、DX、QX、F、ZD、X1、S1、I1、G1、W1）；6、路基标准距离放样（6FM、A、AB、HX、H、I、JS、DX、QX、F、XY、X1、S1、I1)；7、桥梁锥坡计算放样程序（7ZP、A、AB、HX、C、JS、DX、QX、F、XY、X1、G1)；8、极坐标计算程序（8JS、JS、D
3、S）；9、隧道超欠挖计算程序（A、B、AB、HX、H、I、QX、S、SD、F、ZD、X1、S1、I1、SD1）运行后按19数子约半秒，则选择1至9的程序，返回时，在桩号输入-1,返回选择计算类型。输入-2,返回选择线路。程序名：0（数子0）ClrMat:ClrVar:12DimZ：Norm 2:Do:(XY=1，ZD=2 ，GC=3，GD=4， BP=5，FM=6，ZP=7，JS=8，SD=9)=QING AN 1-9：GetkeyZ3:While Z3=35:Prog1XY:WhileEnd:While Z3=36:Prog2ZD：WhileEnd: While Z3=37:Prog3GC：
4、WhileEnd: While Z3=21:Prog4GD：WhileEnd: While Z3=22:Prog5BP：WhileEnd: While Z3=23:Prog6FM：WhileEnd: While Z3=31:Prog7ZP：WhileEnd: While Z3=32:Prog8JS：WhileEnd: While Z3=33:Prog9SD：WhileEnd:LpWhile Z325:”XIE XIE SHI YONG”:计算内程序排例：0、01（测量资料专用）、1SC（水准测量用）、1XY、2XY-S（由坐标计算面积）、2ZD、3GC、4GD、5BP、6FM、7ZP、8JS、
5、9SD、A、AB、B、B6（测量表格检表6）、B7（检表7）、B8（检表8）、B9（检表9）、C、DX、DX0、F、G1、H、HX、I、I1、JS、M（度分秒转十进制）、QX、S、S1、SD0、SD1、T、W1、X1、XY、XYH（五点通线元法计算坐标）、ZD23数据子程序(以下子程序除T程序外，其余子程序根据自己标段设计数据修改)带有不完整缓和曲线的线元转交点数据程序（T）。只为转交交点的辅助程序，不参入任何主程序中运行。程序名：TNorm 2: BQKM？Z：XB？U：YB？V：LS1？M：LS2？O：A1？A：A2？B：FWJ？G：ZJ？P：？R：PAbs(PQ:A2RH:HMH:H-M
6、S:B2RN:N-OC:ON=ON:H=0=10-9H:HX:90S2(RHK:G-QKG:N=0=10-9N: 90C2(RND:P+QK+QDP:ProgAB:AC:BD:NH: ProgAB:Abs(PE:(R+C)tan(E2)-(C-A)sin(E)+DT:(R+A)tan(E2)-(C-A)sin(E)+BF:XH:Z-S+TO:ProgHX:U-(A-T)cos(G)+QBsin(GU:V-(A-T)sin(G)-QBcos(GV:Fix 3: JDKM=:Locate 6,4,O: JDX=:Locate 6,4,U: JDY=:Locate 6,4,VFWJ=:GDMSZJ=
7、：PDMSLS1=: Locate 6,4,H: LS2=: Locate 6,4,N: T1=: Locate 6,4,T: T2=: Locate 6,4,FR=:R说明：运行后“QKM”？输入起点桩号；“XQ”？ “YQ”？输入起点X、Y坐标；“LS1”？ “LS2”？输入前段缓和曲线长度，后段缓和曲线长度；“A1”？ “A2”？输入前段缓和曲线参数，后段缓和曲线参数；“FWJ“？输入起点切线方位角；”ZJ“？输入转角（终点方位角减起点方位角之差，左转为负，右转为正）；计算结果要素同QX子程序中要素字母。坐标计算以交点方式计算，一般情况下一个交点计算一段线是：直线+缓和曲线+圆曲线+缓和
8、曲线+直线。在匝道中先根据实际线来调整，可以单独计算一段不完整的缓和曲线+圆曲线。也可以单独计算一段（不完整）缓和曲线+一段圆曲线+一段（不完整）缓和曲线，需先运行T程序整理成一段缓和曲线+一段圆曲线+一段缓和曲线的交点数据。无缓和曲线时，缓和长度输0。根据（10-6）和（10-9b）两个公式，计算出完整曲线的方位角及转角值，然后运行T程序整理成一段缓和曲线+一段圆曲线+一段缓和曲线的交点数据。-1程序名：X1（线路1和线路2坐标计算要素程序，）Z4=0=Return:Z4=1=Goto 1:Z4=2=Goto 2:LbI 1:If Z241.086:Then -336.478+60iR:26
9、00441.639+514392.519iU:280。2028.78”+203。0828.32”iG:106.667+81.667iH:-270.668-283.056iT: ProgF:Return:IfEndLbI 2:If Z273.006:Then 171.674+180iR:2600784.547+514635.863iU:58。4917.2”+68。0926.91iG:93.889+125iH:171.674+184.771iT:ProgF: Return:IfEndIf Z466.227:Then 341.96+445iR:2600664.76+514799.865iU:123。
10、4325.9”+15。5849.5”iG:138.211iH:68.954+125.273iT:Prog”F”:Return:IfEnd程序字母说明：1、If Z计算交点段终点桩号(或者直线段任意桩号)：Then 交点桩号+圆半径iR:交点X坐标+交点Y坐标iU:起点至交点方位角+交点转角iG:交点前段缓和曲线长度+交点后段缓和曲线长度iH:交点前段切线长度+交点后段切线长度iT: Prog”F”: Return: IfEnd（转角则为交点段终点方位角减起点方位角，分正负，左偏为负，右偏为正）如整条线无曲线，全为直线段，则交点为终点桩号，XY为终点坐标，方位角为起点方位角，转角和圆半径为1，其
11、它全为0。-1程序名：S1(线路1和线路2高程竖曲线要素子程序)Z4=1=Goto 1:Z4=2=Goto 2: LbI 1:If Z241.09:Then 2000R：95.356+40.742iC:-3.155+.812iI: Return:IfEnd:LbI 2:If Z133.601:Then 1525R:106+45.12iC:-.64+2.98iI:Return:IfEnd:If Z466.23:Then 1945R:298+50.841iC:2.98-1.968iI:Return:IfEnd:程序字母说明：R-竖曲线半径:C-竖曲线交点桩号+交点桩号高程i（未竖曲线调整的）；I竖
12、曲线前纵坡+竖曲线后纵坡i-1程序名：I1（线路1和线路2高程超高参数子程序）0K:1W: Z4=1=Goto 1:Z4=2=Goto 2:LbI 1:If Z159.419:Then 0S:6-6iM: Return:IfEnd:If Z187.987:Then 28.568+28.568iS:159.419C:6-6iM:2-2iN: Return:IfEnd:If Z241.086:Then 0S:2-2iM: Return:IfEnd:LbI 2:If Z77.872:Then 0S:2-2iM:Return:IfEnd:If Z93.889:Then 16.017+16.017iS:
13、77.872C:2-2iM:5-5iN:Return:IfEnd:If Z198.567:Then 0S: 5-5iM:Return:IfEnd: If Z273.006:Then 74.439S:198.567C:5-5iM:2-2iN:Return:IfEnd:If Z335:Then 0S:2-2iM:Return:IfEnd: If Z346.235:Then 11.235+11.235iS:335C:2-2iM:1.5-1.5iN:Return:IfEnd子程序中字母表示说明：K中央分隔带半幅宽（中桩标高至中桩中线距离，无分隔带则为0）；W超高方式参数（W=1为一般直线方式超高，W=
14、2为三次抛物线方式超高）;S超高渐变段左距离+右距离i（不是渐变段则输入0）；C-超高渐变段起点桩号（不是渐变段，无需输入）；M超高段起点左横坡+右横坡i，N-超高渐变段终点左横坡+右横坡i（不是渐变段，无需输入）。-1程序名：G1(线路1和线路2路基标准半幅宽度参数子程序)Z4=1=Goto 1:Z4=2=Goto 2：LbI 1:If Z40.857:Then 40.857iS:0C:3.5+5iA:5.25iB: Return:IfEnd:If Z159.419:Then 0S:3.5+5.25iA:Return:IfEnd: If Z187.987:Then 28.568iS:159.
15、419C:3.5+5.25iA:5.5iB: Return:IfEnd:If Z241.086:Then 0S:3.5+5.5iA:Return:IfEnd:LbI 2: If Z321.611:Then 0S:3.5+5iA:Return:IfEnd:If Z346.235:Then 24.624iS:321.611C:3.5+5iA:5.75iB: Return:IfEnd:If Z466.227:Then 0S:3.5+5.75iA:Return:IfEnd子程序中字母表示说明：C宽度渐变段起点桩号（不是渐变段不输）；A宽度渐变段起点左侧宽度+右侧宽度i; B宽度渐变段终点左侧宽度+右侧
16、宽度i（不是渐变段，无需输入）；S-宽度渐变段左侧距离+右侧距离i（不是渐变段输0）。-1程序名：SD1(隧道1和隧道2参数子程序)If Z4=1:Then 5I:1.4V:12+19。16iZ16:1.4+51。4218”iZ17:5.1+218。3iZ18: 1.4+51。4218”iZ19:12+19。16iZ20:Return:IfEnd:If Z4=2:Then 5+2.2iI:3.825V:4.355Z16:4.355-251。1846”iZ17: 6.07+217。2228”iZ18:4.355-108。4114”Z19:4.355-180iZ20:Return:IfEnd: (
17、成万快速公路)If Z4=3:Then 7I:1.5V:15+18。1548”iZ16:1+61。4744”iZ17:8.5+9。5628”iZ18: 5.5+180。0000”iZ19: 8.5+9。5628”iZ20: 1+61。4744”iZ21 ： 15+18。1548”iZ22:Return:IfEnd:子程序中字母表示说明：I隧道开挖面里圆心个数和直线段共个数+隧道中线距设计路中线距离（右正左负）i；V路中线标高至设计隧道中线底高差+底部圆心水平偏移距离（向左偏为负，向右偏为正）；Z16Z16+I-隧道中线型数据，直线段为：长度-起点方位角；圆曲线段为：圆半径+偏角（即圆心夹角）.
18、 -1程序名：W1(线路1和线路2路基填挖边坡参数子程序)W1（原挖方、填方数据库，修改成填方四级，挖方不限级，本例子中填方给三级，程序第四级为三级坡，挖方为五级）说明：W1数据程序中前面各子母意义：填方一级坡比+一级高度iA:填方二级坡比+二级高度iE:填方三级坡比+三级高度iM:填方二级平台宽度+三级平台宽度iC:挖方一级平台及水沟共宽度+二级以上平台宽度iR:挖方最大坡级数I:4=1=Goto 1:Z4=2=Goto 2：LbI 1: If D? 计算自动加桩号值。、 显示部分。X0、Y0-该桩号中桩坐标，ZFWJ-该桩号切线方位角；H0、I0-分别分计算桩号中桩设计高程和此段路基纵坡；
19、LGD、RGD-分别为计算桩号左侧设计路基宽度和右侧设计路基宽度；HL、IL-分别为计算桩号左侧至路肩边设计标高和左侧横坡；HR、IR-分别为计算桩号右侧至路肩边设计标高和右侧横坡2、程序名：1DAO XIAN 说明：ZJ.(X+Yi) ？ 输入 置仪点坐标 16902.6164+63649.7531iHS.(X+Yi) ？ 输入后视点坐标 16773.5202+63756.1403iHS.S= 显示后视距离 167.284HS. 显示后视方位角 140-30-29.97LJ? 输入导线左角（顺拨角） 227-26-15.9QS. 显示待求点方位角 7-56-45.87S? 输入待求点至测站点边长 86.269QSZB= 显示待求点坐标 16988.0571+63661.679iLXTSZB(LX0) 连续推算坐标时输入1，否则输入0刚重新输入置仪点坐标。3、程序名：1SC-4说明：对照以下四等水准记录表：开始“HX=”？输入后视水准点高程，“K：4787=1，4687=2”？输入选择后视尺寸编号。“S-X”？输入下丝读数，读不到输0，“S-S”？输入上丝读数，同理读不到数输0，如上下丝有一个输0了。则调出“H-Z”？输入中丝值，如上下丝没有一个输0，则结果显示“SL=”为后视距离，同时显示出中丝应读数，