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]]”

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/08 04:16:35
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]]”

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]]”
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)为圆心画圆.可是画出来的是一片空白.

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

mathematica 关于函数叠加的画图问题f[x_] := 2*x /; 1 一个Mathematica函数定义问题 问一个关于Mathematica的问题为什么没有图像? mathematica画图问题如何画3x^2+2y^2=1的图像?(参数方程除外) 用Mathematica 8.0 画图 mathematica解方程的问题我用mathematica解一个方程,然后得到:y->f(a,b,c) (abc是一些参数,f是这个方程的解,程序里的出的是一串式子),然后我想把y当成c的函数,画图,求微分,什么什么的,怎么办? mathematica的问题mathematica 可以计算二重积分吗? mathematica 知道顶点坐标 怎么画图比如知道四面体的四个顶点坐标,怎么画图? mathematica画图问题怎么画由y=0,x=1,y=x,围成的图形,并把它的内部填充 mathematica 画图帮我看看这是哪儿出了问题 matlab 画图的问题, mathematica中出现的问题,怎么回事啊 求救:mathematica解一个微分方程组并画图将v=0.9代入后求救.拜谢! mathematica函数画图 在mathematica中对(x-1)^{2/3}(x+1)^{1/3}画图 怎么 出不来 [-1,1]的图? mathematica画图如何找交点 mathematica画图如何让两条线的交点自动显示出坐标?(我只要直线就可以了,麻烦给个例子) 有关Mathematica求最大值的问题请大师们帮帮忙,我根据一个函数画图,图画出来了,但相关的最大点如何求解?比如y=sinx,画出图后,但我想知道y=0.05时x的值,用什么命令,或者,我想知道y的最大值,如 mathematica画图问题如何用mathematica画圆锥和圆柱?举个例子,比如圆锥z=x^2+y^2,圆柱x^2+y^2=1 mathematica 7.0画图问题,怎么画分段的周期函数?像画一个分段的周期函数,写了如下的代码:Clear[f,g,h,x];f[x_] := If[(x >= 0) && (x <= 5), 0.2*x,-0.2*x + 2] /; (x >= 0) && (x <= 10);g[x_] := f[x