متابعة خطوات برنامج

السلام عليكم ورجمة الله وبركاته

هذا البرنامج مكتوب باستعمال الماتلاب ولا اعرف فهل البرنامج صحيح ام لا ؟

وهل يمكن كتابته بطريقة اخرى اكثر بساطة ؟ مثلا باستعمال الدوال ؟

clc
clear
format long 
   w(1)=0;
 d(1)=0;
t(1)=0.071428;
l(1)=1; 
x(:,1)=[46;76;176;46;4;47]
for i=2:1:6
      t(i)=0.5;
   y(i)=(i*exp(i+6))*(1-(exp(i)))*(3-(exp(-(i)));
    l(i)=t(i-1)*l(i-1);
    d(i)=y(i)*l(i);
    q = q+d(i);
         end
c=8.571428/q;
 for s=1:400;
     K(s)=0;
    for i=2:1:6
      j(i)=c*d(i)*x(i,s);
      K(s)=K(s)+j(i);
    end 
   r(s)=K(s)^2;
A=[(0.68 c*d(2)*r(s) c*d(3)*r(s) c*d(4)*r(s) c*d(5)*r(s) c*d(6)*r(s) 

   0 1 0 0 0 0 
   0 0 1 0 0 0 
   0 0 0 1 0 0 
   0 0 0 0 1 0 ];

x(:,s+1)=A*x(:,s);
display(x(:,s+1))

end

واتمنى لكم التوفيق وابداء الرأي