diff options
author | jofret | 2010-06-21 06:24:38 +0000 |
---|---|---|
committer | jofret | 2010-06-21 06:24:38 +0000 |
commit | 8b44229ef44f0558ce045e46ff833fb44df913c9 (patch) | |
tree | 4fdd89b2258c18c905d2f17ef4bea8ea9cf32893 /tests/unit_tests/test301_cchirp/scilabcode/myconvol.sci | |
parent | af0366230e14cc75d9e9a183375ee9cb69fb46b6 (diff) | |
download | scilab2c-release-2.0.tar.gz scilab2c-release-2.0.tar.bz2 scilab2c-release-2.0.zip |
Tagging the 2.0 release of scilab2crelease-2.0
Diffstat (limited to 'tests/unit_tests/test301_cchirp/scilabcode/myconvol.sci')
-rw-r--r-- | tests/unit_tests/test301_cchirp/scilabcode/myconvol.sci | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/tests/unit_tests/test301_cchirp/scilabcode/myconvol.sci b/tests/unit_tests/test301_cchirp/scilabcode/myconvol.sci new file mode 100644 index 00000000..6640c372 --- /dev/null +++ b/tests/unit_tests/test301_cchirp/scilabcode/myconvol.sci @@ -0,0 +1,31 @@ +//SCI2C: NIN= 2 +//SCI2C: NOUT= 1 +//SCI2C: OUT(1).TP= FA_TP_MAX(IN(1).TP,IN(2).TP) +//SCI2C: OUT(1).SZ(1)= '1' +//SCI2C: OUT(1).SZ(2)= FA_SUB(FA_ADD(IN(1).SZ(2),IN(2).SZ(2)),'1') +//SCI2C: DEFAULT_PRECISION= DOUBLE +
+function y = myconvol(h,x)
+hlen = length(h); +xlen = length(x); +//y = zeros(1,hlen+xlen-1); + +for cnt1 = 1:xlen + y(cnt1) = 0+%i*0; + for cnt2 = 1:cnt1 + if ((cnt1-cnt2+1) <= hlen) + y(cnt1) = y(cnt1) + h(cnt1-cnt2+1)*x(cnt2); + else + y(cnt1) = y(cnt1) + 0; + end + end +end + +for cnt1 = xlen+1:xlen+hlen-1 + y(cnt1) = 0+%i*0; + for cnt2 = cnt1-hlen+1:xlen + y(cnt1) = y(cnt1) + h(cnt1-cnt2+1)*x(cnt2); + end +end + +endfunction |