modules/scicos/tests/unit_tests/lincos.tst


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33

// =============================================================================
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) 2008 - INRIA
// Copyright (C) 2009 - DIGITEO
//
//  This file is distributed under the same license as the Scilab package.
// =============================================================================

// <-- ENGLISH IMPOSED -->
// <-- XCOS TEST -->
ilib_verbose(0);

prot=funcprot();
funcprot(0);
exec("SCI/modules/xcos/demos/PENDULUM_ANIM.sci");
exec("SCI/modules/xcos/demos/anim_pen.sci");
funcprot(prot);
load("SCI/modules/scicos/tests/unit_tests/pendulum_anim45.cos");

// CBLOCK parameters
M=10;
m=3;
l=3;
ph=0.1;

// INTEGRALs parameters
z0=-4;
th0=0.02;

scs_m = scs_m.objs(5).model.rpar;
[X,U,Y,XP] = steadycos(scs_m,[],[],[],[],1,1:$);
sys = lincos(scs_m,X,U);