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. |