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

圆曲线（已知两点和半径）座标计算程序 for 4850P 圆曲线（已知两点和半径）座标计算程序 for 4850P一、编制原理： 因景观工程、房建和市政工程的曲线大多是圆曲线并且设计仅给两端点和半径而无曲线要素的前提下，利用圆曲线两端点和半径，基于圆心点座标数学精确解析圆弧上任意点座标。二、程序清单：Lbl 0:CLS: ABCGR :AX1:BY1:CX2:GY2:RLbl 1:J 0:I POL C-A,G-B :J 0 J J+360F J-sin-1 I÷2÷R :U A+Rcos F+90 :V B+Rsin F+90 Lbl 2:Cls: LD :LLp:L 0 Goto 0△DDp:D 0 D 1E-45△Q Abs D÷D:T F-90+ 180L÷R÷π）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 :J 0 O J+360:≠ O JP 0:I Pol C-U,G-V :J 0 P J+360:≠ P J△J P-O:Z Abs RJπ÷180:Xp :Int 1E3X+0.5 ÷1E3:Pause 0:Yp :Int 1E3Y+0.5 ÷1E3▲Xc :Int 1E3U+0.5 ÷1E3:Pause 0:Yc :Int 1E3V+0.5 ÷1E3▲Cls:Lc :Int 1E3Z+0.5 ÷1E3▲Goto 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.472????Xp 206720.2035????Yp 206247.4628Dp 20.329????Xp 206730.5087????Yp 206210.0553附注：加入圆心坐标和两端点弧长计算功能，并修正了局部代码。 希望各位网友不断扩展，并互相交流。 QQ：座机电话号码5谢谢发贴：+8 分 【测量空间】celiang.net[0 查看楼主其它文章?? 返回 →?回复内容 只查看楼主与本人回复 沙发：座机电话号码 09-11-18 23:52 评：+10 分 老师我来顶一下!谢谢实用的小程序!! 2 楼：xingzyhou 09-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 楼：zcj007 09-11-20 10:38 我也支持老师的作品! 6 楼：南雁 09-11-20 22:16 评：+10 分 老师谢谢!非常实用的程序 7 楼：gmh453453 09-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 楼：座机电话号码6 09-11-23 20:48 真是好程序啊，老师啊，能不能转换成5800的程序啊，谢谢，！！！！！1 12 楼：hanniu_1973 楼主 09-11-24 13:21 10楼的小弟，你除非是在搞笑，否则你真是太菜了。arc sin就是反正弦si