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] - Blame information for rev 2

Line No.	Rev	Author	Line
1	2	qaztronic
2			`N = 0 : 88200;`
3			`Fs = 44100;`
4			`f = 440;`
5			`x = 2 * %pi * (f / Fs) * N;`
6
7			`y = sin(x);`
8
9			`plot(x, y);`
10
11			`y_transpose = y';`
12
13			`wn = y_transpose / max(abs(y_transpose));`
14
15			`Ws = [wn ; wn];`
16
17			`wavwrite(Ws, Fs, 'first_wave.wav');`