From a9fc99a7c3cc95ce2479e5363824836255079bdb Mon Sep 17 00:00:00 2001
From: Arnaud <a.rey-du-boissieu@ecam.fr>
Date: Sun, 26 Mar 2023 19:33:15 +0200
Subject: [PATCH] trying the last part

---
 vocoder.m | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/vocoder.m b/vocoder.m
index 78d027b..17586e2 100644
--- a/vocoder.m
+++ b/vocoder.m
@@ -1 +1,16 @@
 pkg load signal
+
+modfile = 'modulator22.wav';
+carfile = 'white_periodic.wav';
+outfile = 'vocodedsound.wav'
+[modul, sr1] = audioread(modfile);
+[carrier, sr2] = audioread(carfile);
+if sr1~=sr2, disp('your sampling rates dont match'); end
+% the chanvovoder function isn't availiable on Octave and i am not able to find an equivalent function
+
+y = chanvocoder(carrier, modul, 512, 16, .2);
+audiowrite(y,sr1,16,outfile)
+
+subplot()
+
+%% on the same figure temporal variation, carrier and output