Présentation de loglog_repere_01.jps

/syracuse/bbgraf/albums/logscale/loglog_repere_01.jpg
600 setwidth pictpointsOff %% ces valeurs correspondent a ln (0.01) - qquechose et ln (1) -4.9 0.1 setxrange -4.9 0.1 setyrange 2 setxyrapport %% on passe a l'echelle logarithmique /xscale { ln } def /yscale { ln } def .01 1 setxrange .01 1 setyrange %% la numerotation xmin dup setorigine [.01 .1 .2 1] dup {xmark} apply {ymark} apply axesarrow %% legende des axes setTimesItalic (m) 1 .01 (0 -3) dltext (d) .01 1 (-3 0) dltext %% puis on masque masque %% le quadrillage gsave [.01 .1 1] dup {svrule} apply {shrule} apply .4 setgray .4 setlinewidth [-2 0 log_seq] dup {svrule} apply {shrule} apply grestore %% la fonction a dessiner /d { 1 dict begin /m exch def m pi mul neg 1 m dup mul sub div Exp end } def %% la legende TeX <tex> $$ d (m) = e^{-\pi m \over \sqrt {1 - m^2}} $$ </tex> .3 .3 [2 dup] dltexlabel 1.5 setlinewidth bleu xmin .8 {d} Courbe