当前位置:文档之家› Fx5800计算器公路测量程序设计

Fx5800计算器公路测量程序设计

FX5800计算器测量程序集版一、程序功能主要功能:采用交点法方式计算多条线路坐标正反算,可算任意复杂线型及立交匝道,包括C型,S型、卵型、回头曲线等;极坐标放样,全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。

新版本优化:1、优化程序语句、2、以复数形式输入变量及做数据库,取消原矩阵数据库;3、修改隧道超欠挖程序为通用形,不受圆心个数限制、4、新增测量资料表计算二、源程序(绿色为程序名;蓝色为输入计算器内容)紫色为新版改动处(可以根据自己标段情况用相关主程序及子程序,再在0程序中汇总)0.汇总程序(1、坐标计算放样程序(1XY、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、DS);9、隧道超欠挖计算程序(A、B、AB、HX、H、I、QX、S、SD、F、ZD、X1、S1、I1、SD1)运行后按1~9数子约半秒,则选择1至9的程序,返回时,在桩号输入-1,返回选择计算类型。

输入-2,返回选择线路。

程序名:0(数子0)ClrMat:ClrVar:12→DimZ: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":Getkey→Z[3]:While Z[3]=35:Prog"1XY":WhileEnd:While Z[3]=36:Prog"2ZD":WhileEnd: While Z[3]=37:Prog"3GC":WhileEnd: While Z[3]=21:Prog"4GD":WhileEnd: While Z[3]=22:Prog"5BP":WhileEnd: While Z[3]=23:Prog"6FM":WhileEnd: While Z[3]=31:Prog"7ZP":WhileEnd: While Z[3]=32:Prog"8JS":WhileEnd: While Z[3]=33:Prog"9SD":WhileEnd:LpWhile Z[3]≠25:”XIE XIE SHI YONG”:计算内程序排例:0、01(测量资料专用)、1SC(水准测量用)、1XY、2XY-S(由坐标计算面积)、2ZD、3GC、4GD、5BP、6FM、7ZP、8JS、9S D、A、AB、B、B6(测量表格检表6)、B7(检表7)、B8(检表8)、B 9(检表9)、C、DX、DX0、F、G1、H、HX、I、I1、JS、M(度分秒转十进制)、QX、S、S1、SD0、SD1、T、W1、X1、XY、XYH(五点通线元法计算坐标)、ZD程序内容无电子版。

全在计算中,本人出售单机卡西欧计算器5800,或者带程序计算器(凡购买带程序计算器者即为会员,享有以后所有版本的使用)详情凳陆淘宝网店:(或加QQ详谈,加QQ注明:淘宝。

23.数据子程序(以下子程序除T程序外,其余子程序根据自己标段设计数据修改)带有不完整缓和曲线的线元转交点数据程序(T)。

只为转交交点的辅助程序,不参入任何主程序中运行。

程序名:TNorm 2: "QKM"Z:"XQ"U:"YQ"V:"LS1"M:"LS2"O:"A1"A:"A2"B:"FWJ"G:"ZJ"P:R:P÷Abs(P→Q:A2÷R→H:H<M=>M→H:H-M→S:B2÷R→N:N-O→C:O>N=>O→N:H=0=>×10-9→H:H→X:90S2÷(RHΠ→K:G-QK→G:N=0=>×10-9→N: 90C2÷(RNΠ→D:P+QK+QD→P:Prog"AB":Abs(P→E:(R+C)tan(E÷2)-(C-A)÷sin(E)+D→T:(R+A)tan(E÷2)-(C-A)÷sin(E)+B→F:X→H:Z-S+T→O:Prog"HX":U-(A-T)cos (G)+QBsin(G→U:V-(A-T)sin(G)-QBcos(G→V:Fix 3: "JDKM=":Locate 6,4,O: "JDX=":Locate 6,4,U: "JDY=":Locate 6,4,V◢"FWJ =":G►DMS◢"ZJ=":P►DMS◢"LS1=": Locate 6,4,H: "LS2=":Locate 6,4,N: "T1=": Locate 6,4,T: "T2=": Locate 6,4,F◢"R=":R◢说明:运行后“QKM”输入起点桩号;“XQ”“YQ”输入起点X、Y坐标;“LS1”“LS2”输入前段缓和曲线长度,后段缓和曲线长度;“A1”“A2”输入前段缓和曲线参数,后段缓和曲线参数;“FWJ“输入起点切线方位角;”ZJ“输入转角(终点方位角减起点方位角之差,左转为负,右转为正);计算结果要素同QX子程序中要素字母。

以下全为数据子程序,根据自己标段设计数据修改黑色部分数据。

①-1程序名:X1(线路1和线路2坐标计算要素程序,)Z[4]=0=>Return:Z[4]=1=>Goto 1:Z[4]=2=>Goto 2:LbI 1:If Z≤:Then +60i→R:+→U:280。

20’28.78”+203。

08’28.32”i→G:+→H: Prog"F":Return:IfEndLbI 2:If Z≤:Then +180i→R:+→U:58。

49’17.2”+68。

09’"i→G:+ 125i→H:+→T:Prog"F": Return:IfEndIf Z≤:Then +445i→R:+→U:123。

43’25.9”+15。

58’49.5”i→G:→H:+→T:Prog”F”:Return:IfEnd说明:1、If Z≤计算交点段终点桩号(或者直线段任意桩号):Then 交点桩号+圆半径i→R:交点X坐标+交点Y坐标i→U:起点至交点方位角+交点转角i→G:交点前段缓和曲线长度+交点后段缓和曲线长度i→H:交点前段切线长度+交点后段切线长度i→T: Prog”F”: Return: IfEnd (转角则为交点段终点方位角减起点方位角,分正负,左偏为负,右偏为正)如整条线无曲线,全为直线段,则交点为终点桩号,XY为终点坐标,方位角为起点方位角,转角和圆半径为1,其它全为0。

②-1程序名:S1(线路1和线路2高程竖曲线要素子程序)Z[4]=1=>Goto 1:Z[4]=2=>Goto 2:LbI 1:If Z≤:Then 2000→R:+→C:+.812i→I: Return:IfEnd:LbI 2:If Z≤:Then 1525→R:106+→C:+→I:Return:IfEnd:If Z≤:Th en 1945→R:298+→C:程序字母说明:R-竖曲线半径:C-竖曲线交点桩号+交点桩号高程i(未竖曲线调整的);I-竖曲线前纵坡+竖曲线后纵坡i③-1程序名:I1(线路1和线路2高程超高参数子程序)0→K:1→W: Z[4]=1=>Goto 1:Z[4]=2=>Goto 2:LbI 1:If Z≤:Then 0→S:6-6i→M: Return:IfEnd:If Z≤:Then +→S:→C:6-6i→M:2-2i→N: Return:IfEnd:If Z≤:The n 0→S:2-2i→M: Return:IfEnd:LbI 2:If Z≤:Then 0→S:2-2i→M:Return:IfEnd:If Z≤:Then +→S:→C:2-2i→M:5-5i→N:Return:IfEnd:If Z≤:Then 0→S: 5-5i→M:Return:IfEnd: If Z≤:Then →S:→C:5-5i→M:2-2i →N:Return:IfEnd:If Z≤335:Then 0→S:2-2i→M:Return:IfEnd: If Z≤:Then +→S:335→C:2-2i→M:子程序中字母表示说明:K-中央分隔带半幅宽(中桩标高至中桩中线距离,无分隔带则为0);W-超高方式参数(W=1为一般直线方式超高,W=2为三次抛物线方式超高);S-超高渐变段左距离+右距离i(不是渐变段则输入0);C-超高渐变段起点桩号(不是渐变段,无需输入);M-超高段起点左横坡+右横坡i,N-超高渐变段终点左横坡+右横坡i(不是渐变段,无需输入)。

④-1程序名:G1(线路1和线路2路基标准半幅宽度参数子程序)Z[4]=1=>Goto 1:Z[4]=2=>Goto 2:LbI 1:If Z≤:Then →S:0→C:+5i→A:→B: Return:IfEnd:If Z≤:Th en 0→S:+→A:Return:IfEnd: If Z≤:Then →S:→C:+→A:→B: Retu rn:IfEnd:If Z≤:Then 0→S:+→A:Return:IfEnd:LbI 2: If Z≤:Then 0→S:+5i→A:Return:IfEnd:If Z≤:Then →S:→C:+5i→A:→B: Return:IfEnd:If Z≤:Then 0→S:+→A:Return:IfE nd子程序中字母表示说明:C-宽度渐变段起点桩号(不是渐变段不输);A-宽度渐变段起点左侧宽度+右侧宽度i; B-宽度渐变段终点左侧宽度+右侧宽度i(不是渐变段,无需输入);S-宽度渐变段左侧距离+右侧距离i(不是渐变段输0)。

⑤-1程序名:SD1(隧道1和隧道2参数子程序)If Z[4]=1:Then 5→I:→Z[15]:12+19。

16’i→Z[16]:+51。

42’18”i→Z[17]:+218。

3’i→Z[18]: +51。

42’18”i→Z[19]:12+19。

16’i→Z[20]: Return:IfEnd:If Z[4]=2:Then 5+→I:→Z[15]:→Z[16]:。

18’46”i→Z[17]: +217。

2 2’28”i→Z[18]:→Z[19]:→Z[20]:Return:IfEnd:子程序中字母表示说明:I-隧道开挖面里圆心个数和直线段共个数+隧道中线距设计路中线距离(右正左负)i;Z[15]-路中线标高至设计隧道底高差(正值);Z[1 6]-Z[16+I]-隧道中线型数据,直线段为:长度-起点方位角;圆曲线段为:圆半径+偏角(即圆心夹角).⑥-1程序名:W1(线路1和线路2路基填挖边坡参数子程序)10→E:10→F:→M:2→N:2→U:→I:→J:8→W:2→V:Z[4]=1=>Goto 1:Z[4]=2=>Goto 2:LbI 1: If D<0:Then Goto L:Else Goto R:IfEnd:LbI L:1→A:→B:→C:Return:LbI R:If Z≤110:Then →A:→B:→C: Return:Else Goto L: IfEndLbI 2:If D<0:Then Goto L:Else Goto R:IfEnd:LbI L:→A:→B:→C: Return:LbI R:If Z≤445:Then Goto L:Else If Z≤:Then ×(Z-445)÷→Q:.75+Q→A:A→B:A→C:Return:IfEnd子程序中字母表示说明:A-挖方第一阶边坡边率;B-挖方第二阶边坡边率;C-挖方第三阶边坡边率;E-挖方第一阶高度;F-挖方第二阶高度;M-挖方路基碎落台及水沟宽度;N-挖方第二台阶平台宽度;S-挖方第三台阶平台宽度;I-填方第一阶边坡边率;J-填方第二阶边坡边率; W-填方第一阶高度;V-填方第二台阶平台宽度。

相关主题