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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 2 qaztronic
//
2
//  get one cycle of 440khz data for rom;
3
//
4
 
5
Fs = 8192;
6
f = 440;
7
 
8
samples_per_wavelength = ceil( (1/f)/(1/Fs) );
9
 
10
N = 0 : samples_per_wavelength;
11
x = 2 * %pi * (f / Fs) * N;
12
 
13
y = sin(x);
14
 
15
// plot(x, y);
16
 
17
y_transpose = y';
18
 
19
wn = y_transpose / max(abs(y_transpose));
20
 
21
wn = wn * ((2^32) / 2);
22
 
23
wn = round( wn );
24
 
25
 
26
 
27
u=file('open','sin_8k_rom.txt','unknown') //open the result file
28
 
29
for i = 1:(samples_per_wavelength + 1), fprintf( u, '@%8.8x\n %8.8x\n\n', i, wn(i) ), end
30
 
31
file('close',u) //close the result file
32
 
33
 
34
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.