OliForum Matematico

Salve ragazzi io dovevo svolgere questo programma in mathematica:

e = 1;
a = 2;
n = 3;
b = Table[2n, {i, 1, n}];
A = Table[1 + n*KroneckerDelta[i, j], {i, 1, n}, {j, 1, n}];
x0 = Table[2, {i, 1, n}];
r0 = b - A.x0;
x = x0;
r = r0;
i = 0;
While[Norm[r]>e*Norm,
{
i++;
x = x + a*r;
r = b - A.x;
}
]
Print["Numero di iterazioni:"];
Print
Print["Soluzione raggiunta:"]
MatrixForm[x]

Ok....pero non va...credo che il problema sia tutto nel ciclo while..non so parentesi o cosa? Per favore sapete aiutarmi!