analyseaudio.m
33bba04159d6master

analyseaudio.m
View Options

			target = "audio4.wav"

			[sf, t, k, S, FS]=load_audio(target);

			foutname = sprintf("output/%s.out", target);
			fout = fopen(foutname, 'w');
			fprintf(fout, "t k S FS\n");
			for i=1:length(t)
			fprintf(fout, "%g %g %g %g\n", t(i), k(i), S(i), abs(FS(i,1)));
			end
			fclose(fout);

			sound(S(:,1), sf);
			figure
			grid on
			xlabel('t')
			ylabel('Signal')
			plot(t, S)

			figure
			grid on
			title(sprintf("File %s, Fourier Transform", target))
			xlabel('Frequency')
			ylabel('Fourier transform of the signal')
			plot(k, abs(FS))