scilab/modules/graphics/demos/basic_functions/basic_functions_9.dem.sce

   1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
   2 // Copyright (C) 2013 - Scilab Enterprises - Paul Bignier
   3 //
   4 // This file is released under the 3-clause BSD license. See COPYING-BSD.
   5
   6 function demo_basic_functions9()
   7     function [z]=__milk_drop(x,y)
   8         sq=x.^2+y.^2;
   9         z= exp( exp(-sq).*(exp(cos(sq).^20)+8*sin(sq).^20+2*sin(2*(sq)).^8) );
  10     endfunction
  11     mode(-1);
  12
  13     my_handle             = scf(100001);
  14     clf(my_handle,"reset");
  15     demo_viewCode("basic_functions_9.dem.sce");
  16     my_plot_desc          = "milk drop";
  17     my_handle.figure_name = my_plot_desc;
  18     my_handle.color_map = jetcolormap(256);
  19
  20     x = -2:0.1:2;
  21     y = x;
  22     [X,Y] = ndgrid(x,y);
  23     z = __milk_drop(X,Y);
  24     plot3d(x, y, z);
  25     e = gce();
  26     e.color_flag = 1;
  27     a = gca();
  28     a.rotation_angles = [25, 30];
  29     // DEMO END
  30
  31 endfunction
  32
  33 demo_basic_functions9();
  34 clear demo_basic_functions9;