VerSezSLU

Public Function SigmaS(eps As Double, sigmaS_max As Double, forma As Integer, _
                               Optional Emodulus As Double = 210000#, _
                               Optional epsSmax As Double = 0.0675) As Double
                               
'Restituisce la tensione del'acciaio corrispondente alla deformazione epsilon data
'Parametri:
'   eps = deformazione epsilon di cui calcolare la tensione sigma
'   sigmaS_max = tensione massima (MPa)
'   forma = parametro di forma del diagramma:
'           forma = 1 => elasto-plastico
'           forma = 2 => perfettamente elastico lineare (il modulo di elasticità è definito da epsSmax)
'           forma = 3 => elasto-plastico incrudente (da sviluppare!)
'   Emodulus = modulo di elasticità (necessario per forma pari a 1) (MPa)
'   epsSmax = deformazione limite dell'acciaio
'   epsCmax = deformazione limite del cls
'   epsCrif = deformazione limite del cls per compressione semplice

Dim epsSrif As Double

If Emodulus <> 0 Then
   epsSrif = sigmaS_max / Emodulus
Else
   epsSrif = 0#
End If

If forma = 1 Then
   Select Case eps
       Case -epsSmax To -epsSrif
           SigmaS = -sigmaS_max
       Case -epsSrif To epsSrif
           SigmaS = eps * Emodulus
       Case epsSrif To epsSmax
           SigmaS = sigmaS_max
       Case Else
           SigmaS = 0#
   End Select
   Exit Function
End If

If forma = 2 Then
   SigmaS = eps * (sigmaS_max / epsSmax)
   Exit Function
End If

SigmaS = 0#

End Function