|
管理员注:该程序因转载时方法欠妥,可能不能正常运行,看看无防,因此通过审核。
Lb1 0← Lbl 1:{K,S}:K>178100=>K≤178153.3=>L=K-178100:X[0]=50559.71:Y[0]=78546.812:
U=56º 00′ 51.5″:B=U:C=B+270:D=B+90:Goto C K>178153.3=>K≤179272.094=>H=K-178153.3:X[0]=50589.504:Y[0]=78591.007:R=4000:U=56º00′51.5″:O=1:Goto B∟∟
K>179272.094=>K≤179556.04=>L=K-179272.094:X[0]=51335.6639:Y[0]=79419.7459:U=39º59′19.3″:B=U:C=U+270:D=U+90:Goto C∟∟
K>179556.04=>K≤179856.04=>H=K-179556.04:X[0]=51553.216:Y[0]=79602.219:U=39º59′19.3″:R=1100:L[0]=300:T=574.456:O=2:Goto A∟∟
K>179856.04=>K≤180642.715=>H=K-179856.04:X[0]=51773.889:Y[0]=79805.086:U=47º48′6.5″:R=1100:O=2:GotoB∟∟ K>180642.715=>K≤180942.715=>H=180942.715-K:X[0]=52037.891:Y[0]=80819.509:U=276º35′25.6″:R=1100:L[0]=300:T=574.456:O=3:Goto A∟∟
K>180942.715=>K≤181297.205=>L=K-180942.715:X[0]=52037.891:Y[0]=80819.509:U=96°35′25.6″:B=U:C=U-90:D=U+90:Goto C∟∟
K>181297.205=>K≤181547.205=>H=K-181297.205:X[0]=51997.2057:Y[0]=81171.6568:U=96º35′25.6″:R=700:L[0]=250:T=418.33:O=1:Goto A ∟ ∟
K>181547.205=>K≤181897.145=>H=K-181547.205:X[0]=51983.353:Y[0]=81420.918:U=86º21′32.5″:R=700:O=1:Goto B∟∟
K>181897.145=>K≤182147.145=>H=182147.145-K:X[0]=52247.6175:Y[0]=81944.0669:U=227º29′04.8″:R=700:L[0]=250:T=418.33:O=4:Goto A∟∟
K>182147.145=>K≤182455.967=>L=K-182147.145:X[0]=52247.6175:Y[0]=81944.0669:U=47º29′04.8″:B=U:C=U-90:D=U+90:Goto C∟∟
K>182455.967=>K≤183562.443=>H=K-182455.967:X[0]=52456.3155:Y[0]=82171.6985:U=47º 29′ 04.8 ″:R=4398.885:O=1:Goto B ∟∟ Lb1 A:V=H-H5÷(40×R2×L[0]2):W=H3÷(6×R×L[0]):A=H2÷(6×T2)×180÷л:L=√(V2+W2):O=1=>B=U-A:C=B-2×A-90:D=C+180└O=2=>B=U+A:C=B+2×A-90:D=C+180└O=3=>B=U-A:C=B-2×A+90:D=C+180└O=4=>B=U+A:C=B+2×A-90:D=C+180└Goto C←
Lb1 B:A=((H×180)÷(R×л))÷2:L=2×R×SinA:O=1=>B=U-A:C=B-A+270:D=C+180└O=2=>B=U+A:C=B+A+270:D=C+180└Goto C←
Lb1 C:S>0=>Goto D:└S=0=>Goto E:└S＜0=>Goto F:└← Lb1 D:X=X[0]+L×CosB+S×CosC◢ Y=Y[0]+L×SinB+S×SinC◢ Goto 1← Lbl E:X=X[0]+L×CosB◢ Y=Y[0]+L×SinB◢ Goto 1← Lbl F:X=X[0]+L×CosB+(-S)×CosD◢ Y=Y[0]+L×SinB+(-S)×SinD◢ Goto 0←
注：里程: K 外距: S=0为中心. S±米为左右两侧宽度 方位角：Ｕ 半 径：Ｒ 绶和曲线长度：Ｌ 缓和曲线参数：Ｔ＝√（Ｒ×Ｌ）
|
