求ER随机图构造算法

悠悠晴空qq

用Fortran编写程序ER随机图构造算法：
（1）初始化：给定N＝10000个节点，连边概率p＝0.001属于（0，1）
（2）随机连边：
1、选择一对没有边相连的不同的节点
2、生成一个随机数r属于（0，1）
3、如果r<p,那么在这对节点之间添加 一条边；否则就不添加边
4、重复步骤1——3，直至所有的节点对都被选择过一次
根据机制得到度分布与度的数据，然后将数据导出，用Origin画ER随机图的度分布图

楚香饭

请不要发布单纯求答案的帖子。