Quellcode
- Dim matrixCalc() As Double ' Rechnungsmatrix
- Dim matrixResult() As Double ' Ergebnisssmatrix
- For TT1 = 130 To TT1 Step 0.1
- n = n + 1
- glA = TT1*Cp*mf
- glB = Exp((mF * cp))
- ' Neudimensionierung
- Redmin matrixCalc(n, 4) 'matrixCalcum eine (Zeile) erweitern
- Redmin matrixResult(n, 3) 'matrixResult um eine (Zeile) erweitern
- ' In Matrixsschreiben 'ergebnisse der Gl1&Gl2 samt variabelnen matrixCalc an n'ter stelle schreibenNext
- TT2
Hallo zusammen brauche hilfe bei erweiterung einer matrix.
Ich habe euch ausschnitt meines codes mit geteilt leider weis ich nicht mehr wie die kommentiereten zeilen ausformulieren kann.
in prinzip möchte die ergebnisse der gleichungen in matrix schreiben die aus "n" zeilen besteht und feste spalten zahl von 4 hat.
ich glaub mit "Redmin" bin auch richtigen weg!?
ps warum bekomm ich keine absätze in mein code ? jehu code wird richtig angezeitgt!
