casiofx-4800上的公路平面坐標(biāo)正反算計算程序

《casiofx-4800上的公路平面坐標(biāo)正反算計算程序》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在工程資料-天天文庫。

1、CASIOFX-4800上的公路平面坐標(biāo)正反算計算程序程序功能介紹本程序是一款在CASIOFX-4800上開發(fā)的通用公路平面施工測量控制小程序，計算由下圖組成的直線+緩和曲線+圓曲線+緩和曲線+直線構(gòu)成的圖形結(jié)構(gòu)（基本線型），在此基礎(chǔ)上，對于由多個具有類似結(jié)構(gòu)組成的一條完整直伸型的線型路線（組合線型），根據(jù)后面的說明利用己編制好的子程序，經(jīng)過適當(dāng)?shù)慕M合，從而構(gòu)成計算一條完整的路線程序，程序功能分為路線的正算和反算。正算時，根據(jù)輸入的里程，和距中心的距離（左-石+）計算岀該點對應(yīng)的平面坐標(biāo);反算時，根

2、據(jù)輸入的平面坐標(biāo)計算出該點對應(yīng)的里程和距屮心的距離（左參rH?T-d程序設(shè)計和分析為主便程設(shè)計和分析，下而的各個子程序是用算法語言（用拼音表達(dá)變it名）寫成的，不是CASIOFX-4800屮的程序代碼，將算法描述巾的變S:按后而提供的變fi對照表替換成CASIOFX-4800中的變量就可得到CASIOFX-4800具體程序代碼，程序流程:開始Program:JiBenDuanFixm:Degpol(jdx-qidianx,jdy-qidiany)zhuanjiao=Jpol(zhongdianx-j

3、dx?zhongdian￥-jdy)zhuanjiao=j-zhuanjiao(abs(zhuanjiao))>90=>qujin=0.5:7^>qujin=lZlzhuanjiao<0=>zhuanxiang=-l:7^>zhuanxiang=lZlqiexian=Lh/2-(lh八3/(240Xjdr八2))+(jdr+lh八2/24/jdr)Xtan(abs(zhuanjiao)/2)pol(jdx-qidianxjdy-qidiany)ZH=qidianli+I-qiexianqifangq

4、=J:qifangh=J+zhuanjiao-180Rec(I-qiexian,J):Zhx=qidianx+i:zhy=qidiany+jRee(qiexian,qifangq+zhuanjiao):hzx=jdx+i:hzy=jdy+JLyuan=(abs(zhuanjiao)-lh/jdrX180/n)Xjt/180XjdrHY=zh+lh:Yh=hy+lyuan:hz=yh+lhxzhen=lh-lhA3/(40Xjdr八2)yzhen=(lh八2/(6xjdr))-(lh八4/(336xj

5、dr八3))d=sqr(xzhenA2+yzhenA2)rfangq=qifangq+atn(yzhen/xzhen)xzhuanxiangrec(d,rfangq):hyx=zhx+i:hyy=zhy+jrfangh=qifangh-atn(yzhen/xzhen)xzhuanxiangRee(d，rfangh):yhx=hzx+i:yhy=hzy+jpol(zhongdianx-jdx,zhongdian￥-jdy)endlichen=Hz+I-qiexianlichen>qidianli=>l

6、ichen^zh=>pol(jdx-qidianxjdy-qidiany)rfang=J:faxianr=J+90qix=qidianx:qiy=qidiany:d=lichen-qilicheiiAAlichen>zh=>licheng:^hy=>s=lichen-zhxzhen=s-sA5/(40xjdrA2xlhA2)yzhen=sA3/(6xjdrxlh)-sA7/(336xjdrA3xlhA3)d=SQR(xzhenA2+YzhenA2)rfang=qifangq+zhuanxiangxa

7、tn(yzhen/xzhen)faxianr=qifangq+sA2/(2xjdrxlh)xl80/7rxzhuanxiang+90qix=zhx:qiy=zhylichen>hy=>lichen^yh=>pol(yhx-hyx,yhy-hyy)rqie=J-(yh-hy)/jdrx90/nxzhuanxiangs=lichen-hy:rfang=rqie+s/jdrx90/nxzhuanxiangfaxianr=rfang+s/jdrx90/7rxzhuanxiang+90d=2xjdrxsin(

8、s/jdrx90/7r):qix=hyx:qiy=hyylichen>yh=>lichens=hz-lichenxzhen=s-sA5/(40xjdr八2x1h八2)yzhen=sA3/(6xjdrxlh)-sA7/(336xjdrA3xlhA3)d=SQR(xzhenA2+YzhenA2)rfang=qifangh-zhuanxiangxatn(yzhen/xzhen)faxianr=qifangh-sA2/(2xjdrxlh)xl80/n>