Ymin = -1

Ymax = 1

Xmin = -0.2

Xmax = 4.2

​

trait = 0.3

couleur = bleu

​

for(i=1;i<17000;i++){

    point([ln(i)/ln(10),sin(i)])

}

​

couleur = noir

trait = 1

​

trS(10)

trS(100)

trS(1000)

trS(10000)

​

traceX()

traceY()

​

function trS(n){

    abs = ln(n)/ln(10)

    segment([abs,-0.02],[abs,0.02])

    texte( n, [abs*(1-0.08),-0.1] )

}