Novos Recursos do
Mathematica
8: Principais Algoritmos Novos e Melhorados
◄
anterior
|
próximo
►
Principais Algoritmos
Encontre Soluções Reais Parametrizadas em Sistemas de Equações
Soluções reais para
para sete valores de parâmetros para
.
In[1]:=
X
sol = {x, y, z} /. Solve[x^2 + y^2 == z^2 && x + y + a z == 1, {x, y}, Reals]; Show[{ContourPlot3D[ x^2 + y^2 == z^2, {x, -1, 1}, {y, -1, 1}, {z, 0, 1}], Table[ParametricPlot3D[Tooltip[sol], {z, 0, 1}, PlotStyle -> {{Thickness[0.01], Hue[0.12 a]}}], {a, 7}]}, ViewPoint -> {-2, 2, -10}, Boxed -> False, Axes -> False]
Out[1]=