资源描述：
《附和导线平差程序》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、附和导线平差程序由本人在网络上收集整理DECLAREFUNCTIONDEG!(X!)DECLAREFUNCTIONDMS!(XX!)DECLAREFUNCTIONXCHAR$(XX!,N!)CLSPRINTPRINTn作者：徐振刚nPRINT"1999年12月31日"PRINT"功能：本程序可以用来进行一般导线平差计算，包括附和导线、闭合导线和支导线，其中”PRINT"闭合导线和支导线需对原始数据进行一定处理。”PRINT1*备注：坐标计算误差彡5mm;角度计算误差彡0.5snPRINTREMN-…角度个数(包括己知方位角)REMM…-导线边数R
2、EMH…-允许方位角闭合差秒值REMA----方位角(A(0)为起始方位角)REMD----边长REMX,丫----坐标(X1,Y1;X,Y为已知坐标)REMF0----方位角允许闭合差REMFI----导线方位角闭合差REMF3,F4,F-…增量闭合差REMK…-导线全长相对闭合差PRINT"新建数据文件?(丫/N)nLOCATE25:PRINT"按ESC键返回主菜单TAB(60);DATE$;"TIME$DOYN$=INKEY$IFYN$=,,Y"ORTN$=VTHENRUN"DXPCEDIT.BAS"ELSEIFYN$="N"ORYN$="
3、nHTHENEXITDOELSEIFYN$=CHR$(27)THENRUN"MAIN.BAS"ENDIFLOOPREM木木木木木木木木木木木木木木木木木木5^^木木木木木木木木木木木木木木木木木木木木木木木木木木木木木木木木木木CLSPI=3.141592653589793#:PU=180/PIINPUT"请输入数据文件名:(DXPC.DAT)";FILEIN$IFFILEIN$=,,nTHENFILEIN$="DXPC.DAT"ENDIFOPENFILEIN$FORINPUTAS#1INPUT#1,N,M,HDIMB(N),D(M),A(N-1
4、),X(M),Y(M)INPUT#1,XI,Yl,X,YFORI=OTONINPUT#1,B(l)B(I)=DEG(B(I))NEXTIFORI=ITOMINPUT#1,D(l)NEXTICLOSE#1REM木木木木木木木木木木木木木木木木木木木5^^木木木木木木木木木木木木木木木木木木木木木木木木木木木木木木木木木木A(0)=B(0)FORI=1TON-1A(l)=A(l-l)+B(l)+180IFA(l)>360THENA(l)=A(l)-360ENDIFNEXTIF0=H/3600*SQR(N-1):FI=A(N-1)-B(N)V=-
5、l*F1/(N-1)FORI=1TON-1A(I)=A(I)+V*IIFA(l)>；360THENA(l)=A(l)-360ENDIFNEXTIS=0:X(0)=Xl:Y(O)=Y1FORI=ITOMS=S+D(I)X(I)=X(I-1)+D(I)*COS(A⑴/PU)Y(I)=Y(I-1)+D(I)*SIN(A(I)/PU)NEXTIF3=X(M)-X:F4=Y(M)-Y:F=ABS(SQR(F3*F3+F4*F4))D=0FORI=ITOMD=D+D(I)X(I)=X(I)-F3/S*DY(
6、)=Y(I)-F4/S*DNEXTIREMPR
7、INT"方位角允许闭合差F0=+/J，；XCHAR$(DMS(FO),6)IFABS(Fl)<=FOTHENPRINT"导线方位角闭合差Fl=";XCHAR$(DMS(F1),6);nOK!"ELSEPRINT"导线方位角闭合差Fl=";XCHAR$(DMS(F1),6);"OVERLIMIT!"ENDIFPRINTn相对闭合差:nPRINTTAB(5);"F3=";F3,"F4=";F4,"F=";F,"K=l/";S/FPRINT"改正后方位角:’•FORI=OTON-1PRINTTAB(5);"A(";I;")=";XCHAR$(DM
8、S(A(I)),6)NEXTIPRINT"改正后坐标:"FORI=OTOMPRINTTAB(5);"X(";I;")=";XCHAR$(X(I),4),TAB(30);"丫("；I;">";XCHAR$(Y(I),4)NEXTIPRINTTAB(5);"X(H;M;XCHAR$(X(M),4),TAB(30);nY(";KXCHAR$(Y(M)?4)OPEN"DXPC.OUrFOROUTPUTAS#1PRINT#1,"导线平差"PRINT#1,TAB(25);DATE$,TIME$PRINT#1,PRINT#1,"方位角允许闭合差F0=+/J，；
9、XCHAR$(DMS(FO),6)IFABS(Fl)<=FOTHENOK!"OVERPRINT#1,"导线方位角闭合差Fl=XCH
