%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Zero Freq. Centered Lorentzian  %% 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

define zfc_fit(lo,hi,par)
{
   variable a,f,al,ah,l;
 
   al = _A(lo);
   ah = _A(hi);
   f = par[1];
   
   a = par[0]^2 * PI/2./f;

   l = a*f/(al-ah) *  ( atan(al/f) - atan(ah/f) );

   l = reverse(l);

   return l;
}

add_slang_function("zfc",["norm [rms]","f [Hz]"]);

define zfc_defaults(i)
{
   switch(i)
   {case 0:
      return (0.1,0,0.,1.e8);
   }
   {case 1:
      return (1,0,1.e-6,1.e3);
   }
}