《单一附合导线测量控制网平差程序.doc》由会员分享，可在线阅读，更多相关《单一附合导线测量控制网平差程序.doc（14页珍藏版）》请在三一文库上搜索。
1、单一符合导线测量控制网平差程序梁彩艳（西北石油局工程服务大队 , 新疆乌鲁木齐 830011 ）摘 要:由于全站仪 （光电仪 ） 的不断普及 , 导线布网已在测量控制网 中广泛应用。为了简化计算 ,提高平差精度 , 节约平差经费 ，结合实际工作中的一个实例 ， 运用 PC E500 计算器编制 了单一符合导线高斯平差程序。关键词 :单一 ; 符合导线 ;平差程序1 差原理及程序框图 （ 见图 1 ）2 实例在单一符合导线 （如图 2） 中, 已知各起始数据 , 观测了各折角方向值 ,测量了各边长 （见表 1）,观测方向中误差 3 r = 士 5 ,边 长 丈量中误差 3 si = 士 0. 5
2、 simm , 求各导线点的坐标平差值和最 弱点 4 号 点的点位精度 （可假设单位权中误差 3 0 = 士 5 , 则观测 角权为 0.5 , 观测边权 Psi = 100/ Si ） 。图 2 单一符合导线示意图表 1 测量数据一览表点号已知坐标 （m）X Y编号已知坐标方位角B 3020. 348 - 9049. 801 a AB 226 4459 C 3702. 437 - 10133.399 a CD 57 59 31 编号观测角度编号 观测边长(m)1 230 32 37 1 204. 9520018042 2 200. 130393 仃0 22 3 345. 153484 236
3、 37 4 278. 059145 192 25 5 451. 692596 260 59 01 3平差程序 10 :REM SUB 10 - 190 QIU DAO XIAN DIAN GAI LUE ZUO BIAO20 :REM SHU ZU ” A” WEI FANG WEI J IAO ,” B” WEI GUAN CEZUO J IAO，” S” WEI BIAN CHANG ” , P ” WEI QUAN，” V” WEI GAIZHENG SHU ” , MX、MY、M” WEI DAI QIU DIAN ZHONG WUCHA ” , X、丫” WEI ZUO BIAO30
4、 : INPUT ” GUAN CE J IAO GE SHU :N =” ;N40 :DIM A (N) ,B (N) ,S (N) ,X(2 3 N) , Y(2 3 N) , P (2 3N) ,V(2 3 N) ,MX(N) ,MY(N) ,M(N)45 :FOR I = 1 TO N 50 :READ B( I) ,S( I)60 :B( I) = DEG (B( I) )70 :NEXT I80 : INPUT ” QI SHI FANG WEI J IAO :A0 = ”;A(0)90 :A(0) = DEG (A(0) )100 :FOR I = 1 TO N110 :A( I
5、) = A( I - 1) + B( I) + 180120 : IF A( I) 360 THEN A( I) = A( I) - 360130 :NEXT I140 : INPUT ”QI SHI DIAN ZUO BIAO : X0 = ”; X(1) , ” Y0 = Y(1)总第 93 期2004 年第 2 期西部探矿工程WEST - CHINA EXPLORATION ENGINEERING series No. 93 Feb. 2004145 : PRINT ”DAO XIAN DIAN GAI LUE ZUO BIAO ZHI : 150 :FOR I = 2 TO N160
6、:X( I) = X( I - 1) + S( I - 1) 3 COS(A( I - 1) ) : Y( I) = Y( I- 1) + S( I - 1) 3 SIN(A( I - 1) )170 :PRINT ”X(”; I ;”) = ”;X( I) ,”Y( ; ”I ; ”) = ”; Y( I)180 :NEXT I185 :LOCATE 12190 :PRINT ” # # # # # ”200 :REM SUB 200 - 370 QIU TIAO J IAN FANG CHENG XISHU ” A1 ,BI ,C1 ”SHU ZU J I QUAN HAN SHU XIS
7、HU ” FX ,FY ”SHU ZU210 :DIM A1 (2 3 N - 1) ,B1 (2 3 N - 1) ,C1 (2 3 N - 1) ,FX(23 N - 1) ,FY(2 3 N - 1)220 :FOR I = 1 TO N230 :READ A1( I)240 :NEXT I250 :FOR I = 1 TO 2 3 N - 1260 :B1 ( I) = ( - Y(N) + Y( I) ) / 206. 26270 :C1 ( I) = (X(N) - X( I) ) / 206. 26280 : IF N I THEN B1( I) = COS(A( I - N)
8、:C1 ( I) = SIN (A ( I - N) )290 :NEXT I300 : INPUT ”ZUI RUO DIAN HAO :FN = ” ;FN310 :FOR I = 1 TO 2 3 N - 1320 :FX( I) = ( - Y(FN) + Y( I) ) / 206. 26330 :FY( I) = (X(FN) - X( I) ) / 206. 26340 : IF FN I THEN FX( I) = 0 :FY( I) = 0350 : IF N N + FN - 1 THEN FX( I) = 0 :FY( I) = 0370 :NEXT I414 : INP
9、UT ”FU HE FANG WEI J IAO :A2 = ”;A2 , ” FU HE DIAN ZUO BIAO :X2 = ”;X2 , ”Y2 = ” ; Y2415 :WA = - DEG(A2) + A(N) :WX = - X2 + X(N) :WY =- Y2 + Y(N)416 :WA = DMS(WA) : IF WA 360 THEN WA = WA - 360419 :WA = WA 3 10000 :WX = WX3 1000 :WY= WY3 1000420 :REM SUB 420 - 740 J IE SUAN FA FANG CHENG425 :REM SU
10、B 430 - 470 J I SUAN GUAN CE J IAO、BIAN DE QUAN430 : INPUT ”J IA SHE DAN WEI QUAN ZHONG WU CHA :D0= ” ;D0440 :FOR I = 1 TO 2 3 N - 1 450 :P( I) = 0. 5 460 : IF I N THEN P( I) =(D0 3 D0) / (0. 25 3 S( I - N) )470 :NEXT I500 :REM ” E”WEI DAI QUAN QIU HE FU HAO520 : EAA = 0 : EAB = 0 : EAC = 0 : EAFX =
11、 0 : EAFY= 0530 : EBB = 0 : EBC = 0 : EBFX = 0 : EBFY= 0540 : ECC = 0 : ECFX = 0 : ECFY= 0 : EFFX = 0 : EFFY= 0550 :FOR I = 1 TO 2 3 N - 1 560 :EAA = A1 ( I) 3 A1 ( I) / P ( I) + EAA : EAB = A1 ( I) 3 B1( I) / P( I) + EAB570 :EAC = A1 ( I) 3 B1 ( I) / P( I) + EAC: EAFX = A1 ( I) 3 FX( I) / P( I) + E
12、AFX: EAFY = A1 ( I) 3 FY( I) / P ( I) + EAFY580 :EBB = B1 ( I) 3 B1 ( I) / P ( I) + EBB : EBC = B1 ( I) 3 C1( I) / P( I) + EBC590 :EBFX = B1 ( I) 3 FX( I) / P ( I) + EBFX: EBFY= B1 ( I) 3 FY( I) /P( I) + EBFY600 :ECC = C1 ( I) 3 C1 ( I) / P ( I) + ECC: ECFX = C1 ( I) 3 FX( I) / P( I) + ECFX: ECFY= C
13、1( I) 3 FY( I) / P( I) + ECFY610 :EFFX = FX( I) 3 FX( I) / P( I) + EFFX: EFFY= FY( I) 3 FY( I) / P( I)+ EFFY620 :NEXT I630 :EBB1 = EBB - EAB 3 EAB/ EAA : EBC1 = EBC - EAB 3 EAC/EAA : EWX1 = WX - EAB 3 WA/ EAA640 :EBFX1 = EBFX - EAB 3 EAFX/ EAA : EBFY1 = EBFYEAB 3 EAFY/EAA650 :ECC2 = ECC - EAC3 EAC/
14、EAA - EBC1 3 EBC1/ EBB1660 :EWY2 = WY- EAC 3 WA/ EAA - EBC1 3 EWX1/ EBB1670 :ECFX2 = ECFX - EAC 3 EAFX/ EAA - EBC1 3 EBFX1/ EBB1680 :ECFY2 = ECFY- EAC3 EAFY/ EAA - EBC1 3 EBFY1/ EBB1690 : KC = - EWY2/ ECC2 700 : KB = - EBC1 3 KC/ EBB1 - EWX1/ EBB1710 : KA = - EAB 3 KB/ EAA - EAC 3 KC/ EAA - WA/ EAA7
15、20 : EPVV = WA 3 WA/ EAA + EWX1 3 EWX1/ EBB1 + EWY2 3 EWY2/ ECC2730 : EFFX3 = EFFX - EAFX 3 EAFX/ EAA - EBFX1 3 EBFX1/ EBB1 - ECFX2 3 ECFX2/ ECC2740 : EFFY3 = EFFY - EAFY 3 EAFY/ EAA - EBFY1 3 EBFY1/ EBB1 - ECFY2 3 ECFY2/ ECC2750 :REM SUB 750 - 910 QIU GUAN CE BIAN 、J IAODEGAI ZHENG SHU ,DAO XIAN DI
16、AN ZUO BIAO PINGCHA ZHI J I ZUI RUO DIAN J ING DU PING DING748 :PRINT ” V (1 ? 6) WEI GUAN CE J IAO GAI ZHENGSHU , V ( 7 ? 11 ) WEI BIAN CHANG GAI ZHENGSHU :”750 :FOR I = 1 TO 2 3 N - 1760 :V( I) = (A1 ( I) 3 KA + B1 ( I) 3 KB + C1 ( I) 3 KC) / P( I)770 : IF I 360 THEN A( I) = A( I) - 360830 :NEXT I
17、835 :PRINT ”DAO XIAN DIAN PING CHA ZHI : ”840 :FOR I = 2 TO N850 :X( I) = X( I - 1) + S( I - 1) 3 COS(A( I - 1) )860 : Y( I) = Y( I - 1) + S( I - 1) 3 SIN(A( I - 1) )870 :PRINT ”X(”; I ; ”) = ”;X( I) , ”Y( ; ”I ; ”) = ”; Y( I)880 :STOP890 :NEXT I894 :LOCATE 12896 :PRINT ”# # # # # ”900 :M0 = SQR( EP
18、VV/ 3) :MX( FN) = M0 3 SQR( EFFX3) :MY( FN) = M0 3 SQR ( EFFY3) :M ( FN) = SQR (MX(FN) 3 MX(FN) + MY(FN) 3 MY(FN)910 : PRINT ”J I SUAN DAN WEI QUAN ZHONG WUCHA :M0 = ” ;M0 , ” ZUI RUO DIAN WU CHA :M( ” ;FN ; ”) = ” ;M(FN) ; ”mm”911 :LOCATE 12912 :PRINT ” # # # # # ”914:LOCATE 15916 :PRINT ” END ! ”9
19、18 :REM 920 HANG FANG ZHI GUAN CE ZUO J IA 、OBIAN CHANG ZHI ,930 HANG FANG ZHI FANG WEIJ IAO TIAO J IAN XI SHU920 : : DATA 230. 3237,204. 952 , 180. 0042,200. 130 ,仃0. 3922 ,345. 153,236. 4837,278. 059 , 192. 1425,451. 692 ,260. 5901 ,0930 :DATA 1 ,1 ,1 ,1 ,1 ,1 ,0,0 ,0,0 ,0,0940 : END4运行结果RUNGUAN C
20、E J IAO GE SHU :N = 6QI SHI FANG WEI J IAO :A0 = 226. 4459QI SHI DIAN ZUO BIAO :X0 = 3020. 348Y0 = - 9049. 801DAO XIAN DIAN GAI LUE ZUO BIAO ZHI :X3046. 36649丫(2)=-9253. 09478X(3)3071. 81326Y(3)=-9451. 60039X(4)3059. 53346Y(4)=-9796. 53488X(5)3286. 66789Y(5)=-9956. 93052X(6)3702. 48850Y(6)=-10133. 3
21、3597# # # # #ZUI RUO DIAN HAO :FN = 4FU HE FANG WEI J IAO :A2= 57. 5931FU HE DIAN ZUO BIAO :X2 =3702. 437Y2 = - 10133. 399J IA SHE DAN WEI QUAN ZHONG WU CHA :DO = 5V(1 ? 6) WEI GUAN CE J IAO GAI ZHENG SHU ,V(711) WEI BIAN CHANG GAI ZHENG SHU :V(1)-4. 01V=-3. 79V(3)-3. 57V=-3. 93V(5)-1. 03V(6)=4. 33V
22、(7)2. 77V(8) = 2.70V(9)4. 67V(10)=2. 31V(11) = 2. 64# # # # #DAO XIAN DIAN ZUO BIAO PING CHA ZHI :X(2) = 3046. 362887X(3) = 3071.802485X(4) = 3059. 503514X(5) = 3286. 62793X(6) = 3702. 436997# # # # #Y(2) = - 9253. 098035Y(3) = - 9451. 607297Y(4) = - 9796. 545774Y(5) = - 9956. 959587Y(6) = - 10133.
23、399J I SUAN DAN WEI QUAN ZHONG WU CHA : M0 =4. 336768793ZUI RUO DIAN WU CHA :M(4) = 13. 04462451mm# # # # #END !（上接第66页）参考文献 1 姜永智 ,廖雪珍 , 郭亮明 , 赵国育 , 刘宝山 . 铜湿法冶金技术的 研究 于应用评述 J . 甘肃有色金属 , 第 17 卷, 第 1 期. 2 王成彦 . 低品位铜湿法冶炼的现状及发展趋势 J . 新疆 地质,2001 ,12.3 向鹏成 , 谢英. 溶浸技术在低品位矿石回收利用中的应用与发展J . 中国资源综合利用 ,2002 ,3
24、.4 刘大星 . 我国铜湿法冶金技术的进展 J . 有色金属 ( 矿山 部分) ,2002 ,5.Leaching Technique and its Development Trend of Low - Grade CopperOresZHAO Guo2dong , WU Heng2shan , L IU Qing , L I Chao( School of A rchitect ural Engi neeri ng , Resources and Environment ,Nanhua University , Hengyang , Hunan ,421001 , Chi na )Abst
25、ract : The presence of the hydro - metallurgy for low - grade copper ores is introduced. The mechanism and technique of leaching areanalyzed. Opin2ions are put forward about the developing trend of leaching for low -gradecopper ores.Key words : low - grade copper ore ; leaching ; development692004 年第 2 期梁彩艳 : 单一符合导线测量控制网平差程序