local listes;
local list_A,list_B,list_C,list_D,list_E,list_F,list_G,list_H,list_I,list_J;
local list_K,list_L,list_M,list_N,list_O,list_P,list_Q,list_R,list_S,list_T;
local list_U,list_V,list_W,list_X,list_Y,list_Z,list_espace,list_ponctuation;
local j,M,S,Taille;
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;