// Questo semplice script genera una sinusoide di frequenza nu
nu=200; // definisco la frequenza in Hertz.
SF = 44100; // la Frequenza di campionamento scelta
N = 44100; // La lunghezza dela frame (1 sec.)
dt = 1 / SF; // Intervallo di campionamento (tempo  fra un campione e il successivo)
pi= acos(-1); // un modo per ottenre pi greco con tutte le cifre decimali possibili
for (i=1:N)
	t(i) = i*dt; // Genero l'asse dei tempi
	s(i) = sin(2*pi*nu*i*dt); // genero il segnale
end
plot(t,s); // grafico del segnale rispetto all'asse dei tempi generato.
wavwrite(s,SF,16,"seno.wav"); // scrivo il file wav, di nome seno.wav
// PS: "seno", per il nome della funzione usata, NON per il cognome del docente.
printf("Seno generato"); // Messaggio sula console di scilab.