Ancho Efectivo, Perfiles Laminados en Frio

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