= t + dt;;: = 2 * (s * dt/3)/period; abs (s)
{assign (ex, 'H: Phoenix Afi.txt'); (ex);} a0: = si (1,0); ('a0 =', a0: 0: 7);
{for k: = 1 to n do} i <= id do [k]: = si (2, k); [k]: = si (3, k);: = sqrt (sqr (ak [k]) + sqr (bk [k])); (ak [k]> 0) and (bk [k]> 0) then phi: = arctan (ak [k]/bk [ k]); (ak [k]> 0) and (bk [k] <0) then phi: = arctan (ak [k]/bk [k]) + pi; (ak [k]> 0 ) and (bk [k] = 0) then phi: = pi/2; (ak [k] <0) and (bk [k]> 0) then phi: = arctan (ak [k]/bk [ k]) +2 * pi; (ak [k] <0) and (bk [k] <0) then phi: = arctan (ak [k]/bk [k]) + pi; (ak [k ] <0) and (bk [k] = 0) then phi: = 3 * pi/2; (ak [k] = 0) and (bk [k]> 0) then phi: = 0; (ak [k] = 0) and (bk [k] <0) then phi: = pi; (ak [k] = 0) and (bk [k] = 0) then writeln ('net'); ({ex ,} k: 2, ak [k]: 8:4, bk [k]: 8:4, Ampl: 6:2, phi * 180/pi: 6:0);
В
Висновок
Цей метод дає точні результати, за досить велику кількість ітерацій і ще один недолік, це складні і громіздкі обчислення.
Список літератури
1.К. Ланцоша, Практичні методи прикладного аналізу, 1961. p> 2.І. С. Березін і М. П. Жидков, Методи обчислень у 2 томах, 1959-1962. p>. Демидович Б.П. і Марон І.А. Основи обчислювальної математики. - Наука, 1970. - С. 664. p>. Бахвалов, Жидков, Кобельков Чисельні методи. - Наука. p> 5.Каханер Д., Моулер К., Неш С. Чисельні методи та програмне забезпечення (пер. з англ.). М.: Мир, 2001, 575 c. p>. Самарський А. А. Гулин А. В. Чисельні методи: Учеб. посібник для вузів. - М.: Наука. Гол. ред. фіз-мат. літ., 1989. - 432 с. p>. Піскунов Н. С. Диференціальне та інтегральне числення для вузів. - 13-е вид. - М.: Наука. Гол. ред. фіз-мат. літ., 1985. - 432 с. p> 8.І.П. Натансон: Короткий курс вищої математики
9.І.І. Валуце, Г.Д. Ділігун: Математика для технікумів
. І.А. Цукровиків: Вища математика
. П.П. Коровнін: Математичний аналіз
. Л.І.Ліхтарніков, О.М. Поволоцький: основи математичного аналізу
13.http ://ph4s.ru/book_pc_chisl.html
