测量程序、测量代码、方便实用.doc

《测量程序、测量代码、方便实用.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、Functioncnx(zk,s,a,d,v)'完整曲线直线+缓和曲线+圆曲线+缓和曲线+直线Ifzk>=60600Andzk<=62726.759Then'有关数据输入jd1=60600jd1x=4654660.879jd1y=487662.316jd2=61940.814jd2x=4654015.566jd2y=486487.006ls=315r=2400u=1zh=61122.002hy=61437.002yh=62411.759hz=62726.759'有关数据计算Letpi=3.14159265358979yy=jd2y-jd1yxx=jd2x-jd1xfwj=Atn(y

2、y/xx)Ifyy>0Andxx<0Thenfwj=fwj+piEndIfIfyy<0Andxx<0Thenfwj=fwj+piEndIfIfyy<0Andxx>0Thenfwj=fwj+pi*2EndIfIffwj>pi*2Thenfwj=fwj-pi*2EndIfIffwj<0Thenfwj=fwj+pi*2EndIfzhx=jd1x+Cos(fwj)*(zh-jd1)zhy=jd1y+Sin(fwj)*(zh-jd1)zhj=fwj+u*Atn(((hy-zh)^3/(6*r*ls)-(hy-zh)^7/(336*r^3*ls^3)+(hy-zh)^11/(42240*r^5

3、*ls^5)-(hy-zh)^15/(9676800*r^7*ls^7))/((hy-zh)-(hy-zh)^5/(40*r^2*ls^2)+(hy-zh)^9/(3456*r^4*ls^4)-(hy-zh)^13/(599040*r^6*ls^6)+(hy-zh)^17/(175472640*r^8*ls^8)))hyfwj=fwj+(hy-zh)^2/(2*r*ls)*uzhc=((hy-zh)^3/(6*r*ls)-(hy-zh)^7/(336*r^3*ls^3)+(hy-zh)^11/(42240*r^5*ls^5)-(hy-zh)^15/(9676800*r^7*ls^7

4、))/Sin(Atn(((hy-zh)^3/(6*r*ls)-(hy-zh)^7/(336*r^3*ls^3)+(hy-zh)^11/(42240*r^5*ls^5)-(hy-zh)^15/(9676800*r^7*ls^7))/((hy-zh)-(hy-zh)^5/(40*r^2*ls^2)+(hy-zh)^9/(3456*r^4*ls^4)-(hy-zh)^13/(599040*r^6*ls^6)+(hy-zh)^17/(175472640*r^8*ls^8))))hyx=zhx+Cos(zhj)*zhchyy=zhy+Sin(zhj)*zhchyj=hyfwj+u*((yh-

5、hy)/r)/2hyc=Sin(((yh-hy)/r)/2)*2*ryhx=hyx+Cos(hyj)*hycyhy=hyy+Sin(hyj)*hycyhfwj=hyfwj+u*((yh-hy)/r)hzj=yhfwj+u*((hz-yh)^2/(2*r*ls)-Atn(((hz-yh)^3/(6*r*ls)-(hz-yh)^7/(336*r^3*ls^3)+(hz-yh)^11/(42240*r^5*ls^5)-(hz-yh)^15/(9676800*r^7*ls^7))/((hz-yh)-(hz-yh)^5/(40*r^2*ls^2)+(hz-yh)^9/(3456*r^4*ls

6、^4)-(hz-yh)^13/(599040*r^6*ls^6)+(hz-yh)^17/(175472640*r^8*ls^8))))hzc=((hz-yh)^3/(6*r*ls)-(hz-yh)^7/(336*r^3*ls^3)+(hz-yh)^11/(42240*r^5*ls^5)-(hz-yh)^15/(9676800*r^7*ls^7))/Sin(Atn(((hz-yh)^3/(6*r*ls)-(hz-yh)^7/(336*r^3*ls^3)+(hz-yh)^11/(42240*r^5*ls^5)-(hz-yh)^15/(9676800*r^7*ls^7))/((hz-yh

7、)-(hz-yh)^5/(40*r^2*ls^2)+(hz-yh)^9/(3456*r^4*ls^4)-(hz-yh)^13/(599040*r^6*ls^6)+(hz-yh)^17/(175472640*r^8*ls^8))))hzx=yhx+Cos(hzj)*hzchzy=yhy+Sin(hzj)*hzchzfwj=yhfwj+u*((hz-yh)^2/(2*r*ls))'直线计算Ifzk>=jd1Andzk<=zhAndv=1Thencnx=jd1x+Cos(f