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

附和导线平差程序[QBASIC]
附和导线平差程序[QBASIC]
由本人在网络上收集整理
DECLAREFUNCTIONDEG!(X!)
DECLAREFUNCTIONDMS!(XX!)
DECLAREFUNCTIONXCHAR
附和导线平差程序[QBASIC]
附和导线平差程序[QBASIC]
由本人在网络上收集整理
DECLAREFUNCTIONDEG!(X!)
DECLAREFUNCTIONDMS!(XX!)
DECLAREFUNCTIONXCHAR$(XX!,N!)
CLS
PRINT
PRINT"附和导线平差程序()"
PRINT"作者:徐振刚"
PRINT"1999年12月31日"
PRINT"功能:本程序可以用来进行一般导线平差计算,包括附和导线、闭合导线和支导线,其中"
PRINT"闭合导线和支导线需对原始数据进行一定处理。"
PRINT"备注:坐标计算误差≤5mm;角度计算误差≤"
PRINT
REMN----角度个数(包括已知方位角)
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$
DO
YN$=INKEY$
IFYN$="Y"ORTN$="y"THEN
RUN""
ELSEIFYN$="N"ORYN$="n"THEN
EXITDO
ELSEIFYN$=CHR$(27)THEN
RUN""
ENDIF
LOOP
REM********************************************************************************
CLS
PI=#:PU=180/PI
INPUT"请输入数据文件名:()";FILEIN$
IFFILEIN$=""THEN
FILEIN$=""
PRINT"方位角允许闭合差F0=+/-";XCHAR$(DMS(F0),6)
IFABS(F1)<=F0THEN
PRINT"导线方位角闭合差F1=";XCHAR$(DMS(F1),6);"OK!"
ELSE
PRINT"导线方位角闭合差F1=";XCHAR$(DMS(F1),6);"OVERLIMIT!"
ENDIF
PRINT"相对闭合差:"
PRINTTAB(5);"F3=";F3,"F4=";F4,"F=";F,"K=1/";S/F
PRINT"改正后方位角:"
FORI=0TON-1
PRINTTAB(5);"A(";I;")=";XCHAR$(DMS(A(I)),6)
NEXTI
PRINT"改正后坐标:"
FORI=0TOM