圆曲线(已知两点和半径)座标计算

《圆曲线(已知两点和半径)座标计算》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、圆曲线（已知两点和半径）座标计算程序for4850P圆曲线（已知两点和半径）座标计算程序for4850P一、编制原理：      因景观工程、房建和市政工程的曲线大多是圆曲线并且设计仅给两端点和半径而无曲线要素的前提下，利用圆曲线两端点和半径，基于圆心点座标数学精确解析圆弧上任意点座标。二、程序清单：Lbl0:CLS:{ABCGR}:A"X1":B"Y1":C"X2":G"Y2":RLbl1:J=0:I=POL(C-A,G-B):J<0=>J=J+360△F=J-sin-1(I÷2÷R):U=A+Rcos(F+90):V=B+Rsin

2、(F+90)Lbl2:Cls:{LD}:L"Lp":L<0=>Goto0△D"Dp":D=0=>D=1E-45△Q=AbsD÷D:T=F-90+(180L÷R÷π）N=U+RcosT:E=V+RsinTX=N+Dcos(T+180Q):Y=E+Dsin(T+180Q)O=0:I=Pol(A-U,B-V):J<0=>O=J+360:≠>O=J△P=0:I=Pol(C-U,G-V):J<0=>P=J+360:≠>P=J△J=P-O:Z=AbsRJπ÷180:"Xp=":Int(1E3X+0.5)÷1E3:Pause0:"Yp=":Int(

3、1E3Y+0.5)÷1E3▲"Xc=":Int(1E3U+0.5)÷1E3:Pause0:"Yc=":Int(1E3V+0.5)÷1E3▲Cls:"Lc=":Int(1E3Z+0.5)÷1E3▲Goto2三、程序说明：1、A"X1":B"Y1":C"X2":G"Y2"分别为第1个端点A的X、Y座标和第2个端点B的X、Y座标。2、I、J分别为两端点AB连线方位角和距离。3、F为第一点切线方位角4、U、V分别为圆曲线的圆心座标x、Y。5、Lp、Dp分别为距端点的弧长、边桩支距。6、半径R,曲线左偏为负，右偏为正。6、Q为符号参数，左负右正

4、。7、T为测算点P至圆心点连线方位角。8、N、E分别为待算点P的中桩座标X、Y。9、Xp、Yp分别为待算点P的中边桩座标。10、O、P分别为圆心点至第一、二端点的方位角11、Xc、Yc分别为圆心点坐标12、J为圆心点至两端点间的夹角12、Lc为两端点间弧长四、算例：圆曲线两端点A(206776.424,206300.769)、B(206694.203,206228.232)，半径R=70，左偏曲线，Lp=94.769,计算结果如下：Dp=-18.472    Xp=206720.2035    Yp=206247.4628Dp=20.

5、329    Xp=206730.5087    Yp=206210.0553附注：加入圆心坐标和两端点弧长计算功能，并修正了局部代码。    希望各位网友不断扩展，并互相交流。    QQ：251671595谢谢发贴：+8分【测量空间】celiang.net[0查看楼主其它文章  <<返回  → 回复内容      只查看楼主与本人回复沙发：2008112509-11-1823:52评：+10分老师我来顶一下!谢谢实用的小程序!!2楼：'xingzyhou09-11-1915:25评：+8分不错，，说明很清晰3楼：'昊子09-11-

6、1918:16评：+10分早就想要这个程序，能否给编个4800的，万分感激！！！4楼：hanniu_1973楼主09-11-1918:503楼的朋友，其实4800P与4850P是一类的，只是显示方面有点不同罢，只要把“"Xp=":X:Pause0:"Yp=":Y▲”改为X"Xp="=X:Pause0:Y"Yp="=Y▲即可。5楼：zcj00709-11-2010:38我也支持老师的作品!6楼：'南雁09-11-2022:16评：+10分老师谢谢!非常实用的程序7楼：gmh45345309-11-2117:54评：+4分很好用的程序，支

7、持8楼：'小弟。波09-11-2220:22F=J-arc在计算机里面哪里找啊，，，帮帮忙。。。9楼：hanniu_1973楼主09-11-2318:458楼的小弟，arcsin就是反正弦，因在记事本里无法输入上标所致。10楼：'小弟。波09-11-2320:25那该怎么办啊，，，无法用这样程序啊，。。11楼：'98334289609-11-2320:48真是好程序啊，老师啊，能不能转换成5800的程序啊，谢谢，！！！！！112楼：hanniu_1973楼主09-11-2413:2110楼的小弟，你除非是在搞笑，否则你真是太菜了。ar

8、csin就是反正弦sin-1，直接输入就可，请多多看4850P说明书。13楼：'3280266009-12-319:45老师啊，能不能把这个程序改成5800可以用的啊，谢谢了！！期待啊！！！！！！14楼：hanniu_1