导线平差5800全能程序

程序说明：纯傻瓜式设计，输入数据直接出结果，可以计算闭合，附和，无定向导线和支导线，

程序名称：SING  TRAVE

有任何问题请去测量空间为我评分，留言。

链接网址http://www.celiang.net/user_putview.asp?action=article&username=%u84DD%u6CEA%u5E7D%u7075

程序内容如下，计算内容，闭合附合，无定向导线。

“SING  TRAVE   ” ◢

Deg:  Norm 1:  Freq on： n→N：

If List Y[N]=0：Then N-1→DimZ：Goto 0:

Else N→DimZ：Goto1：IfEnd:

Lbl 0：“CLOSE  OR  CONNECT” ◢

“ANGL NUM=”：Locate 12,4,N：

“SIDE NUM=”:Locate 12,4,N-1：

“UNKW NUM=”:Locate 12,4,N-2◢

“CLOSE(0),CONNECT(1)”?Z◢:Fix3:

“XA,≦0=>ａAàB(Deg)”?A: If A>0:Then“YA”?B:

Else“ａAàB(Deg)”？R: IfEnd:

“XB”?C: “YB”?D:C+DiàU: UàV:

If A>0:Then Pol(C-A,D-B):Cls:

J<0=>J+360àJ:JàR:

“DIST AàB=”: Locate 10,1,I：“ａ=”:Locate 4,2,R°◢

IfEnd：

If Z≠0:Then“XC”?E: “YC”?F: E+Fi→V◢

“XD,≦0 =>ａC→D(Deg)”?G◢

If G>O：Then“YD”?H：

Pol (G-E,H-F):CLs:J<O=>J+360àJ:JàS◢

“DIST CàD=”:Locate 10,1,I:“ａ=”:Locate 6,2,S°:Else“ａCàD”?S:IfEnd:Else If R>180:Then R-180àS:Else  R+180àS:IfEnd:IfEnd:

∑yàM:For 1àI To N： If I=1:Then R+List X[I]àL:Else L+List X[I]àL:IfEnd:

If L>180:Then L-180àL:Else L+180àL:IfEnd:Next:

3600(L-S)àT:A<0=>“ａE0R=”:Locate8,3,T:A>O =>“ａEOR=”:Locate8,4,T:

40√(N)àW:“S EOR=”:Locate 8,4,W◢

Abs(T)>W=>“ａ ERROR OVER”:-T÷N÷3600àP:

0àO:For 1àI To N:  If I=1:Then R+List X[I]+PàL:

Else L+List X[I]+PàL:IfEnd: If L>180:Then L-180àL:Else L+180àL:IfEnd:

If I<N:Then List Y[I]∠LàZ[I]:Z[I]+Oà0:IfEnd:Next:3600(L-S)àT:

“CK EOR=”:Locate10,4,T:U+0-và0:a+bi:Int(M/Abs(0)) àK:“DEL X=”:Locate8,4,Rep(O):

“DEL Y=”:Locate8,4,Imp(0):“REL EOR=1÷”:Locate 11,4,k◢

K<4000=>“OVER”: For 1àI to N-1:

Z[I]-OListY[I]/MàX:If I=1:Then u+xàY:Else Y+XàY:IfEnd:

Norm1:“POINT  n =”:Locate 9,4,I:Fix3:“xp=”:Locate4,4,Rep(Y):“YP=”:Locate 4,4, Imp(Y)◢ Next:Y-vàQ:

“CEKX=”:Locate 6,4, Rep(Q):“CEKY=”:Locate 6,4, Imp(Q) ◢

Goto E:LbL 1:“NO DRECT”◢

“ANGE  NUM=”:Locate 12,3,N-1:“SIDE NUM=”:Locate12,4,N:“UNKW NUM=”:Locate12,4,N-1◢

“XA”?A:“YA”?B:“XB”?C:“YB”?D:

A+BiàU:C+DiàV:0àH:U+List Y[1]∠HàZ[1]:For1àI To N-1:H+List x[I]àH:If H>180:Then H-180àH:Else H+180à H :IfEnd:

Z[I]+List Y[I+1]∠HàZ[I+1]:Next:

(V-U)/(Z[N]-U)àZ:Int(Abs((1-Abs(Z))-1 ))àK:“RE EOR=1÷”: Locate10,4,K:Z▽r∠θ: Fix3: For1àI To N:

U+(Z[I]-U)ZàZ[I]:If I≠N: Then Norm 1：

“POINT NUM=”:Locate 12,4, I: Fix3:

“xp=”:Locate 6,4, Rep(Z[I]): “YP=”: Locate6,4,Imp(Z[I])◢

IfEnd： Next: “DE  XB=”:Locate8,4, Rep(Z[N]-V):“DE YB=”:Locate8,4,Imp(Z[N]-V)◢

Lbl E:“GAME=>OVER”

程序名称：“SNEEK   TRAVE”

程序内容如下，计算内容，支导线。

“SNEEK  TRAVE   ” ◢

Norm 1: Freq on: nàN:NàDimZ:

“ANGL NUM =”:Locate 12,2,N:

“SIDE NUM=”:Locate12,3,N:

“UWKW NUM=”:Locate12,4,N◢

“XA,≤0=>ａAàB”?A:

IfA>0:Then “YA”?B:Else “ａAàB”?R:IfEnd:

“XB”?C:“YB”?D:

C+DiàU:

IfA>0:Then pol(C-A,D-B):Cls:IàT

J<0=> J+360àJ:JàR:

FiX3:IfEnd:“DIST AàB=”:Locate 9,1,I:

“ａ=”:Locat4,2,R°◢

For1àI To N:

IfI=1:Then R+Listx[I]àH: Else H+ListX[I]àH:IfEnd：

IfH>180:Then H-180àH:Else H+180àH:IfEnd:

a+bi:List Y[I]∠HàS:S+UàU:I=1 =>“POINT n=”Locate 9,3,I:I>1 =>

Norm1:Z=1=> POINT n=”Locate 9,4,I:Fix3:

“XP=”Locate4,4,ReP (u)

“YP=”Locae4,4,Imp(u)◢

Next

“GEME”=> 0VER ◢

程序说明：▽为FUNCTION键+2（COMPLX）+6(▽r∠θ) 蓝泪幽灵出品; QQ：86560345，参考文献：覃辉老师的《公铁施工测量程序》，本人只做改进，请您尊重原著。

  1. 闭合导线，附合导线在串列X列输入角度数位N+2,在Y列输入导线边数为N+1,导线点的数目为N。
  2. 导线角度默认左偏角为正值，右偏角为负值。

闭合导线

X串列

Y串列

143°53°50°

105.223

107°48°30°

80.102

73°0°20°

129.341

89°33°50°

78.162

305°44°20°

0

附合导线

X串列

Y串列

99°1°

225.853

167°45°36°

139.032

123°11°24°

172.571

189°20°36°

100.074

179°59°18°

102.485

129°27°24°

0

由于闭合导线和附合导线计算过程完全一样，所以只选择闭合导线做示范，计算过程如下

SING TRAVE                  显示标题

CLOSE OR CONNECT            闭合或者附合

ANGL NUM = 5                X列角度数目

SIDE NUM = 4                Y列边数

UNKW NUM = 3                导线点数目

CLOSE（0），CONNECT（1）？  输入0（ 闭合选0，附合选1）

XA,≤0=>ａAàB?         输入8811.409（或者输入负数）

YA?                      输入5114.225

XB?                      输入8506.321

YB?                       输入5215.652

显示：DISAàB=321.506   AàB的距离

ａ =161°36°37.91°AàB的方位角。也可直接输入                     

ａEOR=50.000             实际角度闭合差

S EOR=89.443             允许角度闭合差

CEK EOR= 0              复核角度闭合差必须为0

DEL X =0.057             实际X坐标闭合差 

DELY =-0.07             实际Y坐标闭合差 

REL EOR=1÷4335.0         相对闭合差

POINT n=1

XP=8445.195   YP=5301.329 (第1点坐标)

 POINT n=2

XP=8493.09    YP=5365.64  (第2点坐标)

 

POINT n=3

XP=8569.667   YP=5261.442 (第3点坐标)

POINT n=4

XP=8506.321   YP=5215.652(第4点坐标)

CEKX=0（平差后X坐标闭合差，必须为0）

CEKX=0 （平差后X坐标闭合差，必须为0）

GAME OVER 结束程序

无定向导线

X串列

Y串列

167°45°36°

225.853

123°11°24°

139.032

189°20°36°

172.571

179°59°18°

100.074

0

102.485

计算过程如下：

SING TRAVE                  显示标题

NO DRECT                    无定向导线

ANGL NUM = 4 X列角度数目

SIDE NUM = 5 Y列边数

UNKW NUM = 4 导线点数目

XA?                      输入B点X坐标2507.693

YA?                      输入B点Y坐标1215.632

XB?                     输入 C点X坐标2166.741

YB?                     输入 C点X坐标1757.271

RE EOR =1÷3330          相对闭合差

POINT n=1

XP=2299.843   YP=1303.822 (第1点坐标)

 POINT n=2

XP=2186.312   YP=1384.003 (第2点坐标)

 

POINT n=3

XP=2192.457  YP=1556.412  (第3点坐标)

POINT n=4

XP=2179.742   YP=1655.645(第4点坐标)

DEKX=0（平差后X坐标闭合差，必须为0）

DEKX=0 （平差后X坐标闭合差，必须为0）

GAME OVER 结束程序

支导线

X串列

Y串列

89°56°26°

139.179

-123°4°33°

154.43

113°3°36°

147.347

-124°11°29°

173.159

计算过程如下：

ANGL NUM = 4 X列角度数目

SIDE NUM = 4 Y列边数

UNKW NUM = 4 导线点数目

XA,≤0=>ａAàB?         输入5275.872（或者输入负数）

YA?                      输入2990.003

XB?                      输入5079.058

YB?                       输入3088.741

显示：DISAàB=220.193      AàB的距离

ａ =153°21°28.49°AàB的方位角。也可直接输入POINT n=1

XP=5141.597   YP=3213.078   (第1点坐标)

 POINT n=2

XP=5063.864   YP=3346.517   (第2点坐标)

 

POINT n=3

XP=5151.945   YP=3464.639   (第3点坐标)

POINT n=4

XP=5095.293   YP=3628.268 (第4点坐标)

GAME OVER 结束程序

有任何问题请去测量空间为我评分，留言。

http://www.celiang.net/user_putview.asp?action=article&username=%u84DD%u6CEA%u5E7D%u7075

本程序仅供参考学习，有给您造成测量损失概不负责

蓝泪幽灵出品              QQ：865603453

导线平差5800全能程序相关推荐

  1. 5800计算器公路三维全能程序

    5800计算器公路三维全能程序.(丢掉图纸轻松测量)说明清晰! 各位,我的9860程序记忆编写完毕,跟这个程序功能差不多,但是更好用,加入了隧道 计算功能,能计算超欠挖,渐变隧道,不限制圆心数目,程序 ...

  2. 精简5800三维程序

    精简5800三维程序 正反算选择程序:ZS-FS Deg:                     "1LZ＝>XY,2XY＝>LZ"?U: //正反算选择,正算选1, ...

  3. 精简5800三维程序]

    精简5800三维程序 正反算选择程序:ZS-FS Deg:                     "1LZ＝>XY,2XY＝>LZ"?U: //正反算选择,正算选1, ...

  4. “全能程序员”的出路，明显不如“特长程序员”

    loonggg 读完需要 4 分钟 速读仅需 2 分钟 大家好,我是校长. 前几天我看到阮一峰老师在他的网络日志上写了这么一个观点:"全能程序员"的出路,明显不如"特长程 ...

  5. 全能程序员系列（5）-IIS安装及配置

    在ASP.NET开发中,IIS(Internet信息服务管理器)是必不可少的工具之一.这篇文章就来简要介绍IIS的安装及部分配置过程. IIS安装 在Windows Server 2012中安装IIS ...

  6. 三角网导线平差实例_导线测量平差实例

    闭合导线: 名称 表示 原理 (导线长) D 实测边长总合 (角度总和) ∑β 实测左角相加的总和 (角度闭合差) Fβ 实测左角相加的总和的秒位数 (坐标闭和差) Fx △ x 计算出的坐标增量之合 ...

  7. 简述导线平差计算的五个步骤_RTK技术导线测量和全站仪导线测量有什么区别？...

    导线测量是测量导线的长度.转角和高程以及推算出坐标等的作业.在导线测量过程中,我们可以选择RTK技术或全站仪进行操作,接下来小编就结合GPS-RTK和全站仪的特点和操作方法来讲解两者的优势. 一.全站 ...

  8. 水准路线平差c语言程序,水准网平差程序的设计与实现

    水准网平差程序的设计与实现 维普资讯 http://doc.docsou.com 第1 6卷第 4期 2 0托 l 00 2月 昆明冶金高等专科学校学报 /, v1N 8 I 0. I l 6 . 4 ...

  9. 全能程序员系列（3）-安装Windows Server 2012操作系统

    在前两篇文章中,战场已经开辟,趁手的兵器也已到位,全能的程序员要开始安装操作系统了. 使用U盘作为启动盘安装操作系统的前提在计算机启动时进入BIOS管理界面,同时将启动项改为USB启动.启动项修改完成 ...

  10. 三角网导线平差实例_第讲(三角网条件平差.ppt

    第讲(三角网条件平差.ppt 第三章 条件平差 第三章 条件平差 3.2 条件方程 * * * * 内容安排 一.高程控制网条件方程的列立 二.导线网条件方程的列立 三.测角网条件方程的列立 四.测边 ...

最新文章

  1. Android ActionBar相关
  2. python列表字典操作_Python 列表(list)、字典(dict)、字符串(string)常用基本操作小结...
  3. 比特现金网络升级之争：1个CPU=1票
  4. HDU 4256 翻译罗马数字
  5. nitrous.io mysql_云IDE:Nitrous.io的介绍以及活用手段
  6. 零拷贝概念 -- linux内核
  7. python调用存储过程怎么传多个参数_Python - pyodbc调用具有参数名称的存储过程...
  8. Python中break和continue语句及循环中的else子句
  9. 河北大学工商学院计算机分数线,河北大学工商学院录取分数线()
  10. 【逆向工具】使用x64dbg+spy去除WinRAR5.40(64位)广告弹框
  11. oracle基本的查询语句,Oracle中的基本查询语句总结
  12. 第二期！团队开发spring会议~day8
  13. [Unity3D]自己动手重制坦克舰队ArmadaTank
  14. 疫情之后，有哪些巨大的商业机会？
  15. ai老师人工智能培训老师计算机视觉老师叶梓：计算机视觉领域的自监督学习模型——MAE-12
  16. 凯利公式计算器安卓_华为MatePad Pro 5G评测：一屏双任务，打破安卓平板生态限制...
  17. 几款极好的 JavaScript 文件上传插件
  18. 浮点运算方法和浮点运算器
  19. MemSQL初体验 - 性能测试
  20. 一份非常适合收藏的Android进阶面试题！附面试题答案

热门文章

  1. 双向循环链表(图文讲解)
  2. Windows进行远程桌面连接后如何彻底删除远程记录
  3. 微信小程序解析php,微信小程序解析H5文件方法
  4. ssm医院人事管理系统设计与实现 毕业设计源码111151
  5. linux下载m3u8工具,m3u8命令行下载工具
  6. 解决java.io.EOFException 异常
  7. Java基础——java代码规范详细版
  8. 计算机导论论文含图,计算机导论（论文）.doc
  9. 如何用html制作一个简单的网页
  10. Ubuntu 印象笔记网页剪切插件无法登录问题的一种解决方案