Выполните следующий код в системе Mathematica: r = 6197/3122;
p [k_, w _]: = Sqrt [w ^ 2 / r ^ 2-k ^ 2]; q [k_, w _]: = Sqrt [w ^ 2-k ^ 2];
a [k_, w_, p_, q _]: = (k ^ 2-q ^ 2) ^ 2 Sin [p] Cos [q] + 4k ^ 2 p q Cos [p] Sin [q]
a [k_, w _]: = a [k, w, p
вопрос задан: 18 August 2011 07:46