////////////////////////////////////////////////////////////////////////////////////////////////////////////
// frb_main.sce
//	
////////////////////////////////////////////////////////////////////////////////////////////////////////////

// Initialisation de paramètres
//---------------------------------
nom_fich_don='iris.don';
nom_fich_cod='iris_2.cod';
nb_noyaux=6;					// nombre de noyaux total

// Compilation du fichier C et création des liens avec le fichier compilé
//----------------------------------------------------------------------------------
host('cc  -c info_don.c -o ./info_don.o');
link('lect_info_fich_don.o','lect_info','C');

// Appel de la fonction C "lect_info_fich_don()"
//-----------------------------------------------------
NB_CL_MAX=30;
NB_VEC_MAX=20000;
[nb_car,nb_vec, nb_classes, nb_vec_cl,num_cl]=call('lect_info_fich_don',nom_fich_don,1,'c','out',[1,1],2,'i',[1,1],3,'i',[1,1],4,'i',[1,NB_CL_MAX],5,'i',[1,NB_VEC_MAX],6,'i');

// Affichage des résultats
//-----------------------------
nb_car
nb_vec
nb_classes
for i=1:nb_classes
	nb_vec_cl(i);
end
for i=1:nb_vec
	num_cl(i);
end

// Exécution de l'algorithme des FRB
//-------------------------------------------
exec("frb.sce");