function []=plot_tf(tfr,t,f)
// fait le graphique d'une distribution tf

[tfrow,tfcol]=size(tfr);
trow=length(t);
frow=length(f);

if tfrow~=frow then
 error("nb de ligne de f doit etre egal au nb de ligne de tfr");
end;

if tfcol~=trow then
 error("nb de ligne de t doit etre egal au nb de colonnes de tfr");
end;

// frequences positives seulement
f=f(1:frow/2);
tfr=tfr(1:frow/2,:);

// changer la palette de couleur
m=228;	
n= fix(3/8*m);
r=[(1:n)'/n; ones(m-n,1)];
g=[zeros(n,1); (1:n)'/n; ones(m-2*n,1)];
b=[zeros(2*n,1); (1:m-2*n)'/(m-2*n)];
h=[r g b];
xset("colormap",h)

// affichage
xbasc();
f_zoom=frow*f;
driver("Rec");
//plot3d1(f_zoom,t,tfr,0,0,"frequence@temps@ampl",[-1 2 4]);
plot3d1(mtlb_flipud(f_zoom),t,mtlb_flipud(-tfr),0,180,"frequence@temps@ampl",[-1 2 4]);

