文档介绍：附和导线平差程序[QBASIC]附和导线平差程序[QBASIC]由本人在网络上收集整理DECLAREFUNCTIONDEG!(X!)DECLAREFUNCTIONDMS!(XX!)DECLAREFUNCTIONXCHAR$(XX!,N!)CLSPRINTPRINT"附和导线平差程序()"PRINT"作者:徐振刚"PRINT"1999年12月31日"PRINT"功能:本程序可以用来进行一般导线平差计算,包括附和导线、闭合导线和支导线,其中"PRINT"闭合导线和支导线需对原始数据进行一定处理。"PRINT"备注:坐标计算误差≤5mm;角度计算误差≤"PRINTREMN----角度个数(包括已知方位角)REMM----导线边数REMH----允许方位角闭合差秒值REMA----方位角(A(0)为起始方位角)REMD----边长REMX,Y----坐标(X1,Y1;X,Y为已知坐标)REMF0----方位角允许闭合差REMF1----导线方位角闭合差REMF3,F4,F----增量闭合差REMK----导线全长相对闭合差PRINT"新建数据文件?(Y/N)"LOCATE25:PRINT"按ESC键返回主菜单.";TAB(60);DATE$;"";TIME$DOYN$=INKEY$IFYN$="Y"ORTN$="y"THENRUN""ELSEIFYN$="N"ORYN$="n"THENEXITDOELSEIFYN$=CHR$(27)THENRUN""ENDIFLOOPREM********************************************************************************CLSPI=#:PU=180/PIINPUT"请输入数据文件名:()";FILEIN$IFFILEIN$=""THENFILEIN$=""ENDIFOPENFILEIN$FORINPUTAS#1INPUT#1,N,M,HDIMB(N),D(M),A(N-1),X(M),Y(M)INPUT#1,X1,Y1,X,YFORI=0TONINPUT#1,B(I)B(I)=DEG(B(I))NEXTIFORI=1TOMINPUT#1,D(I)NEXTICLOSE#1REM********************************************************************************A(0)=B(0)FORI=1TON-1A(I)=A(I-1)+B(I)+180IFA(I)>360THENA(I)=A(I)-360ENDIFNEXTIF0=H/3600*SQR(N-1):F1=A(N-1)-B(N)V=-1*F1/(N-1)FORI=1TON-1A(I)=A(I)+V*IIFA(I)>360THENA(I)=A(I)-360ENDIFNEXTIS=0:X(0)=X1:Y(0)=Y1FORI=1TOMS=S+D(I)X(I)=X(I-1)+D(I)*COS(A(I)/PU)Y(I)=Y(I-1)+D(I)*SIN(A(I)/PU)NEXTIF3=X(M)-X:F4=Y(M)-Y:F