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 1834.jps
Retour
%% papier de Weibull 10 setborder 100 setxunit 576 setheight 10 setfontsize -2.81 5.41 setxrange -7.3 2.3 setyrange %0 0 moveto %90 rotate %0 -576 translate %% la fonction pour l'echelle verticale /F { neg 1 add 1 exch .0001 max div ln ln } def %% syntaxe : n weibull_vbande --> %% lignes verticales entre 10^i et 10^(i+1) /weibull_vbande { 5 dict begin /n exch def /liste_fine [n 1 sub n log_seq] def /liste [n dup 1 add log_seq] def /i liste length def i 1 sub { /k liste i 2 sub get def liste_fine {k add svrule} apply /i i 1 sub store } repeat end } def %% syntaxe : n weibull_hbande --> lignes horizontales entre 100 x 10^(i) et 100 x 10^(i+1) /weibull_hbande { 5 dict begin /n exch def /liste_fine [n 3 sub dup 1 add log_seq] def /liste [n 2 sub dup 1 add log_seq] def /i liste length def i 1 sub { /k liste i 2 sub get def liste_fine {k add shrule} apply /i i 1 sub store } repeat end } def %%%%%%%%%%%%%%%%%%%%%%%%%%%% echelle : (1,1) %%%%%%%%%%%%%%%%%%%%%%%%%%%% %% numerotation haute -2.3 5.3 setxrange %% ######### origine : (.1, .001) ######### %% %% trace de l'axe horizontal haut .01 ln .999 F setorigine .2 setxsubtkstep 1 dict begin /xmarkstyle {uctext} def traceOx .2 setxtkstep xticks xmarks 0 xmark end %%%%%%%%%%%%%%%%%%%%%%%%%%%% echelle : (ln, F) %%%%%%%%%%%%%%%%%%%%%%%%%%%% /xscale {ln} def /yscale {F} def .1 2000 setxrange .001 .999 setyrange %% le quadrillage .4 setgray gsave masque .01 setlinewidth %% lignes verticales entre 10^(-1) et 10^2 [-1 0 1 2] {weibull_vbande} apply %% lignes horizontales entre 100 x 10^(-3) et 100 x 10^(-2) -1 weibull_hbande %% lignes horizontales entre 100 x 10^(-2) et 100 x 10^(0) [0 1] {weibull_hbande} apply grestore %% on repasse en noir le grillage simple noir .2 setlinewidth %% grille verticale [-1 3 log_seq] {svrule} apply %% grille horizontale [[-3 0 log_seq] aload pop pop .99] {shrule} apply %% les numerotations gauches, basses et medium %% pour l'axe vertical, on affiche 100 fois la valeur réelle /ymarkstyle { 3 -1 roll cvr 100 mul ch cvs 3 1 roll (-5 0) cltext } def %% ######### origine : (.1, .001) ######### %% .1 .001 setorigine %% numerotation sur Oy [.1 .2 .3 .5 1 2 3 5 10 20 30 50 70 90 99 99.9] {.01 mul ymark} apply %% numerotation sur Ox (horizontal bas) partie entre .1 et 1 /xmarkstyle {uctext} def [-1 0 log_seq] %% graduations entre 10^(-1) et 10^3 {pop exch pop} 9 9 Apply %% on supprimes les graduations 7 et 9 dup {xmark} apply %% on numerote %% ######### origine : (.1, 1 - 1/e) ######### %% 0 1 1 e div sub setorigine %% on recommence, avec la nouvelle origine, %% numerotation sur Ox (horizontal median) partie entre .1 et 1 [-1 0 log_seq] %% graduations entre 10^(-1) et 10^0 {pop exch pop} 9 9 Apply %% on supprimes les graduations 7 et 9 cdr {xmark} apply %% mais sans la premiere numerotation 1 dict begin %% on veut convertir les valeurs en entiers /xmark { dup xtick /Courier findfont .8 fontsize mul scalefont setfont dup cvi ch cvs exch Oy xmarkstyle } def %% ######### origine : (.1, .001) ######### %% .1 .001 setorigine %% numerotation sur Ox (horizontal bas) partie entre 1 et xmax [0 3 log_seq] %% graduations entre 10^(-1) et 10^3 {pop exch pop} 9 9 Apply %% on supprimes les graduations 7 et 9 dup {xmark} apply %% on numerote %% ######### origine : (.1, 1 - 1/e) ######### %% 0 1 1 e div sub setorigine {xmark} apply %% mais sans la premiere numerotation gsave currentlinewidth 2 mul setlinewidth traceOx grestore %%%%%%%%%%%%%%%%%%%%%%%%%%%% echelle : (ln, -1) %%%%%%%%%%%%%%%%%%%%%%%%%%%% /yscale {neg} def %% l'axe vertical median /ymarkstyle {cltext} def /fillstyle {blanc fill} def gsave 1 dict begin %%%%%%%%% echelle : (1,-1) %%%%%%%%% -1 Exp 0 stranslate -.05 6.9 setyrange /xscale {} def blanc 0 setlinewidth -.05 -.05 .05 6.9 frame* noir traceOy .2 setysubtkstep yticks ysubticks ymarks 0 ymark end grestore %% %% la rose des beta %% /xscale {} def %% /yscale {neg} def %% %% 2 0 stranslate %% %% gsave %% newpath %% 0 1 smoveto %% 90 180 0 0 1 Cercle_ %% 0 0 slineto %% closepath %% clip %% %% .7 setlinewidth %% 90 180 0 0 .9 Cercle %% /xscale {ln} def %% [ %% .3 .6 1 2 3 4 5 8 %% ] {setxvar 1 0 1 e div x} apply %% ligne %% grestore %% %% 8 setfontsize %% setTimes %% (0,3) -1.05 Exp .3 cctext %% (0,6) -.92 Exp .6 cctext %% (1) -.7 Exp .8 cctext %% (2) -.5 Exp 1 cctext %% (3) -.35 Exp 1.1 cctext %% (5) -.2 Exp 1.12 cctext %% (8) -.1 Exp 1.13 cctext %% setSymbol %% (b) 0 Exp .9 crtext
Tapez les 3 lettres : AWE