易语言两圆相交取交点

D ＝ 求平方根 (求次方 (取绝对值 (x2 － x1), 2) ＋ 求次方 (取绝对值 (y2 － y1), 2))
.判断开始 (D ＞ 到整数 (r1 ＋ r2) 或 D ＜ 取绝对值 (r1 － r2))
' 调试输出 (“两个圆没有交集”)
.判断 (D ＝ 0 且 r1 ＝ r2)
' 调试输出 (“两个圆中心相同”)
.默认
A ＝ 到小数 (求次方 (r1, 2) － 求次方 (r2, 2) ＋ 求次方 (D, 2)) ÷ 到小数 (2 × D)
H ＝ 求平方根 (求次方 (r1, 2) － 求次方 (A, 2))
X_2 ＝ x1 ＋ A × 到小数 (x2 － x1) ÷ D
Y_2 ＝ y1 ＋ A × 到小数 (y2 － y1) ÷ D
易语言两圆相交取交点例子。