坐标放样程序.doc

《坐标放样程序.doc》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、坐标放样程序主程序“PQX”Defm4:{D}:D“ZX”:{E}:E“ZY”：{X}：X“XH”：{Y}：Y“YH”：Goto7：I=0：J=0：Lbl0：{K}：K“ZH”：{F}：F“BJ”：prog“A”：Z[1]=B÷2-B3÷（240R2）+B5÷（345600R4）：Z[2]=C÷2-C3÷（240R2）+C5÷（345600R4）：Z[3]=B2÷（24R）-B4÷（2688R3）+B6÷（42240R5）：Z[4]=C2÷（24R）-C4÷（2688R3）+C6÷（42240R5）：T=Z[1]+（R+Z[3]）tan（A÷2）+（Z[4

2、]-Z[3]）÷sinA：V=Z[Z]+（R+Z[4]）tan（A÷2）+（Z[3]-Z[4]）÷sinA：L=B÷2+C÷2+ARπ÷180：K≤U=＞Goto3：≠=＞Goto1ΔLbI1：K≤U+B=＞Goto4：≠=＞Goto2ΔLbI2：K≤U+L-C=＞Goto5：≠=＞Goto6ΔLbI3：“X”：X=P-（U-K）cosW+Fcos（W+90）▲“Y”：Y=0-（U-K）sinW+Fsin（W+90）▲Goto7：LbI4：S=K-U：H=B：G=W+90QS2/(πRB):prog“H”：“X”：X=McosW-NsinW+P+Fcos（

3、G+90）▲“Y”：Y=NcosW+MsinW+0+Fsin(G+90)▲Toto7:LbI5:S=K-U:G=W+90Q(2S-B)÷(πR):Prog“Y”“X”：X=McosW-NsinW+P+Fcos（G+90）▲“Y”：Y=NcosW+MsinW+O+Fsin（G+90）▲Goto7：LbI6：S=U+L-K：H=C：prog“H”：G=W+QA-90QS2÷（πRC）：N=-N：“X”：X=P+TcosW+（M-V）cos（W+QA+180）-Nsin（W+QA+180）+Fcos（G+90）▲“Y”：Y=O+TsinW+Ncos（W+QA+1

4、80）+（M-V）sin（W+QA+180）+Fsin（G+90）▲Goto7：LbI7：POL（X-D，Y-E）：J＜0=＞J=J+360：≠=＞J=JΔ“JL”：I▲“FWJ”：J→DMS▲Goto0子程序“H”M=S-S5÷(40R2H2)+S9÷(3456R4H4):N=Q(S3÷(6RH)-S7÷(336R3H3)+S11÷（42240R5H5）)子程序“Y”M=Rsin（180（S-B÷2）÷π÷R）+Z[1]：N=Q（R（1-cos（180（S-B÷2）÷π÷R））+Z[3]）ZX:置仪点X坐标ZH:桩号(放样点)ZY:置仪点Y坐标BJ:边距

5、(左-,中0,右+)XH:后视点X坐标JL:放样点距离YH:后视点Y坐标FWJ:放样点方位角数据库“A”(例如):K≥0=＞U=26.58:P=2428354.6469:O=638201.6771:A=42°5′58″:W=128°54′56″:R=195:B=55:C=70:Q=1Δ说明:K≥HZ(前一曲线HZ桩号)B:第一缓和曲线长P:ZH桩X坐标C:第二缓和曲线长O:ZH桩Y坐标R:半径A:转角Q:左转-1,右转+1W:方位角U:本曲线ZH桩号竖曲线＂SQX＂LbI0:{K}:K“ZH”:Prog“DAT”:L“L”:Z“Z”:I“I1”J“I2”:

6、R“R”:W=Abs(I－J):T=(W×R)÷2:M“QD”=L-T：N“ZD”=L+T：K≤L=＞G=（K-M）2÷(2R):≠=＞G=(N-K)2÷(2R):ΔJ>I=＞G=G:≠=＞G=-G:ΔK≤M=＞GotoAΔK≤L=＞GotoBΔK≤N=＞GotoCΔK>N=＞GotoDΔLbIA:H=Z-(L-K)×I▲Goto0ΔLbIB:H=Z-(L-K)×I+G▲Goto0ΔLbIC:H=Z+(K-L)×J+G▲Goto0ΔLbID:H=Z+(K-L)×J▲Goto0Δ数据库“DAT”(例如):K≥0=＞L=100：Z=1180.89：I=0.01

7、：J=-0.008367：R=5000ΔK≥145.92=＞L=400：Z=1178.38：I=-0.008367：J=-0.0048：R=15000Δ说明:K≥前一曲线的终点桩号L:变坡点桩号Z:变坡点高程I:前一个竖曲线坡度J:后一个竖曲线坡度R:竖曲线半径(HFJW)I=0:J=0:M=0:N=0:LbI0:X“X1”：Y“Y1”：F“X2”：G“Y2”：W：“HR1”：V“HR2”：L“HD1”：S“HD2”：H=W-V：H≤0=＞H=H+360：≠=＞H=HΔH＞180=＞Q=1：≠=＞Q=-1ΔPOL（F-X，G-Y）：M=I：J＜0=＞N=J

8、+360：≠=＞N=JΔA=cos-1（（L2+M2-S2）÷（2