File:Moment of inertia cone.svg

From Wikimedia Commons, the free media repository
Jump to navigation Jump to search

Original file (SVG file, nominally 208 × 214 pixels, file size: 14 KB)

Captions

Captions

engls

Summary

[edit]
Description
English: Illustration of the moment of inertia of a cone.
Date
Source SVG rendering of the program used to generate the bitmap image Image:Moment_of_inertia_cone.png
Author
  • Original MetaPost program by en:User:Grendelkhan
  • Program tweaked to avoid negative coordinates in PostScript output and rendered as SVG by Qef
  • Manually edited in inkscape to fixing intersection by Wiso
Other versions Bitmap rendering of almost identical program: Image:Moment_of_inertia_cone.png
SVG development
InfoField
 
The SVG code is valid.
 
This vector image was created with MetaPost.
Source code
InfoField

PostScript code

metapost-source 
prologues := 3;

u=18mm;
textscale=u/12mm;

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;
  currentpicture := currentpicture shifted (100,100); % avoid unwanted clipping
endfig;
end

Commands code

mpost fig.mp
ps2pdf -dEPSCrop fig.1 fig.pdf
pstoedit -page 1 -dt -xscale 2 -yscale 2 -f sk fig.pdf fig.sk
inkscape -z --vacuum-defs -f fig.sk -l fig.svg

Licensing

[edit]
Grendelkhan at the English Wikipedia, the copyright holder of this work, hereby publishes it under the following license:
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. A copy of the license is included in the section entitled GNU Free Documentation License.
w:en:Creative Commons
attribution share alike 		This file is licensed under the Creative Commons Attribution-Share Alike 3.0 Unported license.
Attribution: Grendelkhan at the English Wikipedia
You are free:
  • to share – to copy, distribute and transmit the work
  • to remix – to adapt the work
Under the following conditions:
  • attribution – You must give appropriate credit, provide a link to the license, and indicate if changes were made. You may do so in any reasonable manner, but not in any way that suggests the licensor endorses you or your use.
  • share alike – If you remix, transform, or build upon the material, you must distribute your contributions under the same or compatible license as the original.
This licensing tag was added to this file as part of the GFDL licensing update.

File history

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

Date/TimeThumbnailDimensionsUserComment
current11:12, 23 September 2008Thumbnail for version as of 11:12, 23 September 2008208 × 214 (14 KB)Wiso (talk | contribs){{Information |Description= |Source= |Date= |Author= |Permission= |other_versions= }}
22:36, 9 July 2008Thumbnail for version as of 22:36, 9 July 2008208 × 214 (12 KB)Qef (talk | contribs){{Information |Description={{en|1=Illustration of the moment of inertia of a cone.}} |Source=SVG rendering of the program used to generate the bitmap image Image:Moment_of_inertia_cone.png |Author=* Original MetaPost program by [[en:User:Grendelkhan]

You cannot overwrite this file.

The following page uses this file:

File usage on other wikis

The following other wikis use this file:

Retrieved from "https://commons.wikimedia.org/w/index.php?title=File:Moment_of_inertia_cone.svg&oldid=645589829"