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.

Opened 14 years ago

Last modified 14 years ago

#1111 closed defect

Objetos no borrados tras usar MatSerSet — at Initial Version

Reported by: Víctor de Buen Remiro Owned by: Víctor de Buen Remiro
Priority: highest Milestone: Mantainance
Component: Kernel Version:
Severity: blocker Keywords:
Cc:

Description

El siguiente código TOL produce una pérdida de 7 objetos en cada iteración

Real maxIter = 10;
Real iter = 1;
Real nObj1 = ?;
Real nObj2 = ?;
Real lostObjects = ?;

Real nObj1 := Copy(NObject);
WriteLn("nObj1="<<nObj1);

Real While(iter<=maxIter, {
  Set dates = [[y2010m01d01,y2010m01d02,y2010m01d03]];
  Matrix data = Row(1,2,3);
  TimeSet tms = DatesOfSet(dates);
  Set serSet = MatSerSet(data,tms,dates[1]);
  iter := iter+1
});

Real nObj2 := Copy(NObject);
WriteLn("nObj2="<<nObj2);

Real lostObjects := (nObj2-nObj1)/(maxIter);
WriteLn("lost objects by iteration = "<<lostObjects);

Sin embargo, si eliminamos la línea que llama a MatSerSet ya no se pierde ni uno solo.

Change History (0)

Note: See TracTickets for help on using tickets.