Subversion Repositories i2s_to_wb

function [g] = make_tone_rom( tone_freq, sample_freq )

// Ouput variables initialisation (not found in input variables)

g=[];

// Number of arguments in function call

[%nargout,%nargin] = argn(0)

// Display mode

mode(0);

// Display warning for floating point exception

ieee(1);

// Fs = 8192;

// f = 440;

Fs = sample_freq;

f = tone_freq;

samples_per_wavelength = ceil( (1/f)/(1/Fs) );

N = 0 : samples_per_wavelength;

x = 2 * %pi * (f / Fs) * N;

y = sin(x);

y_transpose = y';

wn = y_transpose / max(abs(y_transpose));

wn = wn * ((2^31) / 10); // leave one bit for sign and scale

wn = round( wn );

file_name = 'tone_' +  string( tone_freq ) + '_at_' + string( sample_freq ) +  'sps_rom.txt';

u=file('open', file_name, 'unknown') //open the result file

for i = 1:(samples_per_wavelength + 1), fprintf( u, '@%8.8x\n %8.8x\n\n', (i - 1), wn(i) ), end

file('close',u) //close the result file

endfunction