1、*【分段線(xiàn)路坐標(biāo)正反算程序】主 程 序：【xlzb-fd】l1: b=.1739274226:c=.5-b:u=1:u:u1.kd=xy 2.xy=kd=1=prog zs-fd:prog fs-fd子程序1：【zs-fd】l1:z=:v=9l2: lbl :kz:k:prog zz-fd:u=goto zk.d=v:vk.a:f=f+v:s=s+zcos(f):t=t+zsin(f)l3: fix 3: k.x=:s:pause 1:k.y=:tl4: norm:goto 子程序2：【fs-fd】l1: lbl 2:vw:vk.xwk.y:k=l2: lbl 3:prog zz-fd :i=

2、v-s:j=w-t:pol(i,j):j=j-f:k=k+rec(i,j):abs ifix 3:k=:k:pause 1:k.d=:jl3: norm:goto 3l4: m=1:m:m.next 1.exit=goto 3goto 2子程序3：【zz-fd】l1: prog data-fd:m=k-l:o=(p-r)2pqr:d=.694318442:e=.3394782:f=1:g=1-e:h=1-d:i=5l2: lbl 4:ci=a+mrci(1p+omci):dsz i:goto 4l3: s=x+m(bcos d+ccos e+ccosg+bcosh)l4: t=y+m(bsin

3、 d+csin e+csing+bsinh)子程序4：【data-fd】l1:u=:k(線(xiàn)路終點(diǎn)里程)=!: u=1l2:q=(線(xiàn)元起點(diǎn)里程):kl+q=p=(線(xiàn)元起點(diǎn)半徑):r=(線(xiàn)元終點(diǎn)半徑):x=(線(xiàn)元起點(diǎn)x坐標(biāo)):y=(線(xiàn)元起點(diǎn)y坐標(biāo)):a=(線(xiàn)元起點(diǎn)方位角):goto el=l+ql3:(重復(fù)l2）l4:lbl e輸入說(shuō)明：l2開(kāi)始每行程序?yàn)橐粋€(gè)線(xiàn)元參數(shù)要素，有幾個(gè)線(xiàn)元就輸入幾行。直線(xiàn)半徑按輸入。位于function11；位于；位于鍵；位于。*【完整線(xiàn)路坐標(biāo)正反算程序】主 程 序：【xlfy-all】l1: defm 5:z=1:z:z1.kd=xy 2.xy=kd=1=prog z

4、s-all:prog fs-all子程序1：【zs-all】l01: z=:v=9l02: lbl :kz:k:prog zz-all:z1=goto zk.d=v:vk.a:f=f+v:x=x+zcosf:y=y+zsinfl03: fix 3:k.x=:x:pause 1:k.y=:ynorm:goto 0子程序2：【fs-all】l01: lbl 8:vw:vk.xwk.y:k=l02: lbl 9:prog zz-all:i=v-x:j=w-y:pol(i,j):j=j-f:k=k+rec(i,j):abs ifix 3:k=:k:pause 1:k.d=:jnorm:goto 9l0

5、3: z=1:z:z.next 1.exit=goto 9goto 8子程序3：【zz-all】l01: prog data-all:g=absbr18-(l+m)2l02: p=l24r-l42688r3:q=l2-l324rl03: u=m24r-m42688r3:o=m2-m324rl04: t=(r+u-(r+p)cosabsb)sinabsb+q:s=(r+p-(r+u)cosabsb)sinabsb+o:d=j-t+1ml05: kd=goto 1 kd+l=c=k-d:u=l:goto 2 kd+l+g=c=1:goto 3 kd+m+l+g=c=k-d-m-l-g:u=m:go

6、to 2 kd+m+l+g=c=k-d-l-m-g:goto 5 l06: lbl 1:x=e+(j-k)cos(a+18):y=n+(j-k)sin(a+18):f=a:goto el07: lbl 2:h=c-c5(4ru)+c9(3456r4u4):i=c3(6ru)-c7(336r3u3)+c11(4224r5u5):c=k-d=goto 4 goto 6l08: lbl 3:u=9(2k-2d-l)r:h=rsinu+q:i=r(1-cosu)+pl09: lbl 4:bi=-i x=e+tcos(a+18)+hcosa+icos(a+9):y=n+tsin(a+18)+hsina+

7、isin(a+9):goto 7l10: lbl 5:f=a+b:x=e+(c+s)cosf:y=n+(c+s)sinf: goto el11: lbl 6:b=i=-i x=e+(s+h)cos(a+b)+icos(a+b+9):y=n+(s+h)sin(a+b)+isin(a+b+9)l12: lbl 7:u=r:bu=-r c=k-d=f=a+9c(ul) c=k-d-l-m-g=f=a+b-9c(um) c=1=f=a+18(k-d-l2)u l13: lbl e子程序4：【data-all】l1:z1=:k(線(xiàn)路終點(diǎn)里程)=!: z1=1l2：k(起點(diǎn)或上一段曲線(xiàn)緩直點(diǎn)里程)=j(交

8、點(diǎn)里程):e=(交點(diǎn)x坐標(biāo)):n=(交點(diǎn)y坐標(biāo)):r=(半徑):l=(第一緩和曲線(xiàn)長(zhǎng)度):m=(第二緩和曲線(xiàn)長(zhǎng)度): b=(偏角):a=(起始邊方位角):goto e l3：（重復(fù)l2）l4：lbl e簡(jiǎn)要說(shuō)明：每行程序?yàn)橐粋€(gè)曲線(xiàn)的參數(shù)要素，有幾個(gè)曲線(xiàn)就輸入幾行。*【中樁標(biāo)高計(jì)算程序】主 程 序：【h-sj】l1: lbl :k:k:prog data-hl2: t=abs(r(g-f)200l3: kn-t=s=o-0.01f(n-k):goto 1l4: kn=s=o-0.01f(n-k)-(t+k-n)2r2:goto 1l5: kn+t=s=o-0.01g(n-k)-(t+n-k)2r

9、2:goto 1l6: kn+t=s=o-0.01g(n-k)l7: lbl 1:fix 3:h=:snorm:goto 子程序4：【data-all】l1:z=:k(線(xiàn)路終點(diǎn)里程)=!: z=1l2：k(起點(diǎn)或上一段豎曲線(xiàn)終止里程)=n(變坡點(diǎn)里程):o=(變坡點(diǎn)高程):r=(豎曲線(xiàn)半徑):f=(前縱坡值):g=(后縱坡值):goto e l3：（重復(fù)l2）l4：lbl e*【坡腳寬度計(jì)算程序】程序名：【pjd】l1: l=25:g=2.5:t=1.5:n=8:a=0.9:b=0.9:c=1.10:d=1.5:sh-sjl2: lbl 1:m:mh-dm:h=abs(s-m)l3: s-m0

10、=k=l+hd:goto 2l4: hn=k=l+g+ha:goto 2l5: h2n=k=l+g+na+t+(h-n)b:goto 2l6: h2n=k=l+g+na+t+nb+t+(h-2n)c:goto 2l7: lbl 2:fix 3:l-pj=:kl8: norm:goto 1*【坐標(biāo)反算程序】程序名：【xy-df】l1: i=:j=:xydg:da.xga.yxb.xyb.y:pol(x-d),(y-g):jj=j+36 l2: fix 5:j ab-azimuth =l3: fix 3:iab-dist =l4: norm*【坐標(biāo)正算程序】程序名：【df-xy】l1: dgij:da.xga.yjab-azimuth iab-distl2: fix 3:xb.x=d+icosjl3: yb.y=g+isinjl4: norm*【面積計(jì)算程序】程序名：【area】l1: lbl :mn:mn:e=m:f=n:s=l2: lbl 1:xy:s=s-(xn-ym)2:x=e=y=f=sarea=abs(s) goto l3: m=x:n=y:goto