VerSezSLU

Public Function SigmaC(eps As Double, sigmaC_max As Double, forma As Integer, _
                               Optional Emodulus As Double = 0#, _
                               Optional epsCmax As Double = 0.0035, _
                               Optional epsCrif As Double = 0.002) As Double

'Restituisce la tensione del calcestruzzo corrispondente alla deformazione epsilon data
'Parametri:
'   eps = deformazione epsilon di cui calcolare la tensione sigma
'   sigma_max = tensione massima (MPa)
'   forma = parametro di forma del diagramma:
'           forma = 1 => parabola-rettangolo EC2
'           forma = 2 => perfettamente elastico lineare per compressione (il modulo di elasticità è definito da epsCmax)
'           forma = 3 => elasto-plastico (il modulo di elasticità se non definito è calcolato da epsCrif)
'   Emodulus = modulo di elasticità (necessario per forma pari a ?) (MPa)
'   epsSmax = deformazione limite dell'acciaio
'   epsCmax = deformazione limite del cls
'   epsCrif = deformazione limite del cls per compressione semplice

If forma = 1 Then
   Select Case eps
       Case -epsCmax To -epsCrif
           SigmaC = -sigmaC_max
       Case -epsCrif To 0
           SigmaC = -sigmaC_max * (1 - (1 - Abs(eps) / epsCrif) ^ 2) 'secondo EC2
       Case Else
           SigmaC = 0#
   End Select
   Exit Function
End If

If forma = 2 Then
   If eps < 0 Then
       SigmaC = eps * (sigmaC_max / epsCmax)
   Else
       SigmaC = 0#
   End If
   Exit Function
End If

If forma = 3 Then
   If (Emodulus = 0 And epsCrif <> 0) Then Emodulus = sigmaC_max / epsCrif
   Select Case eps
       Case -epsCmax To -epsCrif
           SigmaC = -sigmaC_max
       Case -epsCrif To 0
           SigmaC = eps * Emodulus
       Case Else
           SigmaC = 0#
   End Select
   Exit Function
End If

SigmaC = 0#

End Function