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"
A voir également:
- Factorisation lu
- Messenger message distribué mais pas lu ✓ - Forum Facebook Messenger
- Messagerie leboncoin message lu - Forum Réseaux sociaux
- Message sur facebook messenger "envoyé" mais non "reçu" ✓ - Forum Facebook Messenger
- Whatsapp message lu mais pas bleu - Guide
- Marquer comme non lu snapchat ✓ - Forum Snapchat
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"
"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"
