附和导线平差程序[QBASIC].docVIP

附和导线平差程序[QBASIC]由本人在网络上收集整理 DECLARE FUNCTION DEG! (X!)DECLARE FUNCTION DMS! (XX!)DECLARE FUNCTION XCHAR$ (XX!, N!)CLSPRINTPRINT 附和导线平差程序(2.0R)PRINT 作者：徐振刚PRINT 1999年12月31日PRINT 功能：本程序可以用来进行一般导线平差计算，包括附和导线、闭合导线和支导线，其中PRINT 闭合导线和支导线需对原始数据进行一定处理。PRINT 备注：坐标计算误差≤5mm；角度计算误差≤0.5sPRINT REM N ----角度个数(包括已知方位角)REM M ----导线边数REM H ----允许方位角闭合差秒值REM A ----方位角(A(0)为起始方位角)REM D ----边长REM X,Y ----坐标(X1,Y1;X,Y为已知坐标)REM F0 ----方位角允许闭合差REM F1 ----导线方位角闭合差REM F3,F4,F----增量闭合差REM K ----导线全长相对闭合差 PRINT 新建数据文件?(Y/N)LOCATE 25: PRINT 按 ESC键 返回主菜单.; TAB(60); DATE$; ; TIME$DOYN$ = INKEY$