/// <summary>
/// Calcul de la contrainte maximale admissible pour une enveloppe sphérique a paroi épaisse avec Ro connu
/// </summary>
/// <param name="P">pression intérieure de calcul (voir UG-21)</param>
/// <param name="E">coefficient de joint relatif au joint considéré dans une enveloppe sphérique</param>
/// <param name="Ro">rayon extérieur de la portion d'enveloppe considérée</param>
/// <param name="t">épaisseur minimale requise pour l'enveloppe</param>
/// <param name="S">valeur de la contrainte minimale admissible, (voir UG-23 et les limites de contraintes spécifiées en UG-24)</param>
/// <returns></returns>
public static Formule F_S_A13_2bis(Var P, Var E, Var Ro, Var t)
{
return(P / (2 * E * Formule.Ln(Ro / (Ro - t))));
}
/// <summary>
/// Calcul de la contrainte maximale admissible pour une enveloppe sphérique a paroi épaisse avec R connu
/// </summary>
/// <param name="P">pression intérieure de calcul (voir UG-21)</param>
/// <param name="E">coefficient de joint relatif au joint considéré dans une enveloppe sphérique</param>
/// <param name="R">rayon intérieur de la portion d'enveloppe considérée</param>
/// <param name="t">épaisseur minimale requise pour l'enveloppe</param>
/// <returns></returns>
public static Formule F_S_A13_2(Var P, Var E, Var R, Var t)
{
return(P / (2 * E * Formule.Ln((R + t) / R)));
}