Так народ я так понял помогать ни кто не хочет. поэтому сам предоставляю решение 1 номера из 1 лабы по Инфе 7-го варианта.Кто знает как решить остальные задания пишите, даже не мой вариант все равно разберусь.
Н уТАК ДОЛГОЖДАННОЕ РЕШЕНИЕ.
function grafik6
%Вариант7
%Ish:Перо в начале координат
%Rez:Начерчен график функции
n=input('Введите параметр N ');
a=input('Введите начало отрезка ');
b=input('Введите когец отрезка ');
w=input('Введите количество точек ');
m=(abs(b-a)/w);
%Определение переменных
p=a;
g=0;
r=0;
while g<w
y=gr(p,n)
punct(p,y)
markz(p,m,y,n)
setcolor('b')
p=p+m
g=g+1;
r=r+y;
end
r=r/w;
setcolor('none')
punct(a,r)
setcolor('r')
punct(b,r)
function y=mfunc(x,d)
%ISH:Дана функция
%РЕЗ:Посчитан Y в точке Х с заданным N
t=log(x)-2/9
z=0
for k=1:d
z=sum([x-k]*cos((k*x)^(1/3))/2);
end
y=(t*z)-4;
function markz(p,m,y,n)
%ish:1)Перо в некоторой точке 2)В начале аргумента в точке у=0.
%Rez:1) Вокруг точки (u,0) Начерчен квадрат 2)Перо в конце сегмента
%Вычисление предыдущего значения функции
u=p-m;
l=mfunc(u,n);
%Проверка на изменение знака функции и вычисление точки пересечения с осью
if (y<=0)&(l>=0)
f=(m*abs(l))/(abs(y)+abs(l));
setcolor('none')
u=u+f;
punct(u,0)
kvadrat
%Возвращение пера в конец сегмента
y=mfunc(p,n);
punct(p,y)
else
if (y>=0)&(l<=0)
f=(m*abs(l))/(abs(y)+abs(l));
setcolor('none')
u=u+f;
punct(u,0)
kvadrat
%Возвращение пера в конец сегмента
y=mfunc(p,n);
punct(p,y)
end
end
function kvadrat
%ISH:Перо в некоторой точке
%REZ:Перо в исходной точке 2)Начерчен квадрат в исходной точке
%Вычерчивание квадрата со стороной 0.5
setcolor('none')
%Переход в угол квадрата
vector(0.25,0.25)
%Вычерчивание квадрата
setcolor('g')
vector(0,-0.5)
vector(-0.5,0)
vector(0,0.5)
vector(0.5,0)
%Возврат в конец квадрата
setcolor('none')
vector(-0.25,-0.25)
Ну вот и ВСЕ если ШО ПИШИТЕ :ninja: