graphics: bug 9270 fixed - The contour function was broken.
[scilab.git] / scilab / modules / graphics / tests / unit_tests / contour2d.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2011 - DIGITEO - Michael Baudin
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7
8 // <-- TEST WITH GRAPHIC -->
9
10 //
11 // Test #0: the demo
12 h = scf();
13 contour ( );
14 close(h);
15 //
16 // Test #1: use a function
17 function [ f , g , H ] = rosenbrock ( x )
18     f = 100.0 *( x (2) - x (1)^2)^2 + (1 - x (1))^2;
19 endfunction
20
21 function f = rosenbrockC ( x1 , x2 )
22     f = rosenbrock ( [x1 , x2 ]' )
23 endfunction
24
25 xdata = linspace ( -2 , 2 , 100 );
26 ydata = linspace ( -1 , 2 , 100 );
27 h = scf();
28 contour ( xdata , ydata , rosenbrockC , [2 10 100 500 1000 2000] );
29 close(h);
30 //
31 // Test #2: use a function
32 t=linspace(-%pi,%pi,30);
33 function z=my_surface(x, y)
34    z=x*sin(x)^2*cos(y)
35 endfunction
36
37 h = scf();
38 contour(t,t,my_surface,10)
39 // changing the format of the printing of the levels
40 xset("fpf","%.1f")
41 clf()
42 contour(t,t,my_surface,10)
43 close(h);
44 //
45 // Test #3: use data
46 h = scf();
47 z=feval(t,t,my_surface);
48 contour(t,t,z+0.2*abs(z),20,flag=[0 2 4]);
49 close(h);