stacksize(1e7);
fs=44100;
l=20;
x=zeros(1:20*fs);
w=0:8191;
t=w/fs;
function[r]=graph(x)
x1=x;
x1(fs)=0;
x2=x1(1:fs);
plot((0:(fs-1))/fs,x2);
r=0;
endfunction;
function[r]=graph1(x)
x1=x;
x1(fs)=0;
x2=x1(1:fs*.01);
plot((0:(fs*.01-1))/fs,x2);
r=0;
endfunction;
function[r]=play(x)
x0=x
x0(20*fs)=0;
x1=x0(1:(20*fs))- mean(x0(1:(20*fs)));
a= 0.5/max([abs(x1),1])
playsnd(x1*a,fs);
r=0;
endfunction;
function[r]=writewave(x)
savewave("new.wav",x,fs);
r=0;
endfunction;
function[r]=sendwave(x)
savewave("V:\common\i_kaneko\sc\"+getenv("COMPUTERNAME")+".wav",x,fs);
r=0;
endfunction;