Le programme “compte_car”
Le programme “analyse_texte”
M:=matrix(31,3,0); Taille:=size(Texte);
list_A:=[“a”,”A”,”à”,”á”,”â”,”ä”,”å”,”ã”]; list_B:=[“b”,”B”]; list_C:=[“c”,”C”,”ç”]; list_D:=[“d”,”D”]; list_E:=[“e”,”E”,”è”,”é”,”ê”]; list_F:=[“f”,”F”]; list_G:=[“g”,”G”]; list_H:=[“h”,”H”]; list_I:=[“i”,”I”,”í”,”ì”]; list_J:=[“j”,”J”]; list_K:=[“k”,”K”]; list_L:=[“l”,”L”]; list_M:=[“m”,”M”]; list_N:=[“n”,”N”]; list_O:=[“o”,”O”,”ö”,”õ”,”ó”,”ò”]; list_P:=[“p”,”P”]; list_Q:=[“q”,”Q”]; list_R:=[“r”,”R”]; list_S:=[“s”,”S”]; list_T:=[“t”,”T”]; list_U:=[“u”,”U”,”ù”,”ú”,”ü”]; list_V:=[“v”,”V”]; list_W:=[“w”,”W”]; list_X:=[“x”,”X”]; list_Y:=[“y”,”Y”]; list_Z:=[“z”,”Z”]; list_espace:=[” “]; list_ponctuation:=[“.”,”,”,”:”,”;”,”!”,”?”]; liste_retour_ligne:=(” “);
listes:=[list_A,list_B,list_C,list_D,list_E,list_F,list_G,list_H,list_I,list_J, list_K,list_L,list_M,list_N,list_O,list_P,list_Q,list_R,list_S,list_T, list_U,list_V,list_W,list_X,list_Y,list_Z,list_espace,list_ponctuation,liste_retour_ligne];
M[0,0]:=”a”; M[1,0]:=”b”; M[2,0]:=”c”; M[3,0]:=”d”; M[4,0]:=”e”; M[5,0]:=”f”; M[6,0]:=”g”; M[7,0]:=”h”; M[8,0]:=”i”; M[9,0]:=”j”; M[10,0]:=”k”; M[11,0]:=”l”; M[12,0]:=”m”; M[13,0]:=”n”; M[14,0]:=”o”; M[15,0]:=”p”; M[16,0]:=”q”; M[17,0]:=”r”; M[18,0]:=”s”; M[19,0]:=”t”; M[20,0]:=”u”; M[21,0]:=”v”; M[22,0]:=”w”; M[23,0]:=”x”; M[24,0]:=”y”; M[25,0]:=”z”; M[26,0]:=”espace”; M[27,0]:=”ponctuation”; M[28,0]:=”Retour a la ligne”; M[29,0]:=”autres”; M[30,0]:=”Total”;
S:=0; for (j:=1;j<=29;j:=j+1) M[j-1,1]:=compte_car(Texte,listes[j-1]); M[j-1,2]:=format(evalf(M[j-1,1]/Taille*100),”f2″); S:=S+M[j-1,1]; M[29,1]:=Taille-S; M[29,2]:=format(evalf(M[29,1]/Taille*100),”f2″); M[30,1]:=Taille; M[30,2]:=100;
return M;
:;Comment les utiliser ?
Dans un fichier xcas :
1) Rentrer le programme “compte_car”.
2) Rentrer le programme “analyse_texte”.
3) Rentrer un texte “T” ;
4) Analyser le texte :
P:=analyse_texte(T)
On obtient la matrice avec la répartition des caractères :
$$ \left(\beginarraylll \mboxa & 66 & \mbox5.5 \\ \mboxb & 4 & \mbox0.33 \\ \mboxc & 27 & \mbox2.2 \\ \mboxd & 37 & \mbox3.1 \\ \mboxe & 176 & \mbox15 \\ \mboxf & 9 & \mbox0.75 \\ \mboxg & 6 & \mbox0.5 \\ \mboxh & 0 & \mbox0 \\ \mboxi & 73 & \mbox6.1 \\ \mboxj & 2 & \mbox0.17 \\ \mboxk & 0 & \mbox0 \\ \mboxl & 43 & \mbox3.6 \\ \mboxm & 18 & \mbox1.5 \\ \mboxn & 92 & \mbox7.6 \\ \mboxo & 55 & \mbox4.6 \\ \mboxp & 39 & \mbox3.2 \\ \mboxq & 13 & \mbox1.1 \\ \mboxr & 58 & \mbox4.8 \\ \mboxs & 96 & \mbox8 \\ \mboxt & 75 & \mbox6.2 \\ \mboxu & 73 & \mbox6.1 \\ \mboxv & 10 & \mbox0.83 \\ \mboxw & 0 & \mbox0 \\ \mboxx & 6 & \mbox0.5 \\ \mboxy & 4 & \mbox0.33 \\ \mboxz & 0 & \mbox0 \\ \mboxespace & 187 & \mbox16 \\ \mboxponctuation & 16 & \mbox1.3 \\ \mboxRetour a la ligne & 5 & \mbox0.41 \\ \mboxautres & 15 & \mbox1.2 \\ \mboxTotal & 1205 & 100 \endarray\right) $$