minimalne1.nb

implicitno

In[245]:=

$RowBox[{ContourPlot3D, [, RowBox[{E^z * Cos[x] - Cos[y], ,, {x, -6, 6}, ,, {y, -6, 6}, ,, {z, ... 4;, RowBox[{dip, [, RowBox[{EdgeForm, [, RowBox[{AbsoluteThickness, [, 0.1, ]}], ]}], ]}]}]}], ]}]$

[Graphics:../HTMLFiles/index_193.gif]

Out[245]=

Created by Mathematica (April 30, 2004)