Xcos tests: recompile Modelica diagrams
[scilab.git] / scilab / modules / scicos / tests / unit_tests / Solvers / DAE / DDaskrN_Platform.win.dia.ref
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2013 - Scilab Enterprises - Paul Bignier
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 //
8 // <-- ENGLISH IMPOSED -->
9 //
10 // <-- XCOS TEST -->
11 //
12 ilib_verbose(0); //to remove ilib_* traces
13 // Import diagram
14 assert_checktrue(importXcosDiagram("SCI/modules/xcos/tests/unit_tests/Solvers/DAE/Platform.zcos"));
15 // Redefining messagebox() to avoid popup
16 prot = funcprot();
17 funcprot(0);
18 function messagebox(msg, msg_title)
19 endfunction
20 for i=1:3  // 'max step size' = 10^-i, precision
21     // Start by updating the clock block period (sampling)
22     Context.per = 5*10^-i;
23     // Modify solver + run DDaskr + save results
24     scs_m.props.tol(6) = 101;     // Solver
25     scicos_simulate(scs_m, Context); // DDaskr
26     ddaskrval = res.values;       // Results
27     // Modify solver + run IDA + save results
28     scs_m.props.tol(6) = 100;     // Solver
29     scicos_simulate(scs_m, Context); // IDA
30     idaval = res.values;          // Results
31     // Compare results
32     compa = abs(ddaskrval-idaval);
33     // Extract mean, standard deviation, maximum
34     mea = mean(compa);
35     [maxi, indexMaxi] = max(compa);
36     stdeviation = st_deviation(compa);
37     // Verifying closeness of the results
38     assert_checktrue(maxi <= 5*10^-(i+3));
39     assert_checktrue(mea <= 5*10^-(i+3));
40     assert_checktrue(stdeviation <= 5*10^-(i+3));
41 end
42 --------------------------------------------\
43  Main Modelica : TMPDIR\Platform_im.mo
44
45  Flat Modelica : TMPDIR\Platform_imf.mo
46  Simulation C code :TMPDIR\Platform_im.c
47 --------------------------------------------\
48  Main Modelica : TMPDIR\Platform_im.mo
49
50  Flat Modelica : TMPDIR\Platform_imf.mo
51  Simulation C code :TMPDIR\Platform_im.c
52 --------------------------------------------\
53  Main Modelica : TMPDIR\Platform_im.mo
54
55  Flat Modelica : TMPDIR\Platform_imf.mo
56  Simulation C code :TMPDIR\Platform_im.c
57 --------------------------------------------\
58  Main Modelica : TMPDIR\Platform_im.mo
59
60  Flat Modelica : TMPDIR\Platform_imf.mo
61  Simulation C code :TMPDIR\Platform_im.c
62 --------------------------------------------\
63  Main Modelica : TMPDIR\Platform_im.mo
64
65  Flat Modelica : TMPDIR\Platform_imf.mo
66  Simulation C code :TMPDIR\Platform_im.c
67 --------------------------------------------\
68  Main Modelica : TMPDIR\Platform_im.mo
69
70  Flat Modelica : TMPDIR\Platform_imf.mo
71  Simulation C code :TMPDIR\Platform_im.c
72 funcprot(prot);