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
)
- 2010-07-25 11:38:36下载
- 积分:1