/*-------------------------------------------------------------------------------
F|perm|max(Ci)  Ütemezési fedadat szimulációja.
Egyutas többoperációs termelésütemezési feladat.
-------------------------------------------------------------------------------*/

#include<stdio.h>
#include<alloc.h>
#include<conio.h>
#include<stdlib.h>

typedef struct {
                int id;
                long int* SetT,  /*beallitasi idok, setup times*/
                        * ProcT, /*muveleti idok, processing times*/
                        * OpT,   /*operaciok teljes ideje, operation times*/
                        * StartT,/*kezdesi idopontok, starting times*/
                        * EndT;  /*befejezesi idopontok, ending times */
                 long   D,       /*hatarido*/
                        L;       /*keses*/
                }T_JOB;

typedef struct {
                int id;
                int l;      /*gephez rendelt munkak szama, load*/
                long int C; /*a gep utolso munkajanak befejezesi idopontja, completion time*/
               }T_MACHINE;

typedef struct {
               long Cmax, /*utolso munka bef. idopontja*/
                    Csum; /*bef. idok osszege*/
               double MUav; /*atlagos gepkihasznaltsag*/
               }T_OBJF;    /*celfuggvenyek*/

void simulation_FS(T_JOB* job, int* sch, int NJ, int NM, long t);
void print_objf(T_OBJF* objf);
/*void print_Gantt(T_JOB* job, int* sch, int NJ, int NM);*/


int main(int argc, char* argv[])
{
  int NJ; /* munkak szama*/
  int NM; /* gepek szama*/
  T_MACHINE * mach;
  int i, j;
  T_JOB* job; /* strukturavektorra mutato*/
  int* sch; /* utemterv */
  T_OBJF objf;
  /* modellepites, utemezes, szimulacio, ertekeles*/

  /*modellepites*/
  printf("\n Kerem a munkak aktualis szamat:");
  scanf("%d", &NJ);

  printf("\n Kerem a gepek aktualis szamat:");
  scanf("%d", &NM);

  job = (T_JOB*) calloc(NJ, sizeof(T_JOB));
  randomize();
  for (i=0; i<NJ; i++)
   {
    job[i].id = i;

    job[i].SetT = (long*) calloc(NM, sizeof(long int));
    job[i].ProcT = (long*) calloc(NM, sizeof(long int));
    job[i].OpT = (long*) calloc(NM, sizeof(long int));
    job[i].StartT = (long*) calloc(NM, sizeof(long int));
    job[i].EndT = (long*) calloc(NM, sizeof(long int));

    for (j=0; j<NM; j++)
    {
    job[i].SetT[j] = 1 + random(10);
    job[i].ProcT[j] = 1 + random(100);
    job[i].OpT[j] = job[i].SetT[j] + job[i].ProcT[j];
   }
    job[i].D = 1 + random(50) + NM * job[i].OpT[0]*random(5);
  }

  /*utemezes*/
     sch = (int*) calloc(NJ, sizeof(int));

  /* gepek */
  mach = (T_MACHINE*) calloc(NM, sizeof(T_MACHINE));

  /*Ad-hoc sorrend*/
  for(i=0; i<NJ; i++)
   sch[i]=i;
  //printf("\n AD-HOC sorrend: \n");

  simulation_FS(job, sch, NJ, NM, 0);
  /*print_Gantt(job, sch, NJ, NM);*/

  printf("\n Vege!");
  getch();

  free(sch);

  for (i=0; i<NJ; i++)
   {
    free( job[i].ProcT);
    free( job[i].OpT);
    free( job[i].SetT);
    free( job[i].StartT);
    free( job[i].EndT);
    }
 free(job);
 free(mach);

 return 0;
}
//---------------------------------------------------------------------------

void simulation_FS(T_JOB* job, int* sch, int NJ, int NM, long t)
{
 int i, /*job futoindex*/
     m; /*gep futoindex*/

 for (i=0; i<NJ; i++)
  for (m=0; m<NM; m++)
  {
   if ( i==0 ) /*kezdo munka*/
   {
     if ( m==0 ) /*kezdo gep*/
     {
       job[sch[i]].StartT[m] = t; /*kezdes a referencia idopontban*/
     }
     else /*nem kezdo gep*/
     {
       job[sch[i]].StartT[m] =  job[sch[i]].EndT[ m-1 ]; /* elozo geprol erkezik*/
     }
   }
   else /*nem kezdo munka*/
   {
     if (m==0) /*kezdo gep*/
     {
       job[sch[i]].StartT[m] = job[sch[i-1]].EndT[m];   /* kezdo gep nem varakozik*/
     }
     else /*nem kezdo gep*/
     {
      job[sch[i]].StartT[m] = max( job[sch[i]].EndT[m-1], job[sch[i-1]].EndT[m]);
     }
   }
  job[sch[i]].EndT[m] = job[sch[i]].StartT[m] + job[sch[i]].OpT[m]; /*befejezes idopont*/
  }
}



void print_objf(T_OBJF* objf)
{
 printf("\n Csum= %ld", objf->Csum);
 printf("\n Cmax= %ld", objf->Cmax);
}