Présentation de weibull_a4_04_gris.jps

/syracuse/var/syracuse/bbgraf/papiers/weibull_a4_04_gris.png
%% papier de Weibull 10 setborder 100 setxunit 576 setheight 10 setfontsize 4.1 12.32 setxrange -7.3 2.3 setyrange %% 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 %%%%%%%%%%%%%%%%%%%%% trace de l'axe horizontal haut %%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%% echelle : (1,1) %%%%%%%%%%%%%%%%%%%%%%%%%%%% %% numerotation haute 4.6 12 setxrange %% ######### origine : (100, .001) ######### %% 100 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 100 12 Exp setxrange .001 .999 setyrange %% le quadrillage .4 setgray gsave masque .01 setlinewidth %% lignes verticales entre 10^0 et 10^2 [2 3 4 5] {weibull_vbande} apply %% lignes horizontales entre 100 x 10^(-3) et 100 x 10^(-2) [-1 0 1] {weibull_hbande} apply grestore %% on repasse en noir le grillage simple noir .2 setlinewidth %% grille verticale [2 5 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 : (100, .001) ######### %% 100 .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 %% ######### origine : (0, 1 - 1/e) ######### %% 0 1 1 e div sub setorigine %% on recommence, avec la nouvelle origine, 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 : (100, .001) ######### %% 100 .001 setorigine %% numerotation sur Ox (horizontal bas) partie entre 1 et xmax [2 3 log_seq] %% graduations entre 10^(1) et 10^5 {pop exch pop} 9 9 Apply %% on supprimes les graduations 7 et 9 dup {xmark} apply %% on numerote [1000 2000 3000 4000 6000 8000 20000] dup {xmark} apply %% ######### origine : (0, 1 - 1/e) ######### %% 0 1 1 e div sub setorigine {xmark} apply {xmark} apply gsave currentlinewidth 2 mul setlinewidth traceOx grestore %% %%%%%%%%%%%%%%%%%%%%%%%%%% l'axe vertical median %%%%%%%%%%%%%%%%%%%%%%%%%% %% %%%%%%%%%%%%%%%%%%%%%%%%%%%% echelle : (ln, -1) %%%%%%%%%%%%%%%%%%%%%%%%%%%% %% /yscale {neg} def %% %% /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 11 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