home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l455 / 8.ddi / SIGNAL.DI$ / VRATIO.M < prev    next >
Encoding:
Text File  |  1993-03-11  |  408 b   |  14 lines
  1. function v = vratio(u)
  2. %VRATIO    Utility function for use with ELLIP.
  3. %    VRATIO is a function used to calculate the poles of an
  4. %    elliptic filter.  It finds a u so sn(u)/cn(u) = 1/epsilon,
  5. %    with parameter mp.
  6.  
  7. % global information - 1/epsilon, the value s/c should attain with parameter mp.
  8. global ELLIP_EPS ELLIP_MP;
  9. mp = ELLIP_MP;
  10. ineps = ELLIP_EPS;
  11. [s,c] = ellipj(u,mp);
  12. v = abs(ineps - s/c);
  13.  
  14.