generating-degree.c

这是复杂网络研究中研究小世界性质的c程序2。

#include"stdio.h"
#include"math.h"
#include<stdlib.h>
#define N 150
#define A0 10895
main()
{ FILE *fp,*fp1;
  int i,j,y=0;
  static int num[N],totvertex;
  float x,z=0,p,avedeg;
  static double a[N];
  fp=fopen("gen-degree.txt","w");
  for(i=1;i<=(N-1);i++)a[i]=A0*pow(i,-2.1);
  for(i=4;i<=(N-1);i++)
   {i=(int)(1.098*i);
    if(i>(N-1))continue;
    num[i]=(int)a[i]+1;
    y++;
    totvertex=totvertex+num[i];
     z=z+i*num[i];
    printf("%d %d\n",i,num[i]);
   }
   z=z/2000; x=totvertex-2000;
   printf("%d %f %f\n",y,z,x);

   
  if(abs(x)<10)
  {num[1]=num[1]-(totvertex-2000);
   for(i=1;i<=(N-1);i++)
    {if(num[i]>0)
      {for(j=1;j<=num[i];j++)fprintf(fp,"%d\n",i);
      }
    }
   }

}