Subversion Repositories vhdl_wavefiles

clear all;

close all;

fs = 1e9;

% frequence, amplitude

Sinus = [6e6, 0.6];

lf = [1e6, 0.8];

noise = 0.2;

bits = 9;

t = 2e-6;

LF = SinGen(fs,t, lf);

S =  SinGen(fs,t, Sinus);

InputValues = [LF S]';

Mono = InputValues/(max(InputValues)+0.02);

wavwrite(Mono,1e6,8,'iMono.wav');

Stereo = [Mono Mono];

wavwrite(Stereo, 44100,16,'iStereo.wav');

z = rand(length(InputValues(:,1)),8);

Ch10 = [z Stereo];

wavwrite(Ch10, 1e9,16,'iCh10.wav');

plot(InputValues(:,1));

wavwrite(Stereo, 1e5,32,'iBit32.wav');

plot(InputValues(:,1));