FUNCTION Omega(lam,alf,fe)			' VEDI NORMATIVA TECNICA: Acc PAG 26 circa.
 lamq=lam^2
 fy=2350
 IF fe=430 THEN fy=2750
 IF fe=510 THEN fy=3550
 e=2060000
 lamc=3.14159267*((e/fy)^.5)
 lams=lam/lamc
 lamsq=lams^2
 IF lamsq>0.04
  aq=(lamsq-0.04)
  a=aq^.5
  b=1+lamsq+a*alf
  bq=b^2
  c=(b/(2*lamsq))-((bq-4*lamsq)^.5)/(2*lamsq)
 ELSE 
  c=1
 END IF
 Omega=INT((1/c)*100)/100
END FUNCTION