Archivo:Moment of inertia solid cylinder.svg

De testwiki
Ir a la navegación Ir a la búsqueda
Archivo original (archivo SVG, nominalmente 200 × 223 píxeles, tamaño de archivo: 16 kB)

Este archivo es de Wikimedia Commons y puede usarse en otros proyectos. La descripción en su página de descripción del archivo se muestra debajo.

Resumen

Descripción
English: Illustration of the moment of inertia of a solid cylinder.
Fecha
Fuente SVG rendering of the program used to generate the bitmap image Image:Moment_of_inertia_solid_cylinder.png
Autor
  • Original MetaPost program by en:User:Grendelkhan
  • Program tweaked to avoid negative coordinates in PostScript output and rendered as SVG by Qef
  • Swap x and y axis to give right handed coordinate system by billingd on 2017-05-20
Otras versiones Bitmap rendering of almost identical program: Image:Moment_of_inertia_solid_cylinder.png
SVG desarrollo
InfoField
 El código fuente de esta imagen SVG es válido.
 Este gráfico vectorial fue creado con MetaPost
Código fuente
InfoField

PostScript code

metapost-source 
prologues := 3;

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

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 = point 1.5 of p3 shifted (0,1u);
  xax2 = (1.+axisprotrusion/u)[xax0,xax1];
  drawarrow (xax1..xax2);
  draw xax0..xax1 dashed evenly;
  label.rt(btex $y$ etex scaled textscale,xax2);
  % y axis
  yax0 = (0,0);
  yax1 = (1u,0);
  yax2 = (1u+axisprotrusion*0.5,0);
  drawarrow (yax1..yax2);
  draw yax0..yax1 dashed evenly;
  label.top(btex $x$ 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;
  currentpicture := currentpicture shifted (100,100); % avoid unwanted clipping
endfig;
end

Data

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
pdf2svg fig.pdf fig.svg

Licencia

Grendelkhan at the English Wikipedia, titular de los derechos de autor de esta obra, la publica en los términos de la siguiente licencia:
GNU head Se autoriza la copia, distribución y modificación de este documento bajo los términos de la licencia de documentación libre GNU, versión 1.2 o cualquier otra que posteriormente publique la Fundación para el Software Libre; sin secciones invariables, textos de portada, ni textos de contraportada. Se incluye una copia de la dicha licencia en la sección titulada Licencia de Documentación Libre GNU.
w:es:Creative Commons
atribución compartir igual 		Este archivo se encuentra bajo la licencia Creative Commons Genérica de Atribución/Compartir-Igual 3.0.
Atribución:
Grendelkhan at the English Wikipedia
Eres libre:
  • de compartir – de copiar, distribuir y transmitir el trabajo
  • de remezclar – de adaptar el trabajo
Bajo las siguientes condiciones:
  • atribución – Debes otorgar el crédito correspondiente, proporcionar un enlace a la licencia e indicar si realizaste algún cambio. Puedes hacerlo de cualquier manera razonable pero no de manera que sugiera que el licenciante te respalda a ti o al uso que hagas del trabajo.
  • compartir igual – En caso de mezclar, transformar o modificar este trabajo, deberás distribuir el trabajo resultante bajo la misma licencia o una compatible como el original.
Esta etiqueta de licencia fue agregada a este archivo como parte de la actualización de la licencia GFDL.

Leyendas

Añade una explicación corta acerca de lo que representa este archivo

Elementos representados en este archivo

representa a

Historial del archivo

Haz clic sobre una fecha y hora para ver el archivo tal como apareció en ese momento.

Fecha y horaMiniaturaDimensionesUsuarioComentario
actual15:45 19 may 2017Miniatura de la versión del 15:45 19 may 2017200 × 223 (16 kB)wikimediacommons>BillingdUpdate metapost code to swap x and y axes to give a right handed coordinate system. Regenerate svg.

Las siguientes páginas usan este archivo:

Obtenido de «https://es.wiki.beta.math.wmflabs.org/wiki/Archivo:Moment_of_inertia_solid_cylinder.svg»