有问题就有答案
怎样用mathematica软件将两个三维图形和在一起
用 Show
a = Plot3D[Sin[x + y],{x,-2,2},{y,-2,2}];
b = ContourPlot3D[
x^2 + y^2 - z^2 == 0,{x,-2,2},{y,-2,2},{z,-2,2}];
Show[a,b]
Ipad 或平板电脑能用Mathematica matlab等软件吗
mathematica软件,已知y[x],Y=f1(x),X(x)=f2(x),如何plot Y[X]
参数方程曲线绘制用ParametricPlot函数.
y[x_] := x + 9.81/2*x*x;
k = 1;
X[x_] := x - k*y'[x]/(1 + (y'[x])^2)^0.5;
Y[x_] := y[x] + k/(1 + (y'[x])^2)^0.5;
ParametricPlot[{X[x], Y[x]}, {x, 0, 2}, AspectRatio->1]
你运行下看是不是你想要的?
再问: ClearAll["Global`*"] y[x_] := x*x; x[x_] := x; k = 1; X[x_] := x - k*y'[x]/(1 + (y'[x])^2)^0.5 Y[x_] := y[x] + k/(1 + (y'[x])^2)^0.5 ParametricPlot[{{X[x], Y[x]}, {y[x], x[x]}}, {x, 0, 2}] plot里面给定x的范围是0-2,但是显示的不是这个范围?Plot[{{X[x], Y[x]}, {y[x], x[x]}}, {x, 0, 2}],结果出来3条线?请再帮忙看看,谢谢
再答: y[t_] := t*t; x[t_] := t; k = 1; X[t_] := t - k*y'[t]/(1 + (y'[t])^2)^0.5; Y[t_] := y[t] + k/(1 + (y'[t])^2)^0.5; ParametricPlot[{{X[t], Y[t]}, {x[t], y[t]}}, {t, 0, 2}] 我改了下形参,以免参数x和函数x可能会.另,ParametricPlot要X轴写在前面Y轴写在后面. 你再试试看?