scilab/modules/graphics/demos/2d_3d_plots/plot2d3.dem.sce

   1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
   2 // Copyright (C) 2007-2008 - INRIA
   3 // Copyright (C) 2010 - DIGITEO - Allan CORNET
   4 //
   5 // This file is released under the 3-clause BSD license. See COPYING-BSD.
   6
   7 function demo_plot2d3()
   8
   9     my_handle             = scf(100001);
  10     clf(my_handle,"reset");
  11     demo_viewCode("plot2d3.dem.sce");
  12
  13     // DEMO START
  14
  15     my_plot_desc          = "plot2d3 (vbar plot)";
  16     my_handle.figure_name = my_plot_desc;
  17
  18     n = 32-1;
  19     t = (0:n)/n;
  20     u = sin(80*%pi*t)+sin(100*%pi*t);
  21
  22     plot2d3("enn",1,abs(fft(u,-1))'/n);
  23     xtitle(my_plot_desc,"t","f(t)");
  24
  25     // DEMO END
  26
  27 endfunction
  28
  29 demo_plot2d3();
  30 clear demo_plot2d3;