File:Moment of inertia solid sphere.svg

頁面內容不支援其他語言。
這個檔案來自維基共享資源
維基百科，自由的百科全書

原始檔案 ‎（SVG 檔案，表面大小：277 × 255 像素，檔案大小：11 KB）

摘要

描述
English: Illustration of the moment of inertia of a solid sphere.
日期
來源 SVG rendering of the program used to generate the bitmap image Image:Moment_of_inertia_solid_sphere.png
作者
  • Original MetaPost program by en:User:Grendelkhan
  • Program tweaked adjust axes labels and fill in the grey circle to match bitmap version and to avoid negative coordinates in PostScript output and rendered as SVG by Qef
SVG開發
InfoField
 
本SVG檔案的原始碼通過W3C驗證。
 
本向量圖形使用MetaPost創作。
原始碼
InfoField

PostScript code

metapost-source 
prologues := 3;

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

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:
    fill p[i] withcolor (0.86, 0.86, 0.86);
    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 $y$ 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 $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)
  sphere;
  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

授權條款

Grendelkhan at the English Wikipedia，此作品的版權所有人，決定用以下授權條款發佈本作品：
GNU head 已授權您依據自由軟體基金會發行的無固定段落、封面文字和封底文字GNU自由文件授權條款1.2版或任意後續版本，對本檔進行複製、傳播和／或修改。該協議的副本列在GNU自由文件授權條款中。
w:zh:創用CC
姓名標示 相同方式分享 		此檔案採用創用CC 姓名標示-相同方式分享 3.0 未在地化版本授權條款。
姓名標示: Grendelkhan at the English Wikipedia
您可以自由：
  • 分享 – 複製、發佈和傳播本作品
  • 重新修改 – 創作演繹作品
惟需遵照下列條件：
  • 姓名標示 – 您必須指名出正確的製作者，和提供授權條款的連結，以及表示是否有對內容上做出變更。您可以用任何合理的方式來行動，但不得以任何方式表明授權條款是對您許可或是由您所使用。
  • 相同方式分享 – 如果您利用本素材進行再混合、轉換或創作，您必須基於如同原先的相同或兼容的條款，來分布您的貢獻成品。
已新增授權條款標題至此檔案，作為GFDL授權更新的一部份。

說明

添加單行說明來描述出檔案所代表的內容
Illustration of the moment of inertia of a solid sphere.

在此檔案描寫的項目

描繪內容

檔案歷史

點選日期/時間以檢視該時間的檔案版本。

日期/時間縮⁠圖尺寸使用者備⁠註
目前2008年7月9日 (三) 22:36於 2008年7月9日 (三) 22:36 版本的縮圖277 × 255（11 KB）Qef{{Information |Description={{en|1=Illustration of the moment of inertia of a solid sphere.}} |Source=SVG rendering of the program used to generate the bitmap image Image:Moment_of_inertia_solid_sphere.png |Author=* Original MetaPost program by [[en:U

下列頁面有用到此檔案：

全域檔案使用狀況

以下其他 wiki 使用了這個檔案：

取自「https://zh.wikipedia.org/wiki/File:Moment_of_inertia_solid_sphere.svg」