Лабораторная работа № 1. Численное интегрирование

См. задачу 1 на стр 14 документа Komp-mod2.pdf. Зависимость плотности от координаты описывается выражением:

№ вар-та	Зависимость
1
2
3
4
5
6
7
8
9
10

Лабораторная работа № 2. Решение дифференциальных уравнений методом Рунге-Кутта четвертого порядка

См. задачу 5 на стр 11 документа Komp-mod2.pdf. Варианты дифференциальных уравнений:

№ вар-та	Зависимость
1
2
3
4
5
6
7
8
9
10

Лабораторная работа № 3. Моделирование клеточных автоматов Варианты заданий

Вариант 1. Задача 1 (см. ниже). Отображение в форме TStringGrid с ячейками, подсвечиваемыми различными цветами.

Вариант 2. Задача 1 (см. ниже). Отображение путем рисования окружностей небольшого диаметра на «канве» (TCanvas, например, с использованием компонента TPaintBox).

Вариант 3. Задача 2 (см. ниже). Отображение в форме TStringGrid с ячейками, подсвечиваемыми различными цветами.

Вариант 4. Задача 2 (см. ниже). Отображение путем рисования окружностей небольшого диаметра на «канве» (TCanvas, например, с использованием компонента TPaintBox).

Вариант 5. Задача 3 (см. ниже). Отображение в форме TStringGrid с ячейками, подсвечиваемыми различными цветами.

Вариант 6. Задача 3 (см. ниже). Отображение путем рисования окружностей небольшого диаметра на «канве» (TCanvas, например, с использованием компонента TPaintBox).

Вариант 7. Задача 4 (см. ниже). Отображение в форме TStringGrid с ячейками, подсвечиваемыми различными цветами.

Вариант 8. Задача 4 (см. ниже). Отображение путем рисования окружностей небольшого диаметра на «канве» (TCanvas, например, с использованием компонента TPaintBox).

Вариант 9. Задача 5 (см. ниже). Отображение в форме TStringGrid с ячейками, подсвечиваемыми различными цветами.

Вариант 10. Задача 5 (см. ниже). Отображение путем рисования окружностей небольшого диаметра на «канве» (TCanvas, например, с использованием компонента TPaintBox).

Задача 1

Имеется цепочка автоматов, каждый из которых может находиться в состоянии: а) покоя, s = 0; б) рефрактерности, s = 1; в) возбуждения, s = 2. Поведение автомата описывается правилом:

Отобразить последовательность изменений состояния цепочки необходимо в виде матрицы, где по горизонтали откладываются сами позиции цепочки, а по вертикали – моменты времени.

Реализация на Pascal:

Uses crt,graph;

Var s,s1: array[0..60] of integer; Gd,Gm,I,j: integer;

BEGIN s[3]:=2; s[2]:=1; s[50]:=2;

Gd:= Detect; InitGraph(Gd, Gm, 'c:\bp\bgi');

Repeat inc(j);

For i:=1 to 59 do begin

If ((s[i]=0)and((s[i-1]=2)or(s[i+1]=2))) then s1[i]:=2;

If s[i]>0 then s1[i]:=s[i]-1; end; delay(200);

For i:=1 to 60 do begin s[i]:=s1[i];

If s[i]=0 then circle(8*i,10*j,1);

If s[i]=1 then circle(8*i,10*j,2);

If s[i]=2 then circle(8*i,10*j,3); end;

until (KeyPressed)or(j>3000);

Repeat until KeyPressed; CloseGraph;

END.