计算象人果

图根控制测量计算用TI一59实现自动化郭绍禹(测量教研室)提要矛.
J用'rl一59计算器进行图根控制侧量计算是比较合适的.
笔者为此编制了一个计算程序,实现了计井自动化.
文中重点介绍了按程序计算时的操作顺序.
月lJ舀这里所说的计算自动化,即与计算机算题一样,只要输入计算程序、输入原始数据,起动后就能自动地运算,自动地印出所需的结果.
对于图根控制测量计算来说,使用有函数的中、低挡计算器,免去了过去的查表计算,减轻了计算劳动,但不能实现计算自动化,使用计算机,虽能做到计算自动化,打印的结果也漂亮,但是大型计算机不能搬动,往往远离测区,不能做到及时计算,而微型计算机的搬动不如计算器方便,使用高挡的计算器,例如Tl一59计算器,或比Tl一59更好的计算器,则因它们小巧轻便,而且功能强,不但可以随意搬动、携带,又可以实现计算自动化,比之较为理想.
在图根控制测量中,因为用到的各种图形比较简单,原始数据不多,计算又可采用近似平差法,计算程序不长,因此完全可以把其数据和程序都存放在Tl一59计算器的120个存储单元内,从而实现自动化计算.
计算程序的设计程序设计时,各种图形统一考虑,而以外定向折叠型线形锁为主体.
为了压缩程序,一是使用子程序,二是宁可作些废运算,也要尽可能地使之统一.
为此,都采用先算边长、方位角,后算坐标的方法,后方交会采用先解算未知角的方法.
对于无法统一的内容,才采用分别计算的方法.
经方位角条件平差以后的坐标闭合差,对于线形锁,用求定向角的方法使之消除,对于导线,用与边长成正比例的分配法分配之,对于中点多边形,则用分配极条件闭合差的方法消除之.
其中,极条件相对闭合差的计算式为W边相=S计算S已知1)传距角b、a的改正数为00一V=V二l}a一W边相X57.
3艺etgb是+艺etga:(2)式中,V.
表示以十进制的度为单位.
当三角锁中有基线条件时,也采用(1)、(2)式进行计算.
计算器区分上述等各种情况时,不能象人一样一目了然,它需要各种判别信息,需要进行判断.
在安排这些信息时,尽量考虑使输数简单,一是利用同名数的有无,二是将某些数据冠以'一,号.
而为了输数和计算的方便,程序中采用了间接寻址技术.
编制好了的计算程序,被分别录制在编号为A、B的两张磁卡上,B磁卡的1端还存放了热印机清洁程序.
计算程序本文从略.
平面坐标计算的操作顺序1.
准备好原始教据首先绘好略图,仿照图1~图10编注出计算用的编号.
请注意:O点处的C角取左取右必须相同,第1个脱离O点的C角取左取右则必须与C.
相反.
然后按编号抄录好起算数据,按C;、b·、ai的顺序整理好观测数据.
并且当C角是右角时,其值冠以'一,号,当下一个三角形是折叠时,b角值冠以'一,号.
2.
读入计算程序先把A磁卡的1端读入到计算器的1号存储区.
然后再把A磁卡或B磁卡的2端读入到计算器的2号存储区.
计算线形锁、三角锁、中点多边形等时,用A磁卡的2端,算后方交会、导线、三角高程等时,用B磁卡的2端.
无热印机时,A磁卡的034、204、228、240、363、370步,B磁卡的320、323步,都以R/S键(字母下加横线者表示按键,下同)复盖掉,否则不显示所需的中间结果.
3.
输入原始数据按表3所列的操作顺序进行操作,把原始数据按规定的顺序输入到计算器的内存中去.
输数的过程中,有时难免出错,如果发现有错,允许及时改正.
首先操作1INVSUM00(即把地址减i,i是按过了R/S键的次数)输入.
检查印出的原始数据.
如有错误,则拨上正确数据手工输入到表4中所指出的相应地址,如有遗漏或重叠数.
然后从出错之数起,重新拨数是角度时加按ZndDMS),一般应从头开始,重新输4.
起动表3所列的SBRSBR、SBR士、SBR=等都是起动按键.
起动这些按键,即可使计算器进入自动运算状态,自动地印出所需的结果.
坐标算出之后,对于侧方交会和后方交会,往往还要进行检核计算.
此时再操作:RSTR/S,X、R/S,Y:R/S,按A,印Sp.
,显印T.
*,或RCL00显SP众(此处,P为未知点,K为检查点).
三角高程或高差的计算把传距边或导线边所构成的路线,规定为三角高程的传递路线.
因此,在计算之前要按此种路线整理好观测数据.
三角高程计算应在平面坐标算出之后紧接进行.
这时在内存中还保留着所需的边长和信息,只要按传距边或导线边的先后顺序,输入仪器高K、目标高L、竖直角T,按表3所列的操作顺序进行操作,就能算出高差和高程.
若此项计算没有在平面坐标算出之后紧接进行,那末不但要输入边长,而且只能计算三角高差.
考虑到三角高程有可能还要进行外业返工,没有安排平差程序.
因此,三角高程闭合差的分配要由手工来进行.
数据的输出顺序和名称打印由热印机印出的计算结果,或无热印机时显示的计算结果,其顺序如表5所示.
按表中的顺序进行对照判别,可知每个数据是什么.
例如表7,它是一个线形锁算例的输出结果,按表5进行判别,则可知每个数据的名称.
若想在数据右侧印出其名称,使之一目了然,则当三角高程算出之后,先把B磁卡的1端读入到1号存储区,然后按表5进行名称打印的操作.
如表了所示,即是名称打印后的示例.
对于表7、表8所示的标题,可以事先铅印出来,用时贴在数据之上,这样既省事,又美观.
若不想进行名称打印的操作,不印出数据的名称,则贴上表8所示的标题,也能使之明了易读.
结束语通过各种图形的计算表明,为TI一59计算器所编的上述程序能够解算:无定向、外定向、内定向的线形锁,以及它们的折叠型线形锁,中点已知、中点未知的中点多边形,扇形,三角锁(可为折叠型的,有基线条件的),单三角形,前方交会,侧方交会,后方交会,附合导线,闭合导线,支导线,三角高差,三角高程.
锁中允许到13个三角形,导线中允许到14条边.
计算成果完全正确.
计算程序可以用于生产.
由于用Tl一59计算能够器实现计算自动化,致使运算时间大大减少,平均每解算一个三角形只约需1分钟,再则从表3可以看出,输数的规律性很强,操作简单,容易记忆,容易学会,从而易于减少输数错误,易于加快输数速度,因而大大地提高了计算效率.
与用中、低挡的计算器进行计算相比,能提高工效10倍以上.
加上便于搬动和携带,因此,'不但便于在厕区内及时计算,而且便于多个小组共用.
在一个测区中犷即使有20个小组作业,用一台Tl一59计算器解决图根控制测量的计算问题,也是完全可以胜任的.
由此可见,利用Tl一59计算器进行图根控制测量计算是比较合适的.
同样,使用与它具有同等功能或功能更强的计算器,也是比较理想的.
这些都是地形测量工作者所希望的.
参'考书〔1〕王兆霖编译《Tl一59/Tl一58C/TI一59可编程序计算器与基本程序库使用手册》清华大学热能工程系〔2〕羊铁铮、赵新那编译《丁I一58C、Tl一59型计算器的程序设计原理及其应用》中南矿冶学院图1外定向线形锁(氏)几()/////图2[LJ定向线形锁注:加(c)、(d)所观,挂有多余的三、角形,通常是解算线形锁之后计算,本程序可以一并解茸.
86图3万互已知兰角枝田4.
皿水知三角砚国5中互已知多也形图6中互未知多也形田7扇璐田8启方之奋图g闭合导线注:单三形、前方交会、侧方交会的编号与图3图10附合导线、图5的1号三角形相同.
可可祠护曝形形该该O协价价勺勺百___,二攫.
'""瘾".
.
飞斗.
!
!
!
「「川侧侧最''曰呼.
.
.
.
.
O__鱼鱼讨一冬冬,;办矍哭朽扩熟嗜羹妾妾.
.
.
.
.
.
.
属浪浪甲妙耳耳雾荤荤属劝仍推又司曰、户'州1'嵘.
奋奋OOOOOOOrrr令令.
祀份诬诬曦子似一_令洛寺寺洲洲洲洲洲闪闪闪闪闪闪闪闪闪闪闪闪闪闪闪闪闪闪闪闪闪闪闪闪闪闪闪闪闪闪闪闪闪闪闪闪闪闪闪闪闪爹爹爹爹爹_器器器一认、牡.
一叼·,二嚼嚼山山山山山山山山衬衬咋丫丫没没蕊没没李'印印叮.
声声圳翻翻翻捌捌器鉴口只只只岌岌岌岌资试试探民民鉴省省烤OJJJ捌捌器戈试_喊帐帐帐帐帐签签签签签签签签签签签签畏畏办豁豁豁豁豁豁豁豁豁豁豁豁豁吐吐'犷钾钾I.
.
.
:::默,''''穿者者者捌目翻翻翻翻翁翁户户户户户户户咨JJJJJJJ省省议议祖确确鉴鉴盆鉴鉴没咎咎<<'.
00000争对阵阵阵'翁翁粼粼粼粼粼粼粼味味味味味味补补补兮葵葵鉴---盆蓄蓄理鉴鉴择择研研·习习产、、到到荡荡尸、、、习习习嗯畜畜菠菠资试试扮诱诱<浮浮:}馨誉誉如如哪,,,居居OOO咚咚咚咚咚咚咚卜卜卜叫叫是是是浮浮,澎澎.
.
.
{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{{iii扩扩扩公公甘---于于于于于于于签签鉴昙昙岌鉴鉴喊喊喊冬冬甘'''房房一益益粤粤粤袅袅忱忱必污污玄ttttttttttttttttttttttttttt带带娜娜娜娜食食区区区区区区区区区.
K补补补豁捌匆匆一权权,朵,荟''''撬撬比比比[及及及及及及及、、、、".
奎奎奎奎祖祖书书书卜目目目目目目目匆匆共书书书书JJJ对对对对对对对对对对对对对对对对对对对对对对对对对对对对对对对对对对对对对对对对t公公公公铸铸军军军系系器器鉴没没没霍霍」番'参参昌匀翻翻,甘碑碑只、、、、、、、、.
、尹尹网网网城城卜卜受劣劣OOOOttt拌"汗汗翔翔喂转转盒盒本本O''、、,!
!
!
粗(((畏畏畏畏万况况况_忿!
!
!
、.
训、.
''OOO居居公公eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee豁捌捌捌捌'浮浮的的耳耳耳重重重重岌攀攀哎哎匀捌匀匀匀汀省谷谷谷裘裘盖盖忿忿忿神神神神牙诱诱诱99999,加+JJJJJJJ仍仍刃刃刃誉誉誉誉誉誉誉誉誉誉誉誉穿穿穿袅袅雹雹岌鉴鉴嚣墨墨译译译捌翻均均均均萄萄萄萄育育育曰曰详详论浦浦资弓弓分岛岛咨咨咨咨JJJJJJJ,,军军军军军军叫叫叫叫《《《《《《《《《《《《《《《.
+lllllll一一一量量的的的的的匀刻捌捌捌捌捌捌捌捌捌裁裁裁裁盗盗盗盗盗盗盗盗声卢官官官二川,,户户OOOOOOO澳澳澳澳澳澳澳澳澳澳澳澳澳澳澳澳澳澳澳澳澳澳澳t111111111蜀蜀蜀、产产产产产产爵,到圳圳圳仁OOOOOOOOO峡峡峡峡峡峡峡峡OOOOOOOOOOOOO.
.
.
.
.
.
.
.
袱袱袱袱袱袱袱+++++++++++++++.
.
.
.
.
.
.
.
.
.
.
.
.
畜畜姆吸礴礴礴O.
.
.
汀砖砖烤邃邃牌卢JJJ日日口.
讨讨JJJJJ补补丫丫丫丫'为为为为为为为为为裂裂冲冲畜淤汾汾汾砂日、、嗯甘甘宫公公2二公公日日匀嗯卜:::日日日日OOOOOOOO拟存数地址表5数据的输出顺序及名称打印的操作三三角形平差差方位角平差差边条件平差差线线形锁等等线形锁等等导线线三角锁、中点形形线形锁等等数数据顺序序数据顺序序数据顺序序数据顺序序顺序序序顺序序XXX.
.
.
.
.
Xooo二二X.
.
二二Xooo二二X111二二XoooXooo\\\/.
.
,,Y.
.
:七七Y.
.
,,YoooE产产'Yooo,,YoooY.
.
CCC.
.
二二CoooooCoooEEECoooAAACoooEEECoooCoooTTT.
xxx,,T.
xxxxxTolllllT.
11111TozzzzzTolllToxxxSSSNNNBBBSNJJJJJS.
.
.
5011111S.
11111SoooSC:::.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
,~.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
TTT尹i一:::::门门lx,sssssss!
Xiiiiijeiiiii峭峭}x、、、门门…X:::a角角一一切……yiiiiiii{y:::::{biiiii{{{一丫iiiii一一…Y''To:::CCCiiiii}}}Ciiiiiii}c'''心aiiiiiii5eiiiiiii…C''50:::bbbiiiii{{{b:::::::}r''''''''Taiiiiiii{"''''aaaiiiiiii卜"二二二二}SSSSSSSSSSS卜5aiiiiiii{S;;;;;卜卜卜卜卜卜卜卜卜卜卜卜卜卜卜卜卜卜卜AAA,,X产终终R/SSSX,终终R/SSSSSSSX终终R/SSSX终终X:::333731B产产y,终终3631B产产y,终终CCCCCCCy一终终终终终终终Y终终Y:::444215B,,S,NOOO3731B///CNNN4344B厂厂厂厂CNNNCCCCNNNNNTTTTTINOOO4200B了了.
xxx4345B,,,,,左右右右右VVVVVVVVV.
yyyyyyyyyyy同同同同存址数地三角形三角形{导线数据名称、边号、号边几Ot了.
R,O内Jno5八O行I,1d.
l,1CiOU.
U1n1odJ任C:C:C.
SsC.
门088C-oaS:Se的.
00UbaSQ口U,上,l,曰,曰几JA通左.
dC.
C:o6r51000产0.
己.
盈.
.
舀八'bar呱认洲了1,91曰6J八'9自.
0自户0nbtlJ任'd通C:xX终〔S::嘶bll"all互山渺勺CCCx:::C一:::4888bbb一:::Y终终49998881222S::::5000,l弓白Od.
勺勺laX扫C各SJ峨一勺nQQU抢匕片了匕口'自自自C:::奋奋111S---bbbiiiii88811111户户户CCC宙宙tttSSSbbb:::::aaatttttCCC.
.
迎CCCbbbaaaSSSaaa88888CCC---CCCbbb---SSSaaa44444CCC.
.
CCCbbb.
.
SSSaaa66666CCC.
.
CCCbbb.
.
SSSaaa66666CCC777CCCbbb777SSSaaa7777744444C---C---2444bbbbb---S---2555aaaaa44444266655555C.
.
C.
.
2777bbbbb.
.
只___2888999999999QQQ66666C.
.
C.
.
.
3000bbbbb.
.
.
3111aaa666勺.
.
.
C::bl.
8一3一}.
:.
}e,'}54一.
一{一竺上三二1180或0厂不{59乏ctg\Xy起算起算了.
1.
吐Ileseeeeeewe了11卜les.
l,ll|selsell十welee'r胜性esest,,se1一.
'一.
O一吐一一一b一八O一行'表6原始数据0N.
124500.
00000.
00000.
20010.
11120.
28530.
26430.
09310.
23470.
19080.
05530.
34560一11330.
45380.
02530.
51060.
38440.
30010.
42320狱狱狱.
.
.
.
一NNON一一L一一一一XYXY互TTT一NCN一CB户一CB一户CB一八CBA一CBAC3468149.
914610684.
9713468389.
121613120.
2552447.
004264.
2324384.
20155264.
232439255一814454一795545丽4744874547丽504009李表7近似平差计算I岁量迎塌墨宜{述呈鱼3468149·914!
.
'x·}3468149.
914】OX·{3468149·914'1ox·610684.
971{一Y.
}610684.
9711一Y.
一{610684.
9川宝山Y,92.
1245公356.
330b52447、00391356.
33005TA.
SA1T一O.
0006081.
1959,044.
1110柱54.
28510437.
52595一0.
00010一79.
2642早55.
D930745.
23467178.
261680.
000302TA.
3TA.
.
19090.
05540.
34570.
4525892.
12443356.
32598864,415883469012.
76361Q632.
9521226.
052437.
525981009.
4343468361.
798611671.
9171'209.
101178.
26181875,6753467486.
448611695.
7821194一91286.
45280839.
110TASA万又一叹万Y.
SCTASAD:X.
Y.
SCTAS人~心:X.
Y.
SCTASA曰万CBAAV|"WAeB4TA'丽丽丽不玩污一厂石二一一又丁We毛A一Y.
SCTAS人884744一86WeBA一一0.
0004087.
1131747.
4536745.
02517353.
565750.
00090612533.
5491132.
058353.
57007802.
112X.
Y.
AcB一X.
Y.
cAB一X.
Y.
cAB一X.
Y.
cAB一X.
Y.
AcB一X.
y.
SNTNTA孚而丽丽万弓瓦份}一石丁一万盯.
.
51090.
38470.
30040.
05485TA92.
12465}356.
33020!
2447.
00391}3470592.
485}610537.
740}81.
19600{44.
11095}54.
28505}3468749.
691{613478.
8421一79.
26417}55.
09311{45.
23471】3466271.
733】613546.
372!
88.
19100{一47.
05535{44.
34565}3466406.
052615917.
93987.
1132647.
4536245.
025123468664.
042G15678.
654一88.
5108050.
3847540.
300453468826.
992264.
231650.
00010TN}617578·824VCI6927·022}264.
23265l一0.
00022612449.
0121037.
12085.
05527673.
7083468389.
121613120.
255一0.
42284Y.
SCTASA武山X.
Y.
CWeBA一504088一85算表8近似平差计算一.
—一一一一一一一一一一---三角形平差方位角平差坐标计算点名1.
1.
1·1·1caaYXSTS点号YXCb号Ti一WCibiai}一}一」二~~一}一3468149.
914610684.
97192.
12450356.
330052447.
00391356.
33005一0.
00060X.
.
Y.
.
3468149.
914610684.
97192.
12465356.
330202447.
003913470592.
485610537.
740OX.
.
Y.
.
3468149.
914啥尸610684.
97192.
12443356.
32598864.
41588O宝山X.
.
Y.
.
XYD.
.
19600.
11095.
285053469012.
763610632.
9521226.
052.
437.
52598气1009.
434XY,l左浦任OOJ纽户O.
19590.
1110028510d.
上月性吮月O八J任一d