close Warning: Can't synchronize with repository "(default)" (/var/svn/tolp does not appear to be a Subversion repository.). Look in the Trac log for more information.

Ticket #1426: list3Q.tol

File list3Q.tol, 587 bytes (added by Pedro Gea, 14 years ago)
Line 
1
2Set list3 = Include("list3Q.oza");
3
4Serie Fun(Serie s, Real k) { s * k };
5
6Real Dt1 = {
7  Real t1 = Copy(Time);
8  Set EvalSet(list3, Serie (Set s) {
9    Fun(s[1], 2)
10  });
11  Real t2 = Copy(Time);
12  Real t21 = t2-t1
13};
14
15Real Dt2 = {
16  Real t1 = Copy(Time);
17  Set EvalSet(list3, Serie (Set s) {
18    Serie s2 = s[1];
19    Fun(s2, 2)
20  });
21  Real t2 = Copy(Time);
22  Real t21 = t2-t1
23};
24
25Real Dt3 = {
26  Real t1 = Copy(Time);
27  Set EvalSet(list3, Serie (Set s) {
28    Set s2 = [[ s[1] ]];
29    Fun(s2[1], 2)
30  });
31  Real t2 = Copy(Time);
32  Real t21 = t2-t1
33};
34