1
function [tevts,evtspt,pointi]=init_agenda(initexe,clkptr)
4
// order initial firing events in chronological order.
8
[timevec,indtime]=sort(-timevec)
9
initexe=initexe(indtime,:)
17
nevts=clkptr(nblk+1)-1 //time events agenda size
20
tevts(clkptr(initexe(:,1))+initexe(:,2)-1)=initexe(:,3)
25
pointi=clkptr(initexe(1,1))+initexe(1,2)-1;
29
evtspt(clkptr(initexe(1:ninit-1,1))+initexe(1:ninit-1,2)-1)=..
30
clkptr(initexe(2:ninit,1))+initexe(2:ninit,2)-1;
31
evtspt(clkptr(initexe(ninit,1))+initexe(ninit,2)-1)=0;