Factorisation lu
AMI
-
chossette9 Messages postés 6855 Date d'inscription Statut Contributeur Dernière intervention -
chossette9 Messages postés 6855 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour, essayez de travailler sur ce code en vba
"Sub DECO_LU()
Dim a, s, u, l As Single
Dim i, j As Integer
For i = 1 To n
For j = 1 To n
s = a(i, j)
If i < j Then
For k = 1 To i - 1
s = s - l(i, k) * u(k, j)
u(i, j) = s
Else
For k = 1 To j - 1
s = s - l(i, k) * u(k, j)
l(i, j) = s / u(j, j)
End If
End Sub"
"Sub DECO_LU()
Dim a, s, u, l As Single
Dim i, j As Integer
For i = 1 To n
For j = 1 To n
s = a(i, j)
If i < j Then
For k = 1 To i - 1
s = s - l(i, k) * u(k, j)
u(i, j) = s
Else
For k = 1 To j - 1
s = s - l(i, k) * u(k, j)
l(i, j) = s / u(j, j)
End If
End Sub"
2 réponses
-
Bonjour, essayez de travailler sur ce code en vba
"Sub DECO_LU()
Dim a, s, u, l As Single
Dim i, j As Integer
For i = 1 To n
For j = 1 To n
s = a(i, j)
If i < j Then
For k = 1 To i - 1
s = s - l(i, k) * u(k, j)
u(i, j) = s
Else
For k = 1 To j - 1
s = s - l(i, k) * u(k, j)
l(i, j) = s / u(j, j)
End If
End Sub" -
Bonjour,
que veux-tu exactement ?
Cordialement.
