I did a 2D plot of the following equation using Mathematica. Could some help me with the right command in Mathematica to convert the output into a 3D model?
K0=(K1*(α-μ)*((α*μ)-μ-2))/(2*(α+1)*〖(μ+1)〗^2 )
J=K0//.{K1→1,μ→0.02};
L=K0//.{K1→1,μ→0.05};
M=K0//.{K1→1,μ→0.1};
Plot[{J,L,M},{α,0,10},PlotRange→{{-0.5,10},{-1,1.}},PlotStyle→{{Dashed,Blue},{Dashing,Black},{Dashed,Orange},AspectRatio→1.,ImageSize→Large]
iwilliams
October 19, 2020, 7:46am
2
Perhaps Plot3D or ListPlot3D?
I tried Plot3D. But there is always an error and unable to get output.
hansmilton
October 19, 2020, 10:54am
4
ParametricPlot3D will give you a curve in 3D
K0 = (K1*(\[Alpha] - \[Mu])*((\[Alpha]*\[Mu]) - \[Mu] - 2))/(2*(\[Alpha] + 1)*(\[Mu] + 1)^2)
J = K0 /. {K1 -> 1, \[Mu] -> 0.02};
L = K0 /. {K1 -> 1, \[Mu] -> 0.05};
M = K0 /. {K1 -> 1, \[Mu] -> 0.1};
ParametricPlot3D[{J, L, M}, {\[Alpha], 0, 10}]
