测量程序4500曲线计算斜交结构物.doc

《测量程序4500曲线计算斜交结构物.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、测量程序4500曲线计算斜交结构物/凹凸平曲线标高计算0管理提醒：本帖被sdjqx从【勘察测绘】移动到本区(2007-07-25)计算直线、缓和线、圆曲线的中边桩坐标(F1~F4)F1MAINL1{J}：J″JD″：{Z}：Z″Z″：{R}:R″R″：{L}：L″LS″：{F}：F″F0″：{X}：X″X0″：{Y}：Y″Y0″L2T=(R+L2/(24R))tan(Abs(Z/2))+L/2-(Lxy3)/(240R2)L3W=J-T+L：H=J-T+(ЛR(AbsZ)/180)：E=H+LL4P

2、=X-TcosF：Q=Y-TsinFL5M=P+(L-((Lxy3)/(40R2)))(cosF)+(L2(cos(F+((90AbsZ)/Z)))/(6R))L6N=Q+(L-(Lxy3)/(40R2))sinF+(L2/6R)sin(F+(90Z/(AbsZ)))L7Lb10L8{K}：K″K″：{B}：B″B″：{A}：A″A″L9K≤(J-T)=>Prog1ZHIL10≠=>K≤W=>S=K+T-J：O=F：G=Z：I=A：Prog3HUANL11≠=>K≤H=>Prog2YUANL12≠=

3、>K≤E=>S=E-K：=F+Z+180：G=-Z：I=A+180：Prog3HUANL13Goto0F21ZHIL1C=X-(J-K)cosF◢D=Y-(J-K)sinF◢L2U″XB″=C+Bcos(F+A)◢V″YB″=D+Bsin(F+A)◢F32YUANL1S=K-J-L+TL2C=M+Rtan(90S/(ЛR))cos(F+90L(AbsZ)/(RЛZ))+Rtan(90S/(лR))cos(F+90LZ/(лRAbsZ)+180SZ/(RлAbsZ))◢L3D=N+Rtan(90S/(

4、лR))sin(F+90ZL/(ЛRAbsZ))+Rtan(90S/(лR))sin(F+90ZL/(лRAbsZ)+180SZ/(лRAbsZ))◢L4U″XB″=C+Bcos(F+90ZL/(лRAbsZ)+180ZS/(лRAbsZ)+A)◢L5V″YB″=D+Bsin(F+90ZL/(лRAbsZ)+180ZS/(лRAbsZ)+A)◢F43HUANL1C=X-(TcosO)+(S-((Sxy5)/(40R2L2)))(cosO)+((Sxy3)/(6RL))cos(0+((90G)/(Ab

5、sG)))◢L2D=Y-(TsinO)+(S-((Sxy5)/(40R2L2)))(sinO)+((Sxy3)/(6RL))sin(O+((90G)/(AbsG)))◢L3U″XB″=C+Bcos(O+((90GS2)/(лRLAbsG))+I)◢L4V″YB″=D+Bsin(O+((90GS2)/(лRLAbsG))+I)◢计算两点间的距离和方位角F5QZBL1A″X1″：B″X2″：O″Y1″：Q″Y2″：L2D=√((B-A)2+(Q-O)2)◢L3C=tan-1((Q-O)/(B-A))：O

6、-A≤0=>C=C+180◢推算曲线中的任意点标高F1EZL1Lb10L2H：B：R：I：JL3{LNM}L4T=RAbs(J-I)/2L5C=B-LL6F=1L7I﹥J=>F=-1L8L≤0=>{HRBIJ}：GotoL9≠=>L﹤B-T=>Z=0：P=IL10≠=>L﹤B=>Z=1：P=IL11≠=>L﹤B+T=>Z=1：P=JL12≠=>Z=0：P=JL13G=H-N-CP+ZF(T-AbsC)2/2/R◢V=G+ME◢Goto0L14Goto0F2I-2L1Lb10L2E：D：C：A：LL3

7、{BH}：B≤0=>Goto2L4Q=2E/(E+D)×C：Abs(B-A)>Q=>Goto1L5I=Abs(B-A)×2E/Q-E◢F=H-LI◢T=H-EL◢Goto0L6Lb11：I(Abs(B-A)-Q)(D-E)/(C-Q)+E◢F=H+LI◢T=H-EL◢Goto0L7Lb12：I：{EDCAL}：Goto0F3DTL1Lb10L2A：B：{C，D}L3X=C-AL4Y=D-BL5N=Po1(X，Y)◢L6S=WL7S﹤0=>Goto1L8S=W◢L9Goto0L10Lb11L11K=3

8、60+S◢L12Goto0F4BL1E：X：Y：R：A：BL2L=B-A：A﹥B=>L=A-BL3K=L×90/(ЛR)：E﹤0=>K=-KE﹥0=>K=KL4D=2RsinK：D﹤0=>D=-D：≠=>D﹥0=>D=DL5Rec(D，(C+K)：N=Ans+X◢O=W+Y◢L6J=C+2K：Ans﹤0=>(360+J)◢≠=>J=J◢F5CL1A：B：X：Y：CL2L=B-A：A﹥B=>L=A-BL3Rec(L，C)：N=Ans+X◢O=W+Y◢L4D=L：J=C◢