home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / r / rlab / CTB / c2dmtest < prev    next >
Encoding:
Text File  |  1995-11-15  |  547 b   |  30 lines
  1. //-----------------------------------------------------------------------------
  2. // ****************
  3. // * C2DM Testing *
  4. // ****************
  5. //
  6. // Version JBL 950106
  7. //
  8.  
  9. rfile c2dm
  10.  
  11. // ===============================
  12. //          Tustin Check
  13. // ===============================
  14.  
  15. // Numerator
  16. num=70*[1,2];
  17. // Denominator
  18. den=[1,10];
  19.  
  20. // Sample Time
  21. T=1/15.0;
  22.  
  23. G=c2dm(num,den,T,"tustin");
  24. printf ("c2dm check (this vector ought to be ZERO)\n");
  25. G.ad-[56,-49]
  26. printf ("c2dm check (this vector ought to be ZERO)\n");
  27. G.bd-[1,-0.5]
  28. printf("%s"," \n");
  29.  
  30.