网站公告列表 [路桥吾爱]全新改版,正在为打造一个真正属于路桥人自己并完全免费的网络空间而努力。新站启用了多线路镜像空间,让您无论使用哪种线路都能体会到不错的速度。本站继续坚持“我为人人,人人为我”的精神,鼓励大家发布并免费共享自己收藏的资料。现在加入让我们与[路桥吾爱]共同成长,有了您的加入我们会更加优秀!
 
收藏本站
会员中心
用户注册
您现在的位置: 路桥吾爱 >> 文章中心 >> 其他相关 >> 测绘 >> 文章正文
  主线坐标程序          【字体:
主线坐标程序

管理员注:该程序因转载时方法欠妥,可能不能正常运行,看看无防,因此通过审核。      
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)

文章录入:admin    责任编辑:admin 
  • 上一篇文章:

  • 下一篇文章:
  • 最新热点 最新推荐 相关文章
    TC2002极坐标测量系统在大型…
    这是标坐标的lisp源码
    拱桥悬链线拱轴坐标计算程序…
    曲线任意里程中边桩坐标正反…
    公路逐桩坐标计算4800程序
    公路工程各点方位角及坐标计…
    曲线任意里程中边桩坐标正反…
    最简单的坐标方位角计算子程…
    将坐标和属性数据传输进SET全…
    CASIO fx4800P曲线任意里程中…
      网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)
    粤ICP备06026757号
    站长:白黑点击这里和我QQ聊天-进入[路桥吾爱]新版