%
% Detta program skriver ut en fil som innehåller en tabell över
% sin(x^2) för olika värden på x.
%

FileName='sinus_tabell.txt'; % Öppna först filen för skrivning. 
fid=fopen( FileName , 'w' );

% Skriv ut ett tabell huvud

fprintf(fid,'**********************\n' );
fprintf(fid,'*    x    * sin(x^2) *\n' );
fprintf(fid,'**********************\n' );

% Skapa en vektor med jämt utspridda x-värden
% i intervallet 0<=x<=2*pi;

N=10;
x=2*pi*(0:N-1)/(N-1);

for i=1:N
    % Skriv nu ut en rad i tabellen.
    
    y=sin(x(i)^2); % värdet som skall skrivas ut på rad i.
    fprintf(fid,'* %7.5f * %8.5f *\n',x(i),y);
    
end

% avsluta med en ny rad med asterixer

fprintf(fid,'**********************\n' );