Maple 16

Fermé
florent622 - 20 mai 2013 à 18:45
Bonjour,

Je suis à la recherche de quelqu'un qui pourrait m'expliquer au plus vite ce que fait chaque ligne comme opération, je travail sur un projet de reconnaissance de caractère et ce programme ci entré dans Maple sert à l'apprentissage des lettres A,B,L.

with(linalg); with(LinearAlgebra); with(plots):
z := 10; m := proc (w) options operator, arrow; 1/(1+exp(-w)) end proc; u := proc (x) options operator, arrow; exp(-x) end proc; display([plot(u(x), x = -1 .. 10, color = green), plot(m(w))])
(résultat = courbe)


(A,B,L sont entrés sous forme de matrices multipliées par 1/100)
A := (1/100)*(Vector(4, {(1) = ' 1 .. 25 '*Vector[column], (2) = 'Data Type: '*anything, (3) = 'Storage: '*rectangular, (4) = 'Order: '*Fortran_order}))



> appr := proc (U) local y, i, k, f;
for y to z do
for i in [S[U]] do
for k to 25 do
if .5 <= i[k] then U[k] := U[k]+i[k]*u(y)
else U[k] := U[k]-i[k]*u(y)
end if
end do
end do
end do
end proc;
> so := proc (U, X) local k, T; T := 0;
for k to 25 do T := T+X[k]*U[k] end do; evalf(m(T)) end proc;

Merci d'éclaircir ces obscures symboles !