fx4800工程测量程序集.xls

测量程序 xls第 1 页 1 XY边长及方位角反算 Prog A L J Prog B Fix 3 I D Lbl 1 S V X X Rec S L U Y Y J Goto 1 输入 X1 Y1 X2 Y2 输出 L D 2 XY 1输入里程桩号计算中间点坐标 Prog A L J Prog B Fix 3 I D Z Z Lbl 1 G V X X Rec Abs G Z L U Y Y J Z 起始点里程桩号 Goto 1 任一点里程桩号 X1 981 852 Y1 960 035 X2 354 516 Y2 181 286 D 1000 000 L 231 0846 S 539 879 X 643 167 Y 539 605 测量程序 xls第 2 页 3 JD两直线交点坐标计算 Prog A Prog C L L1 Prog F 若用此坐 E W K 标则L1输 L 入0 L L2 Prog F C V K S tan E T tan C G S T A A 0 0001 U X SA MT B N G Z Y S U A B Pol U M Z N I D 输入X1 Y1 X2 Y2 X3 Y3 X4 Y4 L1 L2 输出X Y D 4 ZBFD坐标放点 Prog A Lbl 3 Fix 3 MN Pol M X3 A N Y3 B I D J J W 180 JJ J 360 L J Prog B Goto 3 输入 X1 Y1 X2 Y2 X3 Y3 输出 D L X2 981 852 Y2 960 035 X3 651 216 Y3 399 788 X4 522 500 Y4 280 361 X5 643 166 Y5 539 606 L1 63 06 20 L2 230 26 20 D 140 049 1 2 3 L 153 31 28 D 195 519 X1 870 235 Y1 652 741 X2 588 418 Y2 770 413 X3 460 503 Y3 918 283 X1 786 193 Y1 1001 479 1 5 3 4 2 X 354 516 Y 181 286 测量程序 xls第 3 页 5 Z自由导线推算 E 0 1 F 0 Prog A Fixm C A 2 D B J F J Lbl 4 点 号 L D X Y LH 1 4110 700 4887 630 L L0 2 81 54 24 4329 110 5102 220 Prog F 164 88 I F J F K 180 3 42 28 06 4426 956 4969 511 H E F H D 313 27 Prog R 4 277 33 40 4119 578 5029 986 C X 142 64 D Y 54110 698 4887 623 J F I F Goto 4 6 ZDX支导线计算X1Y1 X2Y2 为已知点坐标 Prog A L 角度用小数输入 Lbl 4 输一组L D 得一个点的坐标 LS L Prog F M X3 A Rec S W K 180 N Y3 B J Goto 4 输入 X1 Y1 X2 Y2 L S 输出 X3 Y3 L 观测角度以下按小数点输入 X1 870 235 Y1 652 741 X2 588 418 Y2 770 413 X3 460 503 Y3 918 283 L 153 31 28 X1 4110 700 Y1 4887 630 X2 4329 110 Y2 5702 220 4 5 3 L L L L D D S 195 519 D 测量程序 xls第 4 页 7 DX单一导线简易平差计算 Prog A Prog C J W V C A M D B N F E N I F J Lbl 1 F F 1 点 号 观 测 角 边 长 X Y GH A 4110 7004 48 88 87 7 6 63 30 0 I F J F G L 180 B 81 54 244329 110 5 51 10 02 2 2 22 20 0 I F I F I F 360 164 880 I F 360 I F I F 360 1 42 28 06 4426 9564 49 96 69 9 5 51 10 0 H E F H D 313 270 F 1 Goto 1 2 277 33 42 4119 5835 50 02 29 9 9 99 93 3 G 142 640 G I F G L 180 A318 04 004110 700 4 48 88 87 7 6 63 30 0 GG G 360 G 360 G G 360 B 4329 1105 51 10 02 2 2 22 20 0 I G I W 12 S 620 790 G W 602FracI 相对中误差 fS S 1 88119 fX 0 007fY 0 000 G 0 Lbl 2 I F I F I E F E Prog R 说明 F F 1 N 观测角数 L 左角按度分秒输入 G H G W 角度闭合差 fX fY坐标闭合差 FGoto 2若用外 右 角计算闭合差程序中之I G I 360 G S 若用内 左 角计算闭合差程序中之I G I I fX C 本程序只能计算八个未知点 多于八个时每增加一个 C A 未知点 必需扩展两个储存器 A fY D D B B fS S Int G I I AA Lbl 3 F F 1 Prog R C X C I H G D Y D AH G F 1 Goto 3 A B 1 2 测量程序 xls第 5 页 8 WDX无定向导线 Prog A D I C 0 M 0 N 0 P Lbl 0 P P 1 LS L B Prog F F K C C F C 0 Goto 1 C C 180 Goto 1X1Y1 X2Y2 已知点坐标 Lbl 1 P 边数 B 观测角 第一个角输入0 Rec S C S 边长 Xf Yf 增量累加数 记录侍用 Fix 4 输入一组Xf Yf 求得一组X Y M Xf M I 用左角 度以下按小数输入 N Yf N J P 0 Goto 0 Pol M N R W 180 J K D I V Cos R 点号观测角边长XfYfXY E Sin R A 0 00 00 4 43 32 29 9 1 11 10 05 51 10 02 2 2 22 20 0 Lbl 2 164 881 16 64 4 8 88 80 00 00 0 0 00 00 00 0 HO 1 42 28 06 4 44 42 26 6 9 95 52 24 49 96 69 9 5 51 12 2 H Xf 313 27 6 66 6 2 20 03 38 8 2 21 11 1 5 51 14 45 5 O Yf 2 277 33 42 4 41 11 19 9 5 58 81 15 50 02 29 9 9 99 91 1 Fix 3 142 644 43 3 1 11 12 28 8 3 30 03 3 1 14 45 50 0 T X X K HV OE 34 41 11 10 0 7 70 00 04 48 88 87 7 6 63 30 0 Z Y Y K HE OV Goto 2B为观测角 第一个角输入0 A B 2 1 L 42 28 06 X 4110 700 Y 4887 630 X 4119 583 Y 5029 993 X 4426 956 Y 4969 510 X 4329 110 Y 5102 220 L 277 33 42 测量程序 xls第 6 页 9 QJD前交点 正弦公式 Prog A Prog J S I Sin E Sin E K Prog O A B 观测角 X1 Y1 X2 Y2 已知点坐标 正切公式 Prog A Prog J S tanS tan E E T tan K G S 1 T 1 M X3 X T A S Y B G N Y3 Y T B S X A G 输入 X1 Y1 X2 Y2 A B 输出 X3Y3 10 FX方向交会 Prog A Prog J S tan E T tan K G S T M X3 SX AT Y B G N Y3 S M X Y X1Y1 X2Y2 为起算点坐标 A B 方位角 X Y 交点坐标 X3 291 290 X1 295 227Y3 188 016 11 CJ侧方交会点Y1 266 159 Prog A Prog J S I sin E K Sin K K K 0 M X A Rec S W E 180 K 1 M X A Rec S W E 180 N Y B JX2 326 826X1 348 476 X1Y1 X1 Y1 X2Y2 已知点坐标 Y2 184 762Y1 102 560 A B 观测角 左右分开 左K 0 右K 1A 63 33 06 B 92 20 51 从左右两组算出坐标取中数为XYA 109 59 39 B 50 57 06 X1 1156 851 Y1 945 076 X2 1108 871 Y2 1002 214 X3 1211 951 Y3 990 724 A 90 22 50 B 43 37 07 X1 202 190 Y1 197 240 X2 177 480 Y2 143 560 X3 178 823 Y3 181 592 A 213 48 30 B 87 58 42 2 1 1 3 K 0 K 1 A B A B X3 291 242 Y3 188 025 测量程序 xls第 7 页 12 HJ 后交点计算 Prog A M X3 X1 992 692X2 1012 499 N Y3 Y1 972 112Y2 947 747 Prog J S tan E T tan K H Y B S X A F X A S Y B Q N B T M A V M A T N B K H Q F V X4 999 998X3 1063 248 D H FK 1 K2 Y4 999 997Y3 1000 000 O X4 A D X1Y1 X2Y2 X3Y3 已知点坐标 P Y4 B KDA B 观测角 X4Y4 测点坐标 12HJ 1Prog A D I 另一种后Pol A M X3 B N Y3 交公式 S I G J Prog J Z 180 W G E K 2 Q tan 1 D Sin C S Sin E H tan 1 tan Z tan 45 Q R Z H T D Sin E R Sin E O X X T Cos W R P Y Y T Sin J R A 28 08 13 B 76 32 50 测量程序 xls第 8 页 13 LDHJ两点后交 Prog A L A Prog F C K L X2 857 025X1 944 202 L B Y2 117 397Y1 281 368 Prog F O K L L E Prog F E K L L F Prog F F K X4 838 339 S Sin E Sin C E Y4 292 602 D Sin C Sin C E X3 751 951 M Sin F Sin O F Y3 139 053 N Sin O Sin O F P S2 M2 2SM Cos C O 观测角A B E F 度以下按小数点输入 T D2 N2 2DN Cos F E K D1 2I D0 P T S S1 KS D S2 KD M S3 KM N S4 KN H Cos 1 I2 S2 M2 2IS L H Prog B Z H G Cos 1 I2 N2 D2 2IN L G Prog B Z G Fix 3 Q X3 A Rec S W H 180 R Y3 B J Q X4 A Rec D W E F L R Y4 B J H 106 21 08 A 72 17 00 B 24 07 36 E 35 27 00 F 113 18 18 D1 176 182 S1 170 282 D0 185 705 G 68 03 34 S4 106 458 S2 176 198 S3 239 194 测量程序 xls第 9 页 14 JWYSJ 经纬仪视距测量 坐标 高程 Prog A Lbl 0 Prog W Fix 2 S D Sin K 2 H S tan K G L Prog F 输入 X1 Y1 X2 Y2 H0 起点高 T仪高 Prog O D 视距 S 平距 Z 天顶距 P标高 Goto 0输出 X3 Y3 S平距 15 JZB极坐标法测碎部点坐标 高程 全站仪 Prog A G E H0 T Lbl 8 LSV Prog F Prog O H G V h P Goto 8 输入 X1 Y1 X2 Y2 H0 T L S h P 求 X Y H X1 870 235 Y1 652 741 X2 588 418 Y2 770 413 H0 0 T 1 X3 460 50 Y3 918 29 P 1 H 92 46 D 239 25 Z 64 4124 S 195 52 X 1366 232 Y 1334 668 X2 756 132 Y2 928 275 H0 7 0 T 1 5 X1 474 919 Y1 1277 539 L 264 49 42 S 733 060 P 11 80 h 3 52 H 6 82 L 153 31 28 测量程序 xls第 10 页 X3 273 299 16 SD垂距 垂点坐标计算Y3 208 502 Prog A 3 O Sin J P CosJ X1 296 203 E M X3 X Y1 254 990 2 F N Y3 Y X2 543 000 S EP FO 1X 300 714Y2 100 000 D EO FP Y 252 157 V X X Rec S W U Y Y J 注 D为正时 3点在1 2之左侧 为负时在右侧 S为正 3在1 2之线上 为负则在2 1之延线上 17 MM坐标法计算多边形面积 N P 0 V 0 A X B Y E A F B Fix 3 Lbl 0 m2 360 019m2 N V 1 X E Y F Goto 1mu 0 54亩 XY X Y N 4 边数 Lbl 1 Pol X A Y B I S P P Y B X A 2 A X B Y V V 1 V N Goto 0 P m2 Abs P Q mu 1 5 m P X 399 485 Y 452 528 X 400 585 Y 432 557 X 382 612 Y 431 567 X 381 512 Y 451 537 D 20 001 D 18 000 D 18 000 D 20 000 S 5 327 D 51 549 测量程序 xls第 11 页 18断面图封闭图形面积计算 高程相当于X 距离相当于Y 用相对坐标计算 0 3 5 04 00 35 30 3 N 73 373 0 P 0 V 0 Y 0 72 072 0 A H 70 8 B D 70 8 E A 69 8 F B Fix 3 Lbl 0 N V 1 H E Y F Goto 1 HD H 点 号 1234567 Y Y D H X 73 370 869 870 872 072 073 0 Lbl 1 D Y 00 3540 35 30 3 P P Y B H A 2 m2 32 795 A H B Y N 多边形边数 V V 1 H 转折点高程 V N Goto 0D 相邻两点距离 P m2 Abs P第一点D输入0 18 1YXZB已知圆上三点坐标计算圆心坐标 Prog A O X Rec I 2 W X2 293 382 P Y J Y2 224 817 E tan W 90 Pol M X3 A N Y3 B X3 287 253X1 297 156 V J Y3 213 105Y1 237 009 Q A Rec I 2 V R B J T tan V 90 G E T 圆心坐标 X 227 235 H X OE QT P R G Y 251 973 K Y E H O P R 71 505 Pol M H N K I R 1 2 3 4 5 6 7 测量程序 xls第 12 页 19 SZ测距仪测斜距计算坐标高程 Prog A Lbl 0 Prog W S D sin K V K L Prog F L Prog O H G S tan V Goto 0 输入 X1 Y1 X2 Y2 已知点坐标 Z 天顶距 D 斜距 L 水平角 H0 起点高 T 仪高 P 标高 S 平距 求 X Y H 20 BO用经纬仪视距放坡 DL D D 视距 Z 天顶距 I 仪器高 P 照准高 L Z S 平距 H 高差 Prog F X 按 9 的坡度时 应调整的测点高低值 S D Sin Z 2 放负坡时程序中为 0 09 H h S tan Z I P X 0 09S H 21 PBSJ平板仪视距测量 Lbl 0 Prog W 测站 Fix 2 S D Cos K 2 H S tan K G Goto 0 输入 H0 起算点高程 T 仪高 P 标高 Z 垂直角 分以下按小数 输入 D 视距 求 S 平距 H 高程 X1 35 692 Y1 775 53 X2 915 885 Y2 888 488 H0 85 43 T 1 31 X3 901 691 Y3 1090 353 P 0 96 H 79 988 Z 91 38 22 D 202 446 L 266 42 34 S 202 363 H0 10 00 T 1 2 Z 25 18 H 68 16 P 1 00 D视 150 0 122 6 测量程序 xls第 13 页 22 ZC直测方位角平距 计算测点坐标 A X0 B Y0 SL Prog F X A Rec S K Y B J L 方位角 S 平距 X0 Y0 起点坐标A X0 202 190 X Y 计算点坐标B Y0 197 240 23 DX H导线简易平差 含高程 N 点号 观 测 角 S h X Y H A TP 2 Goto 0 A 97 940736 130 C X1 B 159 08 54233 920383 15030 730D Y1 161 69 2 41 Pol E X2 C F Y2 D 1 33 18 58 234 529221 46228 328 Y J 140 191 03 A 0 X Y 180 2 86 43 56 157 019338 32329 365 G E 88 951 36 H F B 260 48 28233 920383 15030 730Goto 0 G X3 A 97 940736 130 H Y3 fB 16 S 390 83 Pol V X4 G W Y4 H fS S 1 230504fH 0 02 fX 0 001 fY 0 001 X J Lbl 0 M 0 Q 0 R 0 L 0 Lbl 1 M M 1 BS K 100Frac B K Int B Int K 60 Frac K 36 S Y M Y M 1 K 180 N M Goto 2 Y N M S X 178 822 Y 181 592 L 213 48 30 S 28 123 测量程序 xls第 14 页 L L S Goto 1 Lbl 2 M 0 A 1 Goto 5 P fB tan 1 tan Y N X Lbl 3 M M 1 Q Q Rec Y M N Y M MP N R R J M N 1 Goto 4 Goto 3 Lbl 4 Q fX E Q G R fY F R H L S O fS S L Pol Q R M 0 Lbl 5 M M 1 B Y M PM N S Y N M Rec S B E X E I SQ L F Y F J SR L MGoto 5 注 N 折角数 计算前要扩展储存器为2N 1 A TP 附合导线为 1 闭合导线为0 支导线为 1 B为观测角 S为边长 最后一问边长输入0 24 H高程路线计算 N N 0 M 0 Q 0 B H2 A 0 C B C H3 测量程序 xls第 15 页 Lbl 0 K M M 1 Q Q K h Y M K N 1 M Goto 1 Goto 0 Lbl 1 A 1 Q R fH Q B C M 0 Lbl 2 M M 1 B H B Y M R L O Y M N M N 1 Goto 2 接23DX H程序后计算高程 不用再输入两点间距离 只输入相应的高差就行了 25GC单一高程路线平差计算 Mcl E H0 Fixm Lbl 1 BC B S 0 A A 2 E A C A C h D B D 点号ShH D A D 0 110 33 675 14 145 Goto 1 117 832 E E A C Hn 51 14 356 D S 222 193 E fh 60 72 468 Lbl 2 324 668 B B 2 122 1 16 139 B 2 n8 542Fix 3 C H E B ED B D S 344 2 fh 0 037 BGoto 2 注 H0 起始点高程 S 距离总合 B S 两点间距离fh 高程闭合差 C h 两点间高差S输完后再显S 则输入0 按E E后将依次显示 C Hn 闭合点高程 S fh 及各点平差后高程 测量程序 xls第 16 页 26 PQX平曲线元素计算 B 90S R 例 L B S 170 R 938 22 A 21 45 03 8 Prog B 计算结果 Z B B 5 11 27 C 169 768M 84 977 P 1 283 Fix 3 L 526 174T 265 480E 18 466Q 4 787 C 2R Sin B 已知 S 缓和曲线长 R 圆曲线半径 B 缓和曲线总偏角 M S 2 S3 240R2 C B角对弦长 M 切垂距 P 内移距 A 转折角 P S2 24R S4 2688R3 L 曲线总长 T 切线长 E 外矢距 Q 切曲差 A L A Prog F L RK 180 S T M R P tan K 2 E R P Cos K 2 R Q 2T L 27 计算缓和曲线上起点对任一点的偏角 Fix 3 R S C Z Lbl 0 P 以交点为后视点 以ZH或HZ为起点 P G S 缓曲长D 起点至任一点的弧长 D Abs P C R 圆半经P G 曲线任一点桩号 A 30D2 RS A L 偏角 所对圆心角1 3C Z 起点桩号 K 0 A 360 A K 1 A L A Prog B Goto 0 测量程序 xls第 17 页 28 综合曲线上任一点中桩及左右边桩坐标计算 Fix 3 A X1 B Y1 点号桩号X中Y中XZYZ Pol C X2 A D Y2 B 300 301 118694 414291 188 695 590 JJ J 360 ZH 307 230 300 268687 234290 338 688 410 G J 350 292 126645 343282 700 648 681 Pol E X3 C F Y3 D HY 375 732 279 835622 921272 114 629 276 JJ J 360 380 277 001619 695269 751 626 593 H J QY 385 992 272 664615 565266 137 623 141 Z 5 H G YH 396 252 264 357609 564259 215 618 140 AbsZ 5 180 Z 5 430 232 412599 506231 253 609 439 Z 5 360 Z 5 0 V 1 HZ 464 754 197 697598 873198 005 608 868 V 1 480 182 459599 342182 766 609 337 P L2 24R L4 2688R3 Q L 2 L3 240R2 点号桩号XYYY T R P tan Z 5 V 2 Q 300311 049 693 239 I R Z 5 V 180 L ZH307 230310 199 686 059 Z 1 ZH W T 350301 552 642 005 Z 2 HY Z 1 L Z 7 QZ Z 1 I 2 HY375 732287 555 616 566 Z 3 YH Z 2 I 2L 380284 251 612 807 Z 4 HZ Z 3 L QZ385 992279 197 607 988 Lbl 0 K YH396 252269 500 600 987 K K 0 0001 Z K Z 1 O 180 Z L 2 R 430233 572 589 573 U Z 4 K K Z 1 Goto 1 HZ464 754197 390 588 878 K Z 2 Goto 2 480182 151 589 346 K Z 3 Goto 3 K Z 4 Goto 4 例中 缓和曲线长L 68 502 K Z 4 Goto 5圆曲线半径R 60 Lbl 1 曲线全长I 157 524 X C Rec T Z G 180 切线长T 91 820 Y D J 左右边桩距中桩10米 Z 6 G Goto 6 Lbl 2 X Z Z5 40R2L2 Y Z3 6RL Z7 336R3L3 Prog Q Z 6 G 90V Z2 RL 测量程序 xls第 18 页 Goto 6 Lbl 3 X Q R Sin O Y P R 1 Cos O XProg Q Z 6 G OV Goto 6 X T X C Rec X T 2 Y2 G V tan 1 Y X T Y D J Z 6 G OV Goto 6 Lbl 4 X U U5 40R2L2 Y U3 6RL U7 336R3L3 X C Rec T X 2 Y2 H V tan 1 Y T X Y D J Z 6 H 90VU2 RL Goto 6 4 46 64 4 7 75 54 4 Lbl 5 307 230307 230 X C Rec T U H 3 39 96 6 2 25 52 2X3 035 837 Y D J X1 312 506 3 37 75 5 7 73 32 2385 992Y3 603 850 Z 6 H Y1 790 607 Goto 6G 178 14 19 6 Lbl 6 S H 263 14 55 M XZ X Rec S Z 6 90 N YZ Y J S X2 289 474 桩号 W 399 050 M XY X Rec S Z 6 90 Y2 596 051 转转折折角角 85 00 35 4 N YY Y J Goto 0 X1Y1 X2Y2 X3Y3为后中前三交点坐标 L 缓和曲线长 R 圆曲线半径 W 中间交点里程桩号 K 任一点里程桩号 S 左右边桩至中桩距离 XZ YZ 左边桩坐标 XY YY 右边桩坐标 13 ZH HY YH HZ QZ 2 测量程序 xls第 19 页 29 YQX圆曲线段上任一点坐标计算 Prog A Z S R C Lbl 1 G L Abs G Z U L S 2 E U U3 6R2 U5 120R4 S 2 S3 240R2 F U2 2R U4 24R3 S2 24R Prog H T 180 Abs G C 90S R K 0 T W T K 1 T W T Prog L Goto 1 点号桩号XY切切线线方方向向角角交交点点坐坐标标 X1 Y1 缓曲起点坐标 ZH224 301836 233 734 72828 1428 14 31 X 1015 472X 1015 472 X2 Y2 交点坐标 300903 215769 99 26 48 37 Y 831 000Y 831 000 Z 起点 ZH HZ 桩号 HY359 301956 779795 42 23 41 27 左 左折折角角 S 缓和曲线长 405999 1 812 649 20 36 38 18 09 29 18 09 29 R 圆曲线半径 QZ426 491 1019 318 819 959 19 09 43 R 850R 850 T 切线方位角 450 1041 629 827 367 17 34 38 S 135S 135 G 曲线上任一点桩号 YH493 681 1083 581 839 483 14 37 58 L 404 380L 404 380 X3 Y3 任一点中桩坐标 580 1167 887 857 935 10 40 32 T 203 457T 203 457 C HY点里程桩号 HZ628 681 1215 786 866 623 10 05 02 M 67 486 DZ 中至左边桩距离P 0 893 DY 中至右边桩距离E 11 689 左折角K 0 右折角K 1 30HQX缓合曲线上任一里程桩点坐标计算 缓和曲线段 Prog A Z S R R T T ZH HZ HY YH A QZ 测量程序 xls第 20 页 Lbl 0 G L Abs G Z E L L5 40R2S2 F L3 6RS L7 336R3S3 Prog H R 圆半径 S 缓曲长 D 曲线任一点至起点弧长 T W 3H Z 缓曲线起点桩号 G 曲线上任一点桩号 A L 偏角 所对圆心角1 3 Prog L T 切线方位角 C HY点里程桩号 左折角时K 0 右折角时K 1 Goto 0DZ 中至左边桩距离 DY 中至右边桩距离 X1 Y1 曲线起点坐标 X2 Y2 交点坐标 X3 Y3 中桩坐标 X 208 144 Y 240 100 31 YX YQX 用切点和圆心坐标计算曲线上任一点坐标JDX 201 999 Prog A X 214 116Y 234 136 R I Y 234 329 Z X 196 398 Lbl 0 X 217 848ZY 246 345 G Y 231 002 K 0 Q 90Abs G Z R K 1 Q 90Abs G Z R M X A Rec R W 2Q 180 N Y B J Goto 0 X1Y1 切点坐标 X2Y2 圆心坐标 R 圆半径 Z 切点里程号 G 任一点里程桩号 左折角K 0 右折角K 1 总弧长L 26 449 32YQX JD 用切点 交点坐标计算圆上点坐标 Prog A R Z Lbl 0 G Q 90 Abs G Z R C 2R Sis Q X 149 453 Y 158 049 G 5 G 20 圆心 R 100 0 测量程序 xls第 21 页 K 0 L W Q K 1 L W Q M X3 X Rec C L N Y3 Y J Goto 0 X1Y1 切点坐标 X2Y2 圆心坐标 R 圆半径 Z 切点里程桩 G 任一点里程桩 33YQX YH已知圆弧上两点坐标及圆半径 计算圆曲线上任一点坐标 Prog A R JDX 208 144 Z X 214 116Y 240 100X 201 991 D Sin 1 I 2R Y 234 329Y 243 136 L D R 90 X 217 848X 196 398 Lbl 0 Y 231 002Y 246 345 G Z Q 90 Abs G Z R C 2R Sin Q K 0 H W D Q K 1 H W D Q M X3 X Rec C H N Y3 Y J Goto 0总弧长L 26 449 34YQX PJ圆曲线偏角法放线程序 Prog A X1 Y1 R D Sin 1 I 2R L D R 90 Lbl 0 X2 Y2 S Q 90S R Fix 3 C 2R Sin Q K 0 O D Q C S 圆心 X 1Y1 X 149 453 Y 158 049 G 5 G 20 圆心 R 100 0 2 1 测量程序 xls第 22 页 K 1 O 360 D Q L O Prog B Goto 0 注 曲线左转折K 0 右转折K 1 1 后视点 2 测站点 L 1 2点间总弧长 S 圆曲线上任一弧长 C S所对应的弦长 L 以后视点为0 的圆弧上任一点的 度盘读数 若以圆心为后视点 则式中一部份改为 K 0 O 90 Q K 1 O 270 Q 35 综合曲线计算左中右任一桩号的坐标 A AT 圆弧线上等距离各点坐标计算 B XJD Prog A C YJD R S LS Z 0 E AZ D Sin 1 I 2R R L DR 90 F L0 Lbl 0 T G G LJD Z Z G H E Abs E Q 90Z R Lbl A C 2R Sin Q L K 0 H W D Q L G T J L G K 1 H W D Q I 1 M X X Rec C H Q A N Y Y J Z 180 A Goto 0 Goto 1 注 L G T S J L G T X1Y1 X2Y2 圆弧线上两点坐标 I 1 R 圆半径 L 1至2两点间弧长 P A 180 G 圆弧线上固定间距 Q A XY 各计算点坐标 Goto 2 L G T F S I 1 J L G T Goto 3 LI 1 J G T F L 35 1 YH 测量程序 xls第 23 页 Q A E 180 P A E Goto 2 L G T F I 1 Q A E Z A E J L G 2T F Goto 1 Lbl 1 O X0 B J Cos Q U Y0 C J Sin Q Goto B Lbl 2 M J J5 40R2S2 N J3 6RS J7 336R3S3 IH O X0 B T Cos P M Cos Q N Sin Q U Y0 C T Sin P M sin Q N Cos Q Z Q 180 90HIJ2 SR Goto B Lbl 3 D 180 J S 2 R M R Sin D S 2 S3 240R2 注 A AT 交点i i 1之方位角 N S2 24R S4 2688R3 R 1 Cos D H B XJD C YJD 交点i 1之坐标 O X0 B T cos A 180 M Cos A N Sin A S LS i 1缓合曲线长 U Y0 C T sin A 180 M Sin A N Cos A E AZ i 1之转折角左转加 号 Z A 180 DHI F L0 曲线全长 Goto B R i 1点之曲线半径 Lbl B T 切线长 W G LJD 交点i 1的桩号 M XZ O W ZK Cos 90I Z L 计算点桩号 输入 N YZ U W Sin 90I Z X0 Y0 L桩号对应的中桩坐标 V W ZK L处左边宽度 M XY O V YK Cos Z 90I XZ YZ L处左边点坐标 N YY U V Sin Z 90I YK L处右边宽度 Goto AXY YY L处右边坐标 测量程序 xls第 24 页 36YQX YH已知圆曲线两点坐标及圆半经计算弦长 偏角 弧长 外距 矢距 弦弧距 及圆弧上任一点坐标 Prog A I C Q Sin 1 I 2R L Q Prog B Fix 3 L Q R 90 E R Cos Q R M R R Cos QC为1 2 弦长 Q 偏角 L为1 2 孤长 E 外距 M 弦孤距 R 半经 37 TY椭圆上任一点坐标计算 Prog A K L 0 X 5 000Y 0 000S 5 000 L 0 0000 O A K L 30 X 4 330Y 2 000S 4 77024 4724 47 2929 P B K L 60 X 2 500 Y 3 464S 4 272 54 1054 10 5757 Lbl 0 K L 90 X 0 000 Y 4 000S 4 00090 0000 L K L 300 X 2 500 Y 3 464 S 4 272305 49305 49 0303 Prog F K L 330 X 4 330 Y 2 000 S 4 770335 12335 12 3131 E O Cos K C A 5 长半径 F P Sin K P B 4 短半径 Pol E F X1 5 Y1 0 M X A Rec I J W 180 X2 0 Y2 0 N Y B J Goto 0 37 1TY椭圆上任一点坐标计算另一种公式 Prog A 长轴 2A 短轴 2B O A 方程 X2 A2 Y2 B2 1 P B 焦距 F1F2 2C Lbl 0 C A2 B2 E 弧长 L A B E X F P 1 E2 O2 K 1 Pol E F K 2 Pol E F K 3 Pol E F K 4 Pol E F M X A Rec I J W 180 N Y B J Goto 0注 K 1 2 3 4代表4个象限 1 2 R M E C Q 2Q Y A B Y X2 Y2 X1 Y1 X Y F1 F2 M C C 1 2 3 4 测量程序 xls第 25 页 38BL XY 高斯投影正算 北京坐标系 C Cos B Prog G T tan B H T2 U TC V U2 L L I L0 W LC 1r M W2 A 111134 8611B UC 32005 78006 V 133 92133 0 70304V X A H 58 H 61 M 30 4E 5 Q H M 12 1 NTM 2 Y H 18 H 58H 14 E 5 M 20 Q H M 6 1 NW 5E5 西安坐标改为 A 111133 0047B UC 32009 8575 V 133 9602 0 6976V 输入 B 纬L经L0中央子午线 求 X Y 39XY BL 高斯投影反算 北京坐标系 克氏球体 D X 111134 8611 U Sin D V U2 G CosD F D UG 5 051773759E 3 2 9837302E 5V 2 38189E 7V2 r C Cos F 例 T tan F 1 5度带坐标 X 2387924 989 H T2 Y 493014 139 Prog G 中央子午线 L 109 30 西安 Y J Y 5E5 投影 B 21 35 07 051 B 21 35 08 399 P Y N L 109 25 57 1577 L 109 25 57 153 M P2 B F 45H 90 H 61 M 30 3 9E H 5 E M 12 1 MTQr 2 输入 L0 中央子午线 X Y 北京坐标系 L P 24H 28 H 8H 6 E 5 输出 B 纬度 L 经度 M 20 2H Q M 6 1 r C L L I L0 测量程序 xls第 26 页 40XY BL 西安坐标系 国际球体 Z X 10 6 3 A 27 11162289465 9 02483657729Z 5 79850656E 3Z2 4 3540029E 4Z3 4 858357E 5Z4 2 15769E 6Z5 1 9404E 7Z6 T tan A Q 0 0067395018195 Cos A 2 Y Y 5E5 N Y 1 Q 6399596 65198801 B A T 1 Q 90N2 7 5 5 3T2 Q 9QT2 N4 61 90T2 45T4 N6 4 L L 180N 30 1 2T2 Q N3 1 5 5 28T2 24T4 N5 Cos A L G L0 L 41HD简易坐标换带计算 MODE5 弧度计算 A X0 B Y0 C B 5E5 R D DX W F A G A D R H C R I R tan 1 Sin G Cos G Cos W Sinh H Sin W D Y R tanh 1 Sinh H Cos W Cos G Sin W Cosh H X I F Y4 C4 Y J Y 5E5 例例 原3 带坐标 中央子午线条111 北京坐标系换1 5 带坐标 中央子午线109 30 X1 2388018 217Y1 37352858 376X 2387349 271Y 508217 149 以X1为引数查下表得各系数 R 6362839 559 DX 2935 069 A 1 4914E 24 DW DW3 N 3 0 05249009143 1 5 3 0 026245045715 式中N为新旧带中央子午线经差 东带换西带取 DW 反之取 DW Y的输入输出均含500Km在内 Y要去带号 测量程序 xls第 27 页 B 纬度XRDXDW3 A 181991017 4766360928 7001654 342D 0 05250400991A 1 2622E 24 18 52046360 0916361149 8521790 205D 0 05250236262A 1 2923E 24 192101705 6266361376 2031932 808D 0 05250068649A 1 3220E 24 19 52157054 1486361607 6832082 252D 0 05249898270A 1 3513E 24 202212405 7246361844 2242238 628D 0 05249725247A 1 3802E 24 20 52267760 4206362085 7572402 021D 0 05249549699A 1 4086E 24 212323118 3016362332 2062572 51D 0 05249331750A 1 4367E 24 21 52378479 4306362583 4992750 171D 0 05249191523A 1 4642E 24 222433843 8706362839 5592939 069D 0 05249009143A 1 4914E 24 22 52489211 6836363100 3133127 265D 0 05248824735A 1 5181E 24 232544582 9306363365 6793326 812D 0 05248638425A 1 5443E 24 23 52599957 6706363635 5783533 759D 0 05248450340A 1 5700E 24 242655335 9626363909 9293748 146D 0 05248260607A 1 5953E 24 24 52710717 8646364188 6513970 007D 0 0524806