測(cè)繪者論壇5800程序

1、因局部改線，或量距中發(fā)生錯(cuò)誤等均會(huì)造成p里程樁號(hào)與實(shí)際距離不相符，這種在里程 中間不連續(xù)的情況叫“斷鏈”。凡新樁號(hào)比老樁號(hào)大（新路線比老路線長(zhǎng)）的叫“長(zhǎng)鏈”。凡 新樁號(hào)比老樁號(hào)?。ㄐ侣肪€比老路線短）的叫“短鏈”。所謂“斷鏈處理”就是不牽動(dòng)全線樁 號(hào)，允許中間斷鏈，而出現(xiàn)樁號(hào)不連續(xù)。僅在改動(dòng)處用新樁號(hào)，其它不變動(dòng)處仍用老樁號(hào)。 并就近在直線段選一個(gè)是整樁的老樁號(hào)為斷鏈樁。在同一斷鏈樁上分別標(biāo)明新老兩種里程及 相互關(guān)系。例：某路線a在定測(cè)時(shí)，在ak2+356.400處開(kāi)始局部改線，老路線a、新改路 線b各自經(jīng)過(guò)一段連續(xù)里程后，新改路線b在bk3+426.200處乂與老路線a重合，此處老 樁號(hào)為ak

2、3+641.600。在這個(gè)重合點(diǎn)之后的直線段上有兩個(gè)樁：ak3+660等同于 bk3+444.600, ak3+655.400等同于bk3+440。請(qǐng)問(wèn)斷鏈樁應(yīng)選在何處？ ak3+660處 此斷 鏈?zhǔn)情L(zhǎng)鏈還是短鏈？是短鏈（短鏈215.400米）如何寫該樁的樁志和樁號(hào)？斷鏈樁 bk3+444.600ak3+660 （短鏈215.4米）若該斷鏈樁z后還有一處斷鏈現(xiàn)象，且為長(zhǎng)鏈65.4 米。則新路終點(diǎn)ak8+500的實(shí)際連續(xù)里程是多少？路線總長(zhǎng)度=末樁里程+長(zhǎng)鏈總和短鏈 總和=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