4800隧道测量程序.xls
《4800隧道测量程序.xls》由会员分享,可在线阅读,更多相关《4800隧道测量程序.xls(72页珍藏版)》请在淘文阁 - 分享文档赚钱的网站上搜索。
1、Z=L-1,R+1:AA0:Q=R+SLSci224R:T=S2-S3240R2+Anstan.5AL=RA1r+SHZH=WJDT-TIHY=H+SIQZ=H+.5LIYH=H+L-SLHZ=H+LDXJKYJBGraOXEUYEGXmMXm:LbIF:FN:FH=X=F-W:ZN:=FL-S=V=F-H:FProgQ:=Rec(R-ZN,(2V-S)r2R:X=J-Qtan.5A:Q-IV=L-F:PoI(T-V,ZN:FProg Q:PoI(-X,AnsX=Rec(Ans,A+J:JX=D+Rec(PoI(X,ZAns,J+BY=K+J OK!:PoI(G-O,M-U:V=J:PoI(X
2、-O,Y-U:J-V:AnsAns+360V=Ans IP=Goto F 主程序结束Q 子程序Y=2RS:Rec(ZN,V2rY:X=V-V510Y2-T-J:V33Y-V742Y3+I 注:本程序适用于完整线型。(即:直线+缓和曲线+圆曲线+缓和曲线+直线)Z:线路偏向信息左转输:-1,右转输:+1。r:弧度,按FUNCTION 键5键5键输入。A0:线路转向角以度分秒形式输入。R:圆曲线半径。Lsci:缓和曲线长度。无缓和曲线,单圆曲线时输入“0”T=:程序输出切线长。L=:程序输出曲线长度。JDT?:输入交点里程。ZH=、HY=、QZ=、YH=、HZ=:程序输出曲线五大桩里程。XJ:输入
3、交点大地坐标。用切线坐标系时输0。YJ:输入交点大地坐标。用切线坐标系时输0。Gra:输入ZH点方位角,用切线坐标系时输0。XE:输入 置镜点坐标,用于切线坐标系时该项为切线坐标。YE:输入 置镜点坐标,用于切线坐标系时该项为切线坐标。Xm:输入 后视点坐标,用于切线坐标系时该项为切线坐标。Ym:输入 后视点坐标,用于切线坐标系时该项为切线坐标。F:输入放样点里程桩号。(若放样点位于前一公里内,可以“-50”的形式输入,程序认为放样点为“+950”,反之输入“1200”表示放样点位于下一公里内。)N:输入边桩至中桩距离,(线路左边桩输入负值,右边桩以正值输入)计算中桩坐标时输“0”。X:输出放
4、样点x坐标。Y:输出放样点y坐标。OK:表示计算正在进行。V:输出放样水平角。(即前视到置镜点方位角减后视到置镜点方位角)P:输出放样点至置镜点距离。依风的感言谢就一个字,包含千万的情谊一、坐标计算源程序 1.主程序(TYQXjs)1.SZ=XY:2.XY=SZ:N:UX0:VY0:OS0:GF0:HLS:PR0:RRN:Q:C=1P:D=(P-R)(2HPR):E=180:N=1=Goto 1:Go to 2 Lbl 1:SZ:SZ:W=Abs(S-O):Prog SUB1:XXS=X YYS=Y Goto 1 Lbl 2:XY:XY:I=X:J=Y:Prog SUB2:SS=O+W ZZ=
5、Z Goto 2 2.正算子程序(SUB1)A=0.1739274226:B=0.3260725774:K=0.0694318442:L=0.3300094782:F=1-L:M=1-K:X=U+W(Acos(G+QEKW(C+KWD)+Bcos(G+QELW(C+LWD)+Bcos(G+QEFW(C+FWD)+Acos(G+QEMW(C+MWD):Y=V+W(Asin(G+QEKW(C+KWD)+Bsin(G+QELW(C+LWD)+Bsin(G+QEFW(C+FWD)+Asin(G+QEMW(C+MWD):F=G+QEW(C+WD)+90:X=X+ZcosF:Y=Y+ZsinF 3.反算子
6、程序(SUB2)T=G-90:W=Abs(Y-V)cosT-(X-U)sinT):Z=0:Lbl 0:Prog SUB1:L=T+QEW(C+WD):Z=(J-Y)cosL-(I-X)sinL:AbsZGoto1:W=W+Z:Goto 0 Lbl 1:Z=0:Prog SUB1:Z=(J-Y)sinF 二、使用说明 1、规定(1)以道路中线的前进方向(即里程增大的方向)区分左右;当线元往左偏时,Q=-1;当线元往右偏时,Q=1;当线元为直线时,Q=0。(2)当所求点位于中线时,Z=0;当位于中线左铡时,Z取负值;当位于中线中线右侧时,Z取正值。(3)当线元为直线时,其起点、止点的曲率半径为无穷
7、大,以 10的45次代替。(4)当线元为圆曲线时,无论其起点、止点与什么线元相接,其曲率 半径均等于圆弧的半径。(5)当线元为完整缓和曲线时,起点与直线相接时,曲率半 径为无穷大,以10的45次代替;与圆曲线相接时,曲率半 径等于圆曲线的半径。止点与直线相接时,曲率半径为无穷大,以10的45次代替;与圆曲线相接时,曲率半径等于圆曲线的半径。(6)当线元为非完整缓和曲线时,起点与直线相接时,曲率半径等于设计规定的值;与圆曲线相 接时,曲率半径等 于圆曲线的半径。止点与直线相接时,曲率半径等于设计规定的值;与圆曲 线相接时,曲率半径等于圆曲线的半径。2、输入与显示说明 输入部分:1.SZ=XY 2
8、.XY=SZ N?选择计算方式,输入1表示进行由里程、边距计算坐标;输入2 表示由坐标反算里程和边距。X0?线元起点的X坐标 Y0?线元起点的Y坐标 S0?线元起点里程 F0?线元起点切线方位角 LS?线元长度 R0?线元起点曲率半径 RN?线元止点曲率半径 Q?线 元左右偏标志(左偏Q=-1,右偏Q=1,直线段Q=0)S?正算时所求点的里程 Z?正算时所求点距中线的边距(左侧取负,值右侧取正值,在中线上取零)X?反算时所求点的X坐标 Y?反算时所求点的Y坐标 显示部分:XS=正算时,计算得出的所求点的X坐标 YS=正算时,计算得出的所求点的Y坐标 S=反算时,计算得出的所求点的里程 Z=反算
9、时,计算得出的所求点的边距 四、算例 某匝道的由五段线元(直线+完整缓和曲线+圆曲线+非完整缓和曲线+直线)组成,各段线元的要素(起点里程S0、起点坐标X0 Y0、起点切线方位角 F0、线元长度LS、起点曲率半径R0、止点曲率半径RN、线 元左右偏标志Q)如下:S0 X0 Y0 F0 LS R0 RN Q 500.000 19942.837 28343.561 125 16 31.00 269.256 1E45 1E45 0 769.256 19787.340 28563.378 125 16 31.00 37.492 1E45 221.75-1 806.748 19766.566 28594
10、.574 120 25 54.07 112.779 221.75 221.75-1 919.527 19736.072 28701.893 91 17 30.63 80.285 221.75 9579.228-1 999.812 19744.038 28781.659 80 40 50.00 100.000 1E45 1E45 0 1、正算(注意:略去计算方式及线元要素输入,请自行根据所求点所在的线元输入线元要素)S=700 Z=-5 计算得 XS=19831.41785 YS=28509.72590 S=700 Z=0 计算得 XS=19827.33592 YS=28506.83837 S=
11、700 Z=5 计算得 XS=19823.25398 YS=28503.95084 S=780 Z=-5 计算得 XS=19785.25749 YS=28575.02270 S=780 Z=0 计算得 XS=19781.15561 YS=28572.16358 S=780 Z=5 计算得 XS=19777.05373 YS=28569.30446 S=870 Z=-5 计算得 XS=19747.53609 YS=28654.13091 S=870 Z=0 计算得 XS=19742.68648 YS=28652.91379 S=870 Z=5 计算得 XS=19737.83688 YS=2865
12、1.69668 S=940 Z=-5.123 计算得 XS=19741.59118 YS=28722.05802 S=940 Z=0 计算得 XS=19736.47687 YS=28722.35642 S=940 Z=3.009 计算得 XS=19733.47298 YS=28722.53168 2、反算 X=19831.418 Y=28509.726 计算得 S=699.9999974 Z=-5.00018164 X=19827.336 Y=28506.838 计算得 S=699.9996493 Z=0.000145136 X=19823.25398 Y=28503.95084 计算得 S=
13、699.9999985 Z=5.000003137 X=19785.25749 Y=28575.02270计算得 S=780.0000035 Z=-5.000001663 X=19781.15561 Y=28572.16358 计算得 S=780.0000025 Z=-0.000002979 X=19777.05373 Y=28569.30446 计算得 S=780.0000016 Z=4.99999578 X=19747.536 Y=28654.131计算得 S=870.0001137 Z=-4.99941049 X=19742.686 Y=28652.914 计算得 S=870.00031
14、75 Z=-0.00041814 X=9737.837 Y=28651.697 计算得 S=870.0002748 Z=4.999808656 X=19741.5912 Y=28722.0580 计算得 S=939.9999786 Z=-5.123024937 X=19736.4769 Y=28722.3564 计算得 S=939.9999862 Z=-0.000027710 X=19733.4730 Y=28722.5317 计算得 S=940.000 0238 Z=3.00898694 3、本人修改意见:以上程序正算、反算看来似乎很正确,满足测量精度要求。但要明白以下三点:是不是对于任意曲
15、线正、反算都可以达到精度要求?字母代表的意思?推导过程?会不会出错?应该再补充些什么功能?怎么才能提高精度要求?修改后,程序没有任何条件限制,且运行正常,完全满足客户精度要求,很实用!愿与大家分享!4、例题 圆曲线半径R为700米,圆曲线长为350米,曲线右转,起点里程为DK1+200,坐标为(200,456),切线方位角为1201526.6计算DK1+520右100米点坐标,并反算桩号、左右距。读者可自算,源程序计算结果:正算:X=-73.03846 Y=603.3210 反算:W=1512.069875 Z=95.4193(明显不对,超出范围了)按W=1512.069875 Z=95.41
16、93计算坐标:坐标也不对,那肯定是错了CASIO-5800公路测量程序(自编)文件名:HHQX 缓和曲线段内任意点坐标计算程序“FWJ=”?Q“ZHUAN XIANG L(-1),R(1)=”?N“R(m)=”?R“LS(m)=”?D“KZH=”?G“XZH=”?U“YZH=”?VLbI 0“KP=”?HAbs(H-G)CC-C5/(40R2D2)+C9/(3456 R4D4)JC3/(6RD)-C7/(336R3D3)+C11/(42240R5D5)KQ+N(C2/(2RD)(180/)FU+JCos(Q)+K Cos(Q+90N)AV+JSin(Q)+K Sin(Q+90N)BLbI 1“
17、XP=”:A“YP=”:B“QIE XIAN FWJ=”:F LbI 2“BIAN JU(m)=”?SS=0Goto 0LbI 3“JIA JIAO L(-),R(+)=”?EA+S Cos(F+E)XB+S Sin(F+E)YLbI 4“X1=”:X“Y1=”:Y Goto 2 FWJ=?-输入交点间方位角ZHUAN XIANG L(-1),R(1)=?-输入曲线转向,左输-1,右输1R(m)=?-输入曲线半径LS(m)=?-输入缓和曲线长KZH=?-输入ZH点桩号XZH=?、YZH=?-输入ZH点坐标KP=?-输入待求点桩号BIAN JU(m)=?-输入边距(斜交时输入斜长),不论左右一律
18、正值,当不计算边桩时输入OJIA JIAO L(-),R(+)=?-输入边桩与中桩法线方向夹角,左边输负值,右边输正值 答答案案补补充充5800中边桩坐标计算程序ZZZZZZ(主程序)Lb1 1:”NO.I”?H:Prog”Z1”换行(E-D)/Abs(G-F)P:Abs(H-F)Q:PQI换行C(I2D)Q90J换行C(I82D)Q45(4)M换行C(3I82D)Q135(4)N换行C(5I82D)Q225(4)U换行C(7I82D)Q315(4)V换行C(I42D)Q45(2)K换行C(I22D)Q45L换行C(3I42D)Q135(2)Z换行AQ24(cosC4(cosMcosNcosU
19、cosV)2(cosKcosLcosZ)cosJ)X换行BQ24(sinC4(sinMsinNsinUsinV)2(sinKsinLsinZ)sinJ)Y换行“X=”:X“Y=”:Y“W L“?O:WR?R答答案案补补充充“XL=”:XOcos(J90)“YL=”:YOsin(J90)“XR=”:XRcos(J90)“YR=”:YRsin(J90)Goto 1换行 Z1(数据库)If H终点桩号:Then起点桩号F:终点桩号G:起点X坐标A:起点Y坐标B:起点切线方位角C:起点曲率D:终点曲率E:Goto 0:If End换行同上下一个线元要素。N个Lb1 0:Return换行曲率左偏为负右偏
20、为正Return为程序命令线元要素可以用常规程序计算如有多条路数据库另建如Z2 Z3。等等需要使用时把主程序Z1改为Z2依次类推NO.I?为要求点里程您您觉觉得得这这个个答答案案好好不不好好?好(2)不好(0)匿名 2009-02-10 19:36一、坐标计算源程序 1.主程序(TYQXjs)1.SZ=XY:2.XY=SZ:N:UX0:VY0:OS0:GF0:HLS:PR0:RRN:Q:C=1P:D=(P-R)(2HPR):E=180:N=1=Goto 1:Go to 2 Lbl 1:SZ:SZ:W=Abs(S-O):Prog SUB1:XXS=X YYS=Y Goto 1 Lbl 2:XY:
21、XY:I=X:J=Y:Prog SUB2:SS=O+W ZZ=Z Goto 2 2.正算子程序(SUB1)A=0.1739274226:B=0.3260725774:K=0.0694318442:L=0.3300094782:F=1-L:M=1-K:X=U+W(Acos(G+QEKW(C+KWD)+Bcos(G+QELW(C+LWD)+Bcos(G+QEFW(C+FWD)+Acos(G+QEMW(C+MWD):Y=V+W(Asin(G+QEKW(C+KWD)+Bsin(G+QELW(C+LWD)+Bsin(G+QEFW(C+FWD)+Asin(G+QEMW(C+MWD):F=G+QEW(C+W
22、D)+90:X=X+ZcosF:Y=Y+ZsinF 3.反算子程序(SUB2)T=G-90:W=Abs(Y-V)cosT-(X-U)sinT):Z=0:Lbl 0:Prog SUB1:L=T+QEW(C+WD):Z=(J-Y)cosL-(I-X)sinL:AbsZGoto1:W=W+Z:Goto 0 Lbl 1:Z=0:Prog SUB1:Z=(J-Y)sinF 二、使用说明 1、规定(1)以道路中线的前进方向(即里程增大的方向)区分左右;当线元往左偏时,Q=-1;当线元往右偏时,Q=1;当线元为直线时,Q=0。(2)当所求点位于中线时,Z=0;当位于中线左铡时,Z取负值;当位于中线中线右侧时
23、,Z取正值。(3)当线元为直线时,其起点、止点的曲率半径为无穷大,以 10的45次代替。(4)当线元为圆曲线时,无论其起点、止点与什么线元相接,其曲率 半径均等于圆弧的半径。(5)当线元为完整缓和曲线时,起点与直线相接时,曲率半 径为无穷大,以10的45次代替;与圆曲线相接时,曲率半 径等于圆曲线的半径。止点与直线相接时,曲率半径为无穷大,以10的45次代替;与圆曲线相接时,曲率半径等于圆曲线的半径。(6)当线元为非完整缓和曲线时,起点与直线相接时,曲率半径等于设计规定的值;与圆曲线相 接时,曲率半径等 于圆曲线的半径。止点与直线相接时,曲率半径等于设计规定的值;与圆曲 线相接时,曲率半径等于
24、圆曲线的半径。2、输入与显示说明 输入部分:1.SZ=XY 2.XY=SZ N?选择计算方式,输入1表示进行由里程、边距计算坐标;输入2 表示由坐标反算里程和边距。X0?线元起点的X坐标 Y0?线元起点的Y坐标 S0?线元起点里程 F0?线元起点切线方位角 LS?线元长度 R0?线元起点曲率半径 RN?线元止点曲率半径 Q?线 元左右偏标志(左偏Q=-1,右偏Q=1,直线段Q=0)S?正算时所求点的里程 Z?正算时所求点距中线的边距(左侧取负,值右侧取正值,在中线上取零)X?反算时所求点的X坐标 Y?反算时所求点的Y坐标 显示部分:XS=正算时,计算得出的所求点的X坐标 YS=正算时,计算得出
25、的所求点的Y坐标 S=反算时,计算得出的所求点的里程 Z=反算时,计算得出的所求点的边距 雨夜在星空的感言有有关关路路基基和和隧隧道道的的CASIOCASIO 5800P5800P 万万能能曲曲线线 计计算算程程序序2009-5-26 14:20:13 新闻类别:仪器硬件技巧1 显示全部一、程序功能本程序由一个主程序(ZHUCHENXU)和几个子程序正算子程序(SUB1)、反算子程序(SUB2)、数据库(SUB3)、算方位角程序(FA)、使用方位角算坐标(NE)、边坡放样程序(BIANPO)、隧道圆心放样程序(SDYX)构成,可以根据直线、圆曲线、缓和曲线(完整或非完整型)的线元要素(起点坐标
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 4800 隧道 测量 程序
限制150内