petit programme Mupad — Les-mathematiques.net The most powerful custom community solution in the world

petit programme Mupad

salut
j'aimerais faire fonctionner ces deux petits programmes sous MUPAD mais en compilant j'ai des erreurs que je ne comrends pas. Qqun peut il m'aider ?
ils sont tres simples a comprendre

chiff_chaine:=proc(K:DOM_LIST) \\ ma procedure recois une liste K
local i: \\ i est la seule variable locale ici
begin
Z:=[ ]: \\ j'initialise cette liste vide
for i from 1 to nops(K) do \\i va de 1 au nombre d'elements de la liste K
Z:= Z.[K[ i]]: \\ a chaque tour, à Z on concatene K[ i]
end_for:
end_proc:

déja cette procedure m'affiche une erreur d'expréssion et je n'arrive pas à la rectifier
chiff_chaine:=proc(K,C,X) \\ ma procedure recois les listes K,C,X
local i,j,k:
begin
if nops(K) <> nops(C)
then("donner les listes K et C de meme taille"):
else
Z:=[]: \\ j'initialise cette liste vide
for k from 1 to nops(K) do \\ k va de 1 au nombre d'elements de la liste K
Z:= Z.[K[k]]: a chaque tour, à Z on concatene K[k]
end_for:

if nops(X) > nops(K) \\ si le nombre d'elements de X > nbre elements de K
then
j:=0:
for i from 1 to nops(X)-nops(K) do
Z[i+m]:=0:
while j <= nops(X)-nops(K) do
Z[i+m]:= Z[i+m]+C[j]*Z[i+j] mod 2:
i:=i+1:
end_while:
end_if:

print("le texte chiffré est le suivant:"):

for i from 1 to n do
Y[ i]:= X[ i]+Z[ i] mod 2:
end_for:
return(Y):

end_proc:

la encore c'est simple mais ca m'affiche des erreurs

a titre d'information cette procedure effectue un cryptage d'une liste donné en binaire
Connectez-vous ou Inscrivez-vous pour répondre.
Success message!