如何用mathematic 做切线

来源:学生作业帮助网 编辑:六六作业网 时间:2024/05/13 23:41:03
如何用mathematic做切线如何用mathematic做切线如何用mathematic做切线(*输入区*)(*输入圆心坐标{x,y}*)yuanxin={3,4};(*输入切点坐标{x,y}*)q

如何用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]])}
}]}
]