FX5800P计算器 隧道测量超欠挖计算程序

合集下载

FX5800P计算器 正反算、隧道超欠挖计算程序

FX5800P计算器 正反算、隧道超欠挖计算程序

(以下程序是专业人士编写,本店铺不对程序负责,仅供您参考使用。

)卡西欧FX-5800p计算器正反算、隧道超欠挖计算程序正算主程序 (ZS) :Lb1 0 : FIX 4 : ? S : ?Z :Prog “ PM-SJ ” : Abs(S-O) → W : Prog "SUB1" : "XS= " :X ◢ "YS= " :Y ◢ F-90 → F ( 需要时可以让他显示,不要时不必输入 ) :Pro g“SQX-SJ”: Prog “ SQX ” :“ H= ” :H ◢- Goto 0反算主程序 (FS)Lb1 0 : FIX4: ? S : ? X :? Y :Prog “PM-SJ” :X→ I :Y→ J :Prog "SUB2" : "S= " :O+W→S ◢ "Z= " :Z ◢Prog “SQX-SJ” :Prog “ SQX ” :“ H= ” :H ◢ Goto 0隧道 3 心圆放样主程序( SD-3XY )Lb1 0 :Prog “ FS ” : 1.5 → A : 1.65 → B :0.89→ G: 2.27 → C : 3.3 → D : 2.41 → E :0.51 → J :“H1” : F :ifF≤ H+ A :then E-AbsZ → W : IfEn d : ifF >H+A And F ≤ H+A+ B :then√ ( D&sup2;- ( F-H-A ) &sup2; ) -G-AbsZ → W : IfEn d : ifF > H+A+ B :then√ ( C&sup2;- ( F-H-A-J ) &sup2; ) -AbsZ → W : IfEn d :“W=” :W◢ (水平方向的超欠挖:正为欠 , 负为超) Goto0正算子程序 (SUB1)1÷P → C : (P-R)÷(2HPR) → D :180÷π → E :0.1739274226 → A :0.3260725774 → 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+QEFW(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+ZcosF → X : Y+ZsinF → Y 反算子程序 (SUB2)G-90 → T : Abs((Y-V)cosT-(X-U)sin ( T )) → W :0 → Z : Lbl 0 :Prog "SUB1" :T+QEW(C+WD) → L : (J-Y)cosL-(I-X)sinL → Z : ifAbsZ<1E- 6 : thenGoto1 :ElssW+Z → W : Goto 0 : IfEndLbl 1 :0 → Z : Prog "SUB1" : (J-Y)÷sinF → Z 子程序(平面线形数据库) PM-SJifS ≥ 500 (线元起点里程) AndS < 769.256 (线元止点里程):Then19942.837 → U (线元起点 X 坐标): 28343.561 → V (线元起点 Y 坐标):500 → O (线元起点里程):125 ° 16 ° 31 ° → G (线元起点方位角):269.265 → H (线元长度): 10^ ( 45 )→ P (线元起点曲率半径): 10^ ( 45 )→ R (线元终点曲率半径):0 → Q (线元左右偏标志:左负右正): IfEndifS ≥ 769.256 (线元起点里程) AndS < 806.748 (线元止点里程):Then19787.34 → U (线元起点 X 坐标): 28563.378 → V (线元起点 Y 坐标):769.256 → O (线元起点里程):125 ° 16 ° 31 ° → G (线元起点方位角):37.492 → H (线元长度): 10^ ( 45 )→ P (线元起点曲率半径):221.75 → R (线元终点曲率半径): -1 → Q (线元左右偏标志:左负右正): IfEndifS ≥ 806.748 (线元起点里程) AndS < 919.527 (线元止点里程):Then19766.566 → U (线元起点 X 坐标):28594.574 → V (线元起点 Y 坐标):806.748 → O (线元起点里程):120 ° 25 ° 54.07 ° → G (线元起点方位角):112.779 → H (线元长度):221.75 → P (线元起点曲率半径):221.75 → R (线元终点曲率半径): -1 → Q (线元左右偏标志:左负右正): IfEndifS ≥ 919.527 (线元起点里程) AndS < 999.812 (线元止点里程):Then19736.072 → U (线元起点 X 坐标):28701.893 → V (线元起点 Y 坐标):919.527 → O (线元起点里程):91 ° 17 ° 30.63 ° → G (线元起点方位角):80.285 → H (线元长度):221.75 → P (线元起点曲率半径):9579.228 → R (线元终点曲率半径): -1 → Q (线元左右偏标志:左负右正): IfEndifS ≥ 999.812 (线元起点里程):Then19744.038 → U (线元起点 X 坐标):28781.659 → V (线元起点 Y 坐标):999.812 → O (线元起点里程):80 ° 40 ° 50 ° → G (线元起点方位角):100 → H (线元长度): 10^ ( 45 )→ P (线元起点曲率半径): 10^ ( 45 )→ R (线元终点曲率半径):0 → Q (线元左右偏标志:左负右正): IfEnd子程序(竖曲线数据库) SQX-SJifS ≤ 999.812 (竖曲线终点里程): then0.0357 (前坡度:上坡正下坡负)→ E : 0.0227 (后坡度:上坡正下坡负)→ F :600 → R (竖曲线半径):780 → G (变坡点里程):110 → C (变坡点高程): IfEnd子程序(竖曲线计算公式) SQXE-F → J : ifJ > 0 : then-R → R :ElssR→ R : Abs (R*J÷2 )→ T : IfEndifS ≤ G- T : thenG-S → L : C-LE → H : IfEndifS > G- T And S ≤G : thenG-S → L :( S+T-G )&sup2;÷2÷R →N :C-LE+N → H : IfEndifS >G And S ≤ G+ T : then S-G → L :( G +T- S )&sup2;÷2÷R →N :C+LF+N → H : IfEndifS > G+ T : thenS-G → L :C+LF → H : IfEnd使用说明(1) 以道路中线的前进方向(即里程增大的方向)区分左右;当线元往左偏时,Q=-1 ;当线元往右偏时, Q=1 ;当线元为直线时, Q=0 。

5800隧道超欠挖程序(新版本)

5800隧道超欠挖程序(新版本)

隧道超欠挖5800计算程序ZBFS(坐标反算通用版《老版本》?N:?E:?A:?R:?C:?T:?G:?M:?FLbl 0:?X:?Y:If G → P:Else -1 → P:IfEndIf P=1:Then F→U:Else P=-1: Then F+A→U:IfEndIf A>0:Then 1→Z:Else -1→Z:IfEndPol(X-N,Y-E:If G>M:Then Goto 3:IfEndG+PT+Rec(I,J-U→S:J→DIf S G:Then "K=":S→K◢"Q=":ZD=Q◢Goto 9Else Goto 4:IfEndLbl 3:If S G:Then "K=":S→K◢"Q=":ZD→Q◢Goto 9Lbl 4:C2÷24÷R-C∧(4÷2688÷R∧(3→W:C÷2-C∧(3÷240÷R2→V:90C÷π÷R→B:Pol(P(S-G-V,ZD-R-W:If J B-90:Then Goto 5:IfEndP(S-G+P(S-G∧(5÷40÷R2÷C2→Z:Z∧(3÷(6RC→H:If A>0:Then D-H→W:Else –D-H→W:IfEndIf RC2WC:Then RC÷W→Z:Else ((RC-(R2C2-2RCWZ÷W→Z:Ifend"K=":G+PZ→K◢K-PZ∧(5÷(40R2C2→V:Z∧(3÷(6RC→H:If A<0:Then -1→Z:Else1→Z:IfEnd((S-V2+(ZD-H2→W:If ZD H:Then "Q=":W→Q◢Else "Q=":-W→Q◢IfEndGoto 9Lbl 5(90+Jπ÷180-C÷(2R→J:If RJ P(M-G-2C: Then Goto 6:Ifend"K=":G+P(C+JR→K◢"Q=":R-I→Q◢Goto 9Lbl 6:Pol(P(S-G-T,ZD:M-P(T-Rec(I,J-Abs(A→O:If G>M:Then Goto 7:IfEndIf O>M:Then "k=":O→K◢"Q="J→Q◢Goto 9Else Goto 8Lbl 7:If O M:Then "K=":O→K◢"Q=":J→Q◢IfendGoto 9Lbl 8:P(M-O+P(M-O∧(5÷(40R2C2→Z:Z∧(3÷(6RC→H:J-H→W:If RC<2WZ:Then RC÷W→Z:Else((RC-((R2C2-2RCWZ÷W→Z:IfEnd"K=":M-PZ→K◢K-PZ∧(5÷(40R2C2→V:Z∧(3÷(6RC→H:((O-V2+(J-H2→W:If J H:Then"Q=":W→Q◢Else "Q=":-W→Q◢IfEndGoto 9Lbl 9:?Z:?S:"Q="357.957(变坡点高程)+(K-26966(里程)×0.02098(坡度)+S→O◢O-Z-S→B:"P=": ((5.3+Q2+B2-S→P◢Goto 0ZBZS(坐标正算通用版?D:?A:?R:?C:C2÷24÷R-C∧(4÷2688÷R∧(3→P:C÷2-C∧(3÷240÷R2→Q:90C÷π÷R→B(R+Ptan(Abs(A÷2+Q→T:(R+P÷cos(A÷2-R→J:(Abs(-A-(2BπR÷180+2C→L: "G":D-T→G◢"H":G+C→H◢G+L÷2→W: "Z":G+L-C→Z◢"M":G+L→M◢?N:?Z:?I:?F:If A<0:Then-1→S:Else 1→S:IfEndF+A÷2+90S→U:J+R→V: "B":N+Vcos(U→B: "O":E+Vsin(U→OLbl 1:?K:If K G:Then G+T-K→L:F+180→V:F→U:Goto 2:IfEndIf K H:Then K-G→L:L-L∧(5÷90÷(RC2→V:30SL2÷(πRC→L:F+180→P:F+L→Q:F+3L→U:Goto4:IfEndIf K Z:Then F+A÷2+180+90S+(K-W×180S÷(Rπ→L:L+90S→U:Goto 5:IfEndIf K M:Then M-K→L:L-L∧(5÷90÷(RC2→V:30SL2÷(πRC→L:F+A→P:F+A+180-L→Q:F+A-3L→U:Goto 4:IfEndIf K>M:Then K-M+T→L:F+A→V:V→U:Goto 2:IfEndLbl 2:"X=":N+Lcos(V→X◢"Y=":E+Lsin(V→Y◢Goto 6Lbl 3:?Q:"X=":X+Qcos(U+90→X◢"Y=":Y+Qsin(U+90→Y◢Goto 1Lbl 4:"X=":N+Tcos(P+Vcos(Q→X◢"Y=":E:+Tsin(P+Vsin(Q→Y◢Goto 6Lbl 5:"X=":B+Rcos(L→X◢"Y=":O+Rsin(L→Y◢Goto 6Lbl 6:I=1Goto 3◢Goto 1使用说明:反算说明:1、N:交点X坐标, E:交点Y坐标。

卡西欧fx5800p计算器隧道计算程序专版

卡西欧fx5800p计算器隧道计算程序专版

卡西欧fx5800p计算器隧道计算程序专版(以下程序是专业人士编写,本店铺不对程序负责,仅供您参考使用。

)卡西欧fx5800p计算器隧道计算程序专版(以下程序是专业人士编写,本店铺不对程序负责,仅供您参考使用。

)本版本是道路版的升级版,程序只改变了SHELL程序,从SHELL 中拆分出WORK-SET(工作设置程序),加入SDPY(隧道放样)。

FileName:RESET 初始化程序Norm 1:50→C:12345→J"RESET PW"?I:I=J=>500→DimZ为数据库增加额外变量500个,在SET、SETPFDYS程序根据实际再增减变量以保证不浪费存50→Z[C+22]:本程序设置变量个数目前50个刚刚够用。

"PASSWORDS"?I:I→Z[C+39]重设要素保护密码Cls:StopFileName:DATLOCK 要素保护密码确定认程序Cls:Norm 1:50→C"PASSWORDS"?J:Cls:J≠Z[C+39]=>StopFileName:SHELL(外壳程序)50→C ;在扩充变量预留前50个给别的程序用。

如不够就适量加大。

RESET,SHELL,SET,SETPFDYS,这几个程序中C值必需一致Norm 1Z[C+23]→N当前分段要素N坐标Z[C+24]→E当前分段要素E坐标Z[C+25]→M当前分段要素起点桩号Z[C+26]→H当前分段要素起点方位角(正北)单位:弧度Z[C+27]→A当前分段要素起点曲率有左偏负右偏正(注意不是半径)Z[C+28]→R当前分段要素终点曲率有左偏负右偏正(注意不是半径)Z[C+29]→L当前分段要素长度Z[C+3]→W斜桩角度Lbi SProg"PROGMODE" ;进入模式功能选择Lbi ADeg:Norm 1:ClsZ[C+1]→G:"ZH"?G ;桩求桩号If G=-1:Then Prog"WORK-SET":Goto S:IfEnd 进入工作设置G→Z[C+1]Z[C+2]→B:"JL"?B:B→Z[C+2];B横向距离,左正右负Lbi BProg "ZBJS" ;坐标正算Fix 3:Cls ;设置三位小数"ZH=":Locate 4,1,G;第一行显示桩号"X=":Locate 3,2,X ;第二行显示X(N)坐标"Y=":Locate 3,3,Y;第三行显示Y(E)坐标Prog "GCJS" ;高程计算"Z":Locate 2,4,Z+Z[C+41] ;第四行显示Z坐标Locate 10,4,B ;第四行显示横向距离0→IDo:I+1→I:I=1000=>Goto 1:LpWhile Not(Getkey=57 Or Getkey=27 Or G etkey=26) ;锁定键盘,并在几十秒后自动返回Getkey=57=> Goto 1If Getkey=26=> Prog "SDFY":Goto B:EndIfPol(Z[C+35]-X,Z[C+36]-Y)Cls:"DL":Locate 3,1,I:Locate 12,1,Z[C+45]"→":Locate 3,2,B:Locate 12,2,Z[C+49]"FWJ"J<0=>J+360→J:J◤DMS◢J→Z[C+46]I→Z[C+47]Goto 1FileName:SDFY 隧道放样ClsZ[C+2]→VZ[C+41]→DZ[C+43]→I:"DQD-Z"?I:I→Z[C+43]Z[C+42]→J:"R"?J:J→Z[C+42]Z[C+40]→K:"R-DL"?K:K→Z[C+40]Abs(V-K)→P√(P2+(I-Z-D)2)→U计算实际半径Fix 3:Cls ;设置三位小数"ZH=":Locate 4,1,G"R":Locate 2,2,ULocate 10,2,U-JIf I-Z-D-J>0 :Then I-Z-D-√(J2-P2)→P:0→OElse If P-J>0:Then P-√(J2-(I-Z-D)2)→O:0→PElse P-√(J2-(I-Z-D)2)→O:I-Z-D-√(J2-P2)→PIfEnd:IfEnd"H":Locate 2,3,OLocate 8,3,"V"Locate 9,3,PLocate 1,4,Z+DLocate 9,4,I0→TDo:T+1→T:T=1000=>Return:Lp While Not(Getkey=57 Or Getkey=27) ;锁定键盘,并在几十秒后自动返回Getkey=57=>ReturnIf V-K>0 :Then V-O→B:Else V+O→B:IfEndFileName:ZBJS 坐标计算程序Prog"READDAT"RadG-M→QIF AR=0 :Then If A=R :Then 1→J:Else 3→J :IfEnd:Else If A=R :Then 2→J:Else 3→J:IfEnd:IfEnd 判断线元类型If J=1 :Then H→F:N+QCos(H)→X:E+QSin(H)→Y:IfEnd直线段直接计算If J=2 :Then H+QR→F:Rec(Abs(2Sin(Abs(0.5QR))÷R),H+QR÷2):N+I→X:E+J→Y:IfEnd圆弧段直接计算If J=3 :Then Goto 5 :IfEndX+BCos(F+W)→XY+BSin(F+W)→YDeg:ReturnLbi 5 用五点通用坐标计算计算缓和段0.5(R-A)÷L→KAQ→IKQ2→J0.0469100770→P:H+IP+JP2→O0.2307653449→P:H+IP+JP2→T0.5→P:H+IP+JP2→D0.7692346551→P:H+IP+JP2→F0.9530899230→P:H+IP+JP2→P0.1184634425→I0.2393143352→J0.2844444444→YN+Q(ICos(O)+JCos(T)+YCos(D)+JCos(F)+ICos(P))→XE+Q(ISin(O)+JSin(T)+YSin(D)+JSin(F)+ISin(P))→YH+AQ+KQ2→FX+BCos(F+W)→XY+BSin(F+W)→YDeg:ReturnFileName:TURNZH(坐标反算) Prog"INNEZ"Z[C+37]→UZ[C+38]→V0→B:M+L÷2→G:Prog"ZBJS"Lbi S:RadU-X→I:V-Y→JIf I=0 And J=0 :Then Goto A:IfEndPol(I,J)Lbi A:Rec(I,J-F)G+I→G:IF Abs(I)>0.0001 :Then Prog"ZBJS":Goto S↙J→BG→Z[C+1]J→Z[C+2]Prog"GCJS"FileName:INNEZ 实测坐标输入程序Lbl S:Norm 1:ClsZ[C+50]=2=>Goto 1Z[C+37]→II<0=>Goto 1"DQD-N"?I 输入待求点N坐标I<0=>Goto 1I→Z[C+37]Z[C+38]→I:"DQD-E"?I 输入待求点E坐标I<0=>Goto 1I→Z[C+38]Z[C+43]→I:"DQD-Z"?I 输入实测高程I<0=>Goto 1I→Z[C+43]ReturnLbi 1I=-1=>Then 2→Z[C+50]If I=-2:Then Prog"WORK-SET":Goto S:IfEnd 进入工作设置Prog"INFWJDLDH"Z[C+50]=1=>Goto SReturnFileName:INFWJDLDH实测坐标(用方位角,距离,高差)输入程序Lbi S:Deg:Norm 1:ClsZ[C+46]→J:"DQD-FWJ"?JJ<0=>Goto 1J→Z[C+46]Z[C+47]→I:"DQD-DL"?I:I→Z[C+47]Z[C+48]→K:"DQD-DZ"?K:K→Z[C+48]Z[C+49]→P:"RHT"?P:P→Z[C+49]Rec(I,J)Z[C+35]+I→Z[C+37]Z[C+36]+J→Z[C+38]Z[C+44]+Z[C+45]+K-P→Z[C+43]ReturnLbi 1If J=-2:Then Prog"WORK-SET":Goto S:IfEnd 进入工作设置1→Z[C+50]ReturnFileName: WORK-SET 测站设置程序Norm 1:Cls50→CZ[C+32]→I:"DAT1 2 3"?I:I→Z[C+32]平曲线要素数库类型选择1为置式,2文件式,3实时输入(查看当前要素值)Z[C+4]→I:"0 1 2 3"?I:I→Z[C+4]选择本程序模式0为坐标正算,1坐标反算,2横向边仰坡放样,3,纵向边仰坡放样(隧道进出口用到) Z[C+41]→I:"GC-DH"?I:I→Z[C+41]放样点高差常数Z[C+35]→I:"STATION-N"?I:I→Z[C+35]设置测站N坐标Z[C+36]→I:"STATION-E"?I:I→Z[C+36]设置测站E坐标Z[C+44]→I:"STATION-Z"?I:I→Z[C+44]设置测站Z坐标Z[C+45]→I:"ST ATION-HI"?I:I→Z[C+45]设置仪高ClsFileName: PROGMODE 程序功能模式选择Z[C+4]→II=0=>Return ;正算模式I=1=>Prog"TURNZH" ;反算模式I=2=>Prog"HXBYP" ;横向边仰坡放样模式I=3=>Prog"ZXBYP" ;纵向边仰坡放样模式FileName:HXBYP 横向边仰坡放样程序Cls:Norm 1Z[C+40]→I:"QPD-DL"?I:I→Z[C+40]输入起坡点与中桩距离常数Z[C+41]→I:"QPD-DZ"?I:I→Z[C+41]输入起坡点与中桩高差常数Z[C+42]→I:"i"?I:I→Z[C+42]输入边仰坡坡度,左仰坡(路堑)为正,右仰坡(路堑)为负,左边坡为负,右边坡为正Cls:Z[C+43]→I:"DQD-Z"?I:I→Z[C+43]输入实测高程Prog"TURNZH"Prog "GCJS"(Z[C+43]-Z-Z[C+41])Z[C+42]+Z[C+40]→BFix 3:B-Z[C+2]◢显示与设计位置的偏差B→Z[C+2]FileName:ZXBYP 纵向仰坡放样程序(隧道进口使用)Cls:Norm 1:Z[C+33]→I:"QPD-ZH"?I:I→Z[C+33]输入起坡点桩号Z[C+34]→I:"QPD-Z"?I:I→Z[C+34]输入起坡点高程Z[C+42]→I:"i"?I:I→Z[C+42]仰坡时(隧道进出口仰坡,进口为正,出口为负)Cls:Z[C+43]→I:"DQD-Z"?I:I→Z[C+43]输入实测高程Prog"TURNZH"Z[C+42](Z[C+43]-Z[C+34])+Z[C+33]→GFix 3:G-Z[C+1]◢显示与设计位置的偏差G→Z[C+1]FileName:SET 设置程序Lbi SNorm 150→C50→Z[C+22] 本程序设置变量个数目前50个刚刚够用。

FX5800P计算器 隧道测量程序

FX5800P计算器 隧道测量程序

(以下程序是专业人士编写,本店铺不对程序负责,仅供您参考使用。

)紫金龙逸zijinlongyi0820@正反算辛普森5800程序2010年4月22日修改(可回头)仲项飞1.主程序(ZXC)2→DimZ(增加变量)Lbl 0:Z[9] →E:“1-ZS,2-FS” ?E:E→Z[9]↲Lbl1: ”XL LC” ?Z:Prog“DA TE1”:E≥2=>Goto2 : 5.375(设计线路在线路中线右边为“-”,设计线路在线路中线左边为“+”,数值为设计线路与线路中线的距离,所有偏距以隧道中线起算;若算斜交,则改为0,则所有偏距以设计线路起算。

)→N:“DZX”?W:“PJ”?S:W+N→W:Abs(Z-F)→Q:Prog“XZS”:W-N→W:J-S→J:Cls:Locate1,1,”X=”: Locate 3, 2,X:Locate 1, 3,”Y=”:Locate 3, 4, Y◢"FWJ=”:J:J►DMS◢Goto 3Lbl 2:?X:?Y:Prog“XFS”: F+Q→Z:-5.375→N:W-N→W:Cls:Locate 1, 1,”K=”: Locate 3, 2,Z: Locate 1, 3, ”W=”: Locate 3, 4, W◢Goto 3Lbl 3:Prog “SQX1”DA TE1(数据库)7704.149→A:5024.7762→B:264°42'42.62"→C:1÷10^(45)→D: 1÷10^(45)→R:122020.554→F:124140.538→G:IfZ≤G:Then GotoA:IfEnd↲7508.761→A:2913.8154→B:264°42'42.62"→C:1÷10^(45)→D: 1÷(-750)→R: 124140.538→F:124360.538→G:IfZ≤G:Then GotoA:IfEnd↲………………(有几个线圆依次添加几个判断语句,顺序从小里程到大里程,次序不得颠倒)Lbl A………………(有几条线路就添加几个数据库。

[整理]fx5800P程序.

[整理]fx5800P程序.

5800公路测量程序使用说明一、程序使用流程本程序数据和主程序是分开的,编程时将不同的工程数据存放到不同的数据文件里,如A匝道,文件名为A,将匝道A所有的曲线线元参数输入A文件里。

运行时只要运行文件名A的程序就可以了,具体运行流程见下图:二、数据文件的编写(一)交点法数据文件编辑交点法编写数据文件必须是对称型的,即直线段→缓和曲线段→圆曲线段→缓和曲线段→直线段,(如果任意一端没有直线段,则把直线段长度看做是0),另外圆曲线两侧缓和曲线的旋转常数必须相等,并且和直线段连接处的半径必须是无穷大。

交点法数据文件编写一般是根据设计图纸提供的平面曲线参数一览表提供的参数来编写,每个弯道包括:弯道起点方位角(C),交点X坐标(D),交点Y坐标(E),缓和曲线长度(F,当没有设缓和曲线时,F=0),交点转交(G,向左转弯,G为负值,向右转弯,G取正值),交点桩号(H),弯道圆曲线半径(R)。

下图是一段市政道路设计参数数据。

根据上图提供的数据,可以编辑成如下的数据文件:文件名:CHLNR3→DimZ “X0”?A:”Y0”?B:“Ln”?L:Abs(L)-Int(Abs(1000L))/1000→Z[3]:Lbl 0:If Z[3]≠0.0001: Then ?L: Els e “Xp”?X:”Yp”?Y:X→Z[1]:Y→Z[2]:IfEnd:Lbl 1:If L>0 :Then 98°39°35.12°→C:4474.384→D:24154206.421→D:3093.946→E:70→F:-33°50°48°→G:1285.437→H:600→R:IfEnd:Prog”XLJS”:If Z[3]≠0. 0001:Then Goto 0:Else (Z[1]-X)cos(O)+(Z[2]-Y)sin(O)→N:L+N→L:-(Z[1]-X)sin(O)+(Z[2]-Y)cos(O)→K:If Abs(N)≥0.001:Then Goto 1:Else “L=“:L◢“K=”:K◢IfEnd:Goto 0: IfEnd在面程式中,有两个条件转移语句即If L>0:Then 98°39°35.12°→C:4774.384→D: 2415.861→E:140→F:31°17°23°→G:410.007→H:600→R:IfEndIf L>1060:Then 129°56°58.19°→C:4206.421→D: 3093.946→E:70→F:-33°50°48°→G:1285.437→H:600→R:IfEnd……如果还有其他弯道,可以继续完后加。

FX5800P全线任意里程中边桩坐标中桩正反算及设计高程、隧道超欠挖计算(加了数据库)

FX5800P全线任意里程中边桩坐标中桩正反算及设计高程、隧道超欠挖计算(加了数据库)

主程序 ZBJSLbl6:fix3:"1.SZ→ XY":"2.XY→ SZ":?N:Prog“SUB0”Lbl0:( P-R)÷(2HPR) →D:180÷π→E:N=1 =>Goto 1: Goto 2Lbl 1:?S:?Z:?C: Abs(S-O)→W: Prog"SUB1":Cls: Locate 1,1"X=" Locate 3,1,SLocate 1,2,”Z=”Locate 3,2,ZLocate 11,2,”C=”Locate 13,2,CLocate1,3,”X=”Locate 3,3,XLocate 1,4, "Y="Locate3,4,Y◢Cls :"FWJ=":F-C ►DMS◢Prog“GC”0→O: ?O:O=0=> Goto 6“JL=”?L“JIAO DU=”?AX+LCOS((F)+A)→O: Y+LSIN((F)+A)→V: Cls: "X1=": Locate4,1, O: "Y1=":Locate4,2,V:Retunr:IFend“XC” ?C:“YC” ? E:0→I:0→J:Pol(X-C,Y-E):“I=”:I◢If J∠0: Then “J=”: J+360►DMS◢IfEndIf J >0:Then “J=” :J►DMS◢IfEnd:Goto 6Lbl 290→C:?X:?Y:X→I:Y→J:Prog"SUB2":O+W→S:Cls:Locate 1,1,”X =”Locate 3,2,ILocate 1,2,”Y=”Locate 3,2,JLocate 1,3,"S="Locate 3,3,SLocate 1,4,”Z=”Locate 3,4,Z◢CIS: Prog“GC”0→O: ?O:O=0=> Goto 67→Dimz:“SCG=”? →Z[2]:“JU Z=”? →Z[3]: “GAO CA=”?→Z[4]: “BAN JING=”? →Z[5]:IF Z≦30(左线大于等于-30):Then“T=”:Abs(Z[3]±Z- Z[5] →Z[6] ◢(分离式路基左为负,右为正)“P=”:Z±Z[3] →Z[1] ◢(分离式路基左为负,右为正)“W=”:Z[2]-G- Z[4])→Z[7] ◢“CQW=”:√(Z[7]∧2+ Z[1]∧2)- Z[5] ◢Goto 6: Retunr:IFend正算子程序SUB14→dimZ0.1739274226→A:0.3260725774→B:0.0694318442→K:0.3300094782→L:1-L→F:1-K→M:G+QEKW(1/p+KWD) →Z[1]G+QELW(1/p+LWD) →Z[2]G+QEFW(1/p+FWD) →Z[3]G+QEMW(1/p+MWD) →Z[4]U+W(Acos(Z[1])+Bcos(Z[2])+Bcos(Z[3])+Acos(Z[4]))→XV+W(Asin(Z[1])+Bsin(Z[2])+Bsin(Z[3]))+Asin(Z[4])) →YG+QEW(1/p+WD)+C→F:X+Zcos(F)→X:Y+Zsin(F)→Y反算子程序 SUB2G-C→TAbs (Y-V)cosT-(X-U)sin(T) →W:0→Z:Lbl0:Prog "SUB1"T+QEW(1/P+WD) →L:(J-Y)cos(L)-(I-X)sin(L)→ZIF Abs(Z)<1E-6:Then Goto1:Else W+Z→W:Goto0:IfEndLbl1:0→Z:Prog "SUB1":(J-Y)÷sin(F)→Z数据库子程序SUB0Goto 1(线元可输入多条,分离式可在前多加一位,匝道一样。

自编CASIO FX-5800P隧道超欠挖程序

自编CASIO FX-5800P隧道超欠挖程序

自编卡西欧fx-5800P隧道超欠挖程序作者:何威该程序由“卡西欧fx-4800P隧道超欠挖程序”改编而成,其运行原理与操作方法与其相同。

1.主程序(WSK-CQW)"XO"?U:"YO"?V:"SO"?O:"FO"?G:"LS"?N:"RO"?P:"RN"?R:?Q←┘1÷P→C:(P-R)÷(2N PR) →D:180÷π→E←┘Lbl2:?X:?Y:?H:X→I:Y→J←┘G-90→T:(Y-V)cos(T)-(X-U)sin(T)→W:Abs(W)→W:0→Z←┘LbI 4:Prog"SUB1":T+QEW(C+WD)→L:(J-Y)cos(L)-(I-X)sin(L)→Z←┘If Abs(Z)<10∧(-6):Then 0→Z :Prog"SUB1":(J-Y)÷sin(F)→Z:Else W+Z→W:Goto 4:IfEnd:O+W→S←┘"Z=":Z◢"S=":S◢√( (H-内轨顶标高-圆心距离内轨顶高差)²+(Abs(Z+线中相对遂中距离)+圆心相对遂中距离)²)-R→M←┘"CQW=":M◢Goto 2←┘2.正算子程序(SUB1)0.1739274226→Z[1]:0.3260725774→Z[2]:0.0694318442→K:0.3300094782→L←┘1-L→F:1-K→M←┘U+W(Z[1]cos(G+QEKW(C+KWD))+Z[2]cos(G+QELW(C+LWD))+Z[2]cos(G+QEFW( C+FWD))+Z[1]cos(G+QEMW(C+MWD))→X←┘V+W(Z[1]sin(G+QEKW(C+KWD))+Z[2]sin(G+QELW(C+LWD))+Z[2]sin(G+QEFW(C+ FWD))+ Z[1]sin(G+QEMW(C+MWD))→Y←┘G+QEW(C+WD)+90→F:X+Zcos(F)→X:Y+Zsin(F)→Y一.补充1.输入显示说明X0 ?线元起点的X坐标Y0 ?线元起点的Y坐标S0 ?线元起点里程F0 ?线元起点切线方位角LS ?线元长度R0 ?线元起点曲率半径RN ?线元止点曲率半径Q ?线元左右偏标志(左偏Q=-1,右偏Q=1,直线段Q=0)S ?所求点的里程Z ?所求点距中线的边距(左侧取负,值右侧取正值,在中线上取零)CQW? 所求点的超欠挖2. 若隧道所测部位有两种圆心时,利用圆心所对应的弧的分段高度划分可设置两个选择条件,于是只需将主程序中“√( (H-内轨顶标高-圆心距离内轨顶高差)²+(Abs(Z+线中相对遂中距离)+圆心相对遂中距离)²)-R→M←┘”中改为“IfH>内轨顶标高+圆心O1分段高度:Then√( (H-内轨顶标高-圆心O1距离内轨顶高差)²+(Abs(Z+线中相对遂中距离)+圆心O1相对遂中距离)²)-R1→M :Else√( (H-内轨顶标高-圆心O2距离内轨顶高差)²+ (Abs(Z+线中相对遂中距离)+圆心O2相对遂中距离)²)-R2→M:If End←┘”3. 若所测隧道断面无需在经常在线元之间转换时,也可以将主程序中U(线元起点X坐标),V(线元起点Y坐标),O(线元起点里程),G(线元起点切线方位角),N(线元长度),P(线元起点半径),R(线元终点半径),Q(曲线左偏为-1右偏为1直线为0)等曲线要素赋予定值,可减少在工作中的输入量。

CASIOfx-5800隧道超欠挖、高程及公路程序

CASIOfx-5800隧道超欠挖、高程及公路程序

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

新版本优化:1、调整一次显示结果;2、交点法中考虑了不对称缓和曲线;3、修改原版本部分地方笔误.(红色为修改处)二、源程序1.总主程序(1、坐标计算放样程序2、坐标反算程序;3、高程计算查阅程序;4、路基半幅标准宽度查阅程序;5、路基边坡及开挖口放样程序;6、路基标准距离放样;7、桥梁锥坡计算放样程序;8、极坐标计算程序;9、隧道超欠挖计算程序)运行后输入1~9数子则选择1至9的程序,返回时,在桩号输入-1,返回选择选择计算类型。

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

坐标计算中输入-3,则显示本段曲线要素。

程序名:0ZCXLbI 0:17→DimZ:Norm 2:1→A:"A:XY=1,ZD=2 ,GC=3,GD=4,BP=5,FM=6,ZP=7,JS=8,SD=9"?A:A=1=>Goto 1:A=2=>Goto 2:A=3=>Goto 3:A=4=>Goto 4:A=5=>Goto 5:A=6=>Goto 6:A=7=>Goto 7:A=8=>Goto 8:A=9=>Goto 9:LbI 1:Prog "DX":LbI A:Prog"QX":90→B: "PJ1"?B:B→C: "PJ2"?C:B→Z[1]:C→Z[8]:LbI B:1→F: "KM"?Z:Z= -1=>Goto 0:Z=-2=>Goto A:Z=-3=>Goto X:Prog"KM":?D:Porg"THB":O→L: "L0"?L:Z[2]+Z[1]-Z[8] →E:X+L cos(E) →X:Y+Lsin(E) →Y:Prog"XY":Prog"JS":Goto B:LbI 2:2→F:90→Z[1]:Prog"QX":LbI C: "KM"?Z:Z=-1=>Goto 0:Z=-2=>Goto 2:Z=-3=>Goto X:Prog"KM": "X O"?X: "Y0"?Y:Prog"THB":Porg"ZD":Goto C:LbI 3:Prog"QX":0→B: "H-B"?B:B→Z[9]:LbI D: "KM"? Z:Z=-1=>Goto 0:Z=-2=>Goto 3:?D:Porg"H":Fix 3: " H=": Lcoate 6,4,H-Z[9]:" I=":Locate 6,4,I: Goto D:LbI 4:Prog"QX":LbI E: "KM"?Z:Z=-1=>Goto 0:Z=-2=>Got o 4:?D:Prog"GD":Fix 3: " SJGD=":Locate7,4,L: Goto E:LbI 5:Prog"QX":0.5→B:"TH-GD"?B:B→Z[17]:LbI F:2→F: 90→Z[1]:"KM"?Z:Z=-1 =>Goto 0:Z=-2 =>Goto 5:Prog"KM": "X0"?X: "Y0"?Y:0→M:”M0”?M: M→Z[4]:Prog"3FB X":Fix 2: P→D :Abs(D)-S→O: " L0=":Locate 6,4,O:Prog"ZD": Z[4]→T:" TW=":Lcoate 6,4,T◢ Goto F:LbI 6:Prog"DX":LbI G:Prog"QX":LbI H:1→F:90→Z[1]:"KM"?Z:Z=-1=>Goto 0:Z=-2=>Goto G:Prog"KM":?D:Prog"THB":Prog"XY":Prog"JS":Prog"H":0→M: "M0"?M:Fix 2:H-M→T: " TW=":Locate 6,4,T◢ Goto H:LbI 7:Prog"DX":LbI I:Prog"QX":0→D: "LD:Z-,Y+"? D:Abs(D) →R: "LR"?R: "Z0"?Z: D→Z[6]:R→Z[7]:Z→Z[8]:LbI J:0→Y: "L0:SZ+,DZ-"?Y:Y=-1=>Goto 0:Y=-2=>Goto I:Prog"ZP":Goto J:LbI 8:Prog"DX":LbI K:?X:X=-1=>Goto 0:X=-2=>Goto 8:?Y:Prog"JS":Goto K:LbI 9:Porg"DX":LbI L:Prog”QX”:LbI M:2→F:90→Z[1]: "KM"?Z:Z=-1=>Goto 0:Z=-2=>Goto L:Z=-3=>Goto X: Prog"SD1": 0.5→A:“CQHD"?A:“X0"?X:"Y0"?Y:0→M="M0"?M:M→Z[8]:A→Z[15]:Prog"5SD": Goto M:LbI X:Mat F◢ Goto 02、次程序:路基开挖边线及填方坡脚线放样程序(输入填方放宽值、大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度)程序名:3FBXProg”THB”:D→P:Prog”GD”:If D<0:Then 0.75-L→D:Goto H:Else L-0.75→D:Goto H:IfEndLbI H:Prog“H”:H-0.03-Z[4] →Z[4]: Prog “W1”:If Z[4] <0:Then –Z[4] →G:Goto W:Else Z[4] →G:Goto T:LbI W:Z[8]+Z[9]→A: If G>A:Then Goto 1:Else If G>Z[8]:T hen Goto 2:Else Goto 3:IfEnd:LbI 1:L+Z[10]+Z[11]+Z[12]+(G-A)×Z[7]+Z[9]×Z[6]+Z[8]×Z[5] →S:Goto Z:LbI 2:L+Z[10]+Z[11]+(G-Z[8])×Z[6]+Z[8]×Z[5] →S:Goto Z:LbI 3:L+Z[10]+G×Z[5] →S:Goto Z:LbI T:L+Z[17]→T:If G>Z[15]:Then (T+Z[16]+(G-Z[15])×Z [14]+Z[15]×Z[13])→S:Goto Z:Else (T+G×Z[13])→S:Goto Z:LbI Z3.次程序3.隧道超欠挖值计算放样程序(输入隧道线路,大概桩号、输入衬砌厚度、测量三维坐标,计算准确桩号及位置、计算欠超挖值)程序名:5SDProg”KM”:Prog“THB”: D→Z[13]:0→D:Prog“H”:Cos(Z[1 0]) ×Z[4] →E: H+Z[5] →Z[5]: H+Z[7] →Z[7]: E+Z[5] →Z[10]:If Z[8]>Z[10]:Then Goto R:Else Goto S:IfEnd:LbI R:√((Z[13]-Z[9]) 2+(Z[8]-Z[5]) 2 )- Z[4]-Z[15] →L:G oto L:LbI S:Z[4]-Z[6] →S:√(S 2-(Z[7]-Z[5]) 2 ) ×S÷A bs(S)→T:Abs(Z[13]-Z[9])-T→T:√(T 2+(Z[8]-Z[7]) 2 )- Z[6] -Z[15] →L:Goto L:LbI L: Fix 2:” L0=”: Locate 6,4,L:Prog”ZD”:“ H0=”: Locate 6,4,Z[8]-H◢4:极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名:JSX:Y:Z[11]→K:Z[12]→L:Pol(X-K, Y-L):IF J<0:Then J+3 60→J:IFEnd:Int(J)+0.01Int(60Frac(J))+0.006Frac(60Frac (J)) →J: Fix 4:” FWJ=”: Locate 6,4,J:F ix 3:” S=”:Locate 6,4,I◢5.路基宽度子程序6:路基标准半幅宽度计算程序(对于设计有加宽渐变的有用,如路基宽度无变化,则把此程序直接输入半幅宽度值至L)程序名: GD1→S: Prog “G1”:Z-C→E:(B-A)*E/S+A→L:6.坐标计算次程序(THB)程序名:THBIf Q>1:Then Goto J: Else 1÷P→C:(P-R)÷(2HPR)→S:180÷Π→E:If F=1:Then Abs(Z-0) →W:Prog "A":Goto 2:Else X→I:Y→J:Prog "B":O+W→Z:D→D:Goto 2: IfEnd:LbI J: If F=1:Then Prog "Z":Goto 1:Else Prog "ZX":Goto 2: IfEnd:LbI 1:I+D×cos(Z[2]+Z[1]) →X: J+D×sin(Z[2]+Z[1]) →Y: LbI 27. 线元法正算子程序(A)程序名:A0.1184634425→A: 0.2393143352→B:0.2844444444→N:0.0 46910077→K: 0.2307653449→L:0.5→M: U+W(Acos(G+QEKW (C+KWS))+Bcos(G+QELW(C+LWS))+Ncos(G+QEMW(C+MWS))+Bco s(G+QE(1-L)W(C+(1-L)WS))+Acos(G+QE(1-K)W(C+(1-K)WS))) →X:V+W(Asin(G+QEKW(C+KWS))+Bsin(G+QELW(C+LWS))+Nsin(G+QE MW(C+MWS))+Bsin(G+QE(1-L)W(C+(1-L)WS))+Asin(G+QE(1-K)W (C+(1-K)WS))) →Y:G+QEW(C+WS)→Z[2]:X+Dcos(Z[2]+ Z[1])→X:Y+Dsin(Z[2]+ Z[1])→Y8. 线元法反算子程序(B)程序名:BG-90→T: Abs((Y-V)cos(T)-(X-U)sin(T)) →W: 0→D:L bl 0:Prog "A": T+QEW(C+WS) →L: (J-Y)cos(L)-(I-X) sin(L)→D:IF Abs(D)<0.01:Then Goto 1:Else W+D→W:G oto 0: IfEnd:←┘Lbl 1:0→D:Prog "A":(J-Y)÷sin(Z[2]+90) →D9. 交点法正算子程序(Z)程序名:ZH2÷R÷24-H∧(4)÷2688÷R∧(3)→A:H÷2-H∧(3)÷240÷R2→B:((H2-N2)÷24÷R)÷Sin(Abs(P))-((H∧(4)-N∧(4))÷2688÷R ∧(3))÷sin(Abs(P))→E:(R+A)tan(Abs(P)÷2)+B-E→T:P÷Abs(P) →W:0→M:H→C:If Z≤O-T:Then Z-O→S:G→Z[2]:Goto 2: IfEnd:If Z≤O-T+H:Then Z-O+T→S:Prog “HX”:G+WK→Z[2]:Goto 4:IfEnd:If Z≤O-T+ΠR×Abs(P)÷180+H÷2-N÷2: Then 180(Z-O+T-0. 5H)÷R÷Π→S : A+R(1-Cos(S))→B:H÷2-H∧(3)÷240÷R2+Rsin(S)→A:R→M:G+WS→Z[2]:Goto 4: IfEnd:O-T+ΠR×Abs(P)÷180+H÷2+N÷2-Z→S:(R+N2÷R÷24-N∧(4)÷2688÷R∧(3))tan(Abs(P)÷2)+N÷2-N∧(3)÷240÷R2+E→T:N →H:Prog “HX”:G+P→S:S-WK→Z[2]:U+(T-A)Cos(S)-WBSin(S)→I:V+(T-A)Sin(S)+WBcos(S)→J:Goto 3:LbI 4:U+(A-T)cos(G)-WBsin(G)→I:V+(A-T)Sin(G)+WBcos(G)→J: Goto 3:LbI 2:U+Scos(Z[2])→I:V+Ssin(Z[2]) →J: LbI 3:C→H10. 交点法缓和段转化子程序(HX)程序名:HXS-S∧(5)÷40÷R2÷H2+S∧(9)÷3456÷R∧(4)÷H∧(4)→A:S∧(3)÷6÷R÷H-S∧(7)÷336÷R∧(3)÷H∧(3)+S∧(11)÷42240÷R∧(5)÷H∧(5)→B:90S2÷Π÷R÷H→K:RH÷S→M11. 交点法反算子程序(ZX)程序名:ZXZ:0→D:LbI 0:Prog “Z”:Pol(X-I,Y-J):J-Z[2] →J:Isin(J) →S:Icos(J) →I:If Abs(I)<0.1:Then Z+I→Z:S→D:Goto 2:E lse Goto 1: LbI 1:If M=0:Then Z+I→Z:Goto 0:Eles Pol(M-WS,I):(JMΠ)/180→I:Z+I→Z:Goto 0:IfEndLbI 212.高程计算子程序(H)程序名:HP rog “S1”:C-T→F:Z-F→S:C+T→E:G-TI→Q:If T=O:Then Q+ SI→H:Goto 0:Else If Z<F:Then Q+SI→H:Goto 0:Else If Z ≤E:Then Q+SI+S2÷2÷R→H:Goto 0:LbI 0:H:If D=0:Then Goto I:Else Prog “I”:H+V→H:Goto I:LbI I13.高程超高计算程序(I)程序名:IIf Z[3]=1:Then Prog “I1”:Goto 1:Else Prog “I2”:Goto 1: IfEnd:LbI 1: If W=1:Then Goto Z:Else Goto X: IfEndLbI Z:If S=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×((N-M)×(Z-C)÷S+M)→V:Goto 2:IfEnd:LbI X:If S=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×(((3 ((Z-C)÷S)2-2((Z-C)÷S)∧(3))×(N-M))+M)→V:Goto 2:IfEn d:LbI 2:Abs(D)→E:V÷E→I:I(E-K)→V14.导线点子程序(DX)程序名:DXZ[11] →K:Z[12] →L:“X Z”?K:”YZ”?L:K→Z[11]:L→Z[12] 15.线路选择子程序(线路选择输0时。

5800隧道三心圆超欠挖程序

5800隧道三心圆超欠挖程序

5800隧道三心圆超欠挖程序点击:176 次添加日期:2012-07-22 [ 打印] [ 收藏] [ 关闭]【举报老板技巧】充分掌握黑心老板拒发薪水证据,绝对保护举报者的身份信息,请加QQ:55136901、ECDM(二衬断面检查子程序,结合后面附图理解)“SCGC”?→CIf C<H+0.3:Then √((H+1.1-C)2+(Abs(Z[4]-2.5)-3.932)2)-2.5→A:Abs(Z[4]-2.5)-(3.932+√(2.52-(H+1.1-C)2)→B“R=”:A◢“B=”:B◢Else √((C-H-2.43)2+(Z[4]-2.5)2)-6.7→A: “R=”:A◢IfEnd(所用字母:C H A B)2、FSFYCX(反算放样程序:输入实测点X、Y坐标及实测高程C,求隧道超欠挖值或边坡开挖值)Lb1 B“SCX”?E: “SCY”?Q:E→Z[1]:Q→Z[2]:提示输入实测X、Y坐标Prog “ZB”Lb1 C(X-Z[1]) sin(U-90)-(Y-Z[2])cos(U-90)→Z[10]:试算点与实测点的连线在线路中线上的投影长度,当计算精度小于或等于0.001即1mm时输出计算结果,否则继续计算直至满足精度为止。

If Abs(Z[10])≤0.001:Then K+Z[10]→K:Pol(Z[1]-X,Z[2]-Y):”Z[4]=”:-Icos(J-U+90)→Z[4]◢“K=”:K◢Prog “GCJS”: Prog “ECDM”:Goto B:Else K+Z[10]→K: Prog“ZB”:Goto C:IfEnd(所用字母:E Q X Y U K)3、GCJS(高程计算子程序)26+6D→Z:Lb1 1:Prog “SQXYS”:K-O→L:If K≤O:Then F+AL→H:Else If K≤O+2T:Then F+AL+WLL÷R÷2÷Abs(W)→H:Else Z+3→Z:If Z≤23+6D+3G:Then Goto 1:Else Z-3→Z:Prog “SQXYS”:Z[Z+4]+B(K-O-T)→H:IfEnd(所用字母:Z O K F A L H T R W D)4、GCJSZCX(高程计算主程序)Lb1 C“K=”? →K:Prog “GCJS”:”H=”:H◢Goto C(所用字母:K H)5、SQXYS(竖曲线要素计算子程序)(Z[Z+4]-Z[Z+1])÷(Z[Z+3]-Z[Z])→A:(Z[Z+7]-Z[Z+4])÷(Z[Z+6]-Z[Z+3])→B:B-A→W:Z[Z+5]→R:Abs(0.5RW)→T:Z[Z+3]-T→O:Z[Z+4]-AT→F:A、B:竖曲线前后坡度计算,其余请参看竖曲线计算公式(所用字母:A B W T F Z R)6、KWDM(开挖断面计算子程序,结合后面附图理解)“KWBJ-R”? →R:”SCGC”?C:If C≤H+2.43-Rsin(13°10°9°):Then Abs(Z[4]-2.5)-(R-0.45(H+2.43-RSin(13°10°9°)-C) ÷2.1)→B:”B=”:B◢Else If C≤H+2.43+R:Then√((Z[4]-2.5)2)+(C-H-2.43)2)-R→A:Abs(Z[4]-2.5)-√(R2-(C-H-2.43)2)→B:C-H-2.43-√(R2-(Z[4]-2.5)2)→V:“R=”:A◢“B=”:B◢“V=”:V◢Else C-H-2.43-√(R2-(Z[4]-2.5) 2)→V: “V=”:V◢IfEnd(所用字母:R C H A B V)7、SJK 30(平曲线及竖曲线数据库程序,投影面高程为30米,红色部分为竖曲线)7→D: 10→G :30+6D+3G→DimZ:10→Z[1]:3433109.5170→Z[20]:3429407.741→Z[21]:3426833.089→Z[22]:3424404.600→Z[23]:3421023.289→Z[24]:3417221.367→Z[25]:3414448.180→Z[26]:3403462.4596→Z[27]:3405098.748→Z[28]:502494.2176→Z[29]:502639.171→Z[30]:503107.984→Z[31]:503310.589→Z[32]:503948.482→Z[33]:504343.928→Z[34]:505035.224→Z[35]:509994.4824→Z[36]:509997.8856→Z[37]:9000→Z[38]:9000→Z[39]:9000→Z[40]:10000→Z[41]:9000→Z[42]:9000→Z[43]:7000→Z[44]:490→Z[45]:490→Z[46]:490→Z[47]:430→Z[48]:490→Z[49]:490→Z[50]:670→Z[51]:490→Z[52]:490→Z[53]:490→Z[54]:430→Z[55]:490→Z[56]:490→Z[57]:670→Z[58]:1139000→Z[59]:1141824.092→Z[60]:1144638.005→Z[61]:1147045.518→Z[62]:1150566.149→Z[63]:1154138.336→Z[64]:1156817.127→Z[65]:1170598.039→Z[66]:1173840.340→Z[67]:1138090→Z[68]:77.040→Z[69]:1140000→Z[71]:71.310→Z[72]:30000→Z[73]:1141600→Z[74]:61.710→Z[75]:30000→Z[76]:1142900→Z[77]:45.460→Z[78]:30000→Z[79]:1143950→Z[80]:42.100→Z[81]:30000→Z[82]:1145400→Z[83]:47.755→Z[84]:30000→Z[85]:1147800→Z[86]:51.355→Z[87]:30000→Z[88]:1149300→Z[89]:44.005→Z[90]:30000→Z[91]:1153500→Z[92]:53.245→Z[93]:30000→Z[94]:1156300→Z[95]:72.125→Z[96]:30000→Z[97]:1156300→Z[98]:79.325→Z[99]:30000→Z[100]:1157980→Z[101]:49.085→Z[102](所用字母:D、G)8、SJK90(平曲线及竖曲线数据库程序,投影面高程为90米,红色部分为竖曲线)2→D: 2→G :30+6D+3G→DimZ:2→Z[1]:44381.669→Z[20]:39644.955→Z[21]:36290.557→Z[22]:33141.9901→Z[23]:1072.7059→Z[24]:2635.9640→Z[25]:2370.9500→Z[26]:2494.2410→Z[27]:7000→Z[28]:9000→Z[29]:670→Z[30]:490→Z[31]:670→Z[32]:490→Z[33]:1127535.872→Z[34]:1130778.084→Z[35]:1135073.865→Z[36]:1139000→Z[37]:1132900→Z[38]:102.26→Z[39]:1134650→Z[41]:67.260→Z[42]:30000→Z[43]:1138000→Z[44]:77.310→Z[45]:30000→Z[46]:1139955→Z[47]:71.445→Z[48]:(所用字母:D、G)9、SWKZSJK5(石武客专数据库,红色部分为竖曲线,)7→D: 8→G: 30+6D+3G→DimZ:71955.5972→Z[20]:71428.348→Z[21]:64928.597→Z[22]:60648.194→Z[23]:58890.534→Z[24]:56131.938→Z[25]:50547.524→Z[26]:47965.040→Z[27]:47303.7078→Z[28]:652.0165→Z[29]:709.292→Z[30]:1017.189→Z[31]:938.295→Z[32]:812.152→Z[33]:813.346→Z[34]:462.228→Z[35]:456.788→Z[36]:517.0987→Z[37]:12000→Z[38]:11000→Z[39]:12000→Z[40]:12000→Z[41]:12000→Z[42]:12000→Z[43]:9000→Z[44]:330→Z[45]:370→Z[46]:330→Z[47]:330→Z[48]:330→Z[49]:330→Z[50]:490→Z[51]:330→Z[52]:370→Z[53]:330→Z[54]:330→Z[55]:330→Z[56]:330→Z[57]:490→Z[58]:1099872.681→Z[59]:1099872.681→Z[60]:1106362.974→Z[61]:1110706.287→Z[62]:1112355.010→Z[63]:1115166.386→Z[64]:1120776.803→Z[65]:1123224.207→Z[66]:1124551.665→Z[67]:1104639→Z[68]:113.4094→Z[69]:1104900→Z[71]:109.390→Z[72]:30000→Z[73]:1105900→Z[74]:111.390→Z[75]:30000→Z[76]:1106900→Z[77]:93.390→Z[78]:25000→Z[79]:1109400→Z[80]:73.390→Z[81]:30000→Z[82]:1112050→Z[83]:98.035→Z[84]:25000→Z[85]:1113900→Z[86]:84.190→Z[87]:30000→Z[88]:1116500→Z[89]:113.310→Z[90]:30000→Z[91]:1117700→Z[92]:110.910→Z[93]:30000→Z[94]:1122700→Z[95]:165.910→Z[96]:(所用字母:D、G)10、XLZB(线路坐标计算主程序)“1.ZX 2.BX”?→O: 提示选择:计算线路中线还是边线0→Q:Lb1 1If O≠1:Then “L”? →Q:”PJ”? →J:IfEnd:如选择边线提示输入宽度及偏角,宽度始终输正值,偏角右法线输+90,左法线输-90Prog “ZB”X+Rec(Q,U+J) →XY+J→Y“X=”:X◢“Y=”:Y◢If O=1:Then “QXFWJ=”:U▲DMS◢IfEnd:当计算中线时,会显示该点的切线方位角Goto 111、PQXYS(平曲线要素计算子程序)Z[V+2D+3] →R (调入半径)Z[V+3D+3] →L(调入第一缓和曲线长度)Z[V+4D+3] →M(调入第二缓和曲线长度)Pol(Z[V+1]-Z[V],Z[V+D+3]-Z[V+D+2])(交点前方位角,前进方向)J→A:Pol(Z[V]-Z[V-1],Z[V+D+2]-Z[V+D+1])(交点后方位角,前进方向)A -J→C:J→A:If C<-180:Then 1→N:ElseI if C<0: Then -1→N :Else if C<180:Then 1→N:Else -1→N:IfEnd (左右转参数计算,N=1右转,N=-1左转)If Abs(C) >180:Then 360-Abs(C) →C :If ENDAbs(C)→CL÷2-L^(3)÷240÷R2→Z[16]M÷2-M^(3)÷240÷R2→Z[17]L2÷24÷R→Z[18]M2÷24÷R→Z[19](Z[19]-Z[18])÷2÷tan(C÷2)→P(Z[18]+Z[19]+2R)tan(C÷2)÷2→Z[7]P+Z[7]+Z[16]→TZ[7]-P+Z[17]→PπRC÷180+(L+M) ÷2→Z[7]注:其余公式请参照不等长缓和曲线计算公式12、ZB(坐标计算子程序)Lb1 D22→W:?KLb1 2If K<Z[24+5D] Or K>Z[25+6D]:Then “OUT OF RANGE”◢Goto D: IfEnd:(里程计算超限提示)If K≤Z[W+5D+4]:Then W-1→V:Else W+1→W:Goto 2:IfEnd:(判断所输入里程对应的交点编号)Prog “PQXYS”Z[V]-Rec(T,A)→Z[14]Z[V+D+2]-J→Z[15]If K>1138800.074 And K<1139000:Then K+0.074→K:IfEnd(断链处理)If K=1139000 And D=2:Then K+0.074→K:IfEnd(断链处理)K-Z[V+5D+4] →SA→BIf S≤0:Then Z[14]+Scos(B)→X:(第一直线段坐标计算)Z[15]+Ssin(B) →YB→U:Goto 7:IfEndZ[14]→X:Z[15]→YIf S≤L:Then 1→H:Goto 4:IfEnd:(第一缓和曲线段坐标计算)If S≤Z[7]-M:Then 1→H:Goto 5:IfEnd:(圆曲线段坐标计算)A+NC→BIf S≤Z[7]:Then Z[7]-S→S:Z[V]+Rec(P,B)→X:Z[V+D+2]+J→Y:-1→H:M→L:Goto 4:Z[V+3D+3] →L:IfEnd:(第二缓和曲线段坐标计算)Z[V]+Rec(P+S-Z[7],B) →X:Z[V+D+2]+J→Y:B→U:Goto 7:(第二直线段坐标计算)LB1 4(缓和曲线计算公式)S^(3)÷6÷R÷L-S^(7)÷336÷R^(3)÷L^(3)→IS-S^(5)÷40÷R2÷L2→JB+90NHS2÷π÷R÷L→U:G oto 6Lb1 5(圆曲线计算公式)90(2S-L) ÷π÷R→UR(1-cos(U))+Z[18]→IRsin(U)+Z[16]→JB+180N(S-L÷2)÷π÷R→ULb1 6Pol(J,I):NHJ+B+90(H-1)→JRec(I,J)+X→XY+J→YLb1 7If U<0:Then U+360°→U:IfEnd13、ZBFS(坐标反算:已知两点坐标求距离及方位角)Lb1 0“X1”?X: “Y1”?Y:”X0”?D:”Y0”?G:Pol(X-D,Y-G):If J<0:Then J+360→J:IfEnd“JL=”:I◢“FWJ=”:J▲DMS◢Goto 014、ZBZS(坐标正算:已知起点坐标、距离及方位角求终点坐标)Lb1 0“X0=”?C:”Y0=”?D:”JL=”?E:”FWJ=”?F:Rec(E,F):C+I→X:D+J→Y:“X=”:X◢“Y=”:Y◢Goto 015、ZSFYCX(正算放样程序:已知里程、宽度求距离及方位角)“ZJX=”?→Z[1]:提示输入置镜点X坐标“ZJY=”?→Z[2]:提示输入置镜点Y坐标Lb1 A“FY:1.ZX 2.BX”?→O:提示选择是放样中线还是边线,1为中线、2为边线If O≠1:Then “KD=”?→Q:”PJ=”?→J:IfEnd:放样边线提示输入宽度及偏角Prog “ZB”X+Rec(Q,U+J)→XY+J→YPol(X-Z[1],Y-Z[2])If J<0:Then J+360→J:IfEnd“S=”:I◢“A=”:J▲DMS◢Goto A三心圆开挖放样程序“ZDKW”(也可用于多心圆、同心圆):请结合后面所附示意图理解!{CR}:C“△H”:Z[9]+C≤H+h1+RSinα=>A=√((Abs(Z[4]±Z[8]×?)+d)2+(Z[9]+C-H-h2)2) -R-r1▲B=Abs(Z[4] ±Z[8]×?)+d-√((R+ r1)2-(Z[9]+C-H-h2)2) ▲V=Z[9]+C-H-h2-√((R+r1)2-(Z[4] ±Z[8]×?)2) ▲≠>Z[9]+C≤H+h1+R =>A=√((Abs(Z[4] ±Z[8]×?) 2+(Z[9]+C-H-h1)2) -R▲B=Abs(Z[4] ±Z[8]×?)-√(R2-(Z[9]+C-H-h1)2) ▲V=Z[9]+C-H-h1-√(R2-(Z[4] ±Z[8]×?)2) ▲≠>V=Z[9]+C-H-h1-√(R2-Abs(Z[4] ±Z[8]×?) 2) ▲△△C (显示为△H):实测点至仪器中心的高差(如直接输入高程,则将C“△H”改为C“SCGC”,且程序中的Z[9]+C就直接用C代替)R:开挖半径(O1)Z[9]:仪高(直接输实测高程时不用)A:实测点半径与设计半径之差值(径向),+超挖,—欠挖B:实测点与设计点之差值(水平方向),+超挖,—欠挖V:实测点与设计点之竖向距离r1:O1与O2(O3)之差h1:圆心O1至设计高程点的距离,h2:圆心O2(O3)至设计高程点的距离H:实测点设计高程,由高程子程序带入Z:须预先置入扩展变量中,Defm 15d:偏移两圆心(O2、O3)与隧道中线之水平距离?:线路中线与隧道中线之偏移距离Z[8]:左右线判断变量(分离式双线隧道)及隧道左右偏判断变量(相对线路设计中心线)平曲线及竖曲线数据库设置表(n个平交点)1、平曲线数据库设置表注:1、从Z[20]开始存储数据,是为了留出前面的扩展变量作为其他变量使用,以补充变量A-Z之不足,当然也可以从Z[30]、 Z[40]开始,留出更多的变量供使用,只需根据上面表格作相应调整。

(坐标正反算5800[数据库版]

(坐标正反算5800[数据库版]

曲线任意里程中边桩坐标正反算及高程、隧道断面超欠挖程序(CASIO fx-5800P计算器)程序(加数据库版)1.正算主程序[KP-XY]"DK="?K:"PJ="?P:Prog"SJK""XS=":X+P cos(Z[4]+90)→X◢"YS=":Y+P sin(Z[4]+90)→Y◢"QX-FWJ=":Z[4]►DMS◢Prog"SQX":O→I:O→J:"XC="?A:"YC="?B:Pol(X-A,Y-B)J<0=>360+J→J"FWJ=":J►DMS◢"P=":I◢2.反算主程序[XY-KP]"DK="?K:"X:"?U:"Y:"?VLbl 0Prog"SJK":O→I:O→J:Pol(U-X,V-Y):J<0=>J+360→JIcos(J-Z[4])→Z[5]If Abs(Z[5])≥0.001:Then K+Z[5]→K:Goto 0Else Isin(J-Z[4])→P:Ifend"DK=":K◢"PJ=":P◢Prog"SQX"Return3.隧道超欠挖主程序[CQW]Prog"XY-KP":"Q="?QIf Q≥H+6.471:Then "X=":Abs(P)-√(4.26²-(Q-H-4.34)²)→X◢"Y=":Abs(Q-H-4.34)-√(4.26²-P²)→Y◢Eles If Q≥H+2.17:Then "X=":Abs(P)-(√(7.41²-(H+2.77-Q)²)-2.73)→X◢Eles If Q≥H-0.415:Then "X=":Abs(P)-(4.65-(H+2.17-Q)×0.22÷2.58)→X◢"Y=":H-0.42-Q→Y◢Eles If Q≥H-3.2:Then "Y(YG)=":(H+5.2-Q)-√(7.1²-P²)→Y◢IfEnd:IfEnd:IfEnd:IfEnd4.综合洞超欠挖主程序(ZHD)Prog"XY-KP":K-302480→D:"Q="?QIf Q≥H+4.8:Then "X=":Abs(D)-√(2.5²-(Q-H-4.8)²)→X◢"Y=":Abs(Q-H-4.8)-√(2.5²-D²)→Y◢Else If Q≥H:Then "X=":2.5-Abs(D)→X◢"Y=":H-Q→Y◢说明:302480综合洞里程,2.5半径,4.8总高度5.竖曲线主程序[SQX]0.003(6.984/1000)→I:0.006(-6.4/1000)→J:20000(15000)→R:301420(42350)→L:R Abs(I-J)÷2→Z[2]:RAbs(I-J)÷(I-J)→RIf K≤L-Z[2]:Then 0→Z:Else If K≥L+Z[2]:Then 0→Z:J→I:Else K-L+Z[2]→Z IfEnd:IfEnd"H=":200.621(164.958 )-I(L-K)-Z²÷2÷R→H◢说明:0.003前坡坡度,0.006后坡坡度,20000竖曲线半径,301420竖曲线交点里程,200.621竖曲线交点高程(有竖曲线使用考虑后的高程)0.003→I:0.006→J:0→R:301420→L:RAbs(I-J)÷2→Z[2]:RAbs(I-J)÷(I-J)→RIf K≤L-Z[2]:Then 0→Z:Else If K≥L+Z[2]:Then 0→Z:J→I:Else K-L+T→Z: IfEnd:IfEnd"H=":200.621-I(L-K)→H◢未有竖曲线6.数据库程序[SJK]4500(4500)→R:340(120)→G:157°25′52.55″(220.350722°)→Z:300412.156(43227.29)→F:-23°37′53.48″(6.23477)→O1→Z[1]: 0<0=>-1→Z[1]K-F→SIf S≤0:Then S→I:Z+180→J:Z→Z[4]:2953202.491(3678.283)+Icos(J)→X:497703.0998(1696.445)+Isin(J)→Y:Else If S≤G:Then 30Z[1]S²÷(πRG)→W:√((S-S^5÷(40R²G²))²+(S^3÷(6RG))²)→I:Z+W→J:Z+3W→Z[4]:2953202.491(3678.283)+Icos(J)→X:497703.0998(1696.445)+Isin(J)→Y:Else If S≤2196.015(622.3879)-G:Then S-G→S:90Z[1]S÷(πR)→W:2Rsin(Abs(W))→I:Z+90Z[1]G÷π÷R+W→J:J+W→Z[4]:2952890.216(3587.499)+Icos(J)→X:497837.5235(1617.971)+Isin(J)→Y:Else If S≤2196.015:Then 2196.015-S→S:30Z[1]S²÷(πRG)→W:√((S-S^5÷(40R²G²))²+(S^3÷(6RG))²)→I:Z+0+180-W→J:Z+0-3W→Z[4]:2951406.6187(3229.258)+Icos(J)→X:498932.0473(1266.092)+Isin(J)→Y:Else If S>2196.015:Then S-2196.015→I:Z+O→Z[4]:2951406.6187(3229.258)+Icos(Z[4])→X:498932.0473(1266.092)+Isin(Z[4])→Y:IfEnd:IfEnd:IfEnd:IfEnd:IfEndReturn说明:4500→R曲线半径,340→G缓和曲线长度,157°25′52.55″→Z线路方位角,-23°37′53.48″→O转向角(沿线路方向左负右正),300412.156→F直缓点里程(ZH),2953202.491,497703.0998沿线路方向直缓点坐标(ZH),2196.015曲线长度,2952890.216,497837.5235沿线路方向缓圆点坐标(HY),2951406.6187,498932.0473沿线路方向缓直点坐标(HZ)。

5800隧道水平,垂直,圆心超欠程序

5800隧道水平,垂直,圆心超欠程序

5800隧道超欠挖程序,带有垂直方向,水平方向,圆心方向超欠计算1-CQW4→DimZLb1 1Z[4] →S:“K(L)=”? S:Z[1] →A:“X=”? A:A→Z[1]:Z[2] →B :“Y=”?B:B→Z[2]:Lb1 2:Cls“1→RD,2→,CD,3→ZD,4→YD”? ZZ=1=> Prog “SJ—PMRD”:Z=2=> Prog “SJ—PMCD”:Z=3=> Prog “SJ—PMZD”:Z=4=> Prog “SJ—PMYD”Prog "SUB2-FS"If Abs(N)>0.001:Then N+S→S:Goto2:IfEndN+S→S : S→Z[4]:“K=":Locate4,4, S :“P=":Locate4,4, W:S→ K: Z→Z[3]Z[3]=1=> Prog “SJ—GCRD”:Z[3]=2=> Prog “SJ—GCCD”:Z[3]=3=> Prog “SJ—GCZD”:Z[3]=4=> Prog “SJ—GCYD”:H→A: “H(CG) =”? A: H- A →H:“H=”:Locate4,4, H◢Cls“1→KW,2→CZ,3→EC”? ZZ=1=> Prog “SJ-CQW-KW”Z=2=> Prog “SJ-CQW-CZ”Z=3=> Prog “SJ-CQW-EC”Prog "1-CQW"Return(超欠挖-输入实测点X=、输入实测点Y=、显示实测点里程K=、显示实测点偏距P=、输入层高H(CG)=、显示实测点的设计高程H=、输入实测高程H(SC)=、显示超欠挖值及第几圆心上CQ→Y?=)SUB1-ZS(正算子程序)-1÷P→ C:(P-R)÷(2HPR) → D:180÷π→ E:0.1739274226→ A:0.3260725774→ B:0.0694318442→ K:0.3300094782→ L:1-L→ F:1-K→M:Abs(S-O) →WU+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEMW(C+MW D))+Acos(G+QEFW(C+F WD)))→ XV+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEMW(C+MW D))+Asin(G+QEFW(C+F WD)))→ YG+QEW(C+WD)→ FReturnSUB2-FS(反算子程序)-Prog "SUB1-ZS"Pol((Z[1]-X),(Z[2]-Y))I cos(J-F) →NI sin (I-F) →WReturnSUB3-GC(高程子程序)C-D→QAbs (RQ÷2)→TR(Abs (Q)÷Q)→R:If S≤B-T:Then 0→K:Else If S≥B+T:Then 0→K:D→C:Else S-B+T→K:IfEnd:IfEndA-(B-S)C-K2÷(2R)→HReturnSJ--PMRD(子程序名-平面线形数据库)SJ--PMCDSJ--PMZDSJ--PMYD(JD1前直线段要素输入)If S ≥0(线元起点里程):Then 24163.6449→U(线元起点X坐标):21069.7772→V (线元起点Y坐标):0→O(线元起点里程):2°00′58.5″→G(线元起点方位角):70.2756 →H(线元长度):10^(45)→P(线元起点曲率半径):10^(45)→R(线元终点曲率半径):0 →Q(线元左右偏标志:左-1右1直0):IfEnd(JD1第一缓和曲线要素输入)If S ≥70.2756(线元起点里程):Then 24233.8770→U(线元起点X坐标):21072.2497→V(线元起点Y坐标):70.2756→O(线元起点里程):2°00′58.5″→G (线元起点方位角):60 →H(线元长度):10^(45)→P(线元起点曲率半径):500→R (线元终点曲率半径):-1→Q(线元左右偏标志:左-1右1直0):IfEnd(JD1圆曲线要素输入)If S ≥130.2756(线元起点里程):Then 24293.8605→U(线元起点X坐标):21073.1610→V(线元起点Y坐标):130.2756→O(线元起点里程):358°34′42.6″→G (线元起点方位角):41.525 →H(线元长度):500→P(线元起点曲率半径):500→R (线元终点曲率半径):-1 →Q(线元左右偏标志:左-1右1直0):IfEnd(JD1第二缓和曲线要素输入)If S ≥171.8005 (线元起点里程):Then 24335.2821→U(线元起点X坐标):21070.4093→V(线元起点Y坐标):171.8005→O(线元起点里程):353°49′12.4″→G (线元起点方位角):60 →H(线元长度):500→P(线元起点曲率半径):10^(45)→R (线元终点曲率半径):-1 →Q(线元左右偏标志:左-1右1直0):IfEnd(两交点夹直线要素)If S ≥231.8005 (线元起点里程):Then 24394.6180→U(线元起点X坐标):21061.5714→V(线元起点Y坐标):231.8005→O(线元起点里程):350°22′56.5″→G (线元起点方位角):334.132 →H(线元长度):500→P(线元起点曲率半径):10^(45)→R(线元终点曲率半径):0 →Q(线元左右偏标志:左-1右1直0):IfEnd(JD2第一缓和曲线要素输入)If S ≥565.9321 (线元起点里程):Then 24724.0533→U(线元起点X坐标):21005.7473→V(线元起点Y坐标):565.9321→O(线元起点里程):350°22′56.5″→G(线元起点方位角):45→H(线元长度):10^(45)→P(线元起点曲率半径):1000→R (线元终点曲率半径):1 →Q(线元左右偏标志:左-1右1直0):IfEnd(JD2圆曲线要素输入)If S ≥610.9321 (线元起点里程):Then 24768.4749→U(线元起点X坐标):20998.5621→V(线元起点Y坐标):610.9321→O(线元起点里程):351°40′17.5″→G (线元起点方位角):61.505 →H(线元长度):1000→P(线元起点曲率半径):1000→R (线元终点曲率半径):1 →Q(线元左右偏标志:左-1右1直0):IfEnd(JD2第二缓和曲线要素输入)If S ≥672.4372 (线元起点里程):Then 24829.5668→U(线元起点X坐标):20991.5298→V(线元起点Y坐标):672.4372→O(线元起点里程):355°11′43.8″→G (线元起点方位角):45 →H(线元长度):1000→P(线元起点曲率半径):10^(45)→R (线元终点曲率半径):1 →Q(线元左右偏标志:左-1右1直0):IfEnd(两交点夹直线要素输入)If S ≥717.4372 (线元起点里程):Then 24874.4592→U(线元起点X坐标):20988.4338→V(线元起点Y坐标):717.4372→O(线元起点里程):356°29′04.8″→G (线元起点方位角):62.767 →H(线元长度):10^(45)→P(线元起点曲率半径):10^(45)→R(线元终点曲率半径):0 →Q(线元左右偏标志:左-1右1直0):IfEnd(JD3第一缓和曲线要素输入)If S ≥780.2044 (线元起点里程):Then 24937.1083→U(线元起点X坐标):20984.5852→V(线元起点Y坐标):780.2044→O(线元起点里程):356°29′04.8″→G (线元起点方位角):60 →H(线元长度):10^(45)→P(线元起点曲率半径):200→R (线元终点曲率半径):1 →Q(线元左右偏标志:左-1右1直0):IfEnd(JD3圆曲线要素输入)If S ≥840.2044 (线元起点里程):Then 24997.0444→U(线元起点X坐标):20983.9041→V(线元起点Y坐标):840.2044→O(线元起点里程):5°04′44.5″→G (线元起点方位角):258.124→H(线元长度):200→P(线元起点曲率半径):200→R (线元终点曲率半径):1 →Q(线元左右偏标志:左-1右1直0):IfEnd(JD3第二缓和曲线要素输入)If S ≥1098.3286(线元起点里程):Then 25175.6814→U(线元起点X坐标):21145.0467→V(线元起点Y坐标):1098.3286→O(线元起点里程):79°01′34.2″→G (线元起点方位角):60 →H(线元长度):200→P(线元起点曲率半径):10^(45)→R (线元终点曲率半径):1 →Q(线元左右偏标志:左-1右1直0):IfEnd(JD3后直线要素输入)If S ≥1158.3286(线元起点里程):Then 25181.1594→U(线元起点X坐标):21204.7358→V(线元起点Y坐标):1158.3286→O(线元起点里程):87°37′13.9″→G (线元起点方位角):0 →H(线元长度):10^(45)→P(线元起点曲率半径):10^(45)→R (线元终点曲率半径):0 →Q(线元左右偏标志:左-1右1直0):IfEnd(注:有多个平面线形,依照上面的依次变更, 每多一个,就增加一个。

隧道断面超欠挖放样步骤(For Casio fx-5800p).doc

隧道断面超欠挖放样步骤(For Casio fx-5800p).doc

隧道开挖断面测量步骤(适用于Casio fx-5800P)步骤如下:1.架站,后视,记下测站坐标(X,Y,H);2.求出断面桩号,计算断面中心点O0坐标(X0,Y0)、切线方位角V;3.运行程序:程序名:“ZBZH”?A:?B:?X:?Y:W→WPol(A-X,B-Y):Rec(I,J-W)Cls:”N”:Locate 3,1,I:“E”:Locate 3,2,J◢A 测站坐标X值B 测站坐标Y值V 第2步中记下的切线方位角V值X,Y 第2步中记下的洞轴线坐标(X0,Y0)记下所求得的N值与E值;4.转动全站仪,将水平角值调到与切线方位角V相等,然后置零,再将测站坐标(X,Y)值改成第3、4步所求得的(N,E)所对应的值,并将目标高改为0。

(注意!切勿改动仪器高!)5.开始放开挖轮廓点,将所测得的N,E,Z代入以下程序运行:程序名:“DMCL”1.“1.ZD,2.YD”?U:If U=1:Then *→A:* →B:* →C:* →D:* →R:IfEnd2.If U=2:Then *→A:* →B:* →C:* →D:* →R:IfEnd3.R÷cos((tan-1 A- tan-1 B)÷2)-R→G4.√((R+G)2-R2)→T5.Abs(Tcostan-1A)→Q6.Abs(Rsintan-1A)→O7.C-Q→S8.C+ Abs (Tcostan-1B)→K9.“DMLX”?T:”R”?P:”O-H”?X:1.5→L:0.25→M T-断面类型,P-断面半径,X-设计高与圆心高高差,L、M如图所示。

10.Lbl 0:?N:?E:?Z:Abs(E)→E11.If N≤S:Then D-(C-N)A→H:IfEnd12.If N≥K:Then D+( N-C)B→H:IfEnd13.If N<K:Then If A>B:Then 1→F:If A<0:Then 1→W:Else -1→ W:IfEnd:IfEnd14.If A<B:Then -1→F:If A>0:Then 1→W:Else -1→W:IfEnd:IfEnd15.D-F(√((R+G)2-(O+WQ)2) -√(R2-(O+W(N-S))2))→H:IfEnd16.Z-(H+X)→V :T=1=>Goto 1: T=2=>Goto 217.Lbl 1:If V>0:Then Pol(E,V):"SHANG": P-I→Y◢18.Goto 0:IfEnd19.If V<0:Then Pol(E+L,V):"XIA":P+L-I→Y◢20.Goto 0:IfEnd 正常段21.Lbl 2:If V<0:Then Pol(E+M,V):"XIA":P+L-I→Y◢22.Goto 0:IfEnd23.If V>0:Then Pol(E-L+M,V)24.If J<50°:Then "SHANG":P-I→Y◢25.Goto 0:IfEnd26.If J≥50°:Then Pol(E,V+L-M): "SHANG":P+(L-M)÷cos50°-I→Y◢27.Goto 0:IfEnd 加宽段图一:图二:。

5800隧道超欠挖程序 (画弧)

5800隧道超欠挖程序             (画弧)

(换行即为回车符号)坐标转换程序SDe g:Fix 3: "ZJD=X"?A:"ZJD=Y"?BLbl 0:"1.ZS":"2.FS":"N="?N2874433.193→Z[1] U坐标X570174.274→Z[2] V坐标Y232692.401→Z[3] O里程100.644833→Z[4] G角度470→Z[5] H10^(45) →P曲率5500→R半径1→Q1÷P→C(P-R)÷(2HPR) →D180÷Π→EIF N=1:Then Goto 1:Else Goto 2:IfEndLbl 1:"S="?S:"Z="?ZAbs(S-O) →W:Prog "S1""X=":X◢"Y=":Y◢Pol(X-A,Y-B):If J<0:Then "FWJ=":J+360→J DMS◢"D=":I◢Goto 0Lbl 2:("R="?R:"D="?D"X="A+D*Cos(R) →I◢"Y="B+D*Sin(R) →J◢)"X="?X:"Y="?Y:X→I:Y→J:Prog "S2""S=":O+W→S◢"Z=":Z◢Prog "GC":"LGD=":A◢"QSGC=": ?HH-A→BIF B≤-1.54:Then“Error”:IFEndIF B≥-1.54 And B≤2.37:Then 5.41+(1.54+B)*(5.62-5.41)÷3.91→D:Abs(Z)→Z:Z-D→M:IFEnd IF B≥2.37 And B≤4.88:Then A+2.37→E:Abs(Z)+0.49→Z:√(6.11²-(H-E)²)→D:Z-D→M: IFEndIF B≥4.88 And B≤7.72:Then A+2.32→E:Abs(Z)+0.6→Z:√(6.23²-(H-E)²)→D:Z-D→M:IFEndIF B≥7.72:Then A+3.36→E:√(5.03²-Z²)→D:H-E-D→M:“Shang”:IFEnd“-W,+N=”:M ◢Goto 0坐标正算程序S1(计算测点X,Y坐标)0.1739274226→Z[1]0.3260725774→Z[2]0.0694318442→Z[3]0.3300094782→Z[4]0.669991→F:0.930568→MU+W(Z[1]cos(G+QEZ[3]W(C+Z[3]WD))+Z[2]cos(G+QEZ[4]W(C+Z[4]WD))+Z[2]cos(G+QEFW(C+FWD))+ Z[1]cos(G+QEMW(C+MWD)))→XV+W(Z[1]sin(G+QEZ[3]W(C+Z[3]WD))+Z[2]sin(G+QEZ[4]W(C+Z[4]WD))+Z[2]sin(G+QEFW(C+FWD))+ Z[1]sin(G+QEMW(C+MWD)))→YG+QEW(C+WD)+90→FX+Zcos(F)→XY+Zsin(F)→Y坐标反算程序S2(计算里程,偏距)G-90→TAbs((Y-V)cos(T)-(X-U)sin(T))→W:0→ZLbl 3Prog "S1":T+QEW(C+WD)→L(J-Y)cos(L)-(I-X)sin(L)→ZIf Abs(Z)<10^(-6):Then Goto 4:Else W+Z→W:Goto 3:IfEndLbl 4:0→Z:Prog"S1":(J-Y)÷sin(F)→Z(曲线数据库)If S≥25900 And S≤26615.555:Then25900→O:11587.421→U:1847.983→V:101。

(整理)隧道超欠挖5800版

(整理)隧道超欠挖5800版

隧道超欠挖5800版1. 主程序(NTSSD--CQW)Lbl 1:5→DimZ:(增加Z型5个变量)600→S:(输入近似里程)Prog“SUB0”↙(定义所在线元数据库)1÷P→C: (P-R)÷(2HPR) →D:180÷∏→E:“X=”?X:“Y=”?Y:X→I:Y→J:(输入实测XY坐标,)“H=”?→Z[1]: (输入实测高程)“R=”?→Z[2]: (输入断面理论半径)Prog“SUB2”:(调用反算子程序,由反算两次调用正算子程序)O+W→S:“K=”:S◢“BIANJULI=”:Z◢(得到桩号及离中心桩距离) Abs(Z)→B: (将变量值另存,利于后面计算)617.42→C: (定义此段竖曲线变坡点桩号,也可?C:输入)71.1→D: (定义此段竖曲线此段竖曲线变坡点高程)1→I: (定义此段竖曲线后坡点坡度)-0.6→J: (定义此段竖曲线前坡点坡度)1500→R: (定义此段竖曲线变坡半径值)-1→Q: (判断是凸凹曲线类型, -1→Q:I<J=>1→Q )240→L: (定义此段竖曲线曲线长)120→T: (定义此段竖曲线切线长)0.48→E: (定义此段竖曲线外距)497.42→M: (定义此段竖曲线变坡曲线起点桩号)737.42→N: (定义此段竖曲线变坡曲线终点桩号)S→K: (将变量值另存,利于后面计算)Prog“SUB3”: (调用高程计算子函数)Fix 3:(输出保留3位小数)1.5+Z→Z: (将路面设计值加减设计值得到开挖圆心高程)开平方根((Z[1]-Z)2+B2)→X:(得到实测点到圆心的距离)“CQW=”:X-Z[2]→A:◢(将实测点半径减理论半径即为超欠挖)ClrMemory:Goto 12. SUB0 数据库子程序Goto1↙ 同时保存多个曲线时的指针Lbl 1:IF S<***(线元终点里程):Then***→G(线元起点方位角):***→O(线元起点里程):***→U(线元起点X):***→V(线元起点Y):***→P(线元起点曲率半径):***→R(线元终点曲率半径): ***→H(线元起点至终点长度):0或1、-1→Q:Return:IfEnd↙Lbl 1:IF S<***(线元终点里程):Then***→G(线元起点方位角):***→O(线元起点里程):***→U(线元起点X):***→V(线元起点Y):***→P(线元起点曲率半径):***→R(线元终点曲率半径): ***→H(线元起点至终点长度):0或1、-1→Q:Return:IfEnd……………..为了便于解读,每增加一个线元增加一行语句,每增加一条曲线增加一个Lbl,每增加一个工程增加一个文件3. 正算子程序(SUB1)0.1739274226→A:0.3260725774→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+QEFW(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)→Y4. 反算子程序(SUB2)G-90→T: Abs((Y-V)cos(T)-(X-U)sin(T)) →W:0→Z:Lbl 0:Prog "SUB1":T+QEW(C+WD) →L: (J-Y)cos(L)-(I-X)sin(L)→Z:IF Abs(Z)<0.000001:Then0→Z:Prog "SUB1" :(J-Y)÷sin(F)→Z↙Else W+Z→W:Goto4:IfEnd5高程计算子程序(SUB3)IF K≤ M: Then D+(K-C)I/100→Z: Return:IfEnd↙IF K> M And K≤C :Then (K-M)2/(2R) →P:D+(K-C)I/100+QP→Z:Return:IfEnd↙IF K> C And K≤N :Then (K-M)2/(2R) →P:D+(K-C)J/100+QP→Z:Return:IfEnd↙IF K> N: Then D+(K-C)J/100→Z: Return:IfEnd↙经反复核对的,绝对能用,5800P上运行要4秒出结果。

5800正反算、隧道超欠挖程序

5800正反算、隧道超欠挖程序

三心圆隧道超欠挖,不足之处望高手指点二、CASIOfx-5800P计算器编程方法:SDCQWLbI 0←┘Fix9:31→DimZ:“R1”?→Z[1]:“R2”?→Z[2]:“DO2”?→Z[3]:“HO1”?→Z[4]:“HO2”?→Z[5]:“B”?→Z[6]:“H”? →Z[7]:“XA”?→Z[8]:“YA”?→Z[9]:“T”? →Z[10] ←┘LbI 1←┘“X”? →Z[11]:“Y”?→Z[12]:“Z”?→Z[13]:( Z[1]- Z[4]+ Z[7]-( Z[1]- Z[1]хcos(Z[6]))) →Z[14] ←┘LbI 2←┘If Z[13]≥Z[14]:Then√((Z[11]-Z[8])2+(Z[12]-Z[9])2)→Z[15]:Z[13]-(Z [7]-Z[4]) →Z[16]:√(Z[15]2-Z[16]2)→Z[17]:Z[17]-Z[1]→Z[18]:“CQ=”: Z[18]▲Goto 1:Else:Goto 3:IfEnd ←┘LbI 3←┘If Z[13]< Z[14]:Then Z[8]+Z[3]хcos(Z[10]-90)→Z[19]:Z[9]+Z[3]хsin(Z [10]-90)→Z[20]: Z[8]+Z[3]хcos(Z[10]+90)→Z[21]:Z[9]+Z[3]хsin(Z[10] +90)→Z[22]:“L”? →Z[23]:If Z[23]= 1:Then √((Z[11]-Z[19])2+(Z[12]-Z[20])2)→Z[24]:Z[13]-(Z[7]+Z[5])→Z[25]:√(Z[24]2+Z[25]2)→Z[26]:Z[26]-Z[2]→Z[27]: “CQ=”:Z[27]▲Else √((Z[11]-Z[21])2+(Z[12]-Z[22])2)→Z[28]:Z[13]-(Z[7]+Z[5])→Z[2 9]:√(Z[28]2+Z[29]2)→Z[30]:Z[30]-Z[2]→Z[31]: “CQ=”:Z[31]▲IfEnd←┘Goto 1←┘三、程序说明本程序按本标段实际情况编制,适用于三心圆隧道,由于第三半径包含范围小及所处水沟范围内,未编入程序内,该程序配合全站仪使用,隧道断面测量时,将全站仪置在该断面里程点中线上,测出断面上任一点三维坐标,数据输入计算R1→半径1R2→半径2DO2→隧道中线至圆心O2的横向距离HO1→隧道设计标高点至圆心O1的竖向距离HO2→隧道设计标高点至圆心O2的竖向距离B→半径R1与隧道中线的夹角H→里程点隧道设计高程XA→里程点隧道中线X坐标YA→里程点隧道中线Y坐标T→里程点切线方位角X→里程点隧道断面上任一点X坐标Y→里程点隧道断面上任一点Y坐标Z→里程点隧道断面上任一点Z坐标四、使用方法1、执行程序SDCQW,按FILE键调出“SDCQW”文件,按EXE键屏幕显示“R1?”,依次输入基本数据:R2:(若测开挖断面半径需加上二衬厚度、预留沉降量及初支厚度)DO2: 隧道中线至圆心O2的横向距离HO1: 隧道设计标高点至圆心O1的竖向距离HO2: 隧道设计标高点至圆心O2的竖向距离B: 半径R1与隧道中线的夹角H: 待测断面里程点隧道设计高程XA: 待测断面里程点隧道中线纵坐标YA: 待测断面里程点隧道中线横坐标T:待测断面里程点线路中线切线方位角2 输入全站仪采集数据X:待测断面上任一点纵坐标Y:待测断面上任一点横坐标Z:待测断面上任一点高程3 计算超欠数据程序运行,依据输入高程Z自动判断该点在哪一半径范围内,在第一半径范围内,直接算出超欠数据“CQ=”(“—“欠,“+”超),若测点在第二半径范围内,会出现“L?”(测点在隧道中线左侧?右侧?),在隧道中线左侧直接输入1,在右侧输入其它任何数字,计算超欠挖数据“CQ=”五、算例R1→9.1R2→5.55半径2DO2→1.818HO1→1.495HO2→1.554B→30°48′36″H→366.002XA→4477933.954YA→504250.721T→101°06′39.18″全站仪采集数据1(第一半径范围内)X→4477935.751Y→504251.073Z→373.372全站仪采集数据2(隧道中线左测)X→4477941.020Y→504252.108Z→368.920全站仪采集数据2(隧道中线右测)X→4477926.800Y→504249.316Z→368.385键操作屏幕显示操作说明[FILE] Prog List 调出SDCQW文件[EXE] R1?输入半径19.1 9.1[EXE] R2?输入半径25.55 5.55[EXE] DO2? 输入隧道中线至圆心O2的横向距离1.818 1.818[EXE] HO12? 输入隧道设计标高点至圆心O1的竖向距离1.495 1.495[EXE] HO2?输入隧道设计标高点至圆心O2的竖向距离1.554 1.554[EXE] B? 输入半径R1与隧道中线的夹角30°48′36″30°48′36″[EXE] H?输入里程点隧道设计高程366.002 366.002[EXE] XA0?输入里程点隧道中线X坐标4477933.954 4477933.954[EXE] YA?输入里程点隧道中线Y坐标504250.721 504250.721[EXE] T?输入里程点切线方位角101°6′39.18″101°6′39.18[EXE] X? 输入测得里程点隧道断面X坐标4477935.751 4477935.751[EXE] Y? 输入测得里程点隧道断面Y坐标504251.073 504251.073[EXE] Z? 输入测得里程点隧道断面Z坐标373.372 373.372[EXE] CQ=-0.047854508 输出超欠数据结果[EXE] X? 输入测得里程点隧道断面X坐标4477941.020 *******.020[EXE] Y? 输入测得里程点隧道断面Y坐标504252.108 504252.108[EXE] Z? 输入测得里程点隧道断面Z坐标368.920 368.920[EXE] L?程序自动判断测点在第二半径范围内,测点在隧道中线左侧?右侧?),在隧道中线左侧直接输入1,在右侧输入其它任何数字1 1[EXE] CQ=0.002970720 输出超欠数据结果[EXE] X? 输入测得里程点隧道断面X坐标4477926.800 4477926.800[EXE] Y? 输入测得里程点隧道断面Y坐标504249.316 504249.316[EXE] Z? 输入测得里程点隧道断面Z坐标368.385 368.385[EXE] L? 判断点位,隧道中线右侧0 0[EXE] CQ=-0.014906344 输出超欠数据结果。

5800隧道超欠挖程序

5800隧道超欠挖程序

1. 主程序(TYQXJS)Lbl 4:"1SZ => XY,2XY => SZ"?N:?S:Prog“SUB0”↙1÷P→C: (P-R)÷(2HPR) →D:180÷∏→E:N=1 => Goto1:Goto2:↙Lbl 1:”DZ”? Z:Abs(S-O) →W:Prog "SUB1":"XS":X◢"YS":Y◢Prog “SQX”(竖曲线的程序名字)F-90→F:“FS=”:F▲DMS◢Prog “CQW”(隧道超欠挖的程序名字)Goto4↙Lbl 2:”X”?X:“Y”?Y:X→I:Y→J:Prog“SUB2”:O+W→S:“S”:S◢“Z”:Z◢Prog“CQW”Goto4↙2. 正算子程序(SUB1)0.1739274226→A:0.3260725774→B:0.0694318442→K:0.3300094782→L:1-L→F:1-K→MG+QEKW(C+KWD)→Z[1]G+QELW(C+LWD)→Z[2]G+QEFW(C+FWD)→Z[3]G+QEMW(C+MWD)→Z[4]A×cos(Z[1])→XX+Bcos(Z[2])→XX+Bcos(Z[3])→XX+Acos(Z[4])→XU+WX→XAsin(Z[1])→YY+Bsin(Z[2])→YY+Bsin(Z[3])→YY+Asin(Z[4])→YV+WY→YG+QEW(C+WD)+90→FX+Zcos(F)→XY+Zsin(F)→Y2. 反算子程序(SUB2)G-90→T:(Y-V)cos(T)-(X-U)sin(T) →W:Abs(W) →W:0→ZLbl 0:Prog "SUB1"T+QEW(C+W D) →L:(J-Y)cos(L)-(I-X)sin(L)→Z:IF Abs(Z)<0.000001:Then0→Z:Prog "SUB1"(J-Y)÷sin(F)→ZElse W+Z→WGoto0:IfEndSUB0 数据库子程序Goto1↙Lbl 1:IF S<***(线元终点里程):Then***→G(线元起点方位角):***→O(线元起点里程):***→U(线元起点X):***→V(线元起点Y):***→P(线元起点曲率半径):***→R (线元终点曲率半径): ***→H(线元起点至终点长度):0或1、-1→Q:Return:IfEnd↙Lbl 1:IF S<***(线元终点里程):Then***→G(线元起点方位角):***→O(线元起点里程):***→U(线元起点X):***→V(线元起点Y):***→P(线元起点曲率半径):***→R (线元终点曲率半径): ***→H(线元起点至终点长度):0或1、-1→Q:Return:IfEnd……………..为了便于解读,每增加一个线元增加一行语句,每增加一条曲线增加一个Lbl,每增加一个工程增加一个文件。

5800正反算及隧道超欠挖资料

5800正反算及隧道超欠挖资料

任意坐标正反算及隧道超欠挖程序1-JIN YU(主程序)Lbl 4:"1→ZS,2→FS,3→CQW"?NN=1=>Goto 1:N=2=>Goto 2:N=3=>Goto 3Lbl 1: “K=”?S:“P=”?Z:Prog “SJ¬-PM”:Abs(S-O) → W:Prog "SUB1-ZS":“X=":Locate4,4,X:"Y=":Locate4,4,Y:F-90→F:S→ K:Prog“SJ¬-GC”:“H=”:Locat e4,4,H◢Goto 4Lbl 2:“X=”?X:“Y=”?Y:Prog“SJ¬-PM”:X→ I:Y→ J:Prog "SUB2-FS":O+ W→S: “K=":S ◢“P=":Z◢S→ K:Prog“SJ¬-GC” :“H=”:H◢Goto 4Lbl 3: “X=”?X:“Y=”?Y:Prog“SJ¬-PM”:X→ I:Y→ J:Prog "SUB2-FS":O +W→S: “K=":S ◢“P=":Z◢S→ K:Prog“SJ¬-GC” :“H=”:H◢Prog“SJ-CQW” ◢Goto4SJ¬-PM(子程序名-平面线形数据库)If S ≥59227.681(线元起点里程):Then 2599818.013→U(线元起点X坐标):49 6887.918→V(线元起点Y坐标):59227.681→O(线元起点里程):208028’39”→G(线元起点方位角):100 →H(线元长度):1×1045→P(线元起点曲率半径):1×1045→R(线元终点曲率半径):0 →Q(线元左右偏标志:左-1右1):IfEnd If S ≥59327.681(线元起点里程):Then 2599730.112→U(线元起点X坐标):49 6840.237→V(线元起点Y坐标):59327.681→O(线元起点里程):208028’39”→G(线元起点方位角):90 →H(线元长度):1×1045→P(线元起点曲率半径):750→R(线元终点曲率半径):-1 →Q(线元左右偏标志:左-1右1):IfEnd…………SJ-GC¬(子程序名-竖数据库)If S<变坡终点里程And S≥变坡起点里程:Then大里程坡度→A:小里程坡度→B:变坡点里程→O:变坡点高度→G:半径→R:Prog“SUB3-GC”:IfEnd(注:1.有多个竖曲线,依照上面的依次变更,每多一个,就增加一个。

自用5800P全线任意里程中边桩正反算及高程计算带超欠挖

自用5800P全线任意里程中边桩正反算及高程计算带超欠挖

FX5800P全线任意里程中边桩坐标正反算(加了数据库)本程序非本人原创,结合上传者长处,进行改编,愿收获和大家共享,不足之处多多指教。

含竖曲线及隧道超欠挖,本程序由内蒙@文哥和师父阿玖哥共同改编完成主程序 ZBJSLbl 6:"1.SZ→ XY":"2.XY→ SZ":?S:?N:“DYPQXSJK=”?→A:A=1 =>Prog“ZP1”:A=2=>Prog“ZP2”: A=3=>Prog“YP1”: A=4=>Prog“YP2”1÷P→C:(P-R)÷(2HPR) →D:180÷π→E:N=1 =>Goto 1: Goto 2Lbl 1:?Z: ?T:Abs(S-O)→W: Prog"SUB1":"XS=":X◢"YS=":Y◢"FS=":F-90 ►DMS◢“XC” ?C:“YC” ? E:0→I:0→J:Pol(X-C,Y-E):“I=”:I◢If J∠0: Then “J=”: J+360►DMS◢IfEndIf J >0:Then “J=” :J►DMS◢IfEnd:“DYSQXSJK=”?→B:B=1=>Prog“ZG1”:B=2=>Prog“ZG1”: B=3=>Pro g“YG1”: B=3=>Prog“YG1”:Goto 6Lbl 2X:Y:X→I:Y→J:Prog"SUB2":O+W→S:Cls:"S=":S◢"Z=":Z◢“DYSQXSJK=”?→B:B=1=>Prog“ZG1”:B=2=>Prog“ZG1”: B=3=>Prog“YG1”: B=3=>Prog“YG1”:Goto 6如不想用偏角法放样可直接删除“XC” ?C:“YC” ? E:0→I:0→J:Pol(X-C,Y-E):“I=”:I◢直接里程推坐标。

  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

(以下程序是专业人士编写,本店铺不对程序负责,仅供您参考使用。

)
fx5800p隧道测量超欠挖计算程序
曲线:QXLK
“ZF”?U:“RP”?O:“ZY”? K:D“X 0”?D:E“YO”?E :?V:?H:?B:?R:?M:?N:“OZ-ZXX”?A:“R1”?P:“R2”?Q←┘
Lb1 8←┘
?X:?Y←┘
Pol((X-D),(Y-E) )) ←┘
“S ”:= -V(I-O)=→S ◢(字母O)
“L ”:=K+πOsin-1 (sin(90+V(J-U )))÷180→L◢
RAbs(N-M)÷2→T←┘
B-L→C←┘
1→F←┘
IF M>N:Then-1→F:THEND←┘
IF L<B-T:Then Goto 1:ELSE IF
L<B:THEN Goto 2:ELSE IF
L<B+T:THENGoto3:
ELSE IF L>B+T:THEN Goto4:IFEND: :IFEND: :IFEND: :IFEND←┘
Lb1 1←┘
“G ”:=H-CM→G◢
Goto5←┘
Lb1 2←┘
“G =”:H-C M +F(T-Abs(C)2÷(2R)→G◢Goto5←┘
Lb1 3←┘
“G= ”:=H-C N +F(T-Abs(C)2÷(2R)→G◢Goto5←┘
Lb1 4←┘
“G=”:H-CN→G◢
Lb1 5←┘
?Z←┘
IF Z>G+5.92:THEN Goto6:ELSE Goto7:IFEND←┘Lb1 6←┘
“W=”:√(S2+(Z-G-3.1) 2)-P→W◢
Goto8←┘
Lb1 7←┘
“W=”:√((A+Abs(S)2+(Z-G-1.7) 2)-Q→W◢Goto8←┘
说明:
Z F?方位角
RP?半径
ZY?圆曲线起点桩号
X0?圆心X坐标
Y0?圆心Y坐标
V?转向
H ? 变坡点高程
B? 变坡点桩号
R? 竖曲线半径
M? 前纵坡
N? 后纵坡
OZ-ZXX? 圆心距中心线距离
R 1 ? 拱顶半径
R 2 ?内圆半径
XO ? 实测坐标
YO ? 实测坐标
J ?
L ? 桩号
S ? 平距
G ? 设计高程
Z ? 实测高程
W ? 超欠挖(“+”为超挖“-”为欠挖)
算例
索子沟二号隧道圆曲线段参数设置:ZF? 324 35 53.4
RP ?500 ZY?29117.543 X O?60807.872 Y O?12833.4328 V?1
H ? 1717.4 B? 29750 R? 12000 M? 0.65%N? -0.1028%OZ-ZXX?
2.2 R1? 4.286 R2? 6.893
X=60869.64 Y=12332.5154 H=1720.211 计算L=29487.827 S=-4.711 W=0.56966
直线:ZXLK
“ZF”?U:“QSDZH”? K: “X0”?D: “YO”?E :?H:?B:?R:?M:?N:“OZ-ZXX”?A:“R1”?P:“R2”?Q←┘
Lb1 8←┘
?X:?Y←┘
Pol((X-D),(Y-E) )) ←┘
“L ”:K+COS (J-U)×I→L◢
“S ”:SIN (J-U) ×I→S ◢(
RAbs(N-M)÷2→T←┘
B-L→C←┘
1→F←┘
IF M>N:Then-1→F:THEND←┘
IF L<B-T:Then Goto 1:ELSE IF
L<B:THEN Goto 2:ELSE IF
L<B+T:THENGoto3:
ELSE IF L>B+T:THEN Goto4:IFEND: :IFEND: :IFEND: :IFEND←┘
Lb1 1←┘
“G ”:=H-CM→G◢
Goto5←┘
Lb1 2←┘
“G =”:H-C M +F(T-Abs(C)2÷(2R)→G◢
Goto5←┘
Lb1 3←┘
“G= ”:=H-C N +F(T-Abs(C)2÷(2R)→G◢
Goto5←┘
Lb1 4←┘
“G=”:H-CN→G◢
Lb1 5←┘
?Z←┘
IF Z>G+5.92:THEN Goto6:ELSE Goto7:IFEND←┘
Lb1 6←┘
“W=”:√(S2+(Z-G-3.1) 2)-P→W◢
Goto8←┘
Lb1 7←┘
“W=”:√((A+Abs(S)2+(Z-G-1.7) 2)-Q→W◢
Goto8←┘
说明:
Z F?直线方位角QSDZH? 直援点圆心桩号
X O?圆心X坐标Y O?圆心Y坐标
H ? 变坡点高程B? 变坡点桩号
R? 竖曲线半径M? 前纵坡
N? 后纵坡OZ-ZXX? 圆心距中心线距离R 1 ? 拱顶半径R 2 ?内圆半径
XO ? 实测坐标YO ? 实测坐标
J ? L ? 桩号S ? 平距
G ? 设计高程Z ? 实测高程W ? 超欠挖(“+”为超挖“-”为欠挖)
算例
索子沟二号隧道直线段参数设置:ZF? 4 12 28.7 QSDZH? 29463.203 X O?60844.56 Y O?12334.7807 H ? 1717.4 B? 29750 R? 12000 M?
0.65%N? -0.1028%OZ-ZXX? 2.2 R1? 4.286 R2? 6.893
X=61056.762 Y=12348.355 H=1723.69 计算L=29675.829 S=-2.033 G=1716.888. W=-0.063。

相关文档
最新文档