极坐标法放样元素计算

极坐标法放样元素计算极坐标法放样元素计算程序PR2，极坐标法放样元素计算 "POLAR SETTING-OUT PR2" ? 显示程序标题 Deg:ClrStat:FreqOff:Fix 3 ? 基本设置 "XO(m)="?A:"YO(m)="?B ? 提示输入测站点的坐标 "X0(m)="?C:"Y0(m)="?D ? 提示输入 0 方向点的坐标 Pol(C-A,D-B):Cls? 调用极坐标函数并清除屏幕显示 If J<0:Then J+360?E:Else J?E:IfEnd ? 判断并计算方位角 "DIST...

极坐标法放样元素计算程序PR2，极坐标法放样元素计算 "POLAR SETTING-OUT PR2" ? 显示程序标题 Deg:ClrStat:FreqOff:Fix 3 ? 基本设置 "XO(m)="?A:"YO(m)="?B ? 提示输入测站点的坐标 "X0(m)="?C:"Y0(m)="?D ? 提示输入 0 方向点的坐标 Pol(C-A,D-B):Cls? 调用极坐标函数并清除屏幕显示 If J<0:Then J+360?E:Else J?E:IfEnd ? 判断并计算方位角 "DIST O ? 0(m)=":I ? 显示测站?0 方向的水平距离 "BEAR O ? 0(DMS)=":E?DMS? 以六十进制度显示测站?0 方向的方位角 1?K:I?List X[K]:E?List Y[K]? 存储 0 方向的边长与方位角到统计串列 Lbl 0 ? K+1?K:Norm 1:"n=":K ? 计数变量计数 Fix 3:"Xn(m)=,(0 To END)"? U ? 提示输入放样点的x 坐标，输入 0 结束程序计算 While U?0 ? "Yn=(m)"? V? 提示输入放样点的y 坐标 Pol(U-A,V-B):Cls? 调用极坐标函数并清除屏幕显示 If J<0:Then J+360 ?F:Else J?F:IfEnd? 判断并计算方位角 F-E?H? 计算0 方向与n 方向的水平夹角 If H<0:Then H+360 ? H:IfEnd? 判断并计算水平夹角 "DIST O ? n(m)=":I? 显示测站?n 方向的水平距离 "ANGLE 0-O-n(DMS)=":H?DMS? 以六十进制度显示0 方向与n 方向的水平角 I? List X[K]:F ?List Y[K] 存储 O?n 方向的边长与方位角到统计串列 H ? List Freq[K] 存储 O?n 方向的放样水平角到统计串列 Goto 0: WhileEnd? 提示重复输入端点的坐标 "PR2 END" 程序说明:程序先计算测站至零方向的边长与方位角，再分别计算测站至任意端点的边长与方位角，并由此计算出零方向与任意端点方向的水平夹角。运行上述程序，先输入测站点的x，y 坐标，再输入零方向点的 x，y 坐标，然后分别输入放样点的坐标。测站点与零方向点坐标只提示输入一次，测站点?零方向点的边长与方位角也只显示一次;放样点坐标将反复提示用户输入，每输入完一个放样点坐标后，程序显示测站点?放样点的边长、方位角及与零方向的水平夹角，放样点的x 坐标输入0 时，停止程序运行。

                    本文档为【极坐标法放样元素计算】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
                    图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。 
 该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。

                    [版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。

                    本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。

                    网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
                

下载需要：免费已有0 人下载

立即下载

你可能还喜欢

最新资料

资料动态

专题动态

is_079973

暂无简介~

格式：doc

大小：13KB

软件：Word

页数：2

分类：生活休闲

上传时间：2017-10-10

浏览量：162

热点搜索

球形纳米结构氢氧化镍的合成及其电化学性能研究(硕士论文)（可编辑）印尼日常工作用语医用多参数监护仪检定原始记录恋练有词汉译英默写本工程伦理-第1章工程与伦理ppt课件全新版大学英语阅读教程高级本3课后练习答案《这一次我决不放手》歌词使用臭氧油后症状及原因办公楼土建工程量清单计价实例(含钢筋工程量计算) 金属有机骨架材料ZIF--8的制备及吸附性能研究国际民航电子客票ICS终端销售手册 Arbortext IsoDraw 7.1 M060 详细图文安装教程初中英语高频词汇 1.4《三角函数的图像和性质》课件球形纳米结构氢氧化镍的合成及其电化学性能研究(硕士论文)（可编辑）印尼日常工作用语医用多参数监护仪检定原始记录恋练有词汉译英默写本工程伦理-第1章工程与伦理ppt课件全新版大学英语阅读教程高级本3课后练习答案《这一次我决不放手》歌词使用臭氧油后症状及原因办公楼土建工程量清单计价实例(含钢筋工程量计算) 金属有机骨架材料ZIF--8的制备及吸附性能研究国际民航电子客票ICS终端销售手册 Arbortext IsoDraw 7.1 M060 详细图文安装教程初中英语高频词汇 1.4《三角函数的图像和性质》课件