VerSezSLU

Function CalcEpsilon_rottura(H As Double, dmin As Double, _
                                   di As Double, delta As Double, _
                                   Optional epsSmax As Double = 0.0675, _
                                   Optional epsCmax As Double = 0.0035, _
                                   Optional epsCrif As Double = 0.002) As Double

'   Restituisce la deformazione limite per il calcolo del dominio MN funzione dei parametri immessi
'   Attenzione nell'uso: valori positivi di epsilon per il cls non hanno alcun senso! Controllare la funzione SigmaC
'   Parametri:
'   H=altezza sezione (mm)
'   dmin = copriferro superiore o inferiore (mm)
'   di = distanza della fibra di cui si calcola epsilon dall'estremità superiore della sezione (mm)
'   delta = coefficiente di campo (da 0 a 5 per i momenti positivi che tendono le fibre inferiori,
'   da 5 a 10 per i momenti negativi che tendono le fibre superiori)
'   epsSmax = deformazione limite dell'acciaio
'   epsCmax = deformazione limite del cls
'   epsCrif = deformazione limite del cls per compressione semplice

Dim x0 As Double ' variabile di appoggio

Select Case delta
   Case 0 To 1
           CalcEpsilon_rottura = epsSmax - (H - dmin - di) / (H - dmin) * (epsSmax * delta)
   Case 1 To 2
           CalcEpsilon_rottura = epsSmax - (H - dmin - di) / (H - dmin) * (epsSmax + epsCmax * (delta - 1))
   Case 2 To 3
           CalcEpsilon_rottura = -epsCmax + di / (H - dmin) * (epsCmax + epsSmax * (3 - delta))
   Case 3 To 4
          CalcEpsilon_rottura = epsCmax * (-1 + di * (4 - delta) / (H - dmin) + di * (delta - 3) / H)
   Case 4 To 5
       x0 = (epsCmax - epsCrif) * H / epsCmax
       CalcEpsilon_rottura = -epsCrif + epsCrif * (5 - delta) * (di - x0) / (H - x0)
   Case 5 To 6
       CalcEpsilon_rottura = -(6 - delta) * epsCrif - (delta - 5) * epsCmax * di / H
   Case 6 To 7
         CalcEpsilon_rottura = -epsCmax * ((7 - delta) * dmin * (H - di) / (H * (H - dmin)) + (di - dmin) / (H - dmin))
   Case 7 To 8
         CalcEpsilon_rottura = -epsCmax * (di - dmin) / (H - dmin) + (delta - 7) * epsSmax * (H - di) / (H - dmin)
   Case 8 To 9
         CalcEpsilon_rottura = (epsSmax + (9 - delta) * epsCmax) * (H - di) / (H - dmin) - (9 - delta) * epsCmax
   Case 9 To 10
         CalcEpsilon_rottura = (10 - delta) * epsSmax * (H - di) / (H - dmin) + (delta - 9) * epsSmax
   Case Else
       CalcEpsilon_rottura = 0
End Select

End Function