URL
https://opencores.org/ocsvn/i2s_to_wb/i2s_to_wb/trunk
Subversion Repositories i2s_to_wb
[/] [i2s_to_wb/] [trunk/] [scilab/] [sin_440hz/] [sin_8k_wave.sci] - Rev 2
Compare with Previous | Blame | View Log
N = 0 : 88200;
Fs = 44100;
f = 440;
x = 2 * %pi * (f / Fs) * N;
y = sin(x);
plot(x, y);
y_transpose = y';
wn = y_transpose / max(abs(y_transpose));
Ws = [wn ; wn];
wavwrite(Ws, Fs, 'first_wave.wav');