tau := Vector(8, [0 1 3 6 10 15 21 28]);
VV := Matrix(8,8,[[seq(exp(I*4*Pi*tau[k]*5.3/0.03,k=1..8)]$ m=1..8],shape=diagonal):
evalf(VV);
Выдает совершенно не правильный результат. Правда, иногда какими-то
манипуляциями (случайно) удается получить правильный. И вообще,
exp(X), где X - комплексная ф-ция, с увеличением дробных чисел в ней
начинает левизну выдавать...
Может кто сталкивался или попробует посчитать ?
Правильный ответ (ӕто главная диагональ):
1.00000 + 0.00000i
-0.50000 + 0.86603i
1.00000 - 0.00000i
1.00000 - 0.00000i
-0.50000 + 0.86603i
1.00000 - 0.00000i
1.00000 + 0.00000i
-0.50000 + 0.86603i
Форум —
Development


