Witam,
mam problem z transponowaniem macierzy... Robie coś takiego:
For i = 1 To wA
macierzX(i, 1) = wyr_wol(i, 1)
macierzX(i, 2) = t(i, 2)
macierzX(i, 3) = t2(i, 3)
macierzX(i, 4) = Q1_Q4(i, 4)
macierzX(i, 5) = Q2_Q4(i, 5)
macierzX(i, 6) = Q3_Q4(i, 6)
Next i
For i = 1 To wA
For j = 1 To 6
Cells(wC + i, kC + j).Value = macierzX(i, j)
Next j
Next i
ReDim transponowana(6, wA)
transponowana = WorksheetFunction.Transpose(macierzX)
For i = 1 To 6
For j = 1 To wA
Cells(wC + i, kC + j + 7).Value = transponowana(i, j)
Next j
Next i
i teraz po wyświetleniu 'transponowana' "zjada" mi jeden wiersz i jedną kolumne, a jeżeli zmienie na transponowana(i + 1, j + 1) wyświetla dobrze (wyświetlanie tylko w ramach sprawdzenia). Później kiedy chce wykonać:
wynik_xT_X = WorksheetFunction.MMult(transponowana, macierzX)
wyskakuje
"Run-time error '1004'
Pobranie właściwości MMult klasy WorksheetFinction nie jest możliwe"
Domyślam się że nie zgadza się liczba kolumn transponowanej z liczbą wierszy macierzX...
Dlaczego tak się dzieje???
Pozdrawiam,
abuk |