[postby]albertop
La procedura utilizzata è la seguente (ho modificato il nome delle variabili perchè sia più comprensibile ma è questa):
velocità = 0.3537 * portata / (diametro ^ 2)
Reynolds = (velocità * 1000 * diametro) / viscosità
If Reynolds < 2000 And Not Turbolento Then
attrito = 64 / Reynolds
Else
If Base <> [Base Acciaio] Then
attrito = 0.316 * Reynolds ^ -0.25
Else
attrito = 0.07 * Reynolds ^ -0.13 * (diametro / 1000) ^ -0.14
End If
End If
pdc = (attrito * densità * (velocità ^ 2) / (2 * (diametro / 1000))) * lunghezza