Форум атеистов Рунета

Не понял, как вы считали логарифм от матриц
2 1
0 1
и
1 0
-1 1

_________________
Мудрость - это понимание своего бессилия перед глупостью.
Во имя овса и сена, и свиного уха

Действительно; матричный калькулятор дает результат, отличный от моего.
Странно… Где я ошибся?

_________________
Мудрость - это понимание своего бессилия перед глупостью.
Во имя овса и сена, и свиного уха

Логарифмы матриц не однозначны.

Решил как-то президент национальное достояние страны спасти от народа. Перевести его на свои счета и счета друзей заграницу. Чтоб тайно работу провести поймал несколько экономистов. Изолировал их в секретном дворце, обещал кормить пока всю работу не сделают. Но попался среди экономистов один особенно крупный, ел за пятерых при той же производительности. Когда уже половину состояния страны перевели заграницу президент понял, что всю припасенную еду во дворце, экономисты съедят, когда еще 10% состояния окажется непереведенным. А подвозить еду нельзя. Журналисты кругами ходят вокруг дворца. Спецслужбы сачками никак квадрокоптеры поймать не могу.
Пришлось обжору замуровать в комнате с шестом, типа для похудения. А остальные экономисты продолжили работу. И по завершению перевода богатства страны за границу, даже осталась 1/21 часть от первоначального запаса еды во дворце. Посему даже пир устроили и здравицы звучали за Панаму, Кипр…
Вопрос сколько экономистов поймал президент для столь благородной работы?

10 человек вместе с обжорой.

_________________
Мудрость - это понимание своего бессилия перед глупостью.
Во имя овса и сена, и свиного уха

Написать функцию пользователя в Excel/VBA для разложения натуральных чисел на простые множители.

_________________
Мудрость - это понимание своего бессилия перед глупостью.
Во имя овса и сена, и свиного уха

Не стал соревноваться с гуру. Просто скопировал с инета:
Function MCH_F$(X&)
Dim n1&, n2&, A(), j&, U&, Y&
j = 0
Select Case X
Case 0 To 3, 5, 7
MCH_F = "Prime"
Exit Function
End Select
Do While X Mod 2 = 0
ReDim Preserve A(j)
A(j) = 2
X = X / 2
j = j + 1
Loop
Do While X Mod 3 = 0
ReDim Preserve A(j)
A(j) = 3
X = X / 3
j = j + 1
Loop
U = X \ 2
n1 = 5
n2 = 7
Do While n1 < U
Y = X
Do While X Mod n1 = 0
ReDim Preserve A(j)
A(j) = n1
X = X / n1
j = j + 1
Loop
If X Mod n2 = 0 Then
ReDim Preserve A(j)
A(j) = n2
X = X / n2
j = j + 1
End If
If X <> Y Then
U = X \ 2
End If
n1 = n1 + 6
n2 = n1 + 2
Loop
If j = 0 Then
MCH_F = "Prime"
Else
If X <> 1 Then
ReDim Preserve A(j)
A(j) = X
End If
MCH_F = Join(A, "*")
End If
End Function
Проверил работает. Таких программок в сети море. Есть встроенные функции разложения во многих программах. В Wolthram mathematica есть FactorInteger очень мощная функция. Появись у меня такая программка лет 30 назад, я бы даже деньги немалые заработал. Разработчики PGP предлагали премии до миллиона баксов за разложение числа на пару простых множителей. Теперь отменили. Слишком хороши компьютеры стали. А сами числа для шифрования заоблачной длины теперь применяют. Впрочем и от шифрования простыми числами уже отошли. Пользуются другими методами -эллиптическими кривыми, например. Но сам вопрос по-прежнему актуален. Универсального метода разложения на множители нет. Если бы вы предложили какие-нибудь идеи в этой области мне было бы интересно. Да и всему миру тоже.

Хорошая функция. Только у нее один недостаток: результат является не числом (числами), а текстом; использовать его для дальнейших вычислений невозможно без предварительной переработки.
Пришлось написать собственные функции (их имена выделены красным):

Function PrimFaktor(N As Long) As Long ‘ Находит наименьший простой делитель числа N
If IstPrim(N) Then PrimFaktor = N: GoTo Finish
Dim Teiler As Integer ' Teiler - делитель (нем.)
Teiler = 1
Do
. Teiler = NextPrim(Teiler)
Loop Until IstTeilbar(N, Teiler) Or Teiler > Sqr(N)
PrimFaktor = Teiler
Finish:
End Function
––––––––––––––––––––––––––––––––––––––
Function IstPrim(N) As Boolean ‘Проверяет, является ли число N простым
Dim Teiler As Integer, Max As Integer
. If N = 2 Then
. IstPrim = True
. GoTo Finish
. End If
IstPrim = True
If IstGerade(N) Then
. IstPrim = False
. GoTo Finish
End If
Max = Sqr(N)
For Teiler = 3 To Max Step 2
. If IstTeilbar(N, Teiler) Then
. IstPrim = False
. GoTo Finish
. End If
Next Teiler
Finish:
End Function
––––––––––––––––––––––––––––––––––––––
Function NextPrim(N) As Long ’Находит наименьшее простое число, бо́льшее N
If N < 2 Then N = 2: GoTo Finish
If IstGerade(N) Then N = N - 1
Do
. N = N + 2
Loop Until IstPrim(N)
Finish:
NextPrim = N
End Function
––––––––––––––––––––––––––––––––––––––
Function IstGanz(X) As Boolean ‘Проверяет, является ли число Х целым
IstGanz = (X = Int(X))
End Function
––––––––––––––––––––––––––––––––––––––
Function IstTeilbar(N, K) As Boolean ‘Проверяет, делится ли число N на число K
IstTeilbar = IstGanz(N / K)
End Function
––––––––––––––––––––––––––––––––––––––
Function IstGerade(N) As Boolean ‘Проверяет, является ли число N четным
IstGerade = IstGanz(N / 2)
End Function

_________________
Мудрость - это понимание своего бессилия перед глупостью.
Во имя овса и сена, и свиного уха