医院病床分配仿真 举例(c语言)

#include <stdio.h>
#include <stdlib.h>
# define ep  9           //每天人数
# define ws 17 
# define bd 20
# define bs 23
# define qg 12
# define sw 28
# define weekbe 1 //第一天周一
# define ws2 7
# define bd2 4
# define bs2 9
# define qg2 10
# define sw2 7
# define day 150 //天数
main()
{

int allpe[ep*day]; //所有病人    
    int eveti[ep*day]; // 被服务时间
int namber[ep*day]; //编号
int timeing[ep*day]; //等待时间
    int a,i;
int k=0;


 int farst[5][7]={{4,4,4,4,4,4,4},{1,1,2,2,2,3,3},{3,3,1,1,1,2,2},{2,2,3,3,3,1,1},{2,2,3,3,3,1,1}};             //优先级矩阵
      int farstall[ep*day]={0};                                                                                            //最后一天
 
 int badday[78]; //病床占用时间
 int bad0[78];
 int days=1;
 int badnull=0;
 //int numbersos=0; //急诊位置
      //int numberple=0; //普通位置
 int j=0;    //空床位位置
      int weekbes; //记录周几


   FILE *fp1;
        FILE *fp2;
        FILE *fp3;  
        FILE *fp4;
 

for(i=0;i<5;i++)         //每个病人至少等待一天
  {   
for(j=0;j<7;j++)
printf("%d  ",farst[i][j]);
        printf("\n");
  }

for(i=0;i<ep*day;i++)         //每个病人至少等待一天
  {   
    timeing[i]=1;
  }
      for(i=0;i<ep*day;i++) //产生病人     a
{ a=rand()%100;
if((a>=0)&&(a<ws))
                allpe[i]=1;
if((a>=ws)&&(a<ws+bd))
allpe[i]=2;
if((a>=ws+bd)&&(a<ws+bd+bs))
allpe[i]=3;
if((a>=ws+bd+bs)&&(a<ws+bd+bs+qg))
   allpe[i]=4;
if((a>=ws+bd+bs+qg)&&(a<=ws+bd+bs+qg+sw))
   allpe[i]=5;
}


 for(i=0;i<ep*day;i++)     //病人被服务时间
 {     
 switch(allpe[i])
{
                case 1: eveti[i]=7;     break;
                case 2: eveti[i]=7;     break;
case 3: eveti[i]=9;     break;
case 4: eveti[i]=10;    break;
case 5: eveti[i]=13;    break;
}
 
 }


      for(i=0;i<ep*day;i++)         //病人编号
 {   
    namber[i]=i+1;
  
 }
 for(i=0;i<78;i++)
 {
 badday[i]=1;
 
 }
 
       for(days;days<=day;days++) //第days 天开始了
  {  
  
           weekbes=days%7+weekbe; //今天周几 weekbes
  
  for(i=0;i<ep*days;i++) //根据周几对所有病人分优先级
  { 
    if(allpe[i]==1)
                 farstall[i]=farst[0][weekbes-1];
    if(allpe[i]==2)
    farstall[i]=farst[2][weekbes-1];
    if(allpe[i]==3)
    farstall[i]=farst[1][weekbes-1];
    if(allpe[i]==4)
    farstall[i]=farst[3][weekbes-1];
    if(allpe[i]==5)
    farstall[i]=farst[4][weekbes-1];

  }

  for(i=0;i<78;i++) //1 床位服务时间减少一天
{
   if(badday[i]!=0)
      badday[i]--;
 
}
    
  for(i=0;i<=77;i++) //  2  检查空床数
  {                         
  if (badday[i]==0)   
  {
  bad0[badnull]=i; //  床位编号
                   badnull++; //   空床数
  }


}

  
 //printf("%d\n",badnull);
    if(badnull!=0)   //  3 如果有空床位为候诊者分配床位
    for(i=0;(i<days*ep)&&(j<badnull);i++)   //       3.1  分给4     分配床位没有床位或搜索完毕停止


if (namber[i]!=0)     
{
if(farstall[i]==4)
{
badday[bad0[j++]]=eveti[i]; // 安排病床                                 
namber[i]=0;
}
}

              if(j<badnull)         //     3.2     3
for(i=0;(i<days*ep)&&(j<badnull);i++)  
{    
if(namber[i]!=0)
{
   if(farstall[i]==3)
{
badday[bad0[j++]]=eveti[i]; // 安排病床
                                 
namber[i]=0;
}
}


}
               if(j<badnull) //   3.3    2
for(i=0;(i<days*ep)&&(j<badnull);i++)  
{    
if(namber[i]!=0)
{
    if(farstall[i]==2)
{
badday[bad0[j++]]=eveti[i]; // 安排病床                                  
namber[i]=0;
}
}


}
               if(j<badnull) //   3.4    1
for(i=0;(i<days*ep)&&(j<badnull);i++)  
{    
if(namber[i]!=0)
{
   if(farstall[i]==1)
{
badday[bad0[j++]]=eveti[i]; // 安排病床                                  
namber[i]=0;
}
}


}


           for(i=0;i<days*ep;i++)    //    4未安排床位病人加一天
{    
if (namber[i]!=0)     
{    
    k++;
timeing[i]++;
}

}
               //printf("%d\n",j);
           j=0;
                badnull=0;


  }


   
        fp1=fopen("a.txt","w"); //打开文件以便写入数据
fp2=fopen("b.txt","w");
fp3=fopen("c.txt","w");
fp4=fopen("d.txt","w");
for (i = 0; i<ep*day; i++)                                 //
{ 
fprintf(fp1,"%d\n", namber[i]);
}
for (i = 0; i<ep*day; i++)                                 //
{ 
  fprintf(fp2,"%d\n",eveti[i]);
}


for (i = 0; i<ep*day; i++)                                 //等待时间
{ 
fprintf(fp3,"%d\n",timeing[i]);
}
        for (i = 0; i<ep*day; i++)                                 //
{ 
  fprintf(fp4,"%d\n", allpe[i]);
}
        fclose(fp1);                                                //写入完毕，关闭文件
fclose(fp2);
fclose(fp3);
        fclose(fp4);
        printf("%d/day\nday %d day\n",ep,day);
        printf("%d\n",k);


 }