%--------------------------------------------------------------------------
clc;
clear;
%--------------------------------------------------------------------------
GlobalCycle=0;
EndTime=1000;                                                       %========>
DiskTime=5;
Ts=1;

NProcess=3;
Qlen=NProcess;
TB=[200;10;10];

QReady=[1 0 0 0;
        2 0 0 0;
        3 0 0 0];                  % 1 col is the process name;2 col is the bust time; 3 col is the waiting time; 4 col for the temperally store waitingTime/TB....
QReady(:,2)=TB;
QReady(:,3)=GlobalCycle;                  %  for the first time.                

QReady_History=zeros(2*NProcess+3,EndTime);
 
QDisk=zeros(NProcess,2);  %  1 col is the process name;2 col is the endtime
QDisk(:,2)=EndTime+100;       %  initial the endtime to the EndTime

%--------------------------------------------------------------------------
while GlobalCycle<EndTime
  curP=0;                     %make sure not store the old state, 0 when the cpu is idle.  could cause TB(0)......
%   fprintf('------before check and HRRN-Time now is:%d--',GlobalCycle);
%   QDisk
%   QReady
  [QDisk,QReady]=CheckDiskQueue_HRRN(QDisk,QReady,Qlen,GlobalCycle,TB,EndTime); %......
  
  
  if sum(QReady(:,1))==0  % check before pick up, 0 mean the cpu is idle
      fprintf('CPU idle at T=%d....\n',GlobalCycle);
      
      QReady_History(:,GlobalCycle+1)=-1;% Idle state
      GlobalCycle=GlobalCycle+1;
      continue;
  end
  %--------------------we know there are processes in the ReadQueue------------------
%   disp('----before HRRN');
  [curP,QReady]=HRRN(QReady,Qlen,GlobalCycle);                                     %pick up a process=====>>
%   disp('----after HRRN');
  QReady_History(:,GlobalCycle+1)=[QReady(:,1);0;QDisk(:,1);0;curP]; % the current state,remember GlobalCycle+1....
  
    
   GlobalCycle=GlobalCycle+TB(curP);                                   %TB is GOOD for debug....
   GlobalCycle=GlobalCycle+Ts;
   
   value=GlobalCycle+DiskTime;
   [QDisk,pos]=InQueue2(curP,value,QDisk,Qlen,'D'); %put into the DiskQueue
   
end

OutputResult(QReady_History,EndTime,NProcess);
Analysis(QReady_History,TB,1,Qlen);