그림:Moment of inertia solid sphere.png

위키백과 ― 우리 모두의 백과사전.

No higher resolution available.

Moment_of_inertia_solid_sphere.png (147 × 135 pixel, file size: 2 KB, MIME type: image/png)

위키미디어 공용 로고 이 자료는 위키미디어 공용에 있습니다. 이 자료에 대한 설명이 아래에 있습니다.

[edit] Summary

[edit] Summary

Description

MetaPost image of a sphere, with dimensions and axes specified. Embedded in a TeX document, viewed with gv, rasterized via screenshot, saved as PNG with The Gimp, and compressed with optipng.

Source

en.wikipedia.org

Date

unknown

Author

Grendelkhan

Permission

Grendelkhan

MetaPost source of the image follows.

u=18mm;
textscale=u/12mm;
% this MetaPost script generates a PostScript file, which is then included in a
% TeX document. if you want to generate EPS from this, you'll have to uncomment
% the following line. (and probably do a couple more things, to boot.)
%prologues := 1;
def sphere =
  begingroup;
  save pmax,dmax,persp,persp_nt,tens,arr;
  save rarrlft,rarrrt;
  save p,d;
  save axisprotrusion;
  save xax,yax,zax;
  pmax = 0; dmax = 1;
  persp_nt = 0.3;
  tens = 2-persp_nt;
  persp = persp_nt*u;
  arr = 0.3u; % how far to offset the arrows from the diagram
  axisprotrusion = 0.3u;  % how far do the axes protrude?
  pair rarrlft,rarrrt; % endpoints for arrows
  path p[],d[]; % just plain paths for now
  pair xax[],yax[],zax[]; % x,y,z are taken; these are for the axes
  % solid paths
  p0 = fullcircle scaled 2u;
  % dotted paths
  d0 = halfcircle scaled u xscaled 2 yscaled (2*persp_nt);
  d1 = halfcircle scaled u xscaled 2 yscaled (2*persp_nt) rotated 180;
  % endpoints of dimension arrows
  rarrlft = (0,0);
  rarrrt = (sqrt(0.5)*u,sqrt(0.5)*u);
  % actually draw
  pickup pencircle scaled 1pt;
  for i=0 upto pmax:
    draw p[i];
  endfor;
  for i=0 upto dmax:
    draw d[i] dashed evenly;
  endfor;
  drawdblarrow (rarrlft..rarrrt);
  label.top(btex $r$ etex scaled textscale,.5[rarrlft,rarrrt]);
  % x axis
  xax0 = (0,0);
  xax1 = (1u,0);
  xax2 = (1u+axisprotrusion,0);
  drawarrow (xax1..xax2);
  draw xax0..xax1 dashed evenly;
  label.rt(btex $x$ etex scaled textscale,xax2);
  % y axis
  yax0 = (0,0);
  yax1 = point 1 of d1;
  yax2 = (1.3+axisprotrusion/u)[yax0,yax1];
  drawarrow (yax1..yax2);
  draw yax0..yax1 dashed evenly;
  label.bot(btex $y$ etex scaled textscale,yax2);
  % z axis
  zax0 = (0,0);
  zax1 = (0,1u);
  zax2 = (0,1u+axisprotrusion);
  drawarrow (zax1..zax2);
  draw zax0..zax1 dashed evenly;
  label.top(btex $z$ etex scaled textscale,zax2);
  endgroup;
enddef;
beginfig(1)
  sphere;
endfig;

[edit] Licensing

GNU head 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.
Subject to disclaimers.

다음 문서들이 이 그림을 사용하고 있습니다: