File:Gravity well plot.svg

From Wikimedia Commons, the free media repository

Jump to: navigation, search

Gravity_well_plot.svg(SVG file, nominally 600 × 232 pixels, file size: 365 KB)

[edit] Summary

Graph of gravity well. Above: Distortion of space-time. Below: Gravitational potential function.

Asymptote source code:

import graph3;

typedef real fun(real);

fun Phi(real R, real GM_R, real shift=0) {
  return new real(real r) {
    real r_R = abs(r) / R;
    if (r_R >= 1)
      return -GM_R / r_R + shift;
    else
      return 0.5 GM_R * (r_R^2 - 3) + shift;
  };
}

typedef real fun2(pair);
fun2 revolve(fun f) { return new real(pair z) { return f(abs(z)); }; }

size(300,0);
currentprojection=perspective(0,20,4);
add(surface(revolve(Phi(2,7)), nsub=4, (-12,-12), (12,12), nx=20, light=O));
draw(graph(Phi(2,7,-10),-24,24));

[edit] Licensing

Public domain I, the copyright holder of this work, hereby release it into the public domain. This applies worldwide.

In case this is not legally possible:
I grant anyone the right to use this work for any purpose, without any conditions, unless such conditions are required by law.


Afrikaans | Alemannisch | Aragonés | العربية | Asturianu | Azərbaycan | Беларуская (тарашкевіца) | Български | Català | Cebuano | Soranî / کوردی | Česky | Cymraeg | Dansk | Deutsch | Ελληνικά | English | Esperanto | Español | Eesti | Euskara | Estremeñu | فارسی | Suomi | Français | Galego | עברית | हिन्दी | Hrvatski | Magyar | Հայերեն | Bahasa Indonesia | Ido | Íslenska | Italiano | 日本語 | ქართული | ភាសាខ្មែរ | 한국어 | Ripoarisch | Kurdî / كوردی | Latina | Lietuvių | Latviešu | 文言 | Македонски | Bahasa Melayu | Plattdüütsch | Nederlands | ‪Norsk (nynorsk)‬ | ‪Norsk (bokmål)‬ | Polski | Português | Română | Русский | Slovenčina | Slovenščina | Shqip | Српски / Srpski | Svenska | ไทย | Tagalog | Türkçe | Українська | Vèneto | Tiếng Việt | Walon | 吴语 | 中文 | ‪中文(简体)‬ | ‪中文(繁體)‬ | 粵語 | +/−

File history

Click on a date/time to view the file as it appeared at that time.

Date/TimeThumbnailDimensionsUserComment
current22:42, 17 September 2007Thumbnail for version as of 22:42, 17 September 2007600×232 (365 KB)AnonMoos (talk | contribs) (Fixing SVG)
22:19, 17 September 2007Thumbnail for version as of 22:19, 17 September 2007300×116 (376 KB)BenRG (talk | contribs) (Asymptote source code: import graph3; typedef real fun(real); fun Phi(real R, real GM_R, real shift=0) { return new real(real r) { real r_R = abs(r) / R; if (r_R >= 1) return -GM_R / r_R + shift; else return 0.5 GM_)

There are no pages that link to this file.

Global file usage

The following other wikis use this file: