m = a(i); n=i;
end
end
disp(n);
disp(m);
Листинг 13
2
6
Отладка программы MATLAB
Упражнение 14 Текст программы
array_1D=1:2:15;
array_1d=[1 2 3 4;5 6 7 8;9 10 11 12]; %array_1d=[1 2 3 4;5 6 7 8;9 10 11 12]
x=-pi:1e-2:2*pi;
y1=x.^2; y2=x; %y1=x.^2 y2=x; for ii=1:1.2:5 %for ii=1:1,2:5
if ii>2 disp(ii)
elseif ii==3 % ii=3 j=ii-1
end
end
while NN<100 % while Nn<100 NN=NN+1;
end
for phi_0=0:0.1:pi %for phi_0=0:0,1:pi x=-2*pi: 2e-2: 2*pi;
u= sin(x-phi_0)
end
Упражнение 15 Текст программы
11
%Определить какие из функций
%y1(x)= x*x-1 %y2(x)= sqrt(x) %y3(x)= cos(x)
% пересекаются на интервале [0.5;2] clear;
close all; clc;
x=0.5; % x=0,5
shethic=0; % счетчик корней cross=0;
razn2=0;
dx=2;
while x <= 2
razn1=cos(x)-sqrt(x);% корень уравнения cos(x)=sqrt(x) razn2=cos(dx)-sqrt(dx); % добавлена новая строчка
if razn2*razn1 <0 shethic=shethic+1; end
x=x+dx; % шаг цикла
%удалена строчка razn2=razn1 end
if shethic>0
disp('cos(x) и sqrt(x) пересекаются '); end
cross=cross+ shethic; shethic=0;
razn2=0; % обнуляем переменные x=0.5;
while x <= 2
razn1=cos(x)-x*x+1; % корень уравнения cos(x)=x*x+1 razn2=cos(dx)-sqrt(dx); % добавлена новая строчка if razn2*razn1 <0
shethic=shethic+1; end
x=x+dx;
%удалена строчка razn2=razn1
end
if shethic>0
disp('cos(x) и x*x-1 пересекаются '); end
cross=cross+ shethic; shethic=0;
razn2=0;% обнуляем переменные x=0.5;
while x <= 2
razn1=sqrt(x)-x*x+1; % корень уравнения sqrt(x)=x*x+1 razn2=cos(dx)-sqrt(dx); % добавлена новая строчка
if razn2*razn1 <0
12
shethic=shethic+1; end
x=x+dx;
% удалена строчка razn2=razn1 end
if shethic>0
disp('sqrt(x) и x*x-1 пересекаются'); end
cross=cross+ shethic; disp('cross');disp(cross);
x = 0.5:0.0001:2; % шаг и интервал y = cos(x);
y2 = pow2(x) -1;
y3 = sqrt(x); plot(x,y,x,y2,x,y3)
Листинг 15
cos(x) и sqrt(x) пересекаются cos(x) и x*x-1 пересекаются sqrt(x) и x*x-1 пересекаются cross
3
13