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 #1775: test.tol

File test.tol, 1.1 KB (added by Pedro Gea, 12 years ago)
Line 
1
2Set cjto = For(1, 50, Serie (Real i) {
3  Serie SubSer(Gaussian(0,1,Weekly), y2009, y2016)
4});
5
6Set If(True, {
7  //--------------------------------------------------------------------------
8  // no incrementa sustancialmente la memoria (78MB -> 93MB)
9  Set series = For(1, 500, Serie (Real i) {
10    Date first = Group("Min", EvalSet(cjto, First));
11    Date last = Group("Max", EvalSet(cjto, Last));
12    Copy(SetSum(EvalSet(cjto, Serie (Serie s) {
13      SubSer(CalInd(W,Dating(s))<<s<<CalInd(W,Dating(s)), first, last) })))
14  })
15  //--------------------------------------------------------------------------
16}, {
17  //--------------------------------------------------------------------------
18  // incrementa enormemente el uso de memoria (78MB -> 257MB)
19  Set series = For(1, 500, Serie (Real i) {
20    Date first = Group("Min", EvalSet(cjto, First));
21    Date last = Group("Max", EvalSet(cjto, Last));
22    SetSum(EvalSet(cjto, Serie (Serie s) {
23      SubSer(CalInd(W,Dating(s))<<s<<CalInd(W,Dating(s)), first, last) }))
24  })
25  //--------------------------------------------------------------------------
26});