Comptage des caractères d’un texte avec Xcas

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;