Εικόνα σε υψηλότερη ανάλυση (Αρχείο 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 είναι έγκυρος.
 
Αυτή η διανυσματική εικόνα δημιουργήθηκε με 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 Free Documentation License.
w:el:Creative Commons
αναφορά προέλευσης παρόμοια διανομή
Το αρχείο διανέμεται υπό την άδεια Creative Commons Αναφορά προέλευσης-Παρόμοια διανομή 3.0 Μη εισαγόμενη
Απόδοση: Grendelkhan at the English Wikipedia
Είστε ελεύθερος:
  • να μοιραστείτε – να αντιγράψετε, διανέμετε και να μεταδώσετε το έργο
  • να διασκευάσετε – να τροποποιήσετε το έργο
Υπό τις ακόλουθες προϋποθέσεις:
  • αναφορά προέλευσης – Θα πρέπει να κάνετε κατάλληλη αναφορά, να παρέχετε σύνδεσμο για την άδεια και να επισημάνετε εάν έγιναν αλλαγές. Μπορείτε να το κάνετε με οποιοδήποτε αιτιολογήσιμο λόγο, χωρίς όμως να εννοείται με οποιονδήποτε τρόπο ότι εγκρίνουν εσάς ή τη χρήση του έργου από εσάς.
  • παρόμοια διανομή – Εάν αλλάξετε, τροποποιήσετε ή δημιουργήσετε πάνω στο έργο αυτό, μπορείτε να διανείμετε αυτό που θα προκύψει μόνο υπό τους όρους της ίδιας ή συμβατής άδειας με το πρωτότυπο.
Αυτή η ετικέτα άδειας χρήσης προστέθηκε στο αρχείο ως μέρους της αναθεώρησης της άδειας GFDL .

Λεζάντες

Δεν ορίστηκε λεζάντα
Illustration of the moment of inertia of a solid sphere.

Items portrayed in this file

απεικονίζει

Ιστορικό αρχείου

Κλικάρετε σε μια ημερομηνία/ώρα για να δείτε το αρχείο όπως εμφανιζόταν εκείνη τη στιγμή.

Ώρα/Ημερομ.ΜικρογραφίαΔιαστάσειςΧρήστηςΣχόλια
τελευταία22:36, 9 Ιουλίου 2008Μικρογραφία για την έκδοση της 22:36, 9 Ιουλίου 2008277 × 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 χρησιμοποιούν αυτό το αρχείο: