缓和曲线上坐标反算程序缓和曲线上线外已知点坐标反算里程
计算程序
Lb1B:X:Y:(X Y为实测坐标)L“LC=”:(大概里程)K“JIAO DIAN LC”:E“FWJ1”:G“FWJ2”:M“JIAO DIAN X”:N“JIAO DIAN Y”:R:(R为曲线半径)A“LS1”:B“LS2”:C“TH1”:D“TH2”: S“QU XIAN CHANG DU”:P“Y=1,Z=-1”(P为曲线偏转方向) Lb1A:Z[1](ZH里程)=K-C:Z[2](ZH X)=M+C×COS(E-180): Z[3](ZH Y)=N+...
缓和曲线上线外已知点坐标反算里程
计算程序
Lb1B:X:Y:(X Y为实测坐标)L“LC=”:(大概里程)K“JIAO DIAN LC”:E“FWJ1”:G“FWJ2”:M“JIAO DIAN X”:N“JIAO DIAN Y”:R:(R为曲线半径)A“LS1”:B“LS2”:C“TH1”:D“TH2”: S“QU XIAN CHANG DU”:P“Y=1,Z=-1”(P为曲线偏转方向) Lb1A:Z[1](ZH里程)=K-C:Z[2](ZH X)=M+C×COS(E-180): Z[3](ZH Y)=N+C×SIN(E-180):Z[4](HY里程)= Z[1]+A:F(HY 点的切线方位角)=E+P×A×90÷R÷∏:Z[5](ZH点到HY点的弦长)=A-A3÷(90×R2):Z[6](ZH点到HY点的偏角)=A×180÷(6×∏×R):Z[7](HY点的X坐标)= Z[2]+ Z[5]×COS(E+P×Z[6]): Z[8](HY点的Y坐标)= Z[3]+ Z[5]×SIN(E+P×Z[6]):Z[9](HZ点里程)=K-C+S:Z[10](HZ点的X坐标)=M+D×COSG:Z[11](HZ点的Y 坐标)=N+D×SING:
L≤Z[1]=>H=Z[2]+(Z[1]-L)×COS(E+180):I=Z[3]+(Z[1]-L)×SIN(E+180):O=E:GOTO 1:≠=>L≤Z[4] =>Q(弦长)=L-Z[1]-(L-Z[1])5÷(90×R2×A2):U(偏角)=(L-Z[1])2÷(6×R×A)×180÷∏:O(切线方位角)=E+P×3×U:H(假定里程的X坐标)=Z[2]+Q×COS(E+P×U):I(假定里程的Y坐标)=Z[3]+Q×SIN(E+P×U):GOTO 1: ≠=>L≤(Z[9]-B)=>Q(弧长对应的圆心角)=(L-Z[4])×180÷(∏×R):U(弦长)=2×R×SIN(Q÷2):O(弦线方向的方位角)=F+P×Q:H(假定点的X坐标)=Z[7]+U×COS(F+P×Q÷2):I(假定点的Y坐
标)=Z[8]+U×SIN(F+P×Q2):GOTO 1:
≠=>LQ=(L-Z[9])-(L-Z[9])5÷(90×R2×B2):U=(Z[9]-L)2÷(6×R×B)×180÷∏:O=G-P×3×U:H=Z[10]+Q×COS(G-P×U):I=Z[11]+Q×SIN(G-P×U):GOTO 1:
≠=>L≥Z[9] =>H=Z[10]+(L-Z[9])×COSG:I=Z[11]+(L-Z[9])×SING:GOTO 1:
Lb1 1:V=POL((X-H),(Y-I)):J<0=>T=J+360:
≠=>T=J:⊿W=T-O:W<0=>W=W+360:≠=>W=W:⊿L=L+V×COSW:W<180=>GOTO 2:≠=>GOTO 3:
Lb1 2:ABS(W-90)>0.0005=>GOTO A:≠=>L=L◢B=V◢GOTO B:
Lb1 3:ABS(W-270)>0.0005=>GOTOA:≠=>L=L B◢=-VG◢OTO B:
本文档为【缓和曲线上坐标反算程序】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。
该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。
[版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
浙公网安备 33021202002483