graphics: bug 9270 fixed - The contour function was broken.
[scilab.git] / scilab / modules / graphics / tests / unit_tests / contour.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 #1
10 h = scf();
11 contour2d(1:10,1:10,rand(10,10),5,rect=[0,0,11,11]);
12 // changing the format of the printing of the levels
13 xset("fpf","%.2f")
14 clf()
15 contour2d(1:10,1:10,rand(10,10),5,rect=[0,0,11,11])
16  ans  =
17  
18     0.8244035    0.6602663    0.4961290    0.3319918    0.1678546  
19 close(h);
20 //
21 // Test #2
22 // now an example with level numbers drawn in a legend
23 // Caution there are a number of tricks...
24 x = linspace(0,4*%pi,80);
25 z = cos(x')*cos(x);
26 h = scf();
27 f=gcf();
28 xset("fpf"," ")  // trick 1: this implies that the level numbers are not
29                  //          drawn on the level curves
30 f.color_map=jetcolormap(7);
31 // trick 2: to be able to put the legend on the right without
32 //          interfering with the level curves use rect with a xmax
33 //          value large enough 
34 contour2d(x,x,z,-0.75:0.25:0.75,frameflag=3,rect=[0,0,5*%pi,4*%pi]);
35 // trick 3: use legends (note that the more practical legend function
36 //          will not work as soon as one of the level is formed by 2 curves)  
37 legends(string(-0.75:0.25:0.75),1:7,"lr");
38 xtitle("Some level curves of the function cos(x)cos(y)");
39 close(h);