下载此文档

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


文档分类:建筑/环境 | 页数:约6页 举报非法文档有奖
1/6
下载提示
  • 1.该资料是网友上传的,本站提供全文预览,预览什么样,下载就什么样。
  • 2.下载该文档所得收入归上传者、原创者。
  • 3.下载的文档,不会出现我们的网址水印。
1/6 下载此文档
文档列表 文档介绍
附和导线平差程序[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

附和导线平差程序[QBASIC] 来自淘豆网www.taodocs.com转载请标明出处.

非法内容举报中心
文档信息
  • 页数6
  • 收藏数0 收藏
  • 顶次数0
  • 上传人iluyuw9
  • 文件大小57 KB
  • 时间2019-08-25