graphics: bug 9270 fixed - The contour function was broken.
[scilab.git] / scilab / modules / graphics / tests / unit_tests / contour2d.dia.ref
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 // <-- TEST WITH GRAPHIC -->
8 //
9 // Test #0: the demo
10 h = scf();
11 contour ( );
12 close(h);
13 //
14 // Test #1: use a function
15 function [ f , g , H ] = rosenbrock ( x )
16     f = 100.0 *( x (2) - x (1)^2)^2 + (1 - x (1))^2;
17 endfunction
18 function f = rosenbrockC ( x1 , x2 )
19     f = rosenbrock ( [x1 , x2 ]' )
20 endfunction
21 xdata = linspace ( -2 , 2 , 100 );
22 ydata = linspace ( -1 , 2 , 100 );
23 h = scf();
24 contour ( xdata , ydata , rosenbrockC , [2 10 100 500 1000 2000] );
25 close(h);
26 //
27 // Test #2: use a function
28 t=linspace(-%pi,%pi,30);
29 function z=my_surface(x, y)
30    z=x*sin(x)^2*cos(y)
31 endfunction
32 h = scf();
33 contour(t,t,my_surface,10)
34 // changing the format of the printing of the levels
35 xset("fpf","%.1f")
36 clf()
37 contour(t,t,my_surface,10)
38 close(h);
39 //
40 // Test #3: use data
41 h = scf();
42 z=feval(t,t,my_surface);
43 contour(t,t,z+0.2*abs(z),20,flag=[0 2 4]);
44 close(h);