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 #1115: testIM.tol

File testIM.tol, 750 bytes (added by Pedro Gea, 14 years ago)
Line 
1
2NameBlock linked = [[
3  Set linkers = Copy(Empty);
4  Real AppendLinker1(NameBlock linker) {
5    Set Append(linkers, [[linker]], False);
6  1};
7  Real AppendLinker2(NameBlock linker) {
8    Set Append(linkers, [[ [[linker]] ]], False);
9  1}
10]];
11
12Real t1 = Copy(Time);
13Set grafico1 = For(1, 500, Real (Real i) {
14  Real linked::AppendLinker1(linked);
15  Copy(Time)-t1
16});
17
18NameBlock linked::linkers := Copy(Empty);
19
20Real t2 = Copy(Time);
21Set grafico2 = For(1, 500, Real (Real i) {
22  Real linked::AppendLinker2(linked);
23  Copy(Time)-t2
24});
25
26NameBlock linked::linkers := Copy(Empty);
27
28NameBlock linked := [[ Real void = ? ]];
29
30Set grafico12 = Traspose([[grafico1, grafico2]]);
31// Graficar todas contra con la genérica
32
33
34
35