还剩8页未读，继续阅读
本资源只提供10页预览，全部文档请下载后查看！喜欢就下载吧，查找使用更方便
文本内容:
CASIO9860G SD线元法隧道三维（坐标正反计算、高程）计算程序
1.A此为主程序LblOl.LC=XY2,XY=LC3,ZHZL=GC PB=V=1,2,3一V If V=lThen GOTO1IfEndIf V=2Then GOTO2IfEndIfV=3Then GOTO3Else GOTO0IfEnd Lbl3ZH=H-HSDZF二Z？一Z ProgZGCZCX、GOTO0Lbl
1、ZH=L一L If L173000And L
174661.96Then GOTO4Else GOTO0IfEndLbl4L-LSDZF=Q-QXLZJ,-Z+Y=Q Q+
0.125-Q Prog ZBQXYSJSJD=J90-J▲Prog、ZSZB”V，X=X▲Y=YA FWJ=O OVDMSAL—HQ-
0.125—ZProg ZGCZCX GOTO0Lbl2XO=M、TMYO=R173300-L IfM
3845505.273And M
3846506.099And R
499371.832And R
500352.224Then GOTO5Else GOTO2IfEndLbl50—Q0-J ProgZBFS、LC=L、L▲MJL=QQA SDZJ,-Z+Y=Q Q-
0.125-Q▲L—H QTZProgZGCZCXGOTO
02.正算坐标ZBZSL-S/4-H90/K-FHHF1/T-l/I/K-S-U2HF/I—DC+4D+16U一O O+JTPC+D+U-EC+2D+4UiWC+3D+9U—G A+AbsH/3*cosC+4cosG+cosE+2cosW+cosO+Qcos P—►XB+AbsH/3*sinC+4sinG+sinE4-2sinW+sinO+Qsin P-Y
3.反算坐标ZBFSLbl0ProgZBQXYSProg ZBZS0-90一ZR-YcosZ-M-X sinZ-PL+PTLIf AbsP
0.001Then GOTO0Else GOTO1IfEndLbl IR-YcosO-M-X sinO-Q
4.曲线元要素数据库ZBQXYSV=3ZH输入桩号173806SDZF,-Z+Y=0XLZJ输入
0.125XLZG=
1321.677YO1XG=
1323.279J”ZSBSJGC”=
1329.259V=3ZH输入桩号173806SDZF,-Z+Y=-5XLZJ输入-
4.875XLZG=
1321.677YO1XG=
1323.279J”ZSBSJGC”=
1329.559V=3ZH输入173806SDZF,-Z+Y=5XLZJ输入
5.125XLZG=
1321.677YO1XG=
1323.279J”ZSBSJGC”=
1329.559If LSAndLKThen**-S*-T IfEndIf LSAndLKThen**-S*-T IfEndIf LSAnd LKThen**—S**-C**-I**-K**-T IfEndIf LSAndLKThen**—S*-T IfEndIf LSAndLK Then**—SB*-T IfEndIf LSAndLKThen**-S**-A**-B*-T IfEnd」（注如有多个曲线元要素连续添参与数据库ZBQXYS中）5高程计算主程序ZGCZCX（后有修改说明）LbilSCGC=X-XR=M
5.98tMCS=N
1.603一NProgGCSJKC-D—FAbsRF；2-TR AbsF+F—RIf HB-TThen O^KGOTO2IfEndIf HB-T And HB+TThen H-B+T—KGOTO2IfEndIfHB+T Then0—K D-C GOTO2IfEnd Lbi2XLZG=GA-B-HC-KA2-2R-GAlf Z0Then IfX100Then YO1XGC=J G+N-*JA YGCFSKD=J AbsMA2-X-G+N A2-JAwYKDCQ,+CQ=J J-Abs Z+
0.000-JA YSBSJGC=J G+N+^MA2-Z+
0.000A2一1▲rYGCCQ,C+,Q-=J X-J^JAElse YO1XGC=J G+N^JAWYSBSJGC=J G+N+«M八2-Z+.0人2-JA IfEndElse ZO1XGC=J G+N-JAlf X100ThenZGCFSKD=J AbsMA2-X-G+N A2-JA WZKDCQ,+C,-Q=J J-Abs Z+
0.000-*JAVZSBSJGC=J G+N+^MA2-Z+
0.000A2-JAWZGCCQ,C+,Q-=J X-J-＞JAElseZSBSJGC=J G+N+«M八2-Z+
0.000A2-J AlfEndIfEnd6高程计算主程序子程序GCSJKIfH＞起点桩号AndHW第一个竖曲线起点桩号Then第一竖曲线交点高程-A第一竖曲线交点桩号-B第一竖曲线前坡度-C第一竖曲线后坡度TD第一竖曲线半径一＞RIfEnd If H〉第一竖曲线止点桩号And HW其次竖曲线起点桩号Then第一竖曲线交点高程-A第一竖曲线交点桩号-B第一竖曲线前坡度一C第一竖曲线后坡度-D第一竖曲线半径一RIfEnd IfH＞第一竖曲线止点桩号And1上其次竖曲线起点桩号Then第一竖曲线交点高程TA:第一竖曲线交点桩号-B:第一竖曲线前坡度-C第一竖曲线后坡度-D:第一竖曲线半径一R IfEnd连续添加要素说明第一局部坐标局部
1、
2、
3、4V=1进入坐标正算V=2进入坐标反算V=3进入单独的高程计算当V不等于
1、
3、规定1以道路中线的前进方向即里程增大的方向区分左右；当线元往左偏时，半径=半径*-1;当线元往右偏时，半径二半径；当线元为直线时.，半径二以1的45次代替2当所求点位于中线时，Q,J=O；当位于中线左侧时，J取负值；当位于中线右侧时，J取正值3当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替4当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径5当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径止点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径6当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径
4、输入与显示说明V=1的时候JL正算时所求点距中线的边距在中线上取零J边桩时左右边桩连线与线路中线的交角线元左右偏标志左偏J=l*角度，右偏J二角度，直线段J=0角度X=xxx正算时，计算得出的所求点的X坐标Y=xxx正算时，计算得出的所求点的Y坐标FWJ=***计算得出所求点的方位角°”V=2的时候XO=xxx所求点的X坐标YO=xxx所求点的Y坐标LC=****求点所对应的里程几=****求点到所对应的里程的距离-5就是左边相反就是右边想知道是否正确V=1看看坐标是否全都留意验算的时候不需要改动JLJ[/center]J说明其次局部高程局部5高程计算主程序SQXBG6高程计算主程序子程序S JK
1、A交坡点高程
2、B交坡点桩号
3、C前坡度［上坡为正，下坡为负）
4、D坡度（上坡为正，下坡为负）
5、R竖曲线半径
6、H待求点桩号
7、E下一竖曲起点桩号
8、X SCGC、测点实测高程
9、MR”O1点半径（此处如须计算开挖线加上二衬厚度、沉降量、其他构造层的厚度即可）
10、N CS线路中桩设计高程至01点的距离Ik J YO1XGCO1点（圆心点）高程
12、J YSBSJGC、依据桩号及支距［正反算程序中）计算得到的测点（设计）高程JYGCFSKD、反算中依据高程反算得到的支距J、YKDCQ,+C,-Q”实测高程计算得支距与坐标反算得支距进展比照，得到超欠挖J、YGCCQ,C+,Q-、实测高程与坐标反算得到高程进展比照，得到超欠挖
13、J ZO1XGC01点（圆心点）高程
14、JYSBSJGC依据桩号及支距（正反算程序中）计算得到的测点（设计）高程JZGCFSKD反算中依据高程反算得到的支距J MZKDCQ,+C,-Q”实测富程计算得支距与坐标反算得支距进展比照，得到超欠挖J ZGCCQ,C+,Q-实测高程与坐标反算得到高程进展比照，得到超欠挖（本人施测的是一大路隧道的上行线，线路中心线至隧道中心线的距离为
0.125米，线路中心线在隧道中心线的左侧Z SDZJ-Z+Y为隧中支距，Z+
0.125为线路支距如线路中线在隧道中线的右侧，则为Z-
0.125为线路支距其中Z在左侧取・，右侧取+）SQXBG修改说明此式中X为实测的该点高程，V=1和3时，请将X输为0,当V=2时，输入为实测的高程数据一般在测量时，将拱部点测得三维后，反算得到里程和支距，即用实测高程计算得到该高程点的理论支距，再用理论支距与坐标反算的支距进展比照，超欠挖自明同时用反算的支距也可计算出该点的理论高程，用实测的高程与计算的理论高程比照，自可得到拱部是高度是否超欠挖LbilSCGOX—X、R=M—MCS=N、？—NProgGCSJK”C-D—F AbsRF；2-T RAbsF+F—R IfHB-T Then0-K GOTO2IfEnd IfHB-TAnd HB+T ThenH-B+T—KGOTO2IfEndIf HB+TThen0-KD-CGOTO2IfEndLbi2WXLZG=G A-B-H C-KA2-2R-G AlfZ0YOIXGC=J G+N-JAThen IfX100ThenYGCFSKD=J、AbsMA2-X-G+N A2-JAVYKDCQ,+C,-Q=J J-Abs Z+
0.000-JAWYSBSJGC=J G+N+^MA2-Z+
0.000A2-JA”YGCCQ,C+,Q-二JX-J-JAElseYSBSJGOJ、G+N+«M人2-Z+
0.000A2-JIfEnd▲ElseZO1XGC=J G+N-JAIf X100ThenZGCFSKD=J、AbsMA2-X-G+N A2一〕▲ZKDCQ,+C,-Q=J J-Abs Z+.XX一」▲WZSBSJGC=J G+N+«M人2-Z+.0人2一•!▲WZGCCQ,C+,Q-=J X-J-JAElseWZSBSJGC=J G+N+^MA2-Z+
0.000A2-J AIfEndIfEnd如在4850中请将X X=▲Y、Y=、▲改为、‘X=X/、Y=Y/将L、LC二AQ、JL=▲改为LC=L/JL=Q/将G XLZG=A-B-H C-K2+2R▲改为XLZG=G=A-B-H C-K2-2RA将J YO1XGC、=G+N▲改为JYO1XGC=G+NA将J YKDCQ,+C,-Q=J-Abs Z+
0.125▲改为J、YKDCQ,+C,-Q=J-Abs Z+
0.125▲将J YSBSJGC、=G+N+qM八2-Z+
0.125A2▲改为J YSBSJGC、:G+N+TM人2-亿+
0.125八2将J YGCCQ,C+,Q-、=X-J▲改为J、YGCCQ,C+,Q-:X-J左侧同理0403程序说明
1、程序中有桩号推断，超出计算范围，不会进展计算，要求你重输入桩号
2、本程序中有X、丫的最大、最小计算推断，超出X、丫的最大、最小值范围，不会进展计算，要求你重X、丫值
3、本程序反算中有宽度方向和高度方向的超欠挖
4、算例局部见第一楼.提问者lbs326人气1780赏分+62查看楼主其它问题一回复内容只杏看楼I与本人复按夕持人数排用沙发lbs326楼主算例0403I、平曲线要素交点号JD37交点桩号SK174+
133.90交点坐标X=
3845932.100交点坐标Y=
499588.222右偏角4554,41前方位角297187半径=1200LS1=LS2=15OZH点桩号SK173+
550.394HY点桩号SK173+
700.394YH点桩号SK174+5II.96HZ点桩号SK174+
661.960A1=A2=
424.264T1=T2=
583.596SKI73+300QD点坐标X=
3845549.528Y=
500329.288C=297°181TSKI73+
550.394ZH点坐标X=
3845664.390Y=
500106.7933C=297°18,17SKI73+7X.394HY点坐标X=
3845735.948Y=
499974.9917C=
30005308.5〃SKI74+
106.177QZ点坐标X=
3845998.621Y=
499668.235C=320°
1537.47KI74+
511.960YH点桩号X=
3846348.183Y=
499465.9908C=
33903806.45ZBQXYSIf L173300And L
173550.394Then173300-S
3845549.528-A
500329.288-B297°18,17,,-C1E45-I
173550.394—K1E45-TIfEnd IfL
173550.394And L
173700.394Then
173550.394-S
3845664.390一A
500106.7933—B297°1817TC1E45-I
173700.394—K1200—TI EndIfL
173700.394And L
174106.177Then
173700.394—S
3845735.948—A
499974.9917—B
005308.55-1200—
1174106.177—K1200—TIfEnd IfL
174106.177And L
174511.960Then
174106.177一S
3845998.621-A
499668.235-B320°
1537.47w-C1200-l
174511.96-K1200-TIfEnd IfL
174511.96And L
174661.960Then
174511.960—S
3846348.183一A
499465.9908-B339°
3806.45TC1200-
4174661.96—K1E45-TIfEnd注1E45,意即无穷大
2、竖曲线要素第一变坡点桩号SK173+350变坡点高程=
1332.762竖曲线半径=
24498.033前坡度-
0.761%后坡度2431%竖曲线起点SK173+
145.441竖曲线止点SK173+
554.559其次变坡点桩号SK174+
395.249变坡点高程=
1307.352竖曲线半径二56000前坡度-
2.431%后坡度-
1.690%竖曲线起点SK174+
187.949竖曲线止点SK174+
602.909第三变坡点的竖曲线起点桩号SK174+900oGCSJKIf H
173.
145.441And Hl
74187.949Then
1332.762—A173350—B
0.00761^C・
0.02431一D
24498.033—RIfEndIfH
174187.949AndH174900Then
1307.352-A
174395.429—B-
0.02431-C-
0.0169—D56000-RIfEnd
3、实例计算如下其中:X”SCGC”输入任意实测高程值MR=
5.98N“CS”=
1.602V=1L输入173806几输入
0.1255口2丁2+丫后显示0X=
3845794.175Y=
499886.936FWJ=“
305.928XLZG=
1321.677YO1XG=
1323.279J“ZSBSJGC”=
1329.259V=1L输入173806JL输入-
4.875SDZJ,-Z+Y后显示-5X=
3845790.126Y=
499884.002FWJ=
305.928XLZG=
1321.677YO1XG=
1323.279J”ZSBSJGC”=
1326.559V=1L输入173806JL输入
5.125SDZJ,-Z+Y后显示5X=
3845798.224Y=
499889.869FWJ=
305.928XLZG=
1321.677YO1XG=
1323.279J”ZSBSJGC”=
1329.559J,,ZGCFSKD,,=AbsVMA2-X-G+N A2▲J,,ZKDCQ,+C,-Q,,=J-AbsZ+.125▲J”ZSBSJGC”=G+N+YMA2-Z+
0.125-2▲J”ZGCCQ,C+,Q」=X-J均为相应值V=2L输入173806X0=
3845794.175Y=
499886.9355LC=
173805.9996JL=
0.125210SDZJ,-Z+Y=
0.000210XLZG=
1321.677YO1XG=
1323.279J”ZSBSJGC”=
1329.259「ZGCFSKD JZKDCQ,+C,-Q JZGCCQ,C+,Q-”均为相应值V=2L输入173806X0=
3845790.126Y=
499884.002LC=
173805.9996JL=-
4.875065SDZJrZ+Y=-
5.000065XLZG=
1321.677YO1XG=
1323.279J”ZSBSJGC”=
1329.559『ZGCFSKD JZKDCQ,+C,-Q JZGCCQ,C+,Q-“均为相应值V=2L输入173806X0=
3845798.224Y=
499889.869LC=
173806.0004JL=-
5.124899SDZJ,-Z+Y=
4.999899XLZG=
1321.677YO1XG=
1323.279J“ZSBSJGC”=
1329.559「ZGCFSKD JZKDCQ,+C,・Q JZGCCQ,C+,Q」均为相应值。
个人认证
优秀文档
获得点赞 0
