Курсовая работа: Математическое моделирование в задачах расчета и проектирования систем автоматического управления

A4=10;

r0=1;

i=0; %количествоитераций

while abs(r0)>e

i=i+1;

s0=s;

r0=A1*s^3+A2*s^2+A3*s+A4; %невязка

Ar=(A1+A2+A3)*r0;

AAr=(A1^2+A2^2+A3^3)*r0;

m=r0*AAr/AAr^2;

s=s0-m*Ar;

end

S1=s; % Нашли вешественный корень

Теперьрешаемуранение: A1*s^2+(A2+A1*S1)*s+(A3+A2*S1+A1*s^2)=0

% Корникомплексные

D=(A2+A1*S1)^2-4*A1*(A3+A2*S1+A1*s^2);

S2=(-(A2+A1*S1)+sqrt(D))/2*A1;

S3=(-(A2+A1*S1)-sqrt(D))/2*A1;

disp(S1);

disp(S2);

disp(S3);

disp('Количество итераций'); disp(i);

Приложение 2

Интерполяционный метод Адамса

function Int_Adams_3

clc

%время переходного процесса

T=10;

%-----------------%

%матрица А (X'=AX+BY)