b<- 10 d<- 12 #10 11 9 N<- 1000 T<- 100 t<- 0 dates<- c(0) I<- 100 infectes<- c(100) nbitermax<-1000 nbiter<-0 while(t0 && nbiter