طلب مساعدة في برمجة هذه المعادلة بلغة maple

restart:
with(LinearAlgebra);
with(VectorCalculus);

# give the vectors R, z and w (they should have the same length)
R := Vector[column]([ , , , , , .....]);
z := Vector[column]([ , , , , , .....]);
w := Vector[column]([ , , , , , .....]);
delta = sdsd # constant value 

for i from 1 to 10 do
for k from 1 to 10 do
K[i,k]=R[k]*h[k]*(z[k]-w[i])*delta
od;
od;
evalm(K);