狂风之CASIO4800线路坐标计算程序

1、*【分段线路坐标正反算程序】主 程 序：【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(线路终点里程)=!: u=1l2:q=(线元起点里程):kl+q=p=(线元起点半径):r=(线元终点半径):x=(线元起点x坐标):y=(线元起点y坐标):a=(线元起点方位角):goto el=l+ql3:(重复l2）l4:lbl e输入说明：l2开始每行程序为一个线元参数要素，有几个线元就输入几行。直线半径按输入。位于function11；位于；位于键；位于。*【完整线路坐标正反算程序】主 程 序：【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(线路终点里程)=!: z1=1l2：k(起点或上一段曲线缓直点里程)=j(交

8、点里程):e=(交点x坐标):n=(交点y坐标):r=(半径):l=(第一缓和曲线长度):m=(第二缓和曲线长度): b=(偏角):a=(起始边方位角):goto e l3：（重复l2）l4：lbl e简要说明：每行程序为一个曲线的参数要素，有几个曲线就输入几行。*【中桩标高计算程序】主 程 序：【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(线路终点里程)=!: z=1l2：k(起点或上一段竖曲线终止里程)=n(变坡点里程):o=(变坡点高程):r=(竖曲线半径):f=(前纵坡值):g=(后纵坡值):goto e l3：（重复l2）l4：lbl e*【坡脚宽度计算程序】程序名：【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*【坐标反算程序】程序名：【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*【坐标正算程序】程序名：【df-xy】l1: dgij:da.xga.yjab-azimuth iab-distl2: fix 3:xb.x=d+icosjl3: yb.y=g+isinjl4: norm*【面积计算程序】程序名：【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