Présentation de logy_01.jps

100 setxunit
25 setyunit
7.5 setborder
pictpointsOff
%% a = 0.01 b = 1000

-2.3 3.3 setxrange
-4 8 setyrange
/xscale {log} def
/xscale-1 {10 ln mul Exp} def
0.01 1000 setxrange
0.01 0 setorigine
gsave
0.4 setgray
[ymin truncate ymax truncate 1 stepto] {shrule} apply
[-2 3 log_seq] {svrule} apply
.4 setlinewidth
orange
[-2 3 1 sub 1 stepto] {log_xbande} apply
grestore
yticks
[-2 3 log_seq] {xtick} apply
ysubticks
ymarks
[-2 3 1 stepto] {log_xmark} apply
traceaxes
axesarrow
/f {setxvar
    x ln
} def
/g {setxvar
    1 x sqrt div ln
} def
gsave
   bleu
   .75 setlinewidth
   continu
  xmin  xmax {f} Courbe
grestore
gsave
   rouge
   1.75 setlinewidth
   mixte
   {g} courbe
grestore

<tex>
$y = \ln x$
</tex>
50 dup f [1.5 dup] {10 dup f 100 dup f pangle} uctexlabel
		
<tex>
$$
   y = {1\over \sqrt {\ln x}}
$$
</tex>
.1 dup g [1.5 dup] {.1 dup g 1 dup g pangle} uctexlabel