PROGRAMMAIN这是单目标遗传算法.docVIP

PROGRAM MAIN !这是单目标遗传算法 INTEGER POPSIZE !种群规模 INTEGER NUM(100)!染色体选择时染色体编号记录数组 INTEGER NUMBER !记录选择时染色体编号 INTEGER I !循环变量 INTEGER J !循环变量 INTEGER K !循环变量 INTEGER L !循环变量 INTEGER N !染色体内基因数（目标函数自变量数） INTEGER YES(100) !约束函数满足与否标志（0为不满足，1为满足） INTEGER GEN !遗传代数 ! ! INTEGER IDUM !随机数种子 COMMON/X0/X(100)!基因数组 COMMON/Y0/Y(100)!遗传操作时基因交叉、变异用数组 REAL V(1000,100) !初始染色体数组(1000代表染色体数量，100代表染色体内基因数量) COMMON/RANSETI/ V1(1000,100)! 初始染色体排序后数组 COMMON/RANSETI/ V2(1000,100)!旋转轮赌排序后染色体数组 COMMON/RANSETI/ V3(1000,100)!交叉操作后染色体数组 COMMON/RANSETI/ V4(1000,100)!变异操作后染色体数组 COMMON/R/R(10000) !R(I) COMMON/P/P(10000) !P(I) COMMON/PSAI/PSAI(10000) !ψ(I) COMMON/OMG/OMG(10000) !外荷载与竖直线的夹角 COMMON/U/U(100000) COMMON/Q0/Q0(10000) !外荷载 COMMON/N1/N1 !土条划分数目 COMMON/F0/F0 !初始安全系数 COMMON/LMD0/LMD0 !初始λ COMMON/LMD/LMD !计算的λ COMMON/FS/FS !计算的安全系数 COMMON/SP/SP COMMON/SP1/SP1 COMMON/SP2/SP2 COMMON/MP/MP COMMON/M1/M1 COMMON/M2/M2 COMMON/XDING/XDING,YDING !读入坡顶的坐标值 COMMON/N3/N3 !底部划分条块数 COMMON/N4/N4 !中部划分条块数 COMMON/N5/N5 !顶部划分条块数 COMMON/N6/N6 !第2种滑面顶部划分条块数1 COMMON/N7/N7 !第2种滑面顶部划分条块数2 COMMON/IDUM/IDUM !随机数种子 COMMON/C1/C1(1000) COMMON/FAI1/FAI1(1000) COMMON/GAMA1/GAMA1(1000) COMMON/NB/NB !土坡表面几何特征点数NB COMMON/NS/NS !土层数NS COMMON/EQH/EQH !水平地震系数EQH COMMON/XU/XU(10000)!地表特征点水平坐标 COMMON/YU/YU(1000,10000) !地表特征点下各土层界面的垂直坐标 COMMON/WL/WL(10000) !地表特征点下地下水或浸润线的垂直坐标 COMMON/QA/QA(10000) !地表特征点间的荷载 1 COMMON/ALF/ALF(10000) !各条块的倾角 COMMON/W/W(10000) !各条块的重度 COMMON/C/C(10000) !各条块的粘聚力 COMMON/FAI/FAI(10000)!各条块的内摩擦角 COMMON/U/U(10000)!水压力 COMMON/WQH/WQH(10000)!水平地震力 COMMON/WQV/WQV(10000)!竖直地震力 COMMON/X1/X1(10000)!滑动面控制点横坐标 COMMON/Y1/Y1(10000)!滑动面控制点纵坐标 COMMON/E/E(10000) !E(I) COMMON/B/B(10000) !每一条块的宽度 COMMON/H1/H1(10000) !条块上下中心点的距离 COMMON/XCENTER/XCENTER(10000) COMMON/YCENTER/YCENTER(10000) COMMON/FAII/FAII(10000) COMMON/PS/PS(10000) COMMON/DILMD/DILMD !底部方向向量值 ! ! ! ! COMMON/DINGLMD/DINGLMD !顶部方向向量值 COMMON/NTIAO/NTIAO !判断属于哪种分条模式 COMMON/IYES/IYES !分条模式成功与否判断 COMMON/LMDL/LMDL(10