Моделирование перколяционного кластера. Гуньков В.В. - 4 стр.

UptoLike

ВУЗ: 

ОГУ | Оренбург

Составители: 

Рубрика: 

Рисунок 1 – Кластер
Просматривая последовательно все ячейки, будем заполнять их с
вероятностью p = 0.2:
p = 0.2;
Do[Do[ If[Random[]>p,m[[i,j]]=1], {j,numx}],{i,numy}]
ListDensityPlot[-m, Mesh->False];
После выполнения этих строк появится рисунок, похожий на
рисунок 2.
Рисунок 2 – Соединяющий кластер
Занятые ячейки здесь изображены черным цветом, свободные – белым.
Как видим, почти все ячейки принадлежат одному кластеру, который
соединяет одну сторону рассматриваемой области с другой. Такой кластер
называется соединяющим.
Задание 1. Повторите выполнение приведенных выше строк несколько раз
и, изменяя вероятность заполнения ячеек от 0 до 1, попытайтесь 
                         Рисунок 1 – Кластер

       Просматривая последовательно все ячейки, будем заполнять их с
вероятностью p = 0.2:
  p = 0.2;
  Do[Do[ If[Random[]>p,m[[i,j]]=1], {j,numx}],{i,numy}]
  ListDensityPlot[-m, Mesh->False];

      После выполнения этих строк появится рисунок, похожий на
рисунок 2.




                  Рисунок 2 – Соединяющий кластер

Занятые ячейки здесь изображены черным цветом, свободные – белым.
Как видим, почти все ячейки принадлежат одному кластеру, который
соединяет одну сторону рассматриваемой области с другой. Такой кластер
называется соединяющим.

Задание 1. Повторите выполнение приведенных выше строк несколько раз
и, изменяя вероятность заполнения ячеек от 0 до 1, попытайтесь

Страницы