Добавил:
mode11
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:файлы матлаб / lab3
.m clear, clc
rng(08), A= rand(4);
f = [1 2 3 4];
f = f';
B = eye(4);
y0=[8; 5; 3; 2];
r0=A*y0-f;
w0=B\r0;
At=A*w0;
C1=At';
tau1 = (C1*r0)/(C1*w0)
y1=B\(B-tau1*A)*y0+B\(tau1*f)
r1=A*y1-f;
w1=B\r1;
At=A*w1;
C2=At';
tau2 = (C2*r1)/(C2*w1);
Alpha1 = 1;
Alpha2 = inv((1-((tau2/tau1)*((C2*r1)/(C1*r0))*(1/Alpha1))))
y2=B\(B-tau1*A)*y0+B\(tau1*f)
rng(08), A= rand(4);
f = [1 2 3 4];
f = f';
B = eye(4);
y0=[8; 5; 3; 2];
r0=A*y0-f;
w0=B\r0;
At=A*w0;
C1=At';
tau1 = (C1*r0)/(C1*w0)
y1=B\(B-tau1*A)*y0+B\(tau1*f)
r1=A*y1-f;
w1=B\r1;
At=A*w1;
C2=At';
tau2 = (C2*r1)/(C2*w1);
Alpha1 = 1;
Alpha2 = inv((1-((tau2/tau1)*((C2*r1)/(C1*r0))*(1/Alpha1))))
y2=B\(B-tau1*A)*y0+B\(tau1*f)
Соседние файлы в папке файлы матлаб