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.
| Line | |
|---|
| 1 | |
|---|
| 2 | // Almacenamiento de series y timesets en OZA |
|---|
| 3 | |
|---|
| 4 | Serie s1 = { |
|---|
| 5 | TimeSet AUX = WD(1); |
|---|
| 6 | CalInd(C, AUX) |
|---|
| 7 | }; |
|---|
| 8 | |
|---|
| 9 | Serie s2 = { |
|---|
| 10 | TimeSet AUX = WD(2); |
|---|
| 11 | CalInd(C, AUX) |
|---|
| 12 | }; |
|---|
| 13 | |
|---|
| 14 | Serie s3 = SubSer(s1, y2000, y2001); |
|---|
| 15 | |
|---|
| 16 | Serie s4 = SubSer(s2, y2000, y2001); |
|---|
| 17 | |
|---|
| 18 | // El fechado de s1 y s3 son los lunes WD(1) |
|---|
| 19 | // El fechado de s2 y s4 son los martes WD(2) |
|---|
| 20 | Real Ois.Store([[s1,s2,s3,s4]], "C:/Temp2/s1_4.oza"); |
|---|
| 21 | |
|---|
| 22 | Set check0 = [[ |
|---|
| 23 | Real (Dating(s1) == Dating(s2)); // 1 (!!) |
|---|
| 24 | Real (Dating(s1) == Dating(s3)); // 1 (!!) |
|---|
| 25 | Real (Dating(s1) == Dating(s4)); // 1 (!!) |
|---|
| 26 | Real (Dating(s2) == Dating(s3)); // 1 (!!) |
|---|
| 27 | Real (Dating(s2) == Dating(s4)); // 1 (!!) |
|---|
| 28 | Real (Dating(s3) == Dating(s4)) // 1 (!!) |
|---|
| 29 | ]]; |
|---|
| 30 | |
|---|
| 31 | Text DatingAddress(Serie serie) { |
|---|
| 32 | GetAddressFromObject(Dating(serie)) |
|---|
| 33 | }; |
|---|
| 34 | |
|---|
| 35 | Set check = [[ |
|---|
| 36 | Real (DatingAddress(s1) == DatingAddress(s2)); // 0 |
|---|
| 37 | Real (DatingAddress(s1) == DatingAddress(s3)); // 1 |
|---|
| 38 | Real (DatingAddress(s1) == DatingAddress(s4)); // 0 |
|---|
| 39 | Real (DatingAddress(s2) == DatingAddress(s3)); // 0 |
|---|
| 40 | Real (DatingAddress(s2) == DatingAddress(s4)); // 1 |
|---|
| 41 | Real (DatingAddress(s3) == DatingAddress(s4)) // 0 |
|---|
| 42 | ]]; |
|---|
| 43 | |
|---|
| 44 | |
|---|
Download in other formats:
