Création du fichier
M, K:= 1000., evalf(sqrt(2));
ra:= stats[random, normald[ln(M), sqrt(ln(1.4))]];
n:= 1000; li:= map(exp, [ ra( n )]):
![ra := stats[random,normald[6.907755279,.5800622696]...](maotp06_img/maotp06_13.gif){kind=small}
fich:= "F:/docs/Ensait/maotp/maotp07/dat_maotp07.txt";
hdl:= fopen(fich, WRITE);
for i to n do fprintf(hdl,"%a\n", li[i]); od:
fclose(fich):
