Option Explicit Option Base 1 Sub z1() Dim i As Long, j As Long, k As Long, n As Double Dim X(20) As Long, Y(20) As Double Dim A(20, 20) As Double, B(20, 20) As Double, C(20, 20) As Double Dim XTY As Double, ABT(20, 20) As Double Worksheets("Sheet1").Activate n = Cells(1, 1) For i = 1 To n For j = 1 To n A(i, j) = Cells(i + 1, j) Next Next Worksheets("Sheet2").Activate n = Cells(1, 1) For i = 1 To n For j = 1 To n B(i, j) = Cells(i + 1, j) Next Next Worksheets("Sheet3").Activate n = Cells(1, 1) For i = 1 To n X(i) = Cells(i + 1, 1) Y(i) = Cells(i + 1, 2) Next XTY = 0 For i = 1 To n XTY = XTY + X(i) * Y(i) Next For i = 1 To n For j = 1 To n ABT(i, j) = 0 For k = 1 To n ABT(i, j) = ABT(i, j) + A(i, k) * B(j, k) Next Next Next C(1, 1) = XTY For i = 1 To n For j = 1 To n C(i + 1, j) = ABT(i, j) C(1, j + 1) = Y(i) Next Next For i = 1 To n C(i + 1, n + 1) = X(i) Next Worksheets.Add For i = 1 To n + 1 For j = 1 To n + 1 Cells(i, j) = C(i, j) Next Next End Sub Sub z2() Dim i As Long, j As Long, k As Long, n As Double Dim X(20) As Long, Y(20) As Double Dim A(20, 20) As Double, B(20, 20) As Double, C(20, 20) As Double Dim YXT(20, 20) As Double, BX(20) As Double, YTY As Double, XTA(20) As Double Worksheets("Sheet1").Activate n = Cells(1, 1) For i = 1 To n For j = 1 To n A(i, j) = Cells(i + 1, j) Next Next Worksheets("Sheet2").Activate n = Cells(1, 1) For i = 1 To n For j = 1 To n B(i, j) = Cells(i + 1, j) Next Next Worksheets("Sheet3").Activate n = Cells(1, 1) For i = 1 To n X(i) = Cells(i + 1, 1) Y(i) = Cells(i + 1, 2) Next YTY = 0 For i = 1 To n YTY = YTY + Y(i) * Y(i) Next For i = 1 To n For j = 1 To n YXT(i, j) = Y(i) * X(j) Next Next For i = 1 To n BX(i) = 0 For j = 1 To n BX(i) = BX(i) + B(i, j) * X(j) Next Next For i = 1 To n XTA(j) = 0 For j = 1 To n XTA(j) = XTA(j) + X(i) * A(i, j) Next Next C(1, 1) = YTY For i = 1 To n For j = 1 To n C(i, j + 1) = YXT(i, j) C(i + 1, 1) = BX(i) C(n + 1, j + 1) = XTA(j) Next Next Worksheets.Add For i = 1 To n + 1 For j = 1 To n + 1 Cells(i, j) = C(i, j) Next Next End Sub Sub z3() Dim i As Long, j As Long, k As Long, n As Double Dim X(20) As Long, Y(20) As Double Dim A(20, 20) As Double, B(20, 20) As Double, C(20, 20) As Double Dim ATX(20) As Double, ABT(20, 20) As Double Dim YTX As Double Worksheets("Sheet1").Activate n = Cells(1, 1) For i = 1 To n For j = 1 To n A(i, j) = Cells(i + 1, j) Next Next Worksheets("Sheet2").Activate n = Cells(1, 1) For i = 1 To n For j = 1 To n B(i, j) = Cells(i + 1, j) Next Next Worksheets("Sheet3").Activate n = Cells(1, 1) For i = 1 To n X(i) = Cells(i + 1, 1) Y(i) = Cells(i + 1, 2) Next For i = 1 To n ATX(i) = 0 For j = 1 To n ATX(i) = ATX(i) + A(j, i) * X(j) 'nije A(i,j) zato sto je transponovano Next Next For i = 1 To n For j = 1 To n ABT(i, j) = 0 For k = 1 To n ABT(i, j) = ABT(i, j) + A(i, k) * B(j, k) 'nije B(k,j) zato sto je transponovano Next Next Next YTX = 0 For i = 1 To n YTX = YTX + X(i) * Y(i) Next C(n + 1, n + 1) = 1 / YTX For i = 1 To n For j = 1 To n C(i, j + 1) = ABT(i, j) Next Next For i = 1 To n C(i, 1) = ATX(i) C(n + 1, i) = Y(i) Next Worksheets.Add For i = 1 To n + 1 For j = 1 To n + 1 Cells(i, j) = C(i, j) Next Next End Sub Sub z4() Dim i As Long, j As Long, k As Long, n As Double Dim X(20) As Long, Y(20) As Double Dim A(20, 20) As Double, B(20, 20) As Double, C(20, 20) As Double Dim A2(20, 20) As Double, BX(20) As Double Dim A2B(20, 20) As Double, ATY(20) As Double Worksheets("Sheet1").Activate n = Cells(1, 1) For i = 1 To n For j = 1 To n A(i, j) = Cells(i + 1, j) Next Next Worksheets("Sheet2").Activate n = Cells(1, 1) For i = 1 To n For j = 1 To n B(i, j) = Cells(i + 1, j) Next Next Worksheets("Sheet3").Activate n = Cells(1, 1) For i = 1 To n X(i) = Cells(i + 1, 1) Y(i) = Cells(i + 1, 2) Next For i = 1 To n BX(i) = 0 For j = 1 To n BX(i) = BX(i) + B(i, j) * X(j) Next Next For i = 1 To n A2(i, j) = 0 For j = 1 To n A2(i, j) = A2(i, j) + A(i, j) * A(i, j) Next Next For i = 1 To n For j = 1 To n A2B(i, j) = 0 For k = 1 To n A2B(i, j) = A2B(i, j) + A2(i, k) * B(k, j) Next Next Next For i = 1 To n ATY(i) = 0 For j = 1 To n ATY(i) = ATY(i) + A(j, i) * Y(j) Next Next For i = 1 To n For j = 1 To n C(i, 1) = BX(i) C(i, j + 1) = A2B(i, j) C(i, n + 2) = ATY(i) Next Next Worksheets.Add For i = 1 To n For j = 1 To n + 2 Cells(i, j) = C(i, j) Next Next End Sub Sub z5() Dim i As Long, j As Long, k As Long, n As Double Dim X(20) As Long, Y(20) As Double Dim A(20, 20) As Double, B(20, 20) As Double, C(20, 20) As Double Dim XTXY(20) As Double, YXT(20, 20) As Double, YXTB(20, 20) As Double Dim XTX As Double Worksheets("Sheet1").Activate n = Cells(1, 1) For i = 1 To n For j = 1 To n A(i, j) = Cells(i + 1, j) Next Next Worksheets("Sheet2").Activate n = Cells(1, 1) For i = 1 To n For j = 1 To n B(i, j) = Cells(i + 1, j) Next Next Worksheets("Sheet3").Activate n = Cells(1, 1) For i = 1 To n X(i) = Cells(i + 1, 1) Y(i) = Cells(i + 1, 2) Next XTX = 0 For i = 1 To n XTX = XTX + X(i) * X(i) Next For i = 1 To n XTXY(i) = XTX * Y(i) Next For i = 1 To n For j = 1 To n YXT(i, j) = Y(i) * X(j) Next Next For i = 1 To n For j = 1 To n YXTB(i, j) = 0 For k = 1 To n YXTB(i, j) = YXTB(i, j) + YXT(i, k) * B(k, j) Next Next Next For i = 1 To n For j = 1 To n C(i, 1) = Y(i) C(i, 2) = XTXY(i) C(i, j + 2) = YXTB(i, j) Next Next Worksheets.Add For i = 1 To n For j = 1 To n + 2 Cells(i, j) = C(i, j) Next Next End Sub Sub z6() Dim i As Long, j As Long, k As Long, n As Double Dim X(20) As Long, Y(20) As Double Dim A(20, 20) As Double, B(20, 20) As Double, C(20, 20) As Double Dim XTYB(20, 20) As Double, AB(20, 20) As Double, ABA(20, 20) As Double Dim XTY As Double Worksheets("Sheet1").Activate n = Cells(1, 1) For i = 1 To n For j = 1 To n A(i, j) = Cells(i + 1, j) Next Next Worksheets("Sheet2").Activate n = Cells(1, 1) For i = 1 To n For j = 1 To n B(i, j) = Cells(i + 1, j) Next Next Worksheets("Sheet3").Activate n = Cells(1, 1) For i = 1 To n X(i) = Cells(i + 1, 1) Y(i) = Cells(i + 1, 2) Next For i = 1 To n For j = 1 To n AB(i, j) = 0 For k = 1 To n AB(i, j) = AB(i, j) + A(i, k) * B(k, j) Next Next Next For i = 1 To n For j = 1 To n ABA(i, j) = 0 For k = 1 To n ABA(i, j) = ABA(i, j) + AB(i, k) * A(k, j) Next Next Next XTY = 0 For i = 1 To n XTY = XTY + X(i) * Y(i) Next For i = 1 To n For j = 1 To n XTYB(i, j) = XTY * B(i, j) Next Next For i = 1 To n For j = 1 To n C(i, j) = ABA(i, j) C(i, n + j) = XTYB(i, j) C(i, 2 * n + 1) = Y(i) Next Next Worksheets.Add For i = 1 To n For j = 1 To 2 * n + 1 Cells(i, j) = C(i, j) Next Next End Sub Sub z7() Dim i As Long, j As Long, k As Long, n As Double Dim X(20) As Long, Y(20) As Double Dim A(20, 20) As Double, B(20, 20) As Double, C(20, 20) As Double Dim XTBT(20) As Double, ATA(20, 20) As Double Dim YTX As Double Worksheets("Sheet1").Activate n = Cells(1, 1) For i = 1 To n For j = 1 To n A(i, j) = Cells(i + 1, j) Next Next Worksheets("Sheet2").Activate n = Cells(1, 1) For i = 1 To n For j = 1 To n B(i, j) = Cells(i + 1, j) Next Next Worksheets("Sheet3").Activate n = Cells(1, 1) For i = 1 To n X(i) = Cells(i + 1, 1) Y(i) = Cells(i + 1, 2) Next For i = 1 To n XTBT(j) = 0 For j = 1 To n XTBT(j) = XTBT(j) + X(i) * B(i, j) Next Next For i = 1 To n For j = 1 To n ATA(i, j) = 0 For k = 1 To n ATA(i, j) = ATA(i, j) + A(k, i) * B(j, k) Next Next Next YTX = 0 For i = 1 To n YTX = YTX + X(i) * Y(i) Next For i = 1 To n For j = 1 To n C(i + 1, j) = ATA(i, j) C(i + n + 1, j) = YTX * B(i, j) Next Next For i = 1 To n C(1, i) = XTBT(i) Next Worksheets.Add For i = 1 To 2 * n + 1 For j = 1 To n Cells(i, j) = C(i, j) Next Next End Sub Sub z8() Dim i As Long, j As Long, k As Long, n As Double Dim X(20) As Long, Y(20) As Double Dim A(20, 20) As Double, B(20, 20) As Double, C(20, 20) As Double Dim YTA2(20) As Double, A2(20, 20) As Double Dim XTX As Double, XTXBT(20, 20) As Double Worksheets("Sheet1").Activate n = Cells(1, 1) For i = 1 To n For j = 1 To n A(i, j) = Cells(i + 1, j) Next Next Worksheets("Sheet2").Activate n = Cells(1, 1) For i = 1 To n For j = 1 To n B(i, j) = Cells(i + 1, j) Next Next Worksheets("Sheet3").Activate n = Cells(1, 1) For i = 1 To n X(i) = Cells(i + 1, 1) Y(i) = Cells(i + 1, 2) Next For i = 1 To n A2(i, j) = 0 For j = 1 To n A2(i, j) = A2(i, j) + A(i, j) * A(i, j) Next Next For i = 1 To n YTA2(j) = 0 For j = 1 To n YTA2(j) = YTA2(j) + Y(i) * A2(i, j) Next Next XTX = 0 For i = 1 To n XTX = XTX + X(i) * X(i) Next For i = 1 To n For j = 1 To n XTXBT(i, j) = XTX * B(j, i) Next Next For i = 1 To n C(1, i) = X(i) Next For i = 1 To 2 + n For j = 1 To n C(1, j) = X(j) C(2, j) = YTA2(j) C(i + 2, j) = XTXBT(i, j) Next Next Worksheets.Add For i = 1 To n + 2 For j = 1 To n Cells(i, j) = C(i, j) Next Next End Sub Sub z9() Dim i As Long, j As Long, k As Long, n As Double Dim X(20) As Long, Y(20) As Double Dim A(20, 20) As Double, B(20, 20) As Double, C(20, 20) As Double Dim YTAT(20) As Double, XTY As Double Dim YXT(20, 20) As Double, XTYXT(20) As Double Worksheets("Sheet1").Activate n = Cells(1, 1) For i = 1 To n For j = 1 To n A(i, j) = Cells(i + 1, j) Next Next Worksheets("Sheet2").Activate n = Cells(1, 1) For i = 1 To n For j = 1 To n B(i, j) = Cells(i + 1, j) Next Next Worksheets("Sheet3").Activate n = Cells(1, 1) For i = 1 To n X(i) = Cells(i + 1, 1) Y(i) = Cells(i + 1, 2) Next For i = 1 To n For j = 1 To n YXT(i, j) = Y(i) * X(j) Next Next For i = 1 To n YTAT(j) = 0 For j = 1 To n YTAT(j) = YTAT(j) + Y(i) * A(j, i) Next Next XTY = 0 For i = 1 To n XTY = XTY + X(i) * Y(i) Next For i = 1 To n For j = 1 To n XTYXT(i) = XTY * X(j) Next Next For i = 1 To n C(1, i) = X(i) Next For i = 1 To 2 + n For j = 1 To n C(i, j) = YXT(i, j) C(n + 1, j) = YTAT(j) C(n + 2, j) = XTYXT(j) Next Next Worksheets.Add For i = 1 To n + 2 For j = 1 To n Cells(i, j) = C(i, j) Next Next End Sub