Mathematica画图的一个问题

Mathematica画图的一个问题
sol = Solve[{m^2 + n^2 == 36,(m - 7)^2 + n^2 == 25},{m,n}][[1]];
{m,n} /.sol;
p3 = ContourPlot[(x - m)^2 + (y - n)^2 == 4,{x,-10,10},{y,-10,10}];
Show[p3]
以上语句是想从方程中解出m、n两个数(用“[[1]]”取第一组解),然后以(m,n)为圆心画圆.可是画出来的是一片空白.
my141421 1年前 已收到1个回答 举报

Rr_Chris 春芽

共回答了22个问题采纳率:95.5% 举报

问题在于变量m,n并没得到赋值,或者说不存在变量m,n,你的程序还没有定义它们.
{m,n} /.sol只是按规则替代,替代完后形式哑元m,n的使命完成了,生命也就完结了.
改成赋值语句{m,n} = {m,n} /.sol即可

1年前

2
可能相似的问题
Copyright © 2024 YULUCN.COM - 雨露学习互助 - 16 q. 0.026 s. - webmaster@yulucn.com