casio程序(線路計(jì)算60版)(附加)

1、一、程序設(shè)計(jì)1. 測(cè)量放樣計(jì)算主程序clfyv=19:fixm:radj0efg:0” l.xl 2.sd” ：e” dz” ：f” dh” :g” ah” jpol(zf+52-ze+52, zf+62-ze+62)jd=開 gr 180-jjlbl 1j0l=>goto 2 kq:k” kf” ：q” bl” jprog ” zb” jx二x+rec(q, u+ji 4-2) :y=y+jjgoto 3jlbl 2jxy :x” xf” :y” yf” jlbl 3jpol(x-ze+52, y-ze+62)ji” s=” ji=j+dji>2 兀=>i=i2 n1x0二

2、>1=1+2兀 ixj” a二” agoto 12. 線路坐標(biāo)計(jì)算主程序xlzbradf i xnu0:0” l.zx 2.bx” jq二0lbl 1jk:k” k” j0h1=>qg :q” l” ：g” aj”prog ” zb” :x=x+rec(q, u+ n g4-180):y=y+j jx” x二” a0=l=>u二 180uf ji :u” at=” agoto 13. 線路高程計(jì)算主程序xlgcv=ll:eixmjlbl 0kq:k” k” ：q” l” jprog ” kd” jprog ” gc” jc” h二” agoto 04. 邊樁放樣計(jì)算主程序bz

3、fyfixmjradjz :z” l.cj 2. qz 3.qs” jz=2=>zll=0:goto ltjz二3n goto 1ijmngu:m” dz” ：n” dh” ：g” hz” ：u” ah” jz 8 =z m+52: z 9 =z m+62 jc=zn+52:a=zn+62jpol (c-z8,a-z9):z10=j-nu4-180:zll=gjlbl 1z二2=>goto 2ijebfd :b” aq” :e” s” ：d” hd” :f” hy” jrec (e, z 10 + ji b4-180): x=z8 +1: y=z9+j:goto 3jlbl 2je

4、bd:e” n” :b" e” :d” z” :f=0:x=e:y=bjlbl 3jprog “fq” jg=d+z11-f:g” h” aprog “fy” jgoto 15. 線路坐標(biāo)計(jì)算子程序zbprog ” ys” jx二74445. 797jy二501515. 278js 二771.296-kb二a+c+ n js>l=>goto 1 ji=sss-64-r4-ljj=s-s*54-(40rrll)ju=b-ss4-(2rl)-n : goto 2jlbl 1ju=(2s-l)4-r4-2i=r(l-cos u)+z5:j=rsin u+z6ju=b- (s-l

5、r2) -j-r+ jt jlbl 2jpol(i,j):j=j+b-4-2jx=rec(i, j)+xjy=y+jju0=>u二u+2 jt 6. 曲線要素計(jì)算子程序ysr二280l=84. 7js=-0. 6769479859ja=-2.415291254n=-1j01.738343268z5=l. 067572917jz6=42. 31770592jt=374.9146895jz7=rc+l7. 線路高程計(jì)算子程序gcw二 13lbl 1jp=zw+7jk>z w-p=>w二w+l: goto 1w二 13nw二 14hjv=w-l=>goto 2l.jv=w-1

6、jj=zv+4jr= (j-z v+3) m (zv-zv-l)js= (z v+5-j)4-(z v+l -z v) jt=zv+7jlbl 2jl=k-zvjl-t=>h=j+rl:goto 3jlntnh二j+sl:golo 33a=2t4-(s-r)jx 二 l+a(r+s)*2 jh 二 j+xx一2 一 a-arsf2lbl 3jh=h-z1ja=abs qjawz4=>c=0:goto 6lji=-1jq>0=>i=ltxjlbl 4jy=23jlbl 5jk>zy=>y=y+l:goto 5kj0=zy+2:x=zy+3:o=io:x=ixj

7、zy+2=0=>0=2ljzy+3=0=>x=2ijn=(zy-k)4-(zy-zy-l)jm二(x-0) (l-3nn+2nnn)+0jawz2nc二(z4a)m100:goto 61xjc=0. 04 (z 2-a) -m (z 2 -z 4) f100jm>4nc 二(z 4-a) m -4-loojlbl 6jc 二 h+c8. 反求線路樁號(hào)子程序fqprog ” ys” jz 4 =74445. 797jz3=501515. 278jz4=x=>z3=y=>k=771. 296:q=0:gotoq=z4:k=z3:g=s+n 4-2jprog ” zh”

8、 jg=ll 十 6 f r: q=l-lll 十 40 一 r f rpol (g-h, q-w):k=j+ n -r2+l4-24-rjcos k<0=>goto 14pol(h-(r+z5),w-z6)jk=771. 296-r( n -j)-l4-2jq二r-igoto 2jlbl 1jk=1:u=ljprog ” hq” jk=771.296-0:q=-qjlbl 2jm=1000jk二intg (mk+o. 5) 4-mjq=tntg (mq+0. 5) 4-mjz” kd 二” aq” wb二” a9. 坐標(biāo)轉(zhuǎn)換計(jì)算子程序zhh=x-q:w=y-kjpol(h, w)

9、jg=j-gjh=icos g:w=isin g10. 反求緩曲長(zhǎng)度子程序hqa=kf46080flt6ir6p=lim3840mi5flt5c=13k4-57604-ir44-u4jt 二 kw 一 384fl4flt4g=h4-484-ir34-u3ji=k4- (15rruu) jj二kw 十(8rruu)l二 hf(2ru)n=kwjs=wjlbl 7jm二as"13+ps-10-cs"9+ts"8-gs飛+1s"5-js-4+lss-ks+njq二13as-12+1 ops"9-9cs” 8+8ts-7-6gs"5+5is&

10、quot;4-4js” 3+2ls-kj0=s-m4-qabs (0-s)<le-5=>goto 8fxjs=0jgoto 7jlbl 8jt=k0004-64-u4-rjp二 0-0"5f(40rruu)jt二h=>p二w=>q二0:goto 9、'pol(h-t,w-p)jq二sin (j+k00-r2-rr-u-r2)js=-1jq>ons二 1hq二silbl 911. 邊樁放樣計(jì)算子程序fyv=11ju=qjprog ” kd” jq二-0. 75-z2:z3=-lju>0=>q=0. 75+72:z3=1jprog ” g

11、c” jx=g-cjxwongoto 7ijn=int (x-0. 1)-?& 9)+1n>5=>n=5h.ji=1jlbl 2j0=z28+ij0) :0” m” jz28+i=0ji二1+1t>n+l=>goto 4'goto 2jlbl 4jl=0jw=3. 55+z2:h=0. 04lbl 5ji=i+1jt>n-l=>goto 62w=w+2+9zi+28jh二h+8. 9jgoto 5jlbl 6ja=x-h:aw o” aw=w-abs uawlnp 二 wz3,a8=>p= (9z1+28 +w+2) z 3 aa二az

12、1+28+wgoto 8lbl 7jx 二-xx8=>a=1. 5x+0. 75+z2-abs u'jx>8=>xw12=>a=12. 75+z2+l. 75(x-8)-abs uwjx>12=>a=14. 75+z2 + l. 75(x-8. 04)-abs u'jlbl 8ja=az3ja” db=” a12路面寬度計(jì)算子程序kdz2=10. 5jz4=0. 5jk>460=>k<540=>z 4=0mjabs qwz4=>goto 6、jq>0=>goto 1ijk<370. 6255=&

13、gt;i=50:x=k-370. 6255: goto 2、k>430nkw467. 384nt二41 :x二k-430:gotok>467. 384=>k<532. 616>gotokm532. 616=>k<570=>i=41:x=570-k:goto 2kljk>686. 596=>i=35:x=k-686. 596:goto 2njgoto 5ljlbl 1jk<350. 4277=>i=47:x=k-350. 4277: goto 2、k>430nkw463. 545=244 :x二k-430:goto 2

14、、匕jk>463. 545=>k<536. 455=>goto 4亠'k536. 455=>k<570=>!=44:x=570k:goto 2mxjk>686. 596=>i=38:x=k 686. 596: goto 22goto 5ixjlbl 2jz2=zixxx+z1+1xx+z1+2x+10. 5:goto 5jlbl 3jz2=299. 1044-sin (1. 4543+(k-467. 384) f280)-280:goto 5jlbl 4jz2 =280-267. 3044-sin (1.4406+ (k-463.

15、545) 4-280) jlbl 5jl=z2+0. 75:l” ld二” albl 6二、擴(kuò)展變量設(shè)置數(shù)值擴(kuò)展變量設(shè)置實(shí)際數(shù)值表名稱福寧線a14-a變坡點(diǎn)數(shù)目b2起超點(diǎn)數(shù)冃c3臺(tái)階數(shù)目d6導(dǎo)線點(diǎn)數(shù)目c10曲線方程數(shù)f6變量總數(shù)目72ze110z變最（路面寬度）z變量（左右系數(shù)）z4變量（中央帶寬）z空z6空z7空z空z9空z10空zll空z12284. 56z305. 00z14600. 00z15840. 0()z9. 838z179.9z15.8z1929z2020. 44576z52.5z22空z23284. 56z24686. 596z25771.296z263z273z280z29第一邊坡坡度z30第二邊坡坡度z31第三邊坡坡度z32第四邊坡坡度z33笫五邊坡坡度z34第六邊坡坡度z354.36072e-07擴(kuò)展變量設(shè)置實(shí)際數(shù)值表（續(xù)表）名稱福寧線a14-az367. 86427e-05z373.59504e-04z381.01209e-05z39-1.89e-04z402.21e-03z4