97b4e93bcf9ea321d18c4ef3c84b5697da73a1be
[scilab.git] / 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     z = eval3d(__milk_drop, x, y);
23     plot3d(x, y, z);
24     e = gce();
25     e.color_flag = 1;
26     a = gca();
27     a.rotation_angles = [25, 30];
28     // DEMO END
29
30 endfunction
31
32 demo_basic_functions9();
33 clear demo_basic_functions9;