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.
| File test_bug523.tcl, 405 bytes (added by Jorge, 18 years ago) |
|
code to reproduce de bug
|
| Line | |
|---|
| 1 | load libtoltcl1.1.7.so |
|---|
| 2 | |
|---|
| 3 | proc Tol_HciWriter {msg} { |
|---|
| 4 | puts [string trim $msg] |
|---|
| 5 | } |
|---|
| 6 | |
|---|
| 7 | tol::initkernel 1 vA |
|---|
| 8 | tol::initlibrary |
|---|
| 9 | |
|---|
| 10 | for {set i 1} {$i < 10} {incr i} { |
|---|
| 11 | puts "eval iteration = $i" |
|---|
| 12 | tol::console eval { |
|---|
| 13 | Date Ini = y2006m05d01; |
|---|
| 14 | Date End = y2006m07d24; |
|---|
| 15 | Serie stepIn = SubSer(CalInd(C, Semanal), Ini, End); |
|---|
| 16 | |
|---|
| 17 | Serie forma1 = DifEq(1/(1-0.4*B), stepIn); |
|---|
| 18 | } |
|---|
| 19 | tol::console stack release |
|---|
| 20 | } |
|---|
Download in other formats:
