File:Gravitywell with ellipse.jpg
No higher resolution available.
Gravitywell_with_ellipse.jpg (360 × 292 pixels, file size: 19 KB, MIME type: image/jpeg)
Summary
[edit]
| Description |
surface simulating a gravity well, with an ellipse drawn on the surface |
|---|---|
| Source |
Mathematica 9.0 |
| Date |
March 21, 2019 |
| Author | |
| Permission (Reusing this file) |
See below.
|
- Other information
surf[{x_, y_}] := -Exp[-.5 (x^2 + y^2)] ; (* surface *) curve[t_] := {0.5 + 2 Sin[t], - 1.5 Cos[t]} ; (* curve(ellipse) to plot on surface *) plot1 = Plot3D[surf[{x, y}], {x, -3, 3}, {y, -3, 3}, Boxed -> False, Axes -> False] ; plot2 = ParametricPlot3D[Flatten[{curve[t], surf[curve[t]]}], {t, 0, 2 Pi}, PlotStyle -> {Thick, Red}] ; plots = Show[ plot1, plot2 ] Export["C:\\junk\\plots1.png", plots]
Licensing
[edit]
I, the copyright holder of this work, hereby publish it under the following licenses:
 | Permission is granted to copy, distribute and/or modify this document under the terms of the GNU Free Documentation License, Version 1.2 or any later version published by the Free Software Foundation; with no Invariant Sections, no Front-Cover Texts, and no Back-Cover Texts. |
   | This work is licensed under the Creative Commons Attribution-ShareAlike 4.0 License. |
You may select the license of your choice.
File history
Click on a date/time to view the file as it appeared at that time.
| Date/Time | Thumbnail | Dimensions | User | Comment | |
|---|---|---|---|---|---|
| current | 23:22, 21 March 2019 | | 360 × 292 (19 KB) | MathPerson (talk | contribs) | Uploading a self-made file using File Upload Wizard |
You cannot overwrite this file.
File usage
The following 2 pages use this file:
