//?ER-隨機網絡.c?:?定義控制臺應用程序的入口點。

#include?
#include?
#include?“time.h“
int?N=10000;????????????????????????//節點個數
double?p=0.001;??????????????????????//連邊概率
int?edge[15000][15000];???????????????????//存放連邊矩陣

void?randomnetwork（）
{
????for（int?i?=?1;?i?<=?N;?i++）
????????for（int?j?=?1;?j?<=?N;?j++）
????????{
????????????edge[i][j]?=?0;
????????}//對矩陣進行初始化為0
????for（int?i?=?1;?i?<=?N;?i++）
????????for（int?j?=?i+1;?j?<=?N;?j++）
????????{
????????????????double?test1=0.0;
????????????????test1=（rand（）%N）/（double）N;
????????????????if（test1????????????????{
????????????????????edge[i][j]=1;
????????????????????edge[j][i]=1;
????????????????????//printf（“edge[i][j]“）;
????????????????????//cout<????????????????}
????????????}
????????}
//統計節點度數計算網絡平均度和P（K）
int?calculateDegreeDistribution（）
{
????double?networkDegree=0.0;
????int?degree[N];
????double?statistic[N];
????for（int?i?=?1;?i?<=?N;?i++）
????{
????????degree[i]?=?0;
????????statistic[i]?=?0.0;
????}
????for（int?i?=?1;?i?<=?N;?i++）
????{
?????????for（int?j?=?1;?j?<=?N;?j++）
????????{
????????????degree[i]?+=?edge[i][j];
????????}
????????printf（“node?%dDegree?is?%d\n“idegree[i]）;
????}
????for（int?i?=?1;?i?<=?N;?i++）
????????networkDegree?+=?degree[i];
????printf（“networkDegree?is?%f\n“networkDegree）;
????printf（“?=?%f\n“networkDegree/（double）N）;
????for（int?i?=?1;?i?<=?N;?i++）//這里從1開始是因為數據degree坐標是從1開始的
????????statistic[degree[i]]++;//計算度為K（這里的degree[i]中存儲的是度）的節點的個數
????double?indentify=0.0;
????for（int?i=0;?i????{
????????statistic[i]=statistic[i]/（double）N;
????????printf（“度為%d的節點所占比例為:?%f\n“istatistic[i]）;
????????indentify?+=?statistic[i];
????}
????printf（“indentify?=?%f\n“indentify）;
}
void?main（）
{
????srand（（unsigned?int）time（0））;
????randomnetwork（）;
????FILE?*fp2;
????fp2?=?fopen（“100--隨機網絡--平均度為10.txt“?“w“）;
????for（int?i?=?1;?i?<=?N;?i++）
????????for（int?j?=?1;?j?<=?N;?j++）
????????{
????????????fprintf（fp2?“%d?“edge[i][j]）;
????????????if（j==N）
????????????????fprintf（fp2?“?\n“）;
????????}

????fclose（fp2）;
????calculateDegreeDistribution（）;
}

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????目錄???????????0??2018-05-12?20:53??ER\
?????文件???200030000??2018-05-12?15:36??ER\100--隨機網絡--平均度為10.txt
?????文件????????1060??2018-05-11?12:24??ER\ER.cbp
?????文件?????????111??2018-05-12?13:41??ER\ER.depend
?????文件?????????357??2018-05-11?15:11??ER\ER.layout
?????目錄???????????0??2018-05-11?12:24??ER\bin\
?????目錄???????????0??2018-05-12?15:36??ER\bin\Debug\
?????文件???????33260??2018-05-12?15:36??ER\bin\Debug\ER.exe
?????文件????????2411??2018-05-12?15:35??ER\main.c
?????目錄???????????0??2018-05-11?12:24??ER\obj\
?????目錄???????????0??2018-05-12?15:36??ER\obj\Debug\
?????文件????????5332??2018-05-12?15:36??ER\obj\Debug\main.o