그림:Moment of inertia solid cylinder.png

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

No higher resolution available.

Moment_of_inertia_solid_cylinder.png (168 × 188 pixel, file size: 2 KB, MIME type: image/png)

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

[edit] Summary

Description

MetaPost image of a cylinder, 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 cylinder =
  begingroup;
  save pmax,dmax,persp,persp_nt,arr;
  save harrtop,harrbot,rarrlft,rarrrt;
  save p,d;
  save axisprotrusion;
  save xax,yax,zax;
  pmax = 3; dmax = 0;
  persp_nt = 0.3;
  persp = persp_nt*u;
  arr = 0.2u; % how far to offset the arrows from the diagram
  axisprotrusion = 1u;  % how far do the axes protrude?
  pair harrtop,harrbot,rarrlft,rarrrt; % endpoints for arrows
  path p[],d[]; % original, dotted
  pair xax[],yax[],zax[]; % x,y,z are taken; these are for the axes
  % solid paths
  p0 = (-1u,-1u)--(-1u,1u);
  p1 = (1u,-1u)--(1u,1u);
  p2 = fullcircle scaled u xscaled 2 yscaled (2*persp_nt) shifted (0,1u);
  p3 = halfcircle scaled u xscaled 2 yscaled (2*persp_nt) rotated 180 shifted (0,-1u);
  % dashed paths
  d0 = halfcircle scaled u xscaled 2 yscaled (2*persp_nt) shifted (0,-1u);
  % endpoints of dimension arrows
  harrtop = (-1u-arr,1u);
  harrbot = (-1u-arr,-1u);
  rarrlft = (0,1u);
  rarrrt = (1u,1u);
  % 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 (harrtop..harrbot);
  drawdblarrow (rarrlft..rarrrt);
  label.lft(btex $h$ etex scaled textscale,.5[harrtop,harrbot]);
  label.top(btex $r$ etex scaled textscale,.5[rarrlft,rarrrt]);
  % x axis
  xax0 = (0,0);
  xax1 = (1u,0);
  xax2 = (1u+axisprotrusion*0.5,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.5 of p3 shifted (0,1u);
  yax2 = (1.+axisprotrusion/u)[yax0,yax1];
  drawarrow (yax1..yax2);
  draw yax0..yax1 dashed evenly;
  label.top(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)
  cylinder;
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.

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