Банк рефератов содержит более 364 тысяч рефератов, курсовых и дипломных работ, шпаргалок и докладов по различным дисциплинам: истории, психологии, экономике, менеджменту, философии, праву, экологии. А также изложения, сочинения по литературе, отчеты по практике, топики по английскому.
Полнотекстовый поиск
Всего работ:
364150
Теги названий
Разделы
Авиация и космонавтика (304)
Административное право (123)
Арбитражный процесс (23)
Архитектура (113)
Астрология (4)
Астрономия (4814)
Банковское дело (5227)
Безопасность жизнедеятельности (2616)
Биографии (3423)
Биология (4214)
Биология и химия (1518)
Биржевое дело (68)
Ботаника и сельское хоз-во (2836)
Бухгалтерский учет и аудит (8269)
Валютные отношения (50)
Ветеринария (50)
Военная кафедра (762)
ГДЗ (2)
География (5275)
Геодезия (30)
Геология (1222)
Геополитика (43)
Государство и право (20403)
Гражданское право и процесс (465)
Делопроизводство (19)
Деньги и кредит (108)
ЕГЭ (173)
Естествознание (96)
Журналистика (899)
ЗНО (54)
Зоология (34)
Издательское дело и полиграфия (476)
Инвестиции (106)
Иностранный язык (62792)
Информатика (3562)
Информатика, программирование (6444)
Исторические личности (2165)
История (21320)
История техники (766)
Кибернетика (64)
Коммуникации и связь (3145)
Компьютерные науки (60)
Косметология (17)
Краеведение и этнография (588)
Краткое содержание произведений (1000)
Криминалистика (106)
Криминология (48)
Криптология (3)
Кулинария (1167)
Культура и искусство (8485)
Культурология (537)
Литература : зарубежная (2044)
Литература и русский язык (11657)
Логика (532)
Логистика (21)
Маркетинг (7985)
Математика (3721)
Медицина, здоровье (10549)
Медицинские науки (88)
Международное публичное право (58)
Международное частное право (36)
Международные отношения (2257)
Менеджмент (12491)
Металлургия (91)
Москвоведение (797)
Музыка (1338)
Муниципальное право (24)
Налоги, налогообложение (214)
Наука и техника (1141)
Начертательная геометрия (3)
Оккультизм и уфология (8)
Остальные рефераты (21697)
Педагогика (7850)
Политология (3801)
Право (682)
Право, юриспруденция (2881)
Предпринимательство (475)
Прикладные науки (1)
Промышленность, производство (7100)
Психология (8694)
психология, педагогика (4121)
Радиоэлектроника (443)
Реклама (952)
Религия и мифология (2967)
Риторика (23)
Сексология (748)
Социология (4876)
Статистика (95)
Страхование (107)
Строительные науки (7)
Строительство (2004)
Схемотехника (15)
Таможенная система (663)
Теория государства и права (240)
Теория организации (39)
Теплотехника (25)
Технология (624)
Товароведение (16)
Транспорт (2652)
Трудовое право (136)
Туризм (90)
Уголовное право и процесс (406)
Управление (95)
Управленческие науки (24)
Физика (3463)
Физкультура и спорт (4482)
Философия (7216)
Финансовые науки (4592)
Финансы (5386)
Фотография (3)
Химия (2244)
Хозяйственное право (23)
Цифровые устройства (29)
Экологическое право (35)
Экология (4517)
Экономика (20645)
Экономико-математическое моделирование (666)
Экономическая география (119)
Экономическая теория (2573)
Этика (889)
Юриспруденция (288)
Языковедение (148)
Языкознание, филология (1140)

Реферат: Клеточные автоматы и компьютерная экология

Название: Клеточные автоматы и компьютерная экология
Раздел: Рефераты по информатике, программированию
Тип: реферат Добавлен 18:54:37 11 марта 2005 Похожие работы
Просмотров: 348 Комментариев: 2 Оценило: 0 человек Средний балл: 0 Оценка: неизвестно     Скачать

А. Колесников

Третий Ангел вострубил, и упала с неба большая звезда, горящая подобно светильнику, и пала на третью часть рек и на источники вод. Имя сей звезде полынь; и третья часть вод сделалась полынью, и многие люди умерли от вод, потому что они стали горьки.

Откровение Святого Иоанна Богослова, гл. 8, ст. 10,11

Кто-то точно подметил, что разговор о погоде становится интересным лишь при первых признаках конца света. Сегодня ученые и политики обсуждают проблемы погоды на глобальных форумах, да и простые люди начинают потихоньку интересоваться погодой, причем не только на ближайшие выходные, но и вообще… Атмосфера - огромная, сложнейшая, распределенная, динамическая система. Предсказывать ее поведение чрезвычайно трудно, часто просто невозможно. Глядя на висящие в небесной синеве замысловатые облачные структуры, мы не всегда задумываемся о том, насколько масштабные и драматические процессы происходят там, в вышине. Совсем иное впечатление оставляет ускоренная съемка облачного неба. Картинка эволюции роящихся облачных масс невольно наводит на размышления о природе времени и смысле земного существования. Схожие, но более тревожные мысли навевают кадры, изображающие расползание смога над крупными мегаполисами или, хуже того, постепенной диффузии ядерного гриба… Все мы помним старые черно-белые учебные фильмы, повествующие о формировании зон заражения после атомного взрыва. Они классифицируются по степени опасности. Вблизи эпицентра располагается "мертвая" зона сплошного интенсивного заражения. Далее, в зависимости от направления ветра, зоны распределяются в виде вложенных друг в друга эллипсоидов рассеивания. В принципе, схожей будет картина распространения и любого другого загрязнителя от точечного источника, например, от дымящей трубы, взорвавшегося реактора или апокалиптической звезды из библейского пророчества. Процесс распространения загрязнителя в атмосфере - это процесс рассеивания и смешивания его частиц с частицами воздуха. На ход этого процесса существенное влияние оказывают собственные движения воздушных масс, то есть ветра. В одной и той же местности они дуют в различных направлениях с определенной частотой. Данные о частотах ветров наносятся на особую диаграмму, имеющую романтическое название, воспетое во множестве бардовских песен, - роза ветров. Частицы загрязнителя попадают от первоначального источника в соседние области. Затем из областей, непосредственно примыкающих к источнику, распространяются уже в их окрестностях, и так далее. Сам характер этого процесса указывает на то, что для моделирования рассеивания загрязнителя в атмосфере можно использовать подход, основанный на идеологии клеточных автоматов. В этом случае исследуемый участок представляется в виде клеточного поля. На поле помечаются клетки, в которых находятся эпицентры распространения загрязнения или заражения. Затем концентрацию загрязнителя в каждой клетке поля можно, например, приближенно оценивать по формуле:

(1)

где ak - это массив из девяти элементов, содержащий вероятности ветров соответствующих восьми направлений и вероятность штиля. Само собой разумеется, что девять вероятностей ветров различных направлений, включая вероятность штиля, должны в сумме давать единицу. C* k - это вектор из девяти элементов, содержащий концентрации загрязнителя в соседних с данной восьми клетках и в ней самой. Шаг за шагом для всех клеток поля вычисляется сумма произведений концентраций в соседних восьми ячейках на соответствующие вероятности ветров. К сумме прибавляется еще и произведение вероятности штиля на концентрацию загрязнителя в самой текущей клеточке. Для нормальной работы программы необходимо иметь две копии клеточного поля. В одной из копий следует хранить предыдущее поколение, а в другой - последующее. При смене поколений содержимое последующего поколения становится предыдущим. Из расчетов исключаются крайние ряды ячеек. Это делается для того, чтобы избежать "пограничных" проблем при применении формулы (1). Повторяя расчеты многократно, мы можем наблюдать динамику формирования эллипсоидов рассеивания во времени. При разовом "впрыске" загрязнителя в какую-либо ячейку он быстро рассасывается по клеточному массиву. Для получения более выразительной картины рассеивания в предлагаемом на врезке фрагменте программного кода "впрыск" загрязнителя в соответствующие ячейки осуществляется в начале расчета каждого очередного поколения. Значения концентраций выбросов вводятся в ячейки в неких произвольных единицах.

Для восприятия результатов моделирования важна раскраска клеток. В приведенном программном фрагменте использован алгоритм, переводящий значения концентраций загрязнителя в различные градации яркости цветов - от темно-красного до темно-зеленого. При этом высокие значения концентраций изображаются оттенками красного, который, по мере снижения Z, переходит в желтый, а затем постепенно затухает до темно-зеленого цвета.

Конечно, для по-настоящему точных моделей процессов рассеивания атмосферных загрязнителей следует обращаться к намного более прецизионным методикам, чем та, о которой шла речь. Но все же в данном случае вам нет необходимости решать головоломную систему умопомрачительных дифференциальных уравнений в частных производных на суперкомпьютере астрономической стоимости. При помощи этой несложной программки вы можете выполнить некое небольшое занимательное миниисследование по компьютерному моделированию экологической ситуации в вашем районе, городе или области в пределах временных рамок одной лабораторной работы.

DefByte I-K

DefInt L-N

Dim G As Byte

Dim a(1 To 9) As Single

Dim b(1 To 200, 1 To 200) As Single

Dim c(1 To 200, 1 To 200) As Single

Dim Color As Long

Dim Zmin As Single

Dim Zmax As Single

Dim R As Single

Dim R4 As Single

Dim Z14 As Single

Dim Z24 As Single

Dim Z34 As Single

Private Sub Form_Click()

a(1) = 0.05

a(2) = 0.05

a(3) = 0.1

a(4) = 0.1

a(5) = 0.1

a(6) = 0.1

a(7) = 0.1

a(8) = 0.15

a(9) = 0.25

z = 7

Zmin = 0

Zmax = 2

R = Zmax - Zmin

R4 = R / 4

Z14 = Zmin + R4

Z24 = Z14 + R4

Z34 = Z24 + R4

n = 50

G = 50

For f = 1 To G

b(35, 35) = z

b(45, 15) = z / 2

For i = 2 To n - 1

For j = 2 To n - 1

c(i, j) = 0

k = 0

For l = -1 To 1

For m = -1 To 1

k = k + 1

c(i, j) = c(i, j) + a(k) * b(i + l, j + m)

Next m

Next l

Next j

Next i

For i = 1 To n

For j = 1 To n

Color = SetColor(c(i, j))

Line (6 * (i - 1), 6 * (j - 1))-(6 * i - 1, 6 * j - 1), Color, BF

b(i, j) = c(i, j)

Next j

Next i

Next f

End Sub

Public Function SetColor(z As Single) As Long

Dim t As Byte

Select Case z

Case Is < Zmin

SetColor = RGB(0, 63, 0)

Case Zmin To Z14

t = 63 + 192 * (z - Zmin) / R4

SetColor = RGB(0, t, 0)

Case Z14 To Z24

t = 255 * (z - Z14) / R4

SetColor = RGB(t, 255, 0)

Case Z24 To Z34

t = 255 * (1 - (z - Z24) / R4)

SetColor = RGB(255, t, 0)

Case Z34 To Zmax

t = 63 + 192 * (1 - (z - Z34) / R4)

SetColor = RGB(t, 0, 0)

Case Is > Zmax

SetColor = RGB(63, 0, 0)

End Select

End Function

Оценить/Добавить комментарий
Имя
Оценка
Комментарии:
Где скачать еще рефератов? Здесь: letsdoit777.blogspot.com
Евгений21:40:15 18 марта 2016
Кто еще хочет зарабатывать от 9000 рублей в день "Чистых Денег"? Узнайте как: business1777.blogspot.com ! Cпециально для студентов!
08:54:58 24 ноября 2015

Работы, похожие на Реферат: Клеточные автоматы и компьютерная экология

Назад
Меню
Главная
Рефераты
Благодарности
Опрос
Станете ли вы заказывать работу за деньги, если не найдете ее в Интернете?

Да, в любом случае.
Да, но только в случае крайней необходимости.
Возможно, в зависимости от цены.
Нет, напишу его сам.
Нет, забью.



Результаты(151115)
Комментарии (1843)
Copyright © 2005-2016 BestReferat.ru bestreferat@mail.ru       реклама на сайте

Рейтинг@Mail.ru