单一附合导线平差计算[PC1500]

单一附合导线平差计算[PC1500]单一附合导线平差计算[PC1500] 单一附合导线平差计算[PC1500] 单一附合导线平差计算[PC1500] 由本人在网络上收集整理 2 W=1+G+5E-7:D$=STR$ (INT W-1):G$=STR$ (W-INT W) 3 IF LEN D$<3LET D$=" "+D$:GOTO 3 4 IF LEN G$<8LET G$=G$+"0":GOTO 4 5 G$=D$+" "+MID$ (G$,3,2)+" "+MID$ (G$,5,2)+"."+MID$ (G$,7,2):RETURN...

单一附合导线平差计算[PC1500] 单一附合导线平差计算[PC1500] 单一附合导线平差计算[PC1500] 由本人在网络上收集整理 2 W=1+G+5E-7:D$=STR$ (INT W-1):G$=STR$ (W-INT W) 3 IF LEN D$<3LET D$=" "+D$:GOTO 3 4 IF LEN G$<8LET G$=G$+"0":GOTO 4 5 G$=D$+" "+MID$ (G$,3,2)+" "+MID$ (G$,5,2)+"."+MID$ (G$,7,2):RETURN 6 Z=Z+B(I)-180:Z=Z-(SGN Z+SGN (Z-360))*180:RETURN 7 X(I)=X(I-1)+S(I)*C:Y(I)=Y(I-1)+S(I)*S:RETURN 8 "A"CLEAR :INPUT "M=";U,"MB=";M,"Ms:a(mm)=";A,"b(ppm)=";B,"SIDES=";N 10 DIM B(N),S(N),Q(N),X(N),Y(N):S$="######.###":W$="####.##":WAIT 0 15 INPUT "Xa=";X(0),"Ya=";Y(0),"a(I)=";H,"Xb=";X,"Yb=";Y,"a(II)=";L,"TOTAL Mp=";F 20 T=N+1:P=180/PI :K=5E-3:IF F=0THEN 45 25 DIM P(F),F(F),G(F),H(F),I(F),J(F),K(F),C(F),D(F),E(F) 30 FOR I=1TO F:IF F=N-1LET P(I)=I:GOTO 40 35 PRINT I;":P";:INPUT P(I):CLS 40 NEXT I 45 FOR I=0TO N:IF IPRINT "S";I;"=";:INPUT S(I):CLS 50 PRINT "B";I;"=";:INPUT B(I):CLS :NEXT I:END 55 "B"PRINT "M=";U;" ";:INPUT U 60 CLS :PRINT "MB=";M;" ";:INPUT M 65 CLS :PRINT "a=";A;"mm";" ";:INPUT A 70 CLS :PRINT "b=";B;"ppm";" ";:INPUT B 75 CLS :PRINT "Xa=";X(0);" ";:INPUT X(0) 80 CLS :PRINT "Ya=";Y(0);" ";:INPUT Y(0) 85 CLS :PRINT "a(I)=";H;" ";:INPUT H 90 CLS :PRINT "Xb=";X;" ";:INPUT X 95 CLS :PRINT "Yb=";Y;" ";:INPUT Y 100 CLS :PRINT "a(II)=";L;" ";:INPUT L 105 CLS :FOR I=0TO N:IF IPRINT "S";I;"=";S(I);" ";:INPUT S(I) 110 CLS :PRINT "B";I;"=";B(I);" ";:INPUT B(I) 115 CLS :NEXT I:END 120 "C"CSIZE 2:COLOR 2:LPRINT "M=";U;",MB=";M:LPRINT "Ms=";A;"mm+";B;"ppm" 125 GOSUB 1:LPRINT "P B(Observed)":GOSUB 1:LF 2:H=DEG H:L=DEG L:Z=H 130 FOR I=0TO N:G=B(I):GOSUB 2:IF I=0LPRINT "A";:GOTO 145 135 IF I=NLPRINT "B";:GOTO 145 140 LPRINT I; 145 LPRINT TAB 4;G$:B(I)=DEG G:LF 2:GOSUB 6:NEXT I:LF -1:GOSUB 1:W=Z-L:W=W-180*SGN W*(SGN (ABS W-1)+1) 150 V=W/T:Z=H:E=0:G=0:L=0 155 GOSUB 1:LPRINT TAB 7;"S(Observed)":GOSUB 1:LF 3 160 FOR I=0TO N:IF I=0THEN 185 165 Q(I)=((A+S(I)*B/1E3)/M)^2*12.96:LPRINT S(I):LF 2:C=COS Z:S=SIN Z 170 D=D+Q(I)*C*C:E=E+Q(I)*S*S:G=G+Q(I)*C*S:GOSUB 7:L=L+S(I):IF F=0THEN 185 175 IF O

                    本文档为【单一附合导线平差计算[PC1500]】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
                    图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。 
 该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。

                    [版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。

                    本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。

                    网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
                

下载需要：免费已有0 人下载

立即下载

你可能还喜欢

最新资料

资料动态

专题动态

is_594905

暂无简介~

格式：doc

大小：20KB

软件：Word

页数：0

分类：工学

上传时间：2017-09-18

浏览量：15

热点搜索

孝感十大楼盘排行榜孝感热销的楼盘有哪些电接点压力表使用说明书 (完整)六年级下册海西家园教案计算机专业在政府部门的实习报告专升本毕业论文滁州职业技术学院定岗实习手册文献检索期末复习完整版幼儿园健康教案红枣炼油工艺装置英文缩写冲击地压防治细则建筑垃圾清运表第五届工商银行杯银行产品创意设计大赛邓铁涛推荐防甲流“十味汤” 家乡介绍——贵州安顺(英文版) 孝感十大楼盘排行榜孝感热销的楼盘有哪些电接点压力表使用说明书 (完整)六年级下册海西家园教案计算机专业在政府部门的实习报告专升本毕业论文滁州职业技术学院定岗实习手册文献检索期末复习完整版幼儿园健康教案红枣炼油工艺装置英文缩写冲击地压防治细则建筑垃圾清运表第五届工商银行杯银行产品创意设计大赛邓铁涛推荐防甲流“十味汤” 家乡介绍——贵州安顺(英文版)