User Portlet
Discussions |
---|
An alternative (Mathematica is so flexible):f[j_] := Total[2/(Drop[Range[100], {j}] - j)] |
Thank you its work well |
You may try this:Z1[x_,y_]:=1; Z2[x_,y_]:=Cos[x]*Sin[y]; Plot3D[{Z1[x,y],Z2[x,y]},{x,-3,3},{y,-3,3}] |
Thank you very much my dear friend, I do feel grateful to you. |