Ticket #1470: ejA2.tol

Set series1 = {
  Set Ois.Load("C:/Temp2/s1_4.oza")[1]
};
// El fechado de s1 y s3 y s4 son los lunes WD(1) (!!)
// El fechado de s2 son los martes WD(2) (!!)

Set series2 = {
  TimeSet AUX = WD(3);
  Set Ois.Load("C:/Temp2/s1_4.oza")[1]
};
// El fechado de s1 son los lunes WD(1) (!!)
// El fechado de s2 son los martes WD(2) (!!)
// El fechado de s3 son los miércoles WD(3) (!!)

Set series1 << series2;
// Las dos series infinitas s1 y s2 coinciden entre una carga y la otra 
// (se utiliza el fechado almacenado) 
// Las series s3 y s4 (las finitas) no hacen eso.
// Nótese que el mecanismo de carga aborta en cualquier caso el uso del 
// fechado particular de s4.
// En la segunda carga se usa el fechado AUX visible al cargarlas.


Text DatingAddress(Serie serie) {
  GetAddressFromObject(Dating(serie))
};

Set check1 = [[
  Real (DatingAddress(series1::s1) == DatingAddress(series1::s2)); // 0
  Real (DatingAddress(series1::s1) == DatingAddress(series1::s3)); // 0
  Real (DatingAddress(series1::s1) == DatingAddress(series1::s4)); // 0
  Real (DatingAddress(series1::s2) == DatingAddress(series1::s3)); // 0
  Real (DatingAddress(series1::s2) == DatingAddress(series1::s4)); // 0
  Real (DatingAddress(series1::s3) == DatingAddress(series1::s4))  // 1
]];
Set check2 = [[
  Real (DatingAddress(series2::s1) == DatingAddress(series2::s2)); // 0
  Real (DatingAddress(series2::s1) == DatingAddress(series2::s3)); // 0
  Real (DatingAddress(series2::s1) == DatingAddress(series2::s4)); // 0
  Real (DatingAddress(series2::s2) == DatingAddress(series2::s3)); // 0
  Real (DatingAddress(series2::s2) == DatingAddress(series2::s4)); // 0
  Real (DatingAddress(series2::s3) == DatingAddress(series2::s4))  // 1
]];