Новое в системе Wolfram
Mathematica
9
◄
предыдущая
|
следующая
►
Новое в системе Wolfram
Mathematica
9
›
Расширенные базовые алгоритмы
Нахождение логарифма матрицы
Матричный логарифм - это по сути обратная функция от матричной экспоненциала.
In[1]:=
X
im = ImageCrop[ Binarize[Image[Graphics[Text[Style["log", "FontSize" -> 75]]]]]]; {dx, dy} = ImageDimensions[im]; If[dx > dy, imp = ImagePad[ im, {{0, 0}, {Floor[(dx - dy)/2], Ceiling[(dx - dy)/2]}}, 1], imp = ImagePad[ im, {{Floor[(dy - dx)/2], Ceiling[(dy - dx)/2]}, {0, 0}}, 1]]; m = MatrixExp[1. - ImageData[imp]];
Out[14]=
