Компьютерное моделирование. Занятие 1. Двухмерная графика t0%pi20 2%pi ysin(t) plot (t,y) (3 строчки) Занятие 2

• Название: Занятие 1. Двухмерная графика t0%pi20 2%pi ysin(t) plot (t,y) (3 строчки) Занятие 2
• Анкор: Компьютерное моделирование
• Дата: 22.01.2020
• Размер: 2.18 Mb.
• Имя файла: Компьютерное моделирование.docx
• Тип: Документы; #105400
• страница: 4 из 5

Занятие №5. Алгоритмы, операторы, циклы.

1) a=-3;

b=3;

h=0.1;

n=(b-a)/h+1;

for i=1:1:n

x(i)=a+h*(i-1);

if x(i)>1

y(i)=x(i)*x(i);

else if x(i)>0

y(i)=x(i);

else y(i)=0;

end

end

end

plot (x,y,'*')



2) a=-5;

b=6;

h=0.1;

n=(b-a)/h+1;

for i=1:1:n

x(i)=a+h*(i-1);

if x(i)>1

y(i)=x(i)*x(i);

else if x(i)>0

y(i)=x(i);

else y(i)=0;

end

end

end

plot (x,y,'+r--');

a=get("current_axes");

t=a.title;

t.font_size=5;

t.font_style=6;

t.text=" ФУНКЦИЯ ";

x_label=a.x_label;

x_label.text=" ИКС"

x_label.font_size=2;

x_label.font_style= 6;

y_label=a.y_label;

y_label.text=" ИГРЭК"

y_label.font_size=2;

y_label.font_style= 6;

3) а) x=6;

if x>1

y=x*x;

else if x>0

y=x;

else y=0;

end

end

disp(y)

36.

б)x=8;

if x>1

y=x*x;

else if x>0

y=x;

else y=0;

end

end

disp(y)

Блок-Схема:

Занятие №6. Функции.

1) пример нахождения факториала по 8:

function f = fakto (x)

n=1;

for i=1:x

n=n*i;

end;

f= n;

endfunction

y=fakto(8)

y = 40320.

пример нахождение факториала по 30:

function f = fakto (x)

n=1;

for i=1:x

n=n*i;

end;

f= n;

endfunction

y=fakto(30)

y = 2.653D+32

2) пример возведения 4 в степень 2

function f = facto(x,y)

n=1;

for i=1:y;

n= n*x;

end;

f=n;

endfunction

y=facto(4,2)

y = 16.

Пример возведения 4 в 8

function f = facto(x,y)

n=1;

for i=1:y;

n= n*x;

end;

f=n;

endfunction

y=facto(4,8)

y =65536.

Занятие №7.

Окружность:

deff('[S,P]=fokr(r,g)', 'disp(g); P=2*%pi*r; S=%pi*r*r');

r=5.;

g =' Периметр и площадь круга равны';

[S,P]=fokr(r,g)

Периметр и площадь круга равны

P = 31.415927

S = 78.539816

deff('[S,P]=fokr(r,g,h)', 'if r>0 disp(g); S=%pi*r*r; P=2*%pi*

r=-1.;

g='Периметр и площадь круга равны';

h='Радиус круга должен быть больше 0';

[P,S]=fokr(r,g,h)

S = Nan

P = Nan

Квадрат:


deff('[S,P]=fokv(a,g)','disp(g); S=a*a; P=4*a;');

a=2;

g='Периметр и площадь квадрата равны';

[P,S]=fokv(a,g)

Периметр и площадь квадрата равны

S = 4.

P = 8.

Прямоугольник:

deff('[S,P]=fopr(a,g,b)','disp(g); S=a*b; P=(a+b)*2;');

a=2;

b=3;

g='Периметр и площадь прямоугольника равны';

[P,S]=fopr(a,g,b)

Периметр и площадь прямоугольника равны

S = 6.

P = 10.

Треугольник:

deff('[S,P]=fotr(a,g,b,c)','disp(g); S=sqrt(p*(p-a)*(p-b)*(p-c)); P=a+b+c; ');

a=4;

b=3;

c=5;

p=(a+b+c)/2;

g='Периметр и площадь треугольника равны';

-[P,S]=fotr(a,g,b,c)

Периметр и площадь треугольника равны

S =6.

P = 12.

Занятие №8. Создание и работа с графическими приложениями в среде Scilab

1) Запуск программы: запуск исх.

f=figure();

f.background=-2;

f=figure();

f.background=6;

f=figure();

f.background=6;

screensize= get(0,"screensize_px")

screensize = 1. 1. 1600. 900



2) f=figure();

f.background=6;

screensize= get(0,"screensize_px")

set(f,'position',[400,0,screensize(3),screensize(4)]);

set(f,'figure_name','Grafik');



3) f=figure(); f.background=6; screensize= get(0,"screensize_px");

set(f,'position',[786,0,screensize(3)/2,screensize(4)/2]);



4) f=figure();

f.background=6;

screensize= get(0,"screensize_px")

set(f,'position',[0,0,screensize(3),screensize(4)]);

set(f,'figure_name','Grafik');

c_metok=[0.8 0.8 0.8];

c_text=[0.87 0.868 0.87];

c_knopok=[0.62 0.62 0.62];

c_with_points=[0.67 0.67 0.658];

lab_a=uicontrol(f,'style','edit','string','data:','HorizontalAlignment','center','units','normalized','position',[0.3, 0.5, 0.4, 0.2]);