В программе моделируется процесс нелинейной диффузии магнитного поля в цилиндрический индуктор при протекании через него сильных импульсных токов. Численная модель: уравнение Лапласа, уравнение нелинейной диффузии магнитного поля в индуктор, уравнение теплопроводности и уравнение электрической цепи генератора тока. Для определения величины магнитного поля на наружной и внутренней поверхностях одновиткового соленоида в момент времени t решалось уравнение Лапласа при условии равенства нулю нормальной к поверхности компоненты магнитного поля и фиксированном токе. Разработанная программа дает адекватное описание их нагрева и распределения плотности тока. Сравнение результатов моделирования с соответствующими экспериментами, использовано для определения магнитных полей и нагрева индуктора. Сравнение результатов моделирования с проведенными экспериментами показало, что данная модель удовлетворительно описывает распределение магнитного поля и нагрев индуктора. Visual Fortran