作业帮 > 综合 > 作业

如何用mathematic 做切线

来源:学生作业帮 编辑:百度作业网作业帮 分类:综合作业 时间:2024/08/09 02:29:50
如何用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]])}
}]}
]