Navigation alternative
Figures / Images
BBgraf
MetaPost
PSTricks
Format SVG
Asymptote
EPiX
Gnuplot
TeXGraph
Librairie GD
PostScript
SWFtools
Calculs
BC
Giac / Xcas
Maxima
Pari / GP
Scilab
Scripts p*
Documents
TeX au collège
TeX png
Lua(La)TeX
Cours etc.
Contributions
Le cours d'Ismaël
Astronomie
Bases
Base Brevet
Base Collège
Base Graphisme
Base Ipe
Base JPS (BBgraf)
Base MetaPost
Base PSTricks
Dépôt Git
Fichier JPS
Accueil
Présentation
Exemples
Papiers
Banque d'images
Albums et animations
Formulaires
Célébrités
Postscript
Chimie
Documentation
Sources et téléchargement
Édition du fichier equ2_012b.jps
Retour
%% code jps desormais obsolete (23/09/2003) -1.5 6 setxrange -3 5 setyrange %% le systeme /L1 .7 def /l1 4 def /L2 8 def /l2 .5 def /L3 1 def /l3 .7 def /L4 3 def /l4 .7 def /dt .1 def %% ======== /A2 {0 2} def /A1 {l2 2 div l1 2 div add 0} def /A3 {A1 1.2 mulvecteur 0 L1 2 div L3 2 div add dt add addvecteur} def /A4 {l1 l4 2 div add l2 2 div add 0} def /A5 {l1 l2 2 div add L4 2 div .8 mul} def /P {A3 l3 2 div 0 addvecteur projx} def %% bidiouille pour la cote L0 /C {A3 projx .7 mulvecteur l3 2 div neg 0 addvecteur} def %% les indications /M2 {A3 l3 -2 div 0 addvecteur projx 0 L3 L1 2 div add neg addvecteur} def /M1 {M2 -.7 -.7 addvecteur} def /N2 {M2 A4'' A4'' projx orthoproj} def /N1 {N2 -.7 -.7 addvecteur} def %% le ressort /A {l2 2 div 0} def /B {A3 projx l3 -2 div 0 addvecteur} def %% les cotes /B'' {C 0 2 addvecteur} def /B' {B'' projy} def /P'' {P 0 3 addvecteur} def /P' {P'' projy} def /A4'' {A4 0 4 addvecteur} def /A4' {A4'' projy} def %% syntaxe : A bar --> dessine une barre verticale en A /bar { gsave stranslate verythin setlinewidth newpath 0 0 smoveto 0 5 rmoveto 0 -10 rlineto stroke grestore } def %% syntaxe : A Lx Ly rect@ngle /rect@ngle { 2 dict begin /Ly exch 2 div def /Lx exch 2 div def stranslate newpath Lx Ly smoveto 0 Ly -2 mul srlineto Lx -2 mul 0 srlineto 0 Ly 2 mul srlineto closepath end } def %% syntaxe : A Lx Ly rectangle /rectangle { 2 dict begin gsave rect@ngle stroke grestore end } def %% syntaxe : A Lx Ly rectangle* /rectangle* { 4 copy rectangle 2 dict begin gsave rect@ngle clip fillstyle grestore end } def %% ============== /fillstyle {verythin setlinewidth hachure} def %% .2 .2 setquadrillagestep %% quadrillage %% %% gsave %% 1 dict begin %% 1 1 setquadrillagestep %% /quadrillagegray 0 def %% currentlinewidth 2 mul setlinewidth %% quadrillage %% end %% grestore %% %% marks %% [A1 A2 A3 A'3 A4 A5 A B] points gsave mixte traceaxes [0 .7 B projx pop .7] ligne [0 -.7 B projx pop -.7] ligne grestore thin setlinewidth A3 projx l3 L3 2 mul L1 add rectangle* A B .7 5 (O) ressort .7 ytick P times3 B' B'' (<->) line P' P'' (<->) line A4' A4'' (<->) line M1 M2 (->) line N1 N2 (->) line setTimesItalic (O) O dltext (P) P urtext (A) A4 urtext setTimes (Butée) N1 dltext (Masse ) M1 dltext setTimesItalic (M) show %% %% pour la mise au point %% gsave %% bleu %% (A1) A1 drtext %% (A2) A2 drtext %% (A3) A3 drtext %% (A5) A5 drtext %% (A4) A4 drtext %% (A4') A4' drtext %% (A4'') A4'' drtext %% (P) P urtext %% (P') P' urtext %% (P'') P'' urtext %% (B) B urtext %% (B') B' urtext %% (B'') B'' urtext %% (N1) N1 urtext %% (N2) N2 urtext %% (M1) M1 urtext %% (M2) M2 urtext %% [A1 A2 A3 A5 A4 A4' A4'' P P' P'' B B' B'' N1 N2 M1 M2] points %% grestore B'' bar P'' bar gsave verythin setcourbelinewidth [A4'' 0 .2 addvecteur A4'' projx pop -2] ligne grestore /ell { A2 0 2.5 translatepoint l2 .25 } def -225 45 ell Ellipse gsave 50 [ell 0] epoint stranslate .4 .4 scale [ell 0] ellb 2 sqrt mul [ell 0] ella neg 2 sqrt mul atan 10 sub rotate arrow grestore
Tapez les 3 lettres : AWE