路桥隧通用程序_交通运输_工程科技_专业资料

《路桥隧通用程序_交通运输_工程科技_专业资料》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、Definea.zpg()=Prgm：『起点方位角”,359。44'11・7”『起点X”,3393683.29『起点Yn,492649.]]-gq：『桩号方向打长度”][65071.039,1,2500,2500,1376.497][66447・536丄0,0,1560.219][68007.755丄4431・762,4431・762,630・186][68637.941,-1,0,1016・461,170][68807・941,一1,1016・461,1016.461,27&454][69086・395,—1,

2、1016.461,0,170][69256・395,1,0,1000,170][69426.395丄1000,1000,769・152][70195・547丄1000,0,170][70365・547厂1,0,1028.663,200][70565.547-1,1028.663,1028.663,776.533][71342.08-1,1028.663,0,200][71542.08，l，0,0，1779.298]]fg:『桩号T路面厚度=”][66230,0]]fgh:『起点桩号”,66230『起点高程役366

3、・955『终点桩号”,70977.594][”终点高程”,336・12]]fgz:『折点桩号T折点高程丁半径”][66890,350.455,110000][68230,311.595,69300][68980,294.345,15000][69740,302.705,21000]]->gg:5.35-pj:71542.080->kf：71744.486->ke:202.406->dl：©输厚度变化的起点桩号和厚度。:©回车键（U键右边）增加行:©选中行然后按del键是删除行:©tab键在列间移动光标:©桩号=起

4、点桩号:©线元起点半径=R1:©线元终点半径=R2:©方向二左偏・1右偏1,直线1:©圆则R1=R2:©直线Rl=R2=0：©按回车键增加行（U键右边）:©选中行,del删除行:Disp”注意：如果桩号大于71542.08时需加上202.406,因为这个桩开始是断链。张文锦编写，欢迎使用。”:EndPrgmDefinejmf2()=Prgm:setMode(2,2):RequestStrnjE算0反算l”,Z2,0:z~expr(z2):Ifz=0Then:Request"桩号2”&string(kO[l,1])

5、，ki，O:Ifki>kfandki0andki>kfThen:ki-dl-^ki:Endlf:Ifke-kf<0andki>kfThen:ki+dlfki:Endlf:Ifkik0[l，m]+ls0[l，m]+0・005Then:Text”坐标超出桩号范围”,0:Stop:Endlf:Requestu边距-di90:di+pjfdi:RequestStr”夹角(左负右正)=爭】,0:e

6、xpr(°i)f9:intDiv(0,l)+((intDiv(remain(0,1)*100,1))/(6O))+((remain(0*100,1)*100)/(3600))f9:Else:Requestn反算X=n,xp,0:Request”反算Y』,yp,0:ki:=k0[l,1]+R>Pr(xp-xO[1,l],yp-y0[1,1]):Request"近似桩号-ki,0:Ifkik0[1,m]+ls0[1,m]+0.005Then:Text”坐标超出桩号范围”,0:S

7、top:Endlf:Endlf:Lblbl:Fori,l,m-l,l:Ifk0[l,i]Wkivk0[l,i+l]Then:9o：=0O[l,i]:ko：=kO[l,i]:卩:邙O[l,i]:rl:=rlO[l?i]:r2:=r20[l?i]:ls:=lsO[l,i]:xo：=xO[l,i]:y°:=yO[l，i]:Endlf:EndFor:Ifki$kO[l，m]Then:0o：=0O[l?m]:ko：=kO[l,m]:B：邙0[l，m]:rl:=rlO[l,m]:r2:=r20[l?m]:ls:=lsO[l,

8、m]:xo：=xO[l,m]:yo：=yO[l,m]:Endlf:setMode(2,l):Ifr1=0Then:pl:=0:Else:pl~((l)/(rl)):Endlf:Ifr2=0Then:p2:=0•plcp:p2：=((l)/(⑵):Endlf:l:=ki-ko:Oi:=Oo+J(pl+((p2-pl)/(ls))*l，l,0,l)*p*((180)/5)):