CASIOfx-5800p经典实用测量程序.pdf
《CASIOfx-5800p经典实用测量程序.pdf》由会员分享,可在线阅读,更多相关《CASIOfx-5800p经典实用测量程序.pdf(49页珍藏版)》请在得力文库 - 分享文档赚钱的网站上搜索。
1、fx-5800P 程序 单一闭附合图根水准路线近似平差计算程序(PM3-6)(1)计算原理计算原理 单一闭附合图根水准路线近似平差的原理是,将高差闭合差反号、按测段路线长或测站数比例分配计算各水准测段的高差改正数,并据此计算出未知点的高程。(2)程序程序PM3-6,占用内存 544 字节。CLOSED Or CONNECTING MAPPING LEVEL PM3-6 显示程序标题 LEVEL TYPE,PLATE(1)=?P 输入水准路线类型数字,1 代表平坦,其余数代表山地 START H(m)=?A 输入起点已知高程 END H(m)=?B 输入终点已知高程,闭合水准路线时为起点已知高程
2、 ClrStat:FreqOn 基本设置 HEIGHT NUM=?N 输入测段高差数 NDimZ 定义额外数组变量用于存储平差后点的高程 0X:0Y 累加高差,路线长变量清零 For 1I To N n=:I 显示测段号 h(m)=?List XI 输入测段高差 L(km)Or n=?List YI 输入测段路线长或测站数 List XI+XX:List YI+YY 累加路线长与高差 Next A+X-BF 计算高差闭合差 If P=1:Then 0.04(Y)W:Else 0.012(Y)W:IfEnd 图根水准高差闭合差限差 H CLOSE ERROR(MM)=:1000F 显示高差闭合差
3、(L)km Or(n)=Y 显示总路线长或总测站数 If Abs(F)W:Then CLOSE ERROR OVER.:IfEnd 显示高差闭合差超限-FYV 计算每 km 或每站高差改正数 For 1I To N List XI+VList YIList FreqI 计算改正后的测段高差 If I=1:Then A+List FreqIZI:Else ZI-1+List FreqIZI:IfEnd n=:I 显示测段号 h ADJUST(m)=:List FreqI 显示改正后的测段高差 Hn ADJUST(m)=:ZI 显示改正后点的高程 Next CLOSE TEST(mm)=:1000
4、(ZI-B)显示高程检核结果 PM3-6END(3)程序说明程序说明 程序先提示用户输入水准路线类型,按键为平坦路线,要求其后输入以 km 为单位的水准测段路线长;按其余数字键与键为山地水准路线,要求其后输入水准测段测站数。提示用户输入起点已知高程与终点已知高程,当为闭合水准路线时,输入的终点高程应等于起点高程。提示用户输入水准测段数,按从起点到终点方向的顺序分别输入测段高差与路线长(或测站数),并分别显示以 mm 为单位的高差闭合差、以 km 为单位的总路线长(或总测站数)。当闭合差超限时,程序给出提示CLOSE ERROR OVER.,并继续计算。程序按从起点到终点方向的顺序分别显示测段高
5、差平差值、未知点高程值及检核计算结果。图 3-6 为按图根水准测量要求施测的某附合水准路线观测成果略图。BM-A 和 BM-B 为已知高程水准点,图中箭头表示水准测量前进方向,路线上方的数字为测得的测段高差(m),路线下方数字为该段路线的长度(km),试用近似平差法计算待定点 1,2,3 点的高程。http:/www.SurMfx-5800P 程序 表表 3-7 使用程序使用程序 PM3-6 计算图根水准测量的成果计算图根水准测量的成果 点名 路线长 iL(km)观测高差ih(m)改正数iV(m)改正后高差ih(m)高程 H(m)BM-A 45.286 1.6+2.331-0.008 2.32
6、3 1 47.609 2.1+2.813-0.011 2.802 2 50.411 1.7-2.244-0.008-2.252 3 48.159 BM-B 2.0+1.430-0.010+1.420 49.579 7.4 -0.037 执行程序 PM3-6,计算图 3-6 附合水准路线未知点高程的屏幕提示与用户操作过程如下:屏幕提示 按键 说明 CLOSED Or CONNECTING MAPPING LEVEL PM3-6 显示程序标题 LEVEL TYPE,PLATE(1)=?1 输入水准路线类型数字 START H(m)=?45.286 输入起点已知高程 END H(m)=?49.579
7、 输入终点已知高程 h NUM=?4 输入测段数 n=1 提示第 1 测段输入数据 h(m)=?2.331 输入第 1 测段高差 L(km)Or n=?1.6 输入第 1 测段路线长 n=2 提示第 2 测段输入数据 h(m)=?2.813 输入第 2 测段高差 L(km)Or n=?2.1 输入第 2 测段路线长 n=3 提示第 3 测段输入数据 h(m)=?-2.244 输入第 3 测段高差 L(km)Or n=?1.7 输入第 3 测段路线长 n=4 提示第 4 测段输入数据 h(m)=?1.43 输入第 4 测段高差 L(km)Or n=?2 输入第 4 测段路线长 h CLOSE E
8、RROR(mm)=37 显示高差闭合差(L)km Or(n)=7.4 显示路线长或总测站数 n=1 显示 1 点数据 h ADJUST(m)=2.323 显示第 1 测段平差后高差 Hn ADJUST(m)=47.609 显示 1 点平差后高程 n=2 显示 2 点数据 h ADJUST(m)=2.803 显示第 2 测段平差后高差 Hn ADJUST(m)=50.412 显示 2 点平差后高程 n=3 显示 3 点数据 h ADJUST(m)=-2.253 显示第 3 测段平差后高差 Hn ADJUST(m)=48.159 显示 3 点平差后高程 n=4 显示 4 点数据 h ADJUST(
9、m)=1.420 显示第 4 测段平差后高差 图 3-6 附合水准路线略图 http:/www.SurMfx-5800P 程序 Hn ADJUST(m)=49.579 显示检核点高程 CLOSE TEST(mm)=0.000 高差闭合差检核结果 PM3-6END 程序运行结束显示 http:/www.SurMfx-5800P 程序 测角后方交会坐标计算程序 PM3-4(2)主程序主程序PM3-4,占用内存 842 字节。ANGLE RESECTION PM3-4 显示程序标题 Fix 3:Deg:ClrStat:FreqOn 基本设置 XA(m)=?A:AList X1 输入已知点 A 的 X
10、 坐标 YA(m)=?B:BList Y1 输入已知点 A 的 Y 坐标 XB(m)=?C:CList X2 输入已知点 B 的 X 坐标 YB(m)=?D:DList Y2 输入已知点 B 的 Y 坐标 XC(m)=?E:EList X3 输入已知点 C 的 X 坐标 YC(m)=?F:FList Y3 输入已知点 C 的 Y 坐标 Norm 1:D POINT YES(1)Or NO(0)?Z 是否有检查点 Fix 3 If Z=1:Then XD(m)=?G:GList X4 输入已知点 D 的 X 坐标 YD(m)=?H:HList Y4:IfEnd 输入已知点 D 的 Y 坐标 5D
11、imZ 定义额外数组变量 ANGLE A(Deg)=?List Freq1 输入角 A ANGLE B(Deg)=?List Freq2 输入角 B ANGLE C(Deg)=?List Freq3 输入角 C If Z=1:Then CHECK ANGLE D(Deg)=?List Freq4:IfEnd 有 D 点坐标输入角 1O:2P:3Q 为调子程序计算A 准备 Prog ANGLE 调子程序计算A A(DMS)=:V 显示A 1(tan(V)-1-tan(List Freq1)-1)Z1 计算AP 2O:3P:1Q 为调子程序计算B 准备 Prog ANGLE 调子程序计算B B(D
12、MS)=:V 显示B 1(tan(V)-1-tan(List Freq2)-1)Z2 计算BP 3O:1P:2Q 为调子程序计算C 准备 Prog ANGLE 调子程序计算C C(DMS)=:V 显示C 1(tan(V)-1-tan(List Freq3)-1)Z3 计算CP(Z1List X1+Z2List X2+Z3List X3)(Z1+Z2+Z3)X 计算交会点坐标(Z1List Y1+Z2List Y2+Z3List Y3)(Z1+Z2+Z3)Y XP(m)=:X 显示交会点坐标 YP(m)=:Y If Z=1:Then XList X5:YList Y5 如果观测了检查角 5O:3
13、P:4Q 为调子程序计算检查角准备 Prog ANGLE 调子程序计算检查角 CHECK(DMS)=:V 显示计算的检查角 List Freq4-VK 计算检查角观测值与计算值之差 CHECK ANGLE ERROR(DMS)=:K 显示检查角差 Else NO CHECK ANGLE.:IfEnd 显示没有观测检查角 PM3-4END(3)子程序子程序ANGLE,占用内存 172 字节。Pol(List XP-List XO,List YP-List YO):Cls http:/www.SurMfx-5800P 程序 If J0:Then J+360R:Else JR:IfEnd 计算 OP
14、 方向的方位角 Pol(List XQ-List XO,List YQ-List YO):Cls If J0:Then J+360S:Else JS:IfEnd 计算 OQ 方向的方位角 R-SV 计算方位角差 If V0:Then V+360V:IfEnd Return 返回主程序(4)程序说明程序说明 程序显示完计算标题后,先提示用户输入 A,B,C 点的已知坐标,然后提示是否观测了检查角,若观测了检查角,则提示输入 D 点的坐标,否则不提示输入 D 点的坐标。观测数据输入时,要求必须输入,角,若观测了检查角则应输入检查角,否则,不需要输入检查角。完成已知数据与观测数据输入后,屏幕显示计算
15、出的A,B,C及后方交会点 P 的坐标,若有检查角,还将显示根据坐标反算出的检查角及其与观测角的差。交会点 P 的坐标存储在字母变量寄存器 X,Y 中,表 3-3 为图 3-4 的计算结果。表表 3-5 使用程序使用程序 PM3-4 计算测角后方交会点的成果计算测角后方交会点的成果 点名 x坐标(m)y坐标(m)角名水平角 顶角 计算值 A 2502.932 5044.009 781217A 410126.93 B 3229.416 5185.604 1610558B 874723.94 C 3325.006 4569.476 1204145C 511109.13 D 2724.701 441
16、6.400 711024 P 2896.763 4906.241 711023.77 差 0000.23 执行程序 PM3-4,屏幕提示与用户操作过程如下:屏幕提示 按键 说明 ANGLE RESECTION PM3-4 显示程序标题 XA(m)=?2502.932 输入 A 点的 x 坐标 YA(m)=?5044.009 输入 A 点的 y 坐标 XB(m)=?3229.416 输入 B 点的 x 坐标 YB(m)=?5185.604 输入 B 点的 y 坐标 XC(m)=?3325.006 输入 C 点的 x 坐标 YC(m)=?4569.476 输入 C 点的 y 坐标 D POINT
17、YES(1)Or NO(0)=?1 是否观测了检查点 D XD(m)=?2724.701 输入 D 点的 x 坐标 YD(m)=?4416.4 输入 D 点的 y 坐标 ANGLE A(Deg)=?781217 输入水平角 ANGLE B(Deg)=?161558 输入水平角 ANGLE C(Deg)=?1204145 输入水平角 CHECK ANGLE D(Deg)=?711024 输入检查角 A(DMS)=41126.93 显示计算出的A B(DMS)=874723.94 显示计算出的B C(DMS)=51119.13 显示计算出的C XP(m)=2896.763 显示 P 点的 x 坐标
18、 YP(m)=4906.241 显示 P 点的 y 坐标 CHECK(DMS)=711023.77 显示计算出的检查角 CHECK ANGLE ERROR(DMS)=000.23 显示检查角差 PM3-4END 程序运行结束显示 http:/www.SurMfx-5800P 程序 测角前方交会坐标计算程序(PM3-3)(2)程序程序 PM3-3,占用内存 506 字节。FORWARD INTERSECTION PM3-3 显示程序标题 Fix 3:Deg 基本设置 XA(m)=?A:YA(m)=?B 输入已知点 A 的坐标 XB(m)=?C:YB(m)=?D 输入已知点 B 的坐标 Norm
19、1:C POINT YES(1)Or NO(0)=?Z 是否有检查点 Fix 3 If Z=1:Then XC(m)=?E:YC(m)=?F:IfEnd 输入已知点 C 的坐标 A(Deg)=?O 输入角 B(Deg)=?P 输入角 If Z=1:Then C(Deg)=?Q:IfEnd 当有 C 点坐标时输入角 1tan(O)M:1tan(P)N 计算角度的余切(AN+CM+D-B)(M+N)X 使用式(3-1)计算交会点的坐标(BN+DM+A-C)(M+N)Y XP(m)=:X 显示交会点的 X 坐标 YP(m)=:Y 显示交会点的 Y 坐标 If Z=1:Then Pol(X-A,Y-B
20、):Cls If J0:Then J+360R:Else JR:IfEnd 计算 AP 方向的方位角 Pol(E-A,F-B):Cls If J0:Then J+360S:Else JS:IfEnd 计算 AC 方向的方位角 R-SV:If V0:Then YA(m)=?B:Else BEAR AB(Deg)=?R:IfEnd A0 时为输入 A 点 y 坐标,否则为输入 AB 的方位角 XB(m)=?C:YB(m)=?D 输入已知点 B 的坐标 If A0:Then Pol(C-A,D-B):Cls 计算 AB 的方位角 If J0:Then YD(m)=?H:Else BEAR CD(De
21、g)=?S:IfEnd G0 时为输入 D 点 y 坐标,否则为输入 CD 的方位角 If G0:Then Pol(G-E,H-F):Cls 计算 CD 的方位角 If J180:Then R-180S:Else R+180S:IfEnd 闭合导线计算 AB 的反方位角 BEAR BA(DMS)=:S 显示 BA 方向的方位角 IfEnd ClrStat:FreqOn 清除统计串列 List X,List Y,List Freq,打开频度串列 0M 累加边长和变量清零 For 1I To P+1 Norm 1:POINT n=:I 显示当前输入的观测数据计数 ANGLE(Deg)=?List
22、XI 输入水平角观测值 DIST(m)=?List YI 输入水平距离观测值 List YI+MM 累加水平距离和 If I=1:Then R+List XIL:Else List FreqI-1+List XIL:IfEnd 推算导线边方位角 If L180:Then L-180L:Else L+180L:IfEnd If L360:Then L-360L:IfEnd 判断方位角是否大于 360 LList FreqI 存储导线边方位角 Next LAST ANGLE(Deg)=?List XP+2 输入最后一个水平角 List FreqP+1+List XP+2L If L180:Then
23、 L-180L:Else L+180L:IfEnd If L360:Then L-360L:IfEnd 判断方位角是否大于 360 LList FreqP+2 存储最后一个方位角 3600(L-S)U 以秒为单位的方位角闭合差 Fix 1:ANGLE CLOSE ERROR(S)=:U 显示方位角闭合差 60(P+2)W 以秒为单位的方位角闭合差限差 http:/www.SurMfx-5800P 程序 If Abs(U)W:Then ANGLE CLOSE ERROR OVER.:IfEnd 显示角度闭合差超限-U(P+2)V 计算角度改正数 2DimZ:0Z1:0Z2 定义额外变量数组用于存
24、储坐标增量累加和 For 1I To P+1 分配角度改正数并计算导线边的坐标增量 List XI+V3600List XI 计算并存储改正后的角度 If I=1:Then R+List XIL:Else List FreqI-1+List XIL:IfEnd 推算导线边方位角 If L180:Then L-180L:Else L+180L:IfEnd If L360:Then L-360L:IfEnd 判断方位角是否大于 360 LList FreqI 存储角度改正后的导线边方位角 List YIcos(L)X:List YIsin(L)Y 计算导线边坐标增量 X+Z1Z1:Y+Z2Z2 累
25、加导线边坐标增量 Next List FreqP+1+List XP+2+V3600L 计算最后一条导线边的方位角 If L180:Then L-180L:Else L+180L:IfEnd If L360:Then L-360L:IfEnd 判断方位角是否大于 360 LList FreqP+2 存储最后一条导线边的方位角 3600(L-S)U 以秒为单位的方位角闭合差检核计算 CHECK ANGLE CLOSE ERROR(S)=:U 显示方位角闭合差检核结果 If Z=0:Then Z1U:Z2V 计算闭合导线的坐标增量闭合差 Else C+Z1-EU:D+Z2-FV:IfEnd 计算附
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- CASIOfx 5800 经典 实用 测量 程序
限制150内