그림:Moment of inertia cone.png - 위키백과

# 그림:Moment of inertia cone.png

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

- 그림
- 파일 역사
- 그림 고리

Moment_of_inertia_cone.png‎ (3KB, MIME 종류: `image/png`)

이 자료는 위키미디어 공용에 있습니다. 해당 문서의 자료에 대한 설명이 아래에 있습니다.

## [edit] Summary

Description | MetaPost image of a cone, 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 cone =
      begingroup;
      save pmax,dmax,persp,persp_nt,tens,arr;
      save harr,rarr;
      save p,d;
      save axisprotrusion;
      save xax,yax,zax;
      save height,width,heightu,widthu;
      pmax = 2; dmax = 0;
      persp_nt = 0.5;
      tens = 2-persp_nt;
      persp = persp_nt*u;
      arr = 0.3u; % how far to offset the arrows from the diagram
      axisprotrusion = 0.4u;  % how far do the axes protrude?
      pair harr[],rarr[]; % 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
      % parameters for the actual cone
      height = 1;
      width = 1.5;
      heightu = height*u;
      widthu = width*u;
      % solid paths
      p0 = (0,0)--(widthu/2,heightu);
      p1 = (0,0)--(-widthu/2,heightu);
      p2 = fullcircle scaled u xscaled width yscaled persp_nt shifted (0,heightu);
      % dotted paths
      % don't draw this; it's reference for the y-axis
      d99 = halfcircle scaled u xscaled 2 yscaled (2*persp_nt) rotated 180;
      % endpoints of dimension arrows
      harr0 = (widthu/2,0);
      harr1 = (widthu/2,heightu);
      rarr0 = (0,heightu);
      rarr1 = (widthu/2,heightu);

      % actually draw
      pickup pencircle scaled 1pt;
      for i=0 upto pmax:
        draw p[i];
      endfor;
      drawdblarrow (harr0..harr1);
      label.rt(btex $h$ etex scaled textscale,.5[harr0,harr1]);
      drawdblarrow (rarr0..rarr1);
      label.top(btex $r$ etex scaled textscale,.3[rarr0,rarr1]);
      % x axis
      xax0 = (0,0);
      xax1 = (widthu/2+arr,0);
      drawarrow (xax0..xax1);
      label.rt(btex $x$ etex scaled textscale,xax1);
      % y axis
      yax0 = (0,0);
      yax1 = point 1 of d99;
      yax2 = (width*persp_nt)[yax0,yax1];
      drawarrow (yax0..yax2);
      label.bot(btex $y$ etex scaled textscale,yax2);
      % z axis
      zax0 = (0,0);
      zax1 = (0,heightu);
      zax2 = (0,heightu+axisprotrusion);
      drawarrow (zax1..zax2);
      draw zax0..zax1 dashed evenly;
      label.top(btex $z$ etex scaled textscale,zax2);
      endgroup;
    enddef;

    beginfig(1)
      cone;
    endfig;

## [edit] Licensing

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.

## 그림 고리

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

- 관성 모멘트의 목록

원본 주소 "http://ko.wikipedia.org../../../m/o/m/%EA%B7%B8%EB%A6%BC%7EMoment_of_inertia_cone.png_cffc.html"

##### Views

- 그림
- 토론
- 현재 버전

##### 찾기