单一附合导线测量控制网平差程序Word文档格式.docx
《单一附合导线测量控制网平差程序Word文档格式.docx》由会员分享，可在线阅读，更多相关《单一附合导线测量控制网平差程序Word文档格式.docx（9页珍藏版）》请在冰豆网上搜索。
5192°
14’
25〃
5451.692
6260°
59’
01〃
3平差程序
10:
REMSUB10-190QIUDAOXIANDIANGAILUEZUOBIAO
20:
REMSHUZU”A”WEIFANGWEIJIAO,”B”WEIGUANCEZUOJIAO,”S”WEIBIANCHANG”,P”WEIQUAN,”V”WEIGAIZHENGSHU”,MX、MY、M”WEIDAIQIUDIANZHONGWUCHA”,X、Y”WEIZUOBIAO
30:
INPUT”GUANCEJIAOGESHU:
N=”;
N
40:
DIMA（N）,B（N）,S（N）,X（23N）,Y（23N）,P（23
N）,V（23N）,MX（N）,MY（N）,M（N）
45:
FORI=1TON
50:
READB（I）,S（I）
60:
B（I）=DEG（B（I））
70:
NEXTI
80:
INPUT”QISHIFANGWEIJIAO:
A0=”;
A（0）
90:
A（0）=DEG（A（0））
100:
110:
A（I）=A（I-1）+B（I）+180
120:
IFA（I）>
360THENA（I）=A（I）-360
130:
140:
INPUT”QISHIDIANZUOBIAO:
X0=”;
X
（1）,”Y0=”;
Y
（1）
总第93期
2004年第2期
西部探矿工程
WEST-CHINAEXPLORATIONENGINEERINGseriesNo.93
Feb.2004
145:
PRINT”DAOXIANDIANGAILUEZUOBIAOZHI:
150:
FORI=2TON
160:
X（I）=X（I-1）+S（I-1）3COS（A（I-1））:
Y（I）=Y（I
-1）+S（I-1）3SIN（A（I-1））
170:
PRINT”X（”;
I;
”）=”;
X（I）,”Y（;
”I;
”）=”;
Y（I）
180:
185:
LOCATE12
190:
PRINT”#####”
200:
REMSUB200-370QIUTIAOJIANFANGCHENGXISHU”A1,BI,C1”SHUZUJIQUANHANSHUXISHU”FX,FY”SHUZU
210:
DIMA1（23N-1）,B1（23N-1）,C1（23N-1）,FX（2
3N-1）,FY（23N-1）
220:
230:
READA1（I）
240:
250:
FORI=1TO23N-1
260:
B1（I）=（-Y（N）+Y（I））/206.26
270:
C1（I）=（X（N）-X（I））/206.26
280:
IFN<
ITHENB1（I）=COS（A（I-N）:
C1（I）=SIN（A（I-N））290:
300:
INPUT”ZUIRUODIANHAO:
FN=”;
FN
310:
320:
FX（I）=（-Y（FN）+Y（I））/206.26
330:
FY（I）=（X（FN）-X（I））/206.26
340:
IFFN<
ITHENFX（I）=0:
FY（I）=0
350:
ITHENFX（I）=COS（A（I-N））:
FY（I）=SIN（A（I-N））
360:
IFI>
N+FN-1THENFX（I）=0:
370:
414:
INPUT”FUHEFANGWEIJIAO:
A2=”;
A2,”FUHEDIANZUOBIAO:
X2=”;
X2,”Y2=”;
Y2
415:
WA=-DEG（A2）+A（N）:
WX=-X2+X（N）:
WY=
-Y2+Y（N）
416:
WA=DMS（WA）:
IFWA>
360THENWA=WA-360
419:
WA=WA310000:
WX=WX31000:
WY=WY31000
420:
REMSUB420-740JIESUANFAFANGCHENG
425:
REMSUB430-470JISUANGUANCEJIAO、BIANDEQUAN
430:
INPUT”JIASHEDANWEIQUANZHONGWUCHA:
D0=”;
D0
440:
FORI=1TO23N-1450:
P（I）=0.5460:
NTHENP（I）=（D03D0）/（0.253S（I-N））
470:
500:
REM”E”WEIDAIQUANQIUHEFUHAO
520:
EAA=0:
EAB=0:
EAC=0:
EAFX=0:
EAFY=0
530:
EBB=0:
EBC=0:
EBFX=0:
EBFY=0
540:
ECC=0:
ECFX=0:
ECFY=0:
EFFX=0:
EFFY=0
550:
560:
EAA=A1（I）3A1（I）/P（I）+EAA:
EAB=A1（I）3B1
（I）/P（I）+EAB
570:
EAC=A1（I）3B1（I）/P（I）+EAC:
EAFX=A1（I）3FX
（I）/P（I）+EAFX:
EAFY=A1（I）3FY（I）/P（I）+EAFY
580:
EBB=B1（I）3B1（I）/P（I）+EBB:
EBC=B1（I）3C1
（I）/P（I）+EBC
590:
EBFX=B1（I）3FX（I）/P（I）+EBFX:
EBFY=B1（I）3FY（I）/P（I）+EBFY
600:
ECC=C1（I）3C1（I）/P（I）+ECC:
ECFX=C1（I）3FX
（I）/P（I）+ECFX:
ECFY=C1（I）3FY（I）/P（I）+ECFY
610:
EFFX=FX（I）3FX（I）/P（I）+EFFX:
EFFY=FY（I）3FY（I）/P（I）+EFFY
620:
630:
EBB1=EBB-EAB3EAB/EAA:
EBC1=EBC-EAB3EAC/EAA:
EWX1=WX-EAB3WA/EAA
640:
EBFX1=EBFX-EAB3EAFX/EAA:
EBFY1=EBFYEAB3EAFY/EAA
650:
ECC2=ECC-EAC3EAC/EAA-EBC13EBC1/EBB1
660:
EWY2=WY-EAC3WA/EAA-EBC13EWX1/EBB1
670:
ECFX2=ECFX-EAC3EAFX/EAA-EBC13EBFX1/EBB1
680:
ECFY2=ECFY-EAC3EAFY/EAA-EBC13EBFY1/EBB1
690:
KC=-EWY2/ECC2
700:
KB=-EBC13KC/EBB1-EWX1/EBB1
710:
KA=-EAB3KB/EAA-EAC3KC/EAA-WA/EAA
720:
EPVV=WA3WA/EAA+EWX13EWX1/EBB1+EWY23EWY2/ECC2
730:
EFFX3=EFFX-EAFX3EAFX/EAA-EBFX13EBFX1/EBB1-ECFX23ECFX2/ECC2
740:
EFFY3=EFFY-EAFY3EAFY/EAA-EBFY13EBFY1/EBB1-ECFY23ECFY2/ECC2
750:
REMSUB750-910QIUGUANCEBIAN、JIAODE
GAIZHENGSHU,DAOXIANDIANZUOBIAOPING
CHAZHIJIZUIRUODIANJINGDUPINGDING
748:
PRINT”V（1〜6）WEIGUANCEJIAOGAIZHENG
SHU,V（7〜11）WEIBIANCHANGGAIZHENG
SHU:
”
760:
V（I）=（A1（I）3KA+B1（I）3KB+C1（I）3KC）/P（I）
770:
IFI<
=NTHENB（I）=B（I）+DEG（V（I）/10000）
ELSES（I-N）=S（I-N）+V（I）/1000
780:
PRINT”V（”;
”）=”;
V（I）,
790:
795:
798:
PRINT”#####”
68西部探矿工程
No.2
800:
810:
820:
830:
835:
PRINT”DAOXIANDIANPINGCHAZHI:
840:
850:
X（I）=X（I-1）+S（I-1）3COS（A（I-1））
860:
Y（I）=Y（I-1）+S（I-1）3SIN（A（I-1））
870:
X（I）,”Y（;
880:
STOP
890:
894:
896:
900:
M0=SQR（EPVV/3）:
MX（FN）=M03SQR（EFFX3）:
MY（FN）=M03SQR（EFFY3）:
M（FN）=SQR（MX
（FN）3MX（FN）+MY（FN）3MY（FN）
910:
PRINT”JISUANDANWEIQUANZHONGWU
CHA:
M0=”;
M0,”ZUIRUODIANWUCHA:
M（”;
FN;
”）=”;
M（FN）;
”mm”
911:
912:
914:
LOCATE15
916:
PRINT”END!
918:
REM920HANGFANGZHIGUANCEZUOJIA、O
BIANCHANGZHI,930HANGFANGZHIFANGWEI
JIAOTIAOJIANXISHU
920:
:
DATA230.3237,204.952,180.0042,200.130,170.3922,345.153,236.4837,278.059,192.1425,451.692,260.5901,0
930:
DATA1,1,1,1,1,1,0,0,0,0,0,0
940:
END
4运行结果
RUN
GUANCEJIAOGESHU:
N=6
QISHIFANGWEIJIAO:
A0=226.4459
QISHIDIANZUOBIAO:
X0=3020.348
Y0=-9049.801
DAOXIANDIANGAILUEZUOBIAOZHI:
X
（2）=
3046.36649
Y
（2）=
-9253.09478
X（3）=
3071.81326
Y（3）=
-9451.60039
X（4）=
3059.53346
Y（4）=
-9796.53488
X（5）=
3286.66789
Y（5）=
-9956.93052
X（6）=
3702.48850
Y（6）=
-10133.33597
#####
ZUIRUODIANHAO:
FN=4
FUHEFANGWEIJIAO:
A2=57.5931
FUHEDIANZUOBIAO:
X2=3702.437
Y2=-10133.399
JIASHEDANWEIQUANZHONGWUCHA:
D0=5
V（1〜6）WEIGUANCEJIAOGAIZHENGSHU,V（7〜
11）WEIBIANCHANGGAIZHENGSHU:
V
（1）=
-4.01
V
（2）=
-3.79
V（3）=
-3.57
V（4）=
-3.93
V（5）=
-1.03
V（6）=
4.33
V（7）=
2.77
V（8）=2
.70
V（9）=
4.67
V（10）=
2.31
V（11）=2.64
X
（2）=3046.362887
X（3）=3071.802485
X（4）=3059.503514
X（5）=3286.62793
X（6）=3702.436997
Y
（2）=-9253.098035
Y（3）=-9451.607297
Y（4）=-9796.545774
Y（5）=-9956.959587
Y（6）=-10133.399
DAOXIANDIANZUOBIAOPINGCHAZHI:
JISUANDANWEIQUANZHONGWUCHA:
M0=
4.336768793
ZUIRUODIANWUCHA:
M（4）=13.04462451mm
END!
（上接第66页）
参考文献:
[1]姜永智,廖雪珍,郭亮明,赵国育,刘宝山.铜湿法冶金技术的研究于
应用评述[J].甘肃有色金属,第17卷,第1期.
[2]王成彦.低品位铜湿法冶炼的现状及发展趋势[J].新疆
地质,2001,
12.
[3]向鹏成,谢英.溶浸技术在低品位矿石回收利用中的应用与
发展
[J].中国资源综合利用,2002,3.
[4]刘大星.我国铜湿法冶金技术的进展[J].有色金属（矿山
部分）,
2002,5.
LeachingTechniqueanditsDevelopmentTrendofLow-GradeCopperOres
ZHAOGuo2dong,WUHeng2shan,LIUQing,LIChao
（SchoolofArchitecturalEngineering,ResourcesandEnvironment,
NanhuaUniversity,Hengyang,Hunan,421001,China）
Abstract:
Thepresenceofthehydro-metallurgyforlow-gradecopperoresisintroduced.Themechanismandtechniqueofleachingareanalyzed.Opin2
ionsareputforwardaboutthedevelopingtrendofleachingforlow-grade
copperores.
Keywords:
low-gradecopperore;
leaching;
development
69
2004年
第2期
梁彩艳:
单一符合导线测量控制网平差程序
升级会员 