计算器公路测量程序设计会员收费版

1、FX5800计算器测量程序集2.4 版可以根据自己标段情况用相关主程序及子程序，再在0程序中汇总1XY、A、AB、HX、JS、DX、QX、F、XY、X1)；2ZD、A、B、AB、HX、QX、F、ZD、X1)3GC、H、I、QX、S1、I1（4GD、C、QX、G1）5BP、A、B、AB、HX、H、I、C、JS、DX、QX、F、ZD、X1、S1、I1、G1、W1）6FM、A、AB、HX、H、I、JS、DX、QX、F、XY、X1、S1、I1)7ZP、A、AB、HX、C、JS、DX、QX、F、XY、X1、G1)8JS、JS、DSA、B、AB、HX、H、I、QX、S、SD、F、ZD、X1、S1、I1、S

2、D1）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：WhileEnd: While Z3=21:Prog4GD：WhileEnd: While Z3=22:Prog5BP：WhileEnd: While Z3=23:Prog6FM：WhileEnd: While Z

3、3=31:Prog7ZP：WhileEnd: While Z3=32:Prog8JS：WhileEnd: While Z3=33:Prog9SD：WhileEnd:LpWhile Z325:”XIE XIE SHI YONG”:0011SC1XY2XY-S2ZD、3GC、4GD、5BP、6FM、7ZP、8JS、9SD、A、AB、B、B6B7B8B9C、DX、DX0、F、G1、H、HX、I、I1、JS、MQX、S、S1、SD0、SD1、T、W1、X1、XY、XYHZD程序内容无电子版。全在计算中，本人出售单机卡西欧计算器5800，或者带2.4程序计算器(凡购买带程序计算器者即为会员，享有以后所有

4、版本的使用)详情凳陆淘宝网店：（或加QQ详谈，加QQ注明:淘宝。以下子程序除T程序外，其余子程序根据自己标段设计数据修改)TNorm 2: QKM？Z：XQ？U：YQ？V：LS1？M：LS2？O：A1？A：A2？B：FWJ？G：ZJ？P：？R：P÷Abs(PQ:A2÷RH:H<M=>MH:H-MS:B2÷RN:N-OC:O>N=>ON:H=0=>×10-9H:HX:90S2÷(RHK:G-QKG:N=0=>×10-9N: 90C2÷(RND:P+QK+QDP:ProgAB:Abs(PE:(

5、R+C)tan(E÷2)-(C-A)÷sin(E)+DT:(R+A)tan(E÷2)-(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=：PDMSLS1=: Locate 6,4,H: LS2=: Locate 6,4,N: T1=: Locate 6,4,T: T2=: Locate 6,4,FR=

6、:R以下全为数据子程序，根据自己标段设计数据修改部分数据。X1Z4=0=Return:Z4=1=Goto 1:Z4=2=Goto 2:LbI 1:If Z:Then iR:iU:iG:iH:iT: ProgF:Return:IfEndLbI 2:If Z:Then iR:iU:iG:iH:iT:ProgF: Return:IfEndIf Z:Then iR:iU:iG:iH:iT:Prog”F”:Return:IfEndZ4=0=Return:Z4=1=Goto 1:Z4=2=Goto 2:LbI 1:If Z:Then 0OU:5144063.566V:299。4339”G:40.857H:

7、97.25P: 60R:1Q:Return:IfEndIf Z:Then 40.857OU:514034.668V:331。1615.1”G:118.562H:60P: 60R:1Q:Return:IfEndIf Z:Then 159.419OU:514081.521V:84。2922.4”G:81.667H:60P: 1×1045R:1Q:Return:IfEndLbI 2: If Z:Then 0OU:514488.986V:58。4917.2”G:93.889H: 1×1045P:180R:1Q:Return:IfEndIf Z:Then 93.889OU:51457

8、2.974V:73。4551.6”G:104.678H: 180P:180R:1Q:Return:IfEndIf Z:Then 198.567OU:514676.181V:107。54.3”G:74.439H: 180P:445R:1Q:Return:IfEnd程序字母说明：O-线元起点桩号；U-起点X坐标；V-起点Y坐标；G-线元起点桩号切线方位角; 线元长度，线元起点曲率半径，线元终点曲率半径,Q线元判别(以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0)。RUGH:TS1Z4=1=Goto 1:Z4=2=Goto

9、2: LbI 1:If Z:Then R：iC:iI: Return:IfEnd:LbI 2:If Z:Then R:iC:iI:Return:IfEnd:If Z:Then R:iC:iI:Return:IfEnd:I10K:1W: Z4=1=Goto 1:Z4=2=Goto 2:LbI 1:If Z:Then S:iM: Return:IfEnd:If Z:Then iS:C:iM:iN: Return:IfEnd:If Z:Then S:iM: Return:IfEnd:LbI 2:If Z77.872:Then 0S:2-2iM:Return:IfEnd:If Z93.889:Then

10、 16.017+16.017iS: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:iN:Return:IfEndG1Z4=1=Goto 1:Z4=2=Goto 2：LbI 1:If Z40.857:Then 40.857i

11、S: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.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:

12、If Z466.227:Then 0S:3.5+5.75iA:Return:IfEndSD1If 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:V路中线标高至设计隧道中线底高差+底部圆心水

13、平偏移距离（向左偏为负，向右偏为正）W110E:10F:2.6M:2N:2U:1.5I:1.75J:8W:2V:Z4=1=Goto 1:Z4=2=Goto 2：LbI 1: If D<0:Then Goto L:Else Goto R:IfEnd:LbI L:1A:1.25B:1.25C:Return:LbI R:If Z110:Then 1.25A:1.25B:1.5C: Return:Else Goto L: IfEndLbI 2:If D<0:Then Goto L:Else Goto R:IfEnd:LbI L:0.75A:0.75B:0.75C:Return:LbI R:

14、If Z445:Then Goto L:Else If Z506.9:Then 0.25×(Z-445)÷21.2Q:.75+QA:AB:AC:Return:IfEnd×10-9 ×1045 =-336.478+60i中i是复数中虚数符号,在计算器从上向下第三排键，第一个。0.65m.XY-S0Q:Norm 2:1I:?N:X1?X：Y1?Y：XA：YB:XE:YF:Do:“XN?X：YN?Y：Q+(XF-YE)÷2Q:XE:YF:I+1I:Lpwhile IN：Q+(AF-BE)÷2S:MIAN JI= ：Abs(S) 计算器总体运

15、行及结果说明输入桩号和距离：输入100-25i(桩号100，左侧25m)EXE结果显示：H-计算高程，I-横坡EXE再次输入桩号：输240（中桩后面不用输结果显示：H计算面高程序，I-路基纵坡EXE输入桩号：输入240（只需输入桩号就可以）EXE结果显示：LGD-左幅宽度；RGD-右幅宽度EXE选择线路后输入填方放宽值：输入0.5(默认为0.5就按EXE就行，如不加宽就输0)EXE输入大概桩号：输入50（第一次放样输入）EXE输入测量坐标：2600569.371+514066.027i EXE输入测量地面标高：输入64.95 EXE结果显示：LX值为平移值，负值为从中桩向边桩外移，正值为从边向

16、中平移。KM-测量点桩号，D值测量点距中桩距离。TW-填挖值。第一个值为地面标高至设计标高的高度，第二个值为已考虑了路面结构层厚度0.9m（一般所说的至96区顶高）,在5BP放样程序中最后，值负为挖方，正为填方。前面同理输入测站坐标-EXE选择线路1-EXEKM=为输入渐变放样距离，如输入20（后面桩号都会自动加上20m）EXE输入桩号及距中距离EXE显示放样点坐标、测站点至放样点方位角值及距离EXE放样完后，测量地面标高，输入计算，输入45.32EXE显示TW值，为填挖值，已扣路面结构层厚度（程序默认为0.9）同时后面桩号相对上桩号加上20m前面同理输入测站坐标 EXE选择线路 EXEZKM

17、+-Mdi?为输入锥顶桩号及锥坡路基边侧地面标高（标高为输入正负，正为右侧锥坡，负为左侧锥坡）如：输入桩号为120，左侧的锥坡地面标高：28.6MR?输入锥前地面标高，即靠桥台前标高（正值）,+放宽值（默认放宽0.5m）EXES0:SZH+,DZH-?显示出放样边长最大值，及输入放样值，小桩号台锥坡输入正值，大桩号台锥坡输入负值，（小大桩号台，如一桥三跨，0#台就为小桩号台，3#台就为大桩号台）输入8 EXE显示结果值同前面1主程序6主程序值结果意思。放样完，输入测量地面标高 EXE计算出填挖值，同时进行下个边长放样，（边长是以锥桩号向前或向后的路线方向的长度）开始选择隧道线路号（或左线、右线

18、）此程序假定C线为左侧隧道，I线为右侧隧道）CQHD？输入衬砌厚度（程序做的内净空值）如输入0.65m输入大概桩号：（第一次放样输入，如输入50EXE输入隧道内测量的坐标值，EXE输入隧道内测量的实测标高值。如输入47.645 EXE结果显示：LX-为超欠挖值，正值为超挖，负值为欠挖。KM-D-为测量点桩号距离，H0-为测量点至隧道路面顶高度EXE再次输入测量坐标进行下次超欠挖值计算。以下为01程序此为附的一套测量资料程序，做的为广东省施工检表6-9表。现以计算表6示例：选择按住数子1输入计算允许最小和最大误差单位为mm,如输入：5-5i.则为正负5mmEXE选择计算的的线路号输入桩号及距中桩

19、距离（如输入180则为桩号180的中桩）X、Y为设计坐标、XO、YO则为在允许偏差范围内自动生成的坐标。EXE0X、0Y-值为XY差值，单位为mm,0XY为偏差标准差。EXE以下附表：平面位置检查记录表施检表（6） 编号： 第 页 共 页项目名称广州至河源高速公路惠州段施工单位广州市公路工程公司合同段第11合同段桩号或范围监理单位广东翔飞公路工程监理有限公司公路等级高速桩号设 计 值实 测 值偏 差备 注XYXYxyX2+Y2自检意见监理意见测量计算复核技术主办项目主管测量日期施工放线测量记录表施检表（7） 编号： 第 页 共 页 项目名称广州至河源高速公路惠州段施工单位广州市公路工程公司监理单位广东翔飞公路工程监理有限公司合同段第11合同段公路等级高速测点范围仪器型号GTS-322W测点或桩号设计坐标实测坐标计算距离（m）计算