Excel aufmöbeln mit VBA
Excel aufmöbeln mit VBA
Excel aufmöbeln mit VBA
Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.
YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.
idn = WorksheetFunction.MMult(mat, inv)<br />
<br />
Sheets(5).Cells(1, 1).Value = "Hilbert Matrix"<br />
Sheets(5).Rows("2:" & CStr(n + 1)).NumberFormat="# ???/???"<br />
Sheets(5).Cells(2, 1).Resize(n, n).Value = mat<br />
Sheets(5).Cells(3 + n, 1).Value = "Inverse Hilbert Matrix"<br />
Sheets(5).Cells(4 + n, 1).Resize(n, n).Value = inv<br />
Sheets(5).Cells(5 + 2 * n, 1).Value = "Einheitsmatrix?"<br />
Sheets(5).Cells(6 + 2 * n, 1).Resize(n, n).Value = idn<br />
End Sub<br />
Variant <br />
MMult MInv <br />
<br />
mat <br />
<br />
<br />
Vec2String() <br />
(v1, v2, . . . , vn) <br />
v <br />
MaxNorm()<br />
v p ≥ 1 <br />
<br />
<br />
u<br />
vp = |v(i)| p<br />
i=l<br />
1/p<br />
, <br />
l u <br />
PNorm() p ≤ 0 <br />
−1 0 < p < 1 <br />
<br />
MaxDist() <br />
<br />
v <br />
v <br />
σ 2 <br />
u<br />
= v(i) 2<br />
<br />
u<br />
/n − v(i)<br />
i=l<br />
i=l<br />
2<br />
/n 2 ,