管理员注:该程序因转载时方法欠妥,可能不能正常运行,看看无防,因此通过审核。       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±米为左右两侧宽度                                                                                    方位角:U                                                                                          半 径:R                                                                                      绶和曲线长度:L                                                                                 缓和曲线参数:T=√(R×L)
|