如何用mathematic 做切线

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/29 04:45:32
如何用mathematic 做切线

如何用mathematic 做切线
如何用mathematic 做切线

如何用mathematic 做切线
(*输入区*)
(*输入圆心坐标 {x,y}*)
yuanxin = {3, 4};
(*输入切点坐标 {x,y}*)
qiedian = {4, 3};
(*运行区*)
cankaodian = 2 qiedian - yuanxin;
Graphics[{Circle[yuanxin, Norm[yuanxin - qiedian]],
Line[{yuanxin, qiedian}],
Line[{{1/
2 (yuanxin[[1]] + cankaodian[[1]] + yuanxin[[2]] -
cankaodian[[2]]),
1/2 (-yuanxin[[1]] + cankaodian[[1]] + yuanxin[[2]] +
cankaodian[[2]])}, {1/
2 (yuanxin[[1]] + cankaodian[[1]] - yuanxin[[2]] +
cankaodian[[2]]),
1/2 (yuanxin[[1]] - cankaodian[[1]] + yuanxin[[2]] +
cankaodian[[2]])}
}]}
]