moy.m

#cote = 3D matrice chaque page de la matrice = 1 année, 
#chaque collone = éléve , chaque ligne = question
#exemple d'utilisation:
#[moyenne,BestYear]=moy(randi(10,4,3,3))

function [moy,year] = moy(cote)	 	  
  size = size(cote);		#information sur la taille de la matrice 3D
  page = size(1,3);
  col = size(1,2);
  row = size(1,1);
  moy = zeros(row,page);	#matrice de dépars formée uniquement de 0

  n=1;
  x=1;
  year = 0;
  score = 0;
  
  #calcul de la moyenne
  while( n <= page) 
    y = 1;  
    while(y<=row)
      #somme des résultat obtenue pour tout les éleve a chaque question
      data = sum(cote(y,:,n));     
      moy(y,n)= data/col;		#ajout de la moyenne calculer a la matrice moy
      y = y+1;
      endwhile
    n = n+1;
    endwhile
  
  #recherche lannée avec le plus de question réussite
  while (x <= columns(moy))     
    finde = find(moy(:,x) >= 5);    #recherche cote moyenne suéprieur a 5
    ligne = rows(finde);  
    if ligne >= score
      score = ligne;
      year = x;
      endif
    x =x+1;
    endwhile      
    
    #affichage en bargraph
    bar(moy)
    title("comparaison des cote moyenne obetenue chaque annee")
    xlabel("question")
    ylabel("cote moyenne")