последовательное умножение матрицы самой на себя...

[muter]

Дана матрица А(n, n), где сумма всех элементов матрицы равна 1 и
0<=a[i,j]<=1. Составить программу последовательного умножения матрицы самой на себя. Процесс закончить, когда все элементы двух последовательных матриц будут отличаться друг от друга меньше, чем на 10^-3 .

Как сделать условие, чтобы элементы отличались друг от друга на
10 ^-3 степени тобишь на 0.001.?

[GSerg]

Если (Abs([максимальный элемент матрицы] минус [минимальный элемент матрицы]) < .001), то выполняется.

[muter]

что выполняется - перемножение?
максимальный и минимальный элемент каждый раз искать в цикле, где идет последовательно е перемножение?

[FaKk2]

muter
GSerg привел условие, по которому ты найдешь элементы, которые отличаются друг от друга меньше, чем на 10^-3

[muter]

я правильно вас понял?

Код: Выделить всё

max = -3.402823
min = 3.402823
1:
For i = 1 To n
For j = 1 To n
b(i, j) = a(i, j) * b(i, j)
If max < b(i, j) Then max = b(i, j)
If min > b(i, j) Then min = b(i, j)
Next j
Next i

If Abs(max - min) < 0.001 Then GoTo 1

'вывод конечного массива



[uhm]

Че-то по-моему никто не понял условия задачи. Если я его правильно понимаю, то мы имеем последовательность матриц A(i), где A(i+1)=A(i)*A(i), и процесс надо заканчивать, если каждый элемент матрицы A(i+1) отличается от соответствующего элемента матрицы A(i) не более, чем на 0.001. Я не прав?

Кроме того, muter, из того примера, который ты привел, у меня зародилось подозрение, что ты не знаешь, как перемножаются матрицы. Я снова не прав?

[muter]

возможно ты прав, подскажи?

[muter]

Код: Выделить всё

{ вычисление произведения матриц }
{подсчет матрицы AxB}
for y = 1 to count  'спускаемся вниз по строкам
   for x = 1 to Count  'идем по элементам строк вправо
   R = 0                      'обнуляем сумму произведений
  for i= 1 to Count      'идем под горизонтали Mat1 и по вертикали
   r= R + mat1[i, y]*Mat2[x, i]
  ResMat1[x, y]= R              'Resmat1[x, y] = результат = R
  next i
next x
next y


теперь я прав?

[uhm]

Ага, теперь, вроде, похоже, только строчки "ResMat1[x, y]= R" и "next i" стоило бы поменять местами, а то лишние операции происходят. А по исходной задачке тогда все просто - пробегаешь циклом все элементы двух матриц и смотришь, отличаются ли они по модулю (Abs) больше, чем на 0,001, если да, то выходишь из цикла и продолжаешь умножать до посинения

[muter]

Код: Выделить всё

2:
p = 0
For i = 1 To n
For j = 1 To n
b(i, j) = a(i, j) * b(i, j)
If Abs(b(i, j) - a(i, j)) < 0.001 Then p = p + 1
a(i, j) = b(i, j)
Next j
Next i
If p = n * n Then
GoTo 1
Else
GoTo 2
End If
1:


а разве не так происходит перемножение матриц?
что значит перемножить матрицу саму на себя?
это
пример:
0.25 0.25 0.0625 0.0625
0.125 0.5 0.015625 0.25