Программы, которые я понаходил

http://imlab.narod.ru/M_Fields/A_Magnet/A_Magnet.htm

http://electe.blogspot.com/2011/07/blog-post_27.html

Вот программа рассчитала...Не знаю правильно ли...
Получается, что если длина катушки = 20 см,
число витков = 500
Ток = 100 Амперам
Индукция получится 0.314 Тесоа.

http://treugoma.ru/book/elektromagnetizm/napryajennost-magnitnogo-pola/
расчёт показывает сходство с напряжённостью магнитного поля

теперь получаем 4 * 3.15 * 10 -7 * 250 000 = 0.315. Сходится...