Description: 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
To Search:
File list (Check if you may need any files):
邓毅\cuow.m
....\a.txt
....\wilson.m
....\wilson.asv
....\cuow.asv
邓毅
Download