单一附合导线测量控制网平差程序Word文档格式.docx

1、5 19214255 451. 6926 26059013 平差程序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 CE ZUO J IAO ,”S”WEI BIAN CHANG”, P”WEI QUAN ,”V”WEI GAI ZHENG SHU ”, MX、MY、M”WEI DAI QIU DIAN ZHONG WU CHA”, X、Y”WEI ZUO BIAO30 : INPUT ” GUAN CE J IAO GE SHU

2、 :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 N50 :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 :110 :A（ I） = A（ I - 1） + B（ I） + 180120 : IF A（ I） 360

3、THEN A（ I） = A（ I） - 360130 :140 : INPUT ”QI SHI DIAN ZUO BIAO : X0 = ”; X（1） , ” Y0 = ” ; Y（1）总第 93 期2004 年第 2 期西部探矿工程WEST - CHINA EXPLORATION ENGINEERING series No. 93Feb. 2004145 : PRINT ”DAO XIAN DIAN GAI LUE ZUO BIAO ZHI : 150 :FOR I = 2 TO N160 :X（ I） = X（ I - 1） + S（ I - 1） 3 COS（A（ I - 1） ）

4、: Y（ I） = Y（ I- 1） + S（ I - 1） 3 SIN（A（ I - 1） ）170 :PRINT ”X（”; I ;”） = ”;X（ I） ,”Y（ ; ”I ; ”） = ”; Y（ I）180 :185 :LOCATE 12190 :PRINT ”# # # # # ”200 :REM SUB 200 - 370 QIU TIAO J IAN FANG CHENG XI SHU ”A1 ,BI ,C1 ”SHU ZU J I QUAN HAN SHU XI SHU”FX ,FY”SHU ZU210 :DIM A1 （2 3 N - 1） ,B1 （2 3 N - 1）

5、 ,C1 （2 3 N - 1） ,FX（23 N - 1） ,FY（2 3 N - 1）220 :230 :READ A1（ I）240 :250 :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） :C1 （ I） = SIN （A （ I - N） ） 290 :300 : INPUT ”ZUI RUO DIAN HAO :FN = ”;FN310

6、:320 :FX（ I） = （ - Y（FN） + Y（ I） ） / 206. 26330 :FY（ I） = （X（FN） - X（ I） ） / 206. 26340 : IF FN N + FN - 1 THEN FX（ I） = 0 :370 :414 : INPUT ”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

7、） : 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 SUB 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 : N T

8、HEN P（ I） = （D0 3 D0） / （0. 25 3 S（ I - N） ）470 :500 :REM ” E”WEI DAI QUAN QIU HE FU HAO520 : EAA = 0 : EAB = 0 : EAC = 0 : EAFX = 0 : EAFY= 0530 : EBB = 0 : EBC = 0 : EBFX = 0 : EBFY= 0540 : ECC = 0 : ECFX = 0 : ECFY= 0 : EFFX = 0 : EFFY= 0550 :560 :EAA = A1 （ I） 3 A1 （ I） / P （ I） + EAA : EAB = A1

9、 （ I） 3 B1（ I） / P（ I） + EAB570 :EAC = A1 （ I） 3 B1 （ I） / P（ I） + EAC: EAFX = A1 （ I） 3 FX（ I） / P（ I） + EAFX: 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

10、） / P（ I） + EBFY600 :ECC = C1 （ I） 3 C1 （ I） / P （ I） + ECC: ECFX = C1 （ I） 3 FX（ I） / P（ I） + ECFX: ECFY= C1（ 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 :630 :EBB1 = EBB - EAB 3 EAB/ EAA : EBC1 = EBC - EAB 3 EAC/ EAA : EWX1 = WX - E

11、AB 3 WA/ EAA640 :EBFX1 = EBFX - EAB 3 EAFX/ EAA : EBFY1 = EBFYEAB 3 EAFY/ EAA650 :ECC2 = ECC - EAC3 EAC/ 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 = -

12、EWY2/ ECC2700 : KB = - EBC1 3 KC/ EBB1 - EWX1/ EBB1710 : KA = - EAB 3 KB/ EAA - EAC 3 KC/ EAA - WA/ EAA720 : 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 EBF

13、Y1/ EBB1 - ECFY2 3 ECFY2/ ECC2750 :REM SUB 750 - 910 QIU GUAN CE BIAN、J IAODEGAI ZHENG SHU ,DAO XIAN DIAN 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 :”760 :V（ I） = （A1 （ I） 3 KA + B1 （ I） 3 KB +

14、 C1 （ I） 3 KC） / P（ I）770 : IF I = N THEN B （ I） = B （ I） + DEG（V （ I） / 10000）ELSE S（ I - N） = S（ I - N） + V（ I） / 1000780 :PRINT ” V（” ; ” ） = ” ;V（ I） ,790 :795 :798 :PRINT ” # # # # # ”68 西 部 探 矿 工 程No. 2800 :810 :820 :830 :835 :PRINT ”DAO XIAN DIAN PING CHA ZHI :840 :850 :X（ I） = X（ I - 1） + S（

15、 I - 1） 3 COS（A（ I - 1） ）860 : Y（ I） = Y（ I - 1） + S（ I - 1） 3 SIN（A（ I - 1） ）870 :X（ I） , ”Y（ ;880 :STOP890 :894 :896 :900 :M0 = SQR（ EPVV/ 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

16、 = ” ;M0 , ” ZUI RUO DIAN WU CHA :M（” ;FN ; ”） = ” ;M（FN） ; ”mm”911 :912 :914 :LOCATE 15916 :PRINT ”END !918 :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 , 170. 3922 , 345. 153 , 236

17、. 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 CE 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 :X（2） =3046. 36649Y（2） =- 9253. 0

18、9478X（3） =3071. 81326Y（3） =- 9451. 60039X（4） =3059. 53346Y（4） =- 9796. 53488X（5） =3286. 66789Y（5） =- 9956. 93052X（6） =3702. 48850Y（6） =- 10133. 33597# # # # #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

19、CHA :D0 = 5V（1 6） WEI GUAN CE J IAO GAI ZHENG SHU ,V（7 11） WEI BIAN CHANG GAI ZHENG SHU :V（1） =- 4. 01V（2） =- 3. 79V（3） =- 3. 57V（4） =- 3. 93V（5） =- 1. 03V（6） =4. 33V（7） =2. 77V（8） = 2. 70V（9） =4. 67V（10） =2. 31V（11） = 2. 64X（2） = 3046. 362887X（3） = 3071. 802485X（4） = 3059. 503514X（5） = 3286. 62793X

20、（6） = 3702. 436997Y（2） = - 9253. 098035Y（3） = - 9451. 607297Y（4） = - 9796. 545774Y（5） = - 9956. 959587Y（6） = - 10133. 399DAO XIAN DIAN ZUO BIAO PING CHA ZHI :J I SUAN DAN WEI QUAN ZHONG WU CHA : M0 =4. 336768793ZUI RUO DIAN WU CHA :M（4） = 13. 04462451mmEND !（上接第 66 页）参考文献 : 1 姜永智 ,廖雪珍 , 郭亮明, 赵国育 , 刘

21、宝山 . 铜湿法冶金技术的 研究于应用评述 J . 甘肃有色金属 , 第17 卷, 第1 期. 2 王成彦 . 低品位铜湿法冶炼的现状及发展趋势 J . 新疆地质,2001 ,12.3 向鹏成, 谢英. 溶浸技术在低品位矿石回收利用中的应用与发展J . 中国资源综合利用 ,2002 ,3.4 刘大星 . 我国铜湿法冶金技术的进展 J . 有色金属 （ 矿山部分） ,2002 ,5.Leaching Technique and its Development Trend of Low - Grade Copper OresZHAO Guo2dong , WU Heng2shan , L IU Q

22、ing , L I Chao（ School of A rchitect ural Engi neeri ng , Resources and Envi ronment ,Nanhua University , Hengyang , Hunan , 421001 , Chi na）Abstract : The presence of the hydro - metallurgy for low - grade copper ores is introduced. The mechanism and technique of leaching are analyzed. Opin2ions are put forward about the developing trend of leaching for low - gradecopper ores.Key words : low - grade copper ore ; leaching ; development692004 年第 2 期梁彩艳 : 单一符合导线测量控制 网平差程序