User Portlet
| Discussions |
|---|
| param = {z0 -> 0, v0 -> 0, g -> 9.81 , k -> 0.2}; p1 = Plot[{z[t] /. param}, {t, 0, 20}, PlotStyle -> {RGBColor[0, 160, 1]}, PlotLabel -> "z[t]", AxesLabel -> {t, z}] p2 = Plot[{vz[t] /. param}, {t, 0, 20}, PlotRange ->... |
| Does someone have any idea how to make it or from where to start. ![enter image description here][1] [1]: http://community.wolfram.com//c/portal/getImageAttachment?filename=dd.jpg&userId=832188 |