Esta es una codificación que hice para Matlab.
Sirve para encontrar el ancho efectivo de un Elemento Atiesado y de un Elemento No Atiesado, para Perfiles Laminados en Frío. (Para los perfiles más comunes)
'Calculo de Ancho Efectivo (be)'
k =input('Elemento Atiesado (ea), Elemento No Atiesado (ena): ','s')
if k =='ea'
k = 4
elseif k =='ena'
k=0.43
end
'Calculo de lamda'
w =input('Ancho Efectivo (w o h)cm: ')
t =input('Espesor (t)cm: ')
fy =input('Limite de Fluencia (fy)kg/cm2: ')
e=2076000
ld = (1.052/sqrt(k))*(w/t)*(sqrt(fy/e))
if ld > 0.673
'b = pw'
'Calculo de p'
p=(1-(0.22/ld))/ld
if p <>
'p > 1'
p=p
'b = pw (cm)'
b= p*w
else
'p <>
p=1
'b = pw (cm)'
b= p*w
end
elseif ld <= 0.673
'b = w (cm)'
b = w
end
