added implementation of chanvocoder

vocoder.m

@@ -10,3 +10,12 @@
 #################
 
 pkg load signal;
+
+modfile = 'modulator22.wav';
+carfile = 'carrier22.wav';
+outfile = 'vocodedsound.wav'
+[modul, sr1] = audioread(modfile);
+[carrier, sr2] = audioread(carfile);
+if sr1~=sr2, disp('your sampling rates dont match'); end
+y = chanvocoder(carrier, modul, 512, 16, .2);
+audiowrite(outfile, y, sr1);