附和导线平差程序[qbasic].pdfVIP

附和导线平差程序[QBASIC] 由本人在网络上收集整理 DECLARE FUNCTION DEG! (X!) DECLARE FUNCTION DMS! (XX!) DECLARE FUNCTION XCHAR$ (XX!, N!) CLS PRINT PRINT 附和导线平差程序(2.0R) PRINT 作者：徐振刚 PRINT 1999 年 12 月 31 日 PRINT 功能：本程序可以用 进行一般导线平差计算，包括附和导线、 闭合导线和支导线，其中 PRINT 闭合导线和支导线需对原始数据进行一定处理。 PRINT 备注：坐标计算误差≤5mm ；角度计算误差≤0.5s PRINT 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 键 返回主菜单