CASIO FX-4800上的公路平面坐标正反算计算程序.docVIP

CASIO FX-4800上的公路平面坐标正反算计算程序 程序功能介绍 本程序是一款在CASIO FX-4800上开发的通用公路平面施工测量控制小程序，计算由下图组成的直线+缓和曲线+圆曲线+缓和曲线+直线构成的图形结构（基本线型），在此基础上，对于由多个具有类似结构组成的一条完整直伸型的线型路线（组合线型），根据后面的说明利用已编制好的子程序，经过适当的组合，从而构成计算一条完整的路线程序，程序功能分为路线的正算和反算。正算时，根据输入的里程，和距中心的距离（左-右+）计算出该点对应的平面坐标；反算时，根据输入的平面坐标计算出该点对应的里程和距中心的距离（左-右+）。 程序设计和分析 为主便程设计和分析，下面的各个子程序是用算法语言（用拼音表达变量名）写成的,不是CASIO FX-4800中的程序代码,将算法描述中的变量按后面提供的变量对照表替换成CASIO FX-4800中的变量就可得到CASIO FX-4800具体程序代码, 程序流程： Program: JiBenDuan Fixm:Deg pol(jdx-qidianx,jdy-qidiany) zhuanjiao=J pol(zhongdianx-jdx,zhongdianY-jdy) zhuanjiao=j-zhuanjiao (abs(zhuanjiao))90=qujin=0.5:≠qujin=1⊿ zhuanjiao0=zhuanxiang=-1:≠zhuanxiang=1⊿ qiexian=Lh/2-(lh^3/(240×jdr^2))+(jdr+lh^2/24/jdr)×tan(abs(zhuanjiao)/2) pol(jdx-qidianx,jdy-qidiany) ZH=qidianli+I-qiexian qifangq=J:qifangh=J+zhuanjiao-180 Rec(I-qiexian,J): Zhx=qidianx+i:zhy=qidiany+j Rec(qiexian, qifangq +zhuanjiao):hzx=jdx+i:hzy=jdy+J Lyuan=(abs(zhuanjiao)-lh/jdr×180/π)×π/180×jdr HY=zh+lh:Yh=hy+lyuan:hz=yh+lh xzhen=lh-lh^3/(40譲dr^2) ayzhen=(lh^2/(6×jdr))-(lh^4/(336×jdr^3)) d=sqr(xzhen^2+yzhen^2) rfangq=qifangq+atn(yzhen/xzhen)×zhuanxiang rec(d,rfangq):hyx=zhx+i:hyy=zhy+j rfangh=qifangh-atn(yzhen/xzhen)×zhuanxiang Rec(d,rfangh):yhx=hzx+i:yhy=hzy+j pol(zhongdianx-jdx,zhongdianY-jdy) endlichen=Hz+I-qiexian lichenqidianli=lichen≤zh= pol(jdx-qidianx,jdy-qidiany) rfang=J:faxianr=J+90 qix=qidianx:qiy=qidiany:d=lichen-qilichen ⊿⊿ lichenzh=licheng≤hy= s=lichen-zh xzhen=s-s^5/(40×jdr^2×lh^2) yzhen=s^3/(6×jdr×lh)-s^7/(336×jdr^3×lh^3) d=SQR(xzhen^2+Yzhen^2) rfang=qifangq+zhuanxiang×atn(yzhen/xzhen) faxianr=qifangq+s^2/(2×jdr×lh)×180/π×zhuanxiang+90 qix=zhx:qiy=zhy ⊿⊿ lichenhy=lichen≤yh= pol(yhx-hyx,yhy-hyy) rqie=J-(yh-hy)/jdr×90/π×zhuanxiang s=lichen-hy:rfang=rqie+s/jdr×90/π× zhuanxiang faxianr=rfang+s/jdr×90/π× zhuanxiang +90 d=2×jdr×sin(s/jdr×90/π):qix=hyx:qiy=hyy ⊿⊿ lichenyh=lichenhz= s=hz-lichen xzhen=s-s^5/(40×jdr^2×lh^2) yzhen=s^3/(6×jdr×lh)-s^7/(336×jdr^3×lh^3) d=SQR(xzhen^2+Yzhen^2) rfang=qifangh-zhuanxi