一道代码测试题: 做圆的切线.

ggggwhw

1. a=Input["输入a点坐标{x,y}"];
   
2. b=Input["输入b点坐标{x,y}"];
   
3. (*请补充代码,完成后面的要求:
   
4. 画出以a为圆心,以ab长度为半径的圆在b点处的切线,切线长度不做要求,注意充分考虑特殊情况,如:a,b的纵坐标相同的情况.*)
   

复制代码

下面的初值用来测试:

1. a={1,2};
   
2. b={1,3};
   

复制代码

1. a={1,2};
   
2. b={3,4};
   

复制代码

1. a={1,2};
   
2. b={3,2};
   

复制代码

jimogsh

1. Graphics[{Circle[a, EuclideanDistance[a, b]], Line[{a, b}],
   
2.   Rotate[Line[{a, b}], 90 Degree, b]}, Axes -> True,
   
3. AxesOrigin -> {0, 0}]

复制代码

要求输入a,b坐标的时候带上大括号。

jimogsh

把这个帖子顶上来,顺便问一下:如何画两个圆的切线?两个圆的圆心和半径都知道,用Graphics函数,尽量不去"算"而是"画"出切线来?

HyperGroups

:$
可以用一定的模式生成一系列线
然后用图像分析方法确定哪条线是切线
:)