测绘者论坛5800程序

1、因局部改线，或量距中发生错误等均会造成p里程桩号与实际距离不相符，这种在里程 中间不连续的情况叫“断链”。凡新桩号比老桩号大（新路线比老路线长）的叫“长链”。凡 新桩号比老桩号小（新路线比老路线短）的叫“短链”。所谓“断链处理”就是不牵动全线桩 号，允许中间断链，而出现桩号不连续。仅在改动处用新桩号，其它不变动处仍用老桩号。 并就近在直线段选一个是整桩的老桩号为断链桩。在同一断链桩上分别标明新老两种里程及 相互关系。例：某路线a在定测时，在ak2+356.400处开始局部改线，老路线a、新改路 线b各自经过一段连续里程后，新改路线b在bk3+426.200处乂与老路线a重合，此处老 桩号为ak

2、3+641.600。在这个重合点之后的直线段上有两个桩：ak3+660等同于 bk3+444.600, ak3+655.400等同于bk3+440。请问断链桩应选在何处？ ak3+660处 此断 链是长链还是短链？是短链（短链215.400米）如何写该桩的桩志和桩号？断链桩 bk3+444.600ak3+660 （短链215.4米）若该断链桩z后还有一处断链现象，且为长链65.4 米。则新路终点ak8+500的实际连续里程是多少？路线总长度=末桩里程+长链总和短链 总和=8500.000+65.400-215.400=8350.000 米5800程序do:deg:clrtext“fl fang

3、yang,9“f2 jiance"“f3 suidao"'fn:6v:3 i:prog “gn" 4xl:3->v:prog “gn"prog “fnuclitext “cont'':lfw:prog “sc”lpwhile f=1zzlist7l->i:list 8->i:1->vdo:i+lii:list 9tqlpwhile k>q-list 12list 10->m:list 11nlist 16s:list 17rlist 9q:-list 12>j6w4qh:q+j->q

4、:prog usc9,:prog “gn"kqij:le20ib:list 1300<0=>1 一 list 175absoo:（ 1 一rb）-2 一oczx:ifj<o:then prog “sc"return :ifend7tw4hq:ifj<o:thcn prog “sc"return: i fend4hy:oj:prog “scuprog “gn” q+o->q:k-q->j:list 1408->w4yq:if j<o:then prog “sc"return: i fend°yh:o

5、j:prog “scuprog “gn"q+o->q:k-q->j:list 1501-r->b: 1e2o->r0<0=>list 17-abs 0->0: (l-r-b)-2-0->c7w4hq:ifj<o:then prog “sc"retum:ifendchz:o->j: prog “schprog “gn"k-q-o->j6 w4zx:prog “sc"fn4fy:if:f=l:then do:clrtext“fangyang"5v:prog “gn':i=o=

6、>retumprog “zz”:prog “gn”do:clrtext:4>w:0>l“fl daoxian":“f2 shexian":“f3 2biart 4fn:6->v:3->i:prog “gn":f->v:f=3=>2->v tt,?->r:rj: “a"。： oa4sx.dx:clrtext:prog “gn”6 “xy'iprog “sc”4sx:iff=3:then -jr:a->9prog “gnhprog “scuifend: “okuclrtext/tl next

7、": “f2 k?”: “f3 quit"4fn:6->v:3->i:prog “gn"lpwhile f=1:lpwhile f=2return: i fend4jc:if f=2:then do:clrtext“jiance":o->list 251“fl lumiaif':“f2 bianpo”:“f3 2d” 6fn:6->v:3->i:prog “gn":f->u 4k?:5v:prog “gn":i=o=>retumdo/fs: “x"?>x:“y"

8、;?>y7- >v:prog “gn": i=o=>retum4 ukf:clrtext:0->l:5w:prog “sc"if u*3:then “z"?->zlist7l->i:list 8->aif list 25l=0:then6zg:8->v:prog “gn"3- >w:prog “sc':'dm:otw:prog “sc” 6lj:9->w:prog usc9:ifendifu=l:then u-h,?r:else z-gr:ifendtk:0->v:prog

9、 “gn”ifu=l:then absjr:z-r-h-(r-k)cr:r-k-qjelse abs j-e-qj:list 251>q:j>list 251qo=>qr(q-j)->j:ifend4 “dkdh":of l:2tw:prog“sc": “ok" ifu=2:then clrtext“next pf:lw:prog “sc":f=l=>o=>list 251iffind:ifend: clrtext“fl next": “f2 menu”: “f3 quit"4fn:6->v:

10、3i:prog “gn"lpwhile f=l:lpwhile f=2return: i fendgnifv=l or v=2:then s+0->0:m,n+rec(r, 0)list anslr:list ans2>0ifv=l:then rm: 0->n:s+a->s:lfendreturn: i fendifv=3:then dim list 6->q:q=l=>stopdo:clrtext: “":?一>i:int abs i+1->ilpwhile i<2 or i>q:ilist 7return: i

11、 fendifv=4 or v=5:then list 71->ilist 6q:list 7>m:if v=5:then clrtext“xl": “qdk": “zdk":locate 4,1,1-1locate4,2,q:locate4,3,m: 4tk5,?k:iffindifk<q or k>m:then 0->i: “k over" else list 8 >i:iffind:retum:ifendifv=6:then do:do:8.9-getkey-10->flpwhile frac f#0:lp

12、while f>i: return:ifendif v=7:then do:prog uzz9,:prog “gn"pol(x-m,y-n):list ansl->mrec(m,list ans2-s:list ans2>jp*list ahs1f(pj)tq:k+qtk4- >v:prog “gn":i=0=>retumlpwhile abs q> 1 milli:return:ifendifv=8=:then list 9a0if0<o:then clrtext:uzgn: lw:prog “sc”if f=l:then 00r

13、eturn:else 0>0:lffind:lffindif9=0:then “zg'"?->e： £->list 9a :return: :ifend0->i:do:list wfp:list2nlist 19 fq: list 180:1+1 p- o>pnabs p-pfn:abs(np-2)fplp while k>q+p:k-qq:list 20+000q+p->q:q>0=>e+q2ne：return:ifendifv=9:then ifr<0:then do:list 22plist 23fq

14、:ihi:list 22n:list 23>0lp while k>n:ifenclelse do:list 22p:list 2">0.7+/>/list 22->n:list 24->o:lpwhile k>n:ifend (k-p)(n-p)-p:3ps)-2ps)-p q-p(o-q)i: return: if'endifv=0:then £>>/: do:list 25>p:list 26>0 /+/>/. list 25fn:list 26>0lpwhile r<q or

15、 r>o(r-p) -(np)fp: qp(o-q)q:return:ifendscifw=l:then “fl yes' (if2 no6> v:2i:prog:return:ifendif w=2:then (tdg= f,dk= 厶+2>厶locate 4,l-l,r:locate 4,l, j:return:ifendif w= 3:then ''zg='1 厶+/>厶locate 4,l,0: return:ifendifw=4:then (x=f,: ny= n:l+2llocate 3,l1,f:locate 3,l, 0:

16、return :lfendif w= 5:then <(k=,f: f,j=ff:l+2llocate 3,l1,k:locate 3,l, j:return:ifendif w=6:then 0>4 0>&.</>匕 1e2op:return:ifendifw=7:thenjrlist 2(cjlist 2+b)>list 3jlist icoslist 3:sum list ansrjlist lsinlist 3:sum list ans-6jr(cj +b)a:pol(r, 0):list ans 1list ans2fb:l-(2cj+b)

17、fp: return:ifendifw=8:then jrra:a232rsinor:rp: return:ifendifw=9:then jr:list 10amlist 14a->r:list 11atlist 12afc: list 15a1sifs2:then clrtext“next lm ff:lw:prog "sc'':f3fs:ifendifs=-l:then list 15a"cg"?>c. c>list i2a“kd''?fm:mflist 10awt:tf list 11 ayr:rflist

18、 14aelse ifs=o or s=l:then 77:jiprog “gn“:ifc:tfi:prog “gm'./r mi:prog “gn"ifm:rfi: prog itgn,:ir ifr<o:then ifabs 00.02:then -jjf mi:prog (tgn,f:i->r:r(abs c-0.02)+d-e：ifend 0->r:ifend：e+mc->hifc<-0.04:then h+tct:else h0.04t->0:ifend r+mfk:k+ tr: return :ifendifw=o:then l