Création des fichiers

M, K:= 1300., 1.8;
ra:= stats[random, normald[ln(M), sqrt(ln(K))]]; n:= 1000;

li2:= map(exp, [ ra( n )]):
fich:= "F:/docs/Ensait/maotp/maotp_ds10/dat_maotp_ds10a.txt";
hdl:= fopen(fich, WRITE);
for i to n do fprintf(hdl,"%a\n", li2[i]); od:
fclose(fich):

li2:= map(exp, [ ra( n )]):
fich:= "F:/docs/Ensait/maotp/maotp_ds10/dat_maotp_ds10b.txt";
hdl:= fopen(fich, WRITE);
for i to n do fprintf(hdl,"%a\n", li2[i]); od:
fclose(fich):

>