dengyi

   CONSX—这是一个主要子程序，调用其它于程序及输出中间结果 * !* CHECK—检查所有的点是否满足约束条件,对违背约束的点进行校正 * !* CENTR—计算中心点 * !* FUNC —目标函数，由用户提供 * ( PROGRAM COMPLEX PARAMETER(N=3,M=4,K=6) DIMENSION X(K,M),R(K,N),F(K),G(M),H(M),XC(N) INTEGER GAMMA OPEN(4,FILE= COMPDATA ) READ(4,*)ITMAX,IPRINT,ALPHA,BETA,GAMMA,DELTA READ(4,*)(X(1,J),J=1,N) IX=2097151 YFL=0. DO 100 II=2,K DO 100 JJ=1,N CALL RANDU(IX,YFL) R(II,JJ)=YFL 100 CONTINUE OPEN(2,FILE= COMPDAT.OUT ,STATUS= UNKNOWN ) WRITE(2,10) 10 FORMAT(//,10X, COMPLEX PROGRAM OF BOX ) WRITE(2,11)N,M,K,ITMAX,IPRINT,ALPHA,BETA,G )