function pv = khideux(de,dt,n)
//      retourne la p-valeur du test du khi-deux pour la
//      la distribution empirique "de", la distribution
//      theorique "dt", et une taille d'echantillon "n".

c = size(de,"*");             // nombre de classes
d = sum(((de-dt).^2)./dt);    // distance du khi-deux
s = n*d;                      // statistique de test
[p,pv] = cdfchi("PQ",s,c-1);  // calcul de la p-valeur


