load("numericalio");

load("stringproc");

maxima_userdir:"/chemin_vers-le_répertoire_où_sont_stockés_les_nuages";

fichier:"/chemin_vers/Groupe_2nde8.txt";

donnees:read_nested_list(fichier);

for i from 0 thru 1 do print(i);

aile:["anterieure","posterieure"];

aile[1];

donnees[1][1];

cote:["gauche","droite"]$

for i from 0 thru 1 do(
for j from 0 thru 1 do(
for k from 1 thru 3 do(
legende[3*(2*i+j)+k]:concat("Aile ",aile[i+1]," ",cote[j+1]," Mesure ", ascii(65+15*i),k))))$

print(legende);

legende[12];

for i from 1 thru 11 do(
for j from i+1 thru 12 do(
data: makelist([donnees[k][i],donnees[k][j]],k,1,length(donnees)),
fichier:concat(maxima_userdir,"/nuage",i,"_",j,".eps"),
plot2d([[discrete,data]],[style,[points,2,2,1]],[xlabel,legende[i]],[ylabel,legende[j]],[gnuplot_term,ps],[gnuplot_out_file,fichier])
));