4800交点法坐标计算.docVIP

4800交点法坐标计算 曲线上任意点中边桩坐标计算(CASIO fx-4800P可全线计算)第一次修改 一,主程序:PQX Lbi 0：Defm3:prog“TAD”↙ G=M-T:V=G+L:Z[1]=P+T(cos（F+180）+isin（F+180）)：Z[2]=P+T(cos（F+Z）+isin（F+Z）)：H=0=Goto 1:≠D=H:prog“QXY”:Z[3]=Z[1]+I(cos(F+A)+isin(F+A))↙ Lbi 1:K≤G=D=G-K:O=P:I=D+T:J=F+180:W=F:Goto 3⊿↙ H=0=Goto 2⊿↙ K≤G+H=D=K-G:O=Z[1]:prog“QXY” :J=F+A:W=F+3A: Goto 3⊿↙ Lbi 2:K≤G+L-H=D=K-G-H:H=0=H=1:O=Z[1]:≠O=Z[3]⊿prog “QXY”:H=1=Q=0⊿I=D:J=F+(Q+E)Z÷AbsZ:W=F+(Q+2E)Z÷AbsZ: Goto 3⊿↙ K≤V=D=V-K:O=Z[2]:prog“QXY”:J=C:W=C-2A:U=180+U⊿↙ Lbi 3:XXY” =O+I(cosJ+isinJ)+B(cos(W+U)+isin(W+U))▲ Y=x+yi:J=Arg(X-Y):J0=J=J+360:≠J△J“FWJ”=J▲ I=Abs(X-Y)▲ ((x+yi)为置仪点坐标,输入实际坐标值;例100+100i) 二.子程序:QXY A=D-D^5/40R2H2+ D^9/3456R^4H^4+1E-99:C=D3/6RH-D^7/336R3H3+D^11/42240R^5H^5:S=tanˉ1(C÷A):I=√(A2+C2):Q=90H÷лR:E=90D÷лR:D=2RsinE:A=SZ÷AbsZ:C=F+Z+180-A 三,子程序:TAD Lbi 0:{KBU}:KBU↙ K≤缓直点=M=转角桩号:P=转角桩号x+yi :F=直缓点方位角: Z=转角(左负右正): R=半径: H=缓和曲线长: T=切线长: L=曲线总长:≠K≤缓直点=M=转角桩号:P=转角桩号x+yi :F=直缓点方位角: Z=转角(左负右正): R=半径: H=缓和曲线长: T=切线长: L=曲线总长 … … … … … ⊿ 注: K？输入计算点桩号; B？输入距中桩距离,左－,右＋; U？输入与前进方向交角,0~180度 显示:XY=x+yi(x,y则为所求坐标) FWJ=XXX...(则为方位角) I=XXX... (则为待求点到置仪点距) 请各位指教.luliping928@163.com 谢谢发贴：+14 分 【测量空间】[0 查看楼主其它文章 返回 → 回复内容 只查看楼主与本人回复 沙发：yrc8888 05-12-26 21:13 怎么没人评价?有用过的请发表评价, 2 楼：liping 05-12-27 12:42 评：+4 分 谢谢楼主! 此程序输入简间,计算结果精度较高,可惜就是不能反算桩号 3 楼：yy 06-1-2 21:45 评：+1 分 这个我以已经知道啦 落后了 4 楼：yy 06-1-2 21:47 评：+0 分 不好意思 啊 我说错了 我还没见过，不知道这个版本好不好呢 你们公司的东面太高了 我们买不起啊 5 楼：FDS_1 楼主 06-1-4 17:53 编法是落后了些，不过还是很方便的，程序也很容易读懂，要验证是否精确很简单，如 K？输入QZ点桩号 B？左转时输入“+外距长”，右转时输入“-外距长” U？90 得出的坐标为交点坐标，如和交底的交点坐标一致则为准确，此程序是经多次举例验证的，如有需要您不妨也试试 6 楼：我 06-1-7 18:59 评：-5 分 你这个程序是计算对称缓和曲线的吧!对于不对称缓和曲又怎么办呢? 7 楼：我 06-1-7 19:1 我是说在匝道上的中线坐标又怎么样来计算中桩坐标呢? 8 楼：FDS_1 楼主 06-1-10 20:4 本程序只适合对称缓和曲线和无缓和曲线的平曲线,方便主线及任意斜交角度桥涵轴线放样,对于不对称缓和曲线请参考2006年1月9日 发布人：yshf 作者：yshf 曲线任意里程中边桩坐标正反算(CASIO fx-4800P计算器)程序 9 楼：小林 06-1-11 0:32 评：+4 分 FDS_1 谢谢你,你的程序确实是很方便,输入简单,精确度也很高,一次输入全线可用. 10 楼：hktk 06-1-11 18:55 评：+2 分 等级高的公路可以用，有不对