ASIF4800上的公路平面坐标正反算计算程序.docVIP

CASIO FX-4800上的公路平面坐标正反算计算程序 程序功能介绍 本程序是一款在CASIO FX-4800上开发的通用公路平面施工测量控制小程序，计算由 下图组成的直线+缓和曲线+圆曲线+缓和曲线+直线构成的图形结构（基本线型），在此基础 上，对于由多个具有类似结构组成的一条完整直伸型的线型路线（组合线型），根据后面的 说明利用己编制好的子程序，经过适当的组合，从而构成计算一条完整的路线程序，程序功 能分为路线的正算和反算。正算时，根据输入的里程，和距中心的距离（左-石+）计算岀该 点对应的平面坐标;反算时，根据输入的平面坐标计算出该点对应的里程和距屮心的距离（左 參rH ? T-d 程序设计和分析 为主便程设计和分析，下而的各个子程序是用算法语言（用拼音表达变it名）写成的， 不是CASIO FX-4800屮的程序代码，将算法描述巾的变S:按后而提供的变fi对照表替换成 CASIO FX-4800中的变量就可得到CASIO FX-4800具体程序代码， 程序流程: 开始 开始 Program: JiBenDuan Fixm:Deg pol(jdx-qidianx,jdy-qidiany) zhuanjiao=J pol(zhongdianx-jdx?zhongdian￥-jdy) zhuanjiao=j-zhuanjiao (abs(zhuanjiao))90=qujin=0.5:7^qujin=l Zl zhuanjiao0=zhuanxiang=-l: 7^zhuanxiang=l Zl qiexian=Lh/2-(lh 八3/(240 X jdr 八 2))+(jdr+lh 八 2/24/jdr) X tan(abs(zhuanj iao)/2) pol(jdx-qidianxjdy-qidiany) ZH=qidianli+I-qiexian qifangq=J:qifangh=J+zhuanjiao-180 Rec(I-qiexian,J): Zhx=qidianx+i:zhy=qidiany+j Ree(qiexian, qifangq +zhuanjiao):hzx=jdx+i:hzy=jdy+J Lyuan=(abs(zhuanjiao)-lh/jdr X 180/ n )X jt /180X jdr HY=zh+lh:Yh=hy+lyuan:hz=yh+lh xzhen=lh-lhA3/(40Xjdr 八 2) yzhen=(lh 八 2/(6xjdr))-(lh 八4/(336xjdr 八 3)) d=sqr(xzhenA2+yzhenA2) rfangq=qifangq+atn(yzhen/xzhen)xzhuanxiang rec(d,rfangq):hyx=zhx+i:hyy=zhy+j rfangh=qifangh-atn(yzhen/xzhen)xzhuanxiang Ree(d，rfangh):yhx=hzx+i:yhy=hzy+j pol(zhongdianx-jdx,zhongdian￥-jdy) endlichen=Hz+I-qiexian lichenqidianli=lichen^zh= pol(jdx-qidianxjdy-qidiany) rfang=J:faxianr=J+90 qix=qidianx:qiy=qidiany:d=lichen-qilicheii A A lichenzh=licheng:^ hy= s=lichen-zh xzhen=s-sA 5/(40 xjdrA2xlhA2) yzhen=sA3/(6xjdrxlh)-sA7/(336xjdrA3xlhA3) d=SQR(xzhenA 2+Y zhenA2) rfang=qifangq+zhuanxiangxatn(yzhen/xzhen) faxianr=qifangq+sA2/(2xjdrxlh)xl80/7rxzhuanxiang+90 qix=zhx:qiy=zhy lichenhy=lichen^yh= pol(yhx-hyx,yhy-hyy) rqie=J-(yh-hy)/jdrx90/nxzhuanxiang s=lichen-hy:rfang=rqie+s/jdrx90/nx zhuanxiang faxianr=rfang+s/jdrx90/7rx zhuanxiang +90 d=2xjdrxsin(s/jdrx90/7r):qix=hyx:qiy=hyy lichenyh=lichenhz= s=hz-lichen xzh en=s-s A 5/(40 x j d r 八 2 x 1 h 八 2) yzhen=sA3/(6xjdrxlh)-sA7/(336xjdrA3xlhA3