如何用mathematic 做切线

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/05 16:04:53
如何用mathematic 做切线
x){ީϧM,H Og=hkMR>v6Ęb䧭KDtӹ-hWЩ*,M̫SU6Q0F4i'm)`m&: m'X؃?91/;1HMWj/D{QbAFfrqtsfQrNj4TVG/(ꏍSPK+עWC `mp%LU@ҭ($m4]4_@uI(R|lm,k_\gJ#B

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