《卡西欧fx-5800P计算器与道路施工放样程序》程序代码(RDWORK程序)资料

1、卡西欧fx-5800p计算器与道路施工放样程序程序代码(rdwork序)2011.7.15 阅读(2283)下一篇：卡西欧fx-5800p|返回日志列表 赞 转载(391) 分享(15) 评论(37) 复制地址 更多博主的话：由于出版社排版原因，博主的新书 卡西欧fx-5800p计算器与道路施工放样程序中的程序代码字体选用有一定缺陷，特别表现在大写字母q大写字母q、阿拉伯数字0之间有些混淆不清。为此，特将书中三个主要程序一一 road ramp rdwork程序代码选用与计算器相同的点阵字体发布在此，供读者在疑惑不清时比对。第6章rdwork序代码表61公路施工放样综合程序（入口程序i,程序名

2、：r行号程 序ic»©9： fix 3： 200->dipiz基本必2if zc21j=1 or zc211=3：then 早中世1 标放平3lbl l：cls："kp"?k5k=-l»fvos "rdset"输入彳一 1贝4if kklist xc1 or- k>list ycllsthencls：lceat& .,2,hkf' dut”判另展5goto isifencw6zc21=lpro9 "rnenw计算”程7z21*3»pro© “rpmfyy道路t8got

3、o l：ifend。9if z21j=2 or zc21=4 or zc21=5： then list xtl10lbl 2：cls：fix 3： w?w：kdi抨e "rdset11：,ivw,?u： if zc21jm or z21=5：then“w?p： ifer*£ , t f ? / 标标基日高x 坐坐路挖及若11if zl21=2：then .12cis：locate % lu： nvw=11 slocate4»2,u：hk =,：,d ="13pros "rzbfs"调用坐标反算子程序14locate 4,3?ksl&#

4、171;：icate显示坐标反算结果15i few16zl21=4»fvoe "rljfv"路基放样计算17zl21=5»f>-o9 “rsdf丫'2隧道超欠挖计算18goto 2：ifend表62公路施工放样综合程序（入口程序2,程序名：rdset）行号程 序说明1dew: norm 1:206->d i基本设置，定义额外2lbl 0!clsszc22li：,ft1 d0t07e1-nu?i：izl22：i=0»goto 2d选择路线平面数据文 则跳过，使用现有内3if 1 = 1：then free ”rdatr1&qu

5、ot;：goto 1 ： ifendj4if 1=2： then pros 咔。口丁口2"： g口to blfend5if 1=3：then prce "edatos"：goto l：ifen出6if 1=4： then free "ef：'atr4"： goto l：ifend<j7if 1=5： then prce "edatos"： gotc. 1： ifend8根据实际自行删减9cis：locate 4,2,drto error”，若平面数据文件不存 后重新选择10goto 011lbl l：cls：&

6、quot;cmeck：?yl ?nc0"?->z11 w是否检查中间计算给 校对12pros "rdatoini"路线平面数据处理并13lbl 2：cis：norm 1 ： zc23-*i： "zc+1 d0t07e1-n "?i： i->zc23：if 1=0 or i=-l：then goto 4： ifendj选托七双断面数据 则跳过，使用现有内 面数据，输入一 1则:14if 1 = 1：then pro© ,rbpdl,：goto 3： i隹田15if 1=2： then pros ,rbpd2,：goto 3：

7、 ifendj16if 1=3： then pros ,re：pd3,：goto 3：ifend17if 1=4： then free ,eepd4,'：goto 3： ifend<j18if 1=5：then prce “refd5“：g口to 3： ifend4*19根20cis：locate 4,2,mdrt0 error11j若后21goto 2<j22lbl 3：cls："cheo<?v1 ,ne012w是 校23pros ,rbpdiniv路24lbl 4：c1ss zc21 j->i： "bjork tyf'e?l-3l

8、：b 2-f5,3-ftb4-lj?5-sc'"?i：i->z21选1-2-3-4- 5-25if zc21=3sthen 26cls：z24j.»ls ,station-x,?i； uzc24j ： zl25ji ： "statioh-v"?!： iz258zc294biibzjs style11 ?i； i->zc29b ifend平标27if z21j=4：tf-ien。28cls：zl花i+"30"z匚3h+i=',opd-dh1'?1： i->z31bzc32j 1： "g

9、fc-f'j"?i ：i->z32：iferd*j29if z21=5：tf-ien。30cls：zc14l5«,gd0?vgcl,?i；izri4：zc323->ls,ce-pj,?i：iz324j选 0- 设31if zc14=0!then zc26i： ,rl,?ls i4zc26b zc27ms ,01-flhe,?l8uze27 izc31h ,01-dhh ?i： i->zc31： if z27j>0sthen z28->i： "r2,?i：i 加 2幻：i fem匚半 it32else zc33->i：s

10、izl33：zl34j4-i： »04-0ngm?ls iz34：z354i： h04-dhh?l! i->zc35：zc36j->is ,r3"?i； i->zc36： ifend： ifend<>若 心 仰 高33clss-'rord set ok"j设34prog "rdbjcrk"返表63公路施工放样综合程序（子程序1,程序名：rd/行号程 序1 clrstatmat rl?lj+zl：mat ac 1,2->ze2：nat fitl,4+dsmat 口1,5口升d3 chlist. xill

11、szelllist xl2：ze2listyc2j4 mat. ol,3z13j：z：13=0»goto *mat 0e1, 54list frel 1 smat 0cl,6list ”a512wfer uu to hdiritc(u+4)3)4e：7-*z： intci>3)=ij-r5»44z2 cu+4)+3=eu>l>0->list xc2usmat re,zlist xc2u+l：mat a8 ce,z+l14list. vc2u+ll：mat ole, z+23-h.is.t frec2u+1j9 hextsmat rte,zlist v

12、cllsgoto x10lbl *交点数据处理11mat hl汹6l ac 1,7->v：pol<x-zc 1 »v-zc2>：j<0»j+360j： jm： i针：m->list fr2b0计算后直线的方 离12for 1+q to hd13int(g2) + ue： uz： inl<q+2)hq+2>6+nd计算本交点数据 列位置14mat fie?z+2r：mat ace?z+3->e：mat ae,4gc15if z=6：th&n 1->z： e+le： else 6-*z： ifend16mat flc

13、e?z->fsmat rce,z+ig：pol<f-x5g-v)sj<0j+369+j： j*漳1714bj： h-m-»o： o> 1&0>o-360o： ft<-180>a+360-m=l： o<0»t】u：rgrf18人<4) ；2es£k：3) +e- cw，)5zl61419%24；r-cr 4):2688 卡 0)+6 ® 交第3鸵20e2-e：z-<3)240r2+e：a(5)34560ra(4：)>>zi：s21c-r2-cac：3)-240r2+ca<

14、5 ”3456 的 r/、( 4gzi： 9 322z3+<r+zt7-(r+zc6dcos<a>)-bsincfl>23ze9+<r+zc6-<r+zc7>cos<fi>)inc：a)->ttj24rrn-rl80-<b+c2<.25d+p-s+b+c+ld-26if zuj=l：p-ien d27clssnorn 1 ： hjdh：locate 4, bh：locate 6,1,"一”：locate ?,l?q：fix 3snpj1：locate 52 wro：,t1=,：locate 5 ? 3 >

15、s："hz=11 ： locate 5?4? dj28else cis： locate 6?2? ,jd,slogete 9?2?h： locate11locate 12,2,q： i 隹 m29l.,l-rr4r： i£ p-s>0.001：ther-i p-s4j： 14z3：pro9 “rlist"： "end： if b>0： then e：j： 2->zc3 ： pros "rlistifeixli if l>6.091 ：then l->j： 3->zc3 ： pros 11rlist's

16、ifer-pdsif 06： then cjs 4->zc33： pro© 'rlist-slferid30w»：gty： i-tifd31nexld32if p>0. 001： then p4j： 14z1： 3 3 ： f>-c>9 ',rlist1'： if end：list xc2u+ljlist v 1： lklist. fr一门033lbl 2：clrmatspr« "flistini1表64公路施工放样综合程序（子程序2,程序名：rlist）行号程 序0短隹：if ze3=3：then r-&

17、gt;zc4 ：zl4->zl5 ： ifend：z3=2»r->ze5 ： z3=4»r-*z4*ju>0»0-*list xc2u+2：zc4list vc2u+3sz5list fec2u+3slist xc2li+l+j-»list xc2u+3：u+uu<i表65公路施工放样综合程序子程序3,程序名：rl行号程 序1list fre«il->c：list xc2->x：list yt21vslist fre<i xw2for hu to c-ld3list vc2u+l->a：list

18、free2u+i j->bslist xc2u+11-lx匚2u-1wd： 6hj -1+k，proe "rzbjs"4f-list x2u+2：g->list vc21h2 ：z->list fre«i2u+25f+x：gx：z)gw6if ze13j=1 and ztll=lsthen 47cis：norm isine1'：locate 6,l,c：locate &1, locate 9? 1 jj+1 ： fix 3s；locate 4,2?list xc2lh-'xs'lccate 4,3,f： n0=&q

19、uot;：locate 4，*z°d8else c：ls：morpi 1：locate 4,2, "lihe"：locate 9?2?c-locate 11y2?11slocate 12j2?us ifend9hext：cisslocate %2/li卜e done”表67公路施工放样综合程序（子程序4,程序名:行号程 序if k*-l ：then 0->u：do：u+luslpwhile k>list xr2u+wlist x2lu：list s-,c2u->v：list fr-h2l0->q： list ve2u+12-*0： list

20、. fre2lh-l j-c： list xe2u+1j -list xe2u-1l1-日： k-liet >i2u-l l： ifend3180-tji4m： if 0=b： tkien 灯4 if p=0：theri x+lcos(q)4f： v+lsin(c!：g：c!zelse rec<abs<2sin(0.5忖la)+a),q+0.5mla)：x+i*f： v+j4g： q+nl口32： ifendelse prom gl1,： ifend7z< 0z+360->z： z> 36q»z-360表67公路施工放样综合程序（子程序5,程序名：

21、rgl）行号程 序说明10.1739274226ze1：0.0694318442号ze2x0 32607257742 e3j：0.3300094782z l4：ze3->zc53 ： 1-zc4->z6 ：zc 1 lzcz ： 1-zc2zc8定义gausslegc 公式的参数（四g2180n->m： ce：-a)+2+g卜3计算中间参数36->f： 04g： 0->z设定初值4for 0->j to 女计算x、y坐标d 位角5f+lzc2j+1cos(g!+mrlzc2j+2+mn(lzc2j+2)2)->f6g+lzc2j+lsin(g!+m0l

22、zc2j+2+mh(lzc2j+2>2>>>g<j7btext：x+ff：y+gg：q+m0l+mnl24z表&8公路施工放样综合程序（子程序6,程序名：rb行号程 序mat be1,3et 1 ? 1 ->ze41 ；h+1zc42 ：mat e：11?4-mat eu6d： (mat bl?5-mat e：c1? 23：0->z43：04z44j2 for 1 引to hdint(：<l>3)3)->e：7->z： iritcli-3：)=ll43>lz： cu+2)y=x必4 mat e：e,z->k：

23、mat e：e,z+hs：mat. e：e,z+2j5z+3->z： if z=10：thi lin：e+lte： 1fe门，*k->z41+5ujs g豆42 +5uj： iz43+5uj：mat bee.z3-k->d： (mat. ble,z+1-g)h>->j4jij>0>-fr：obs<rij-r2>t：tzc44+5u： r+z45+ 5uw8 if zc12 = l：n-iericis：herm is11 bpd11 slocate 5»bh：locate 7,1一“：locate 8,1 川：fix 3： ,ik=

24、h：locate 4»2»k：hi=h：locate 4?3? 1061： locate 11?3, ibbj： ,t=m： locate 4显示变坡点主要 结果,以便检核10else cis： locate 5,2, hepd11 s locate 2, h： locate 11 ?2?,-u：locate 12?2?u： ifend胃显示计算迸程11j守 i ： nexl9u+l->u：mat bce»zzc41+5u:mat e：ee,z+1 ->ze42+5u12 j： i 4 zc43+5u: 9 b zc44+5u： 0 -> ze4

25、5+3j ： clr-mat： ftorm 1。表69公路施工放样综合程序（子程序7,程序名：i行号程 序1pros “rzbj5”2cllocate 4?l,f：,ls-,= "： locate 4,2?gs ,b=n：locate 4,3,zb： "z="<j3if z23="l：then &>h：else pro© 11 rgcjs"：ifend：locate 4?4?hj表610公路施工放样综合程序（子程序8,程序名：rgcjs）行号程 序说明10-mj：do：u+lmj：lpwhile iozc41+5u

26、w确定桩号所在力9zc41+5ij-kd： z e42+5u-dzc43+3j->h： 0*：: 1手卬纵坡直线段高毛3zc36+5u+zc39+5u->t： if k<t：then t-k->xszc40+5u*: goto 1:1 femzjd纵坡起点曲线市4zc41+5u-zt44+5u->t：if k>t：then k-t4x：zc45+5u务：goto 1:1 fem。纵坡终点曲线?i5lbl 1：x2rc：h+c->h表611公路施工放样综合程序（子程序9,程序名：rzbfs）行号程 ?说明2lbl 1：pros "rzbjs&#

27、39;调用子程序计算中】3cu-g) cos ( z-90 )-<b.l-f)sin(z-90 )五理4if abs<d»0.061： then k+d-h<：goto 1 ： ifend5pol<u-g, w-f)： (g-u)sin(z-90x&>-i->ls 1表612公路施工放样综合程序（子程序10,程序名：i行号程 序lbl l：cls：90h： ,zj,?h：h=-l|>fteturn： 11?3 f+tsscz+hrx： g+tji门cz+h)曾pol cx-zc24, v-zc253)： j<0»j+360j4icis： "x=h： locate 4,1,x： ,v=", ： locate 42. yd611r=1'：locate 4,3, j° ：,d="：locate 4,4, u7if ze29 = l：theri x->f： sg： z+h->z： i