使用夏普计算机导线平差程序的编写及应用.doc

SHARPPC-E500S袖珍计算机编写导线平差程序及应用 沈重庆 [江苏东南交通工程咨询监理有限公司，南京，210018] 摘要 目前进行导线平差计算的手段较多，但笔者通过工程实践认为使用PC-E500S袖珍计算机编程进行导线平差计算，既快捷准确，又便于携带，尤其适合野外作业，可以随时计算出结果，并可直接打印。 关键词 SHARPPC-E500S袖珍计算机编程 快捷 便携 适合野外作业 1 序言 在公路等建设领域，无论是勘察设计阶段还是施工阶段，测量工作自始至终起到非常重要的作用，而导线测量成果，是整个测量工作成败的关键。笔者曾参加过高速公路、一级公路、二级公路及市政道路桥梁的建设工作，并通过工程实践的摸索，使用SHARPPC-E500S袖珍计算机，采用QUIKBASIC语言，编写了一套测量程序，可进行复杂的匝道中、边线坐标计算、高程计算、导线平差计算等。通过实践证明，该套程序切实可靠，方便使用，输出的结果清晰易懂。尤其在蚌埠—南京（蚌明段）高速公路建设中得到了成功运用。下面具体谈一下导线平差程序的编程及应用。 2 导线平差程序的编程 2.1第40—46为数据输入区 40：DATA 8，263.0941，263.0941 42： DATA 295.102460，262.4814，167.49475，163.54235，233.05536，313.39126，184.08035，179.24115 44：DATA 406.5335，572.3271，244.8648，308.8288，278.9507，592.6529，422.7168，0 46： DATA 52938.656，72822.028，52992.937，73273.964 2.2以下为主程序区 55：PRINT “DAO XIAN PING CHA” 60：READ N，V，Z 64：DIM A（N），D（N），D（X），D（Y），DD（X），DD（Y），FX（N），FY（N） 66：SUMA=0，AA=DEGV 68：FOR I=1 TO N 70：READ A（I） 72：A（I）=DEG A（I） 74：AL=AL+A（I） 76：IF AL≥360 THEN AL=AL-360 78：SUMA=SUMA+A（I） 80：NEXT I 88：BB=AL-DEG Z 90：BF=-BB/N 92：BF=-BB/N 94：PRINT“ fa=”;INT(360000*BB)/100; “s” 96： PRINT ABS（360000*BB）≦10*SQR N THEN PRINT “fa≦10*SQR N=”；INT（100*SQR N）/10；“ GOOD” 98： PRINT ABS（360000*BB）≥10*SQR N THEN PRINT “fa≥10*SQR N=”；INT（100*SQR N）/10；“ BAD” 100：PRINT “SUM A=”；DMS SUMA；“（DMS）”；：PRINT“ Bf=”；INT（10*DMS（BF*3600））/10；“s” 102：FOR I=1 TO N 104：A（I）=A（I）+BF 106：AA=AA+A（I）-180 108：IF AA≥360 THEN AA=AA-360 110：IF AA≦0 THEN AA=AA+360 112：PRINT“AA（”；I；“）=”；INT（10000*DMS AA+0.5）/10000：“（DMS）” 114：READ D（I） 122：DX（I）=D（I）*COS AA 124：DY（I）=D（I）*SIN AA 130：NEXT I 132：DD=0 134：FOR I=1 TO N 136：DD=D（I）+DD 138：NEXT I 140：PRINT“SUM D=”；DD；“mm” 142：AVER=DD/（N-1） 144：SDX=0；SDY=0 146：READ O，P，Q，R 148：FOR I=1 TO N 150：SDX=SDX+DX（I） 152：SDY=SDY+DY（I） 154：NEXT I 156：FDX=SDX+（Q-O） 158：FDY=SDY+（R-P） 160：DS=SQR（FDX∧2+ FDY∧2） 162：KK=DD/DS：DS=INT（10000*DS）/10 164：PRINT “fx=；”INT（10000*FDX）/10；“mm”；：PRINT “fy=”；INT（10000*FDY）/10；“mm” 166：PRINT“K=1/”；INT（10*KK+0.5）/10 168：PRINT“AVER D=”；AVER;“m” 170：XX=O，YY=P 172：FOR I=1 TO