Модель теплообмена в твёрдом теле

Модель (двухмерная) реализована в формате Excel-2007, файл *.xlsm со встроенным макросом можно скачать здесь:

http://yadi.sk/d/VhcvHA9LQPUF

Рисунок, иллюстрирующий работу макроса, вот:




Идея модели - имеется твёрдое тело, в одну точку которого - в точку А13 бьёт излучение лазера (мазера). В ячейке A1 можно указать другую мощность лазера, желательно в пределах 1-1000.
Теплота, получаемая точкой А13 вв виде электромагнитного излучения, за некоторое время t цикла полностью разлетается (переизлучается молекулами ячейки) по соседям - четверть - соседней ячейке В2, четверть - ячейке сверху А12, четверть - ячейку снизу А14, четверть - обратно в "атмосферу".

И так - каждая ячейка (домен атомов или молекул, входящих в состав твёрдого тела).
Для упрощения принято, что окружающая тело атмосфера полностью, т.е. абсолютно прозрачна для переизлучаемого твёрдым телом теплового электромагнитного излучения, то есть тепловое излучение, вылетевшее за пределы твердого тела, назад из атмосферы не переизлучается. То есть в этой модели мы имеем по сути не газовую атмосферу, а физический вакуум.
Если бы так было на самом деле, то нафиг были бы нужны вееры, вентиляторы, кулеры на процессорных радиаторах и т.д.

Для работы макроса надо разрешить поддержку макросов Excel'ом и запустить макрос "Теплообмен".
Перед запуском можно зайти в макрос, визуально просмотреть его код, убедиться в отсутствии вирусов - именно поэтому я не поставил макрос в автозапуск.