home *** CD-ROM | disk | FTP | other *** search
- //-----------------------------------------------------------------------------
- // ****************
- // * CONV Testing *
- // ****************
- //
- // Version JBL 950106
- //
-
- rfile conv
-
- // Polynomials
- a=[1,2,3,4];
- b=[10,20,30];
-
- c=conv(a,b)
-
- cex=[10,40,100,160,170,120];
-
- // Check results
- // Convolved polynomial
- printf ("CONV: Convolved polynomial check (this should be ZERO)\n");
- c-cex
-
-