'--FUNCIÓN dminMu SEGÚN NSR-10
Public Function dminMu(b_cm, fc_MPa, Mu_tonm As Double) As Double
Dim Beta1 As Double, Mu As Double, b As Double
                'https://magnusdcweb.com/
Const g = 9.80665               'Aceleración g en [m/s²]
'Versión 1.30 Revisión 2022      https://facebook.com/MagnusStructures
Beta1 = 0.85 - 0.05 / 7 * (fc_MPa - 28)
If Beta1 < 0.65 Then            'Beta1 según NSR-10
Beta1 = 0.65                    'C.10.2.7.3
End If
If Beta1 > 0.85 Then
Beta1 = 0.85
End If
'PERALTE MINIMO POR FLEXION
Mu = Mu_tonm * 10 ^ 6 * g       'Cambio de Unidades ton·m a Mu[N·mm]
b = b_cm * 10                   'Cambio de Unidades cm a    b[mm]
dminMu = 34 * Mu / (Beta1 * fc_MPa * b) 'dmin=34Mu/(Beta1·fc·b)
dminMu = dminMu * 1 / (14 - 3 * Beta1) 'dmin=34Mu/(Beta1·fc·b)*1/(14-3beta1)
dminMu = 20 / 17 * (dminMu) ^ 0.5 'dmin=20/17·raiz(34Mu/(Beta1·fc·b)*1/(14-3beta1))
dminMu = dminMu * 0.1           'Cambio de Unidades mm a    dminMu[cm]
'Autor: Diego Ceballos magnusdcp@gmail.com
End Function

'--COROLARIO
Public Function AsMax(b_cm, d_cm, fc_MPa, fy_MPa) As Double
Dim b As Double, d As Double
Dim B1 As Double
b = b_cm                        'Cambio de Unidades cm a mm
d = d_cm
B1 = ValorBeta1(fc_MPa)
AsMax = 51 / 140 * B1 * fc_MPa / fy_MPa * b * d 'AsMax en cm²
End Function