Discussion :

[panda78]

* Bonjour, *

dans mon programme je fais une boucle pour calculer des Lp(niveau de pression):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
For i = 5 To 25
         Alpha_béton = Worksheets("Feuil4")
 
         Lwatot = Worksheets("Feuil3").Range("N" & i - 3)
         A = Alpha_béton * ((2 * CDbl(UserForm1.TextBox7.Value) 
 
         Lp = Lwatot + 6 - (10 * (Log(A)) / Log(10))
         J = J + 1
         ThisWorkbook.Worksheets("Feuil3").Cells(J, 15).Value = Lp
Next i

et je souhaiterai calculer directement dans ma boucle le Lp global en faisant ce calcul dans ma boucle :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Lp_global=10*log(10^(0.1*Lp1)+10^(0.1*Lp2)+...+10^(0.1*Lpn)

Lp1 Lp2...Lpn étant les 20 valeurs de Lp calculées dans ma boucle.

* Merci *

[mercatog]

Au sein de la boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
'...
         Lp = Lwatot + 6 - (10 * (Log(A)) / Log(10))
         LpTot = LpTot + 10 * Log(10 ^ (0.1 * Lp))
'....

[panda78]

ce n'est pas tout à fait ça car les Lp sont inclu dans le logarithme

[mercatog]

Ah oui, je n'avais pas bien vu mais as tu compris le principe?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
For i = 5 To 25
    '....
    Lp = Lwatot + 6 - (10 * (Log(A)) / Log(10))
    LpTot = LpTot + 10 ^ (0.1 * Lp)
    '....
Next i
 
LpGlobal = 10 * Log(LpTot)

[panda78]

Oui j'ai compris , merci! :-)