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

圆曲线（已知两点和半径）座标计算程序 for 4850P圆曲线（已知两点和半径）座标计算程序 for 4850P一、编制原理：因景观工程、房建和市政工程的曲线大多是圆曲线并且设计仅给两端点和半径而无曲线要素的前提下，利用圆曲线两端点和半径，基于圆心点座标数学精确解析圆弧上任意点座标。二、程序清单：Lbl 0:CLS:ABCGR:AX1:BY1:CX2:GY2:RLbl 1:J=0:I=POL(C-A,G-B):JJ=J+360F=J-sin-1(I2R):U=A+Rcos (F+90):V=B+Rsin (F+90)Lbl 2:Cls:LD:LLp:LGoto 0DDp:D=0=D=1E-45Q=Abs DD:T=F-90+(180LR）N=U+Rcos T:E=V+Rsin TX=N+Dcos (T+180Q):Y=E+Dsin (T+180Q)O=0:I=Pol (A-U,B-V):JO=J+360:O=JP=0:I=Pol (C-U,G-V):JP=J+360:P=JJ=P-O:Z=Abs RJ180:Xp=:Int(1E3X+0.5)1E3:Pause 0:Yp=:Int(1E3Y+0.5)1E3Xc=:Int(1E3U+0.5)1E3:Pause 0:Yc=:Int(1E3V+0.5)1E3Cls:Lc=:Int(1E3Z+0.5)1E3Goto 2三、程序说明：1、AX1:BY1:CX2:GY2分别为第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为符号参数，左负右正。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.472Xp=206720.2035Yp=206247.4628Dp=20.329Xp=206730.5087Yp=206210.0553附注：加入圆心坐标和两端点弧长计算功能，并修正了局部代码。希望各位网友不断扩展，并互相交流。QQ：251671595谢谢发贴：+8 分 【测量空间】0查看楼主其它文章返回回复内容只查看楼主与本人回复沙发：2008112509-11-18 23:52 评：+10 分老师我来顶一下!谢谢实用的小程序!2 楼：xingzyhou09-11-19 15:25 评：+8 分不错，说明很清晰3 楼：昊子09-11-19 18:16 评：+10 分早就想要这个程序，能否给编个4800的，万分感激！4 楼：hanniu_1973 楼主 09-11-19 18:50 3楼的朋友，其实4800P与4850P是一类的，只是显示方面有点不同罢，只要把“Xp=:X:Pause 0:Yp=:Y”改为XXp=X:Pause 0:YYp=Y即可。5 楼：zcj00709-11-20 10:38 我也支持老师的作品!6 楼：南雁09-11-20 22:16 评：+10 分老师谢谢!非常实用的程序7 楼：gmh45345309-11-21 17:54 评：+4 分很好用的程序，支持8 楼：小弟。波09-11-22 20:22 F=J-arc 在计算机里面哪里找啊，帮帮忙。9 楼：hanniu_1973 楼主 09-11-23 18:45 8楼的小弟，arc sin就是反正弦，因在记事本里无法输入上标所致。10 楼：小弟。波09-11-23 20:25 那该怎么办啊，无法用这样程序啊，。11 楼：98334289609-11-23 20:48 真是好程序啊，老师啊，能不能转换成5800的程序啊，谢谢，！112 楼：hanniu_1973 楼主 09-11-24 13:21 10楼的小弟，你除非是在搞笑，否则你真是太菜了。arc sin就是反正弦sin-1，直接输入就可，请多多看4850P说明书。13 楼：3280266009-12-3 19:45 老师啊，能不能把这个程序改成5800可以用的啊，谢谢了！期待啊！14 楼：hanniu_1973 楼主 09-12-4 9:2 13楼的朋友，不好意思，我没有5800计算器，不过5800亦可参照4800系列来编，只是语句转换而已，你可参照5800说明书来改即可，（其实计算器程序关键的是数学建模+简单的算法就可编出适用的程序。）15 楼：猫眠花下09-12-4 15:26 好程序,可以修改下加数据库放隧道同心圆的超欠挖样.16 楼：长江不肖生10-4-1 13:13 我有点不太明白这个程序，能够计算圆曲线上任间意一点的坐标吗17 楼：长江不肖生10-4-1 16:55 怎么回事？输入两端点的坐标后，输入R的关径值就出错18 楼：hanniu_1973 楼主