A Simulation Model of the Gravity Separation of Concentrated Solids
467
400
ννΐΙΙΤΕίό,^ΑΚ,νΕίΟΧΡΙ,ΡΙ,Ρυ
410
NN=2
420
SSAVE=H
430
S=H
440
TIME=0.
450
DT1=10.
460
DT=10.
470
DO 100 1=2,545
480
SUM=0.
490
J=(I+158)/160
500
2 CONTINUE
510
DO200N=l,NN
520
L=K2-N
530
IF(ICOUNT(L).EQ.l)GOTO200
540
VTR(L)=VEL(L)*DT
550
VR(L)=VTR(L)-VTR(L+1)
560
VN(L)=V(L)-VR(L)
570
IF(VN(L).GT.0.) GO TO 1
580
DT=DT/2.
590
DT1=DT
600
GO TO 2
610
1 CONTINUE
620
F(L)=(VN(L)-(1 .-FOLD(L))*V(L))/VN(L)
630
TL=VN(L)
640
DTL=1.-TL*12.
650
CON(L)=V(L)/VN(L)*CON(L)
660
V(L)=VN(L)
670
IF(F(L)-FU) 308,308,309
680
308 F(L)=(FOLD(L)+FU)/2.
690
IF(F(L).GT.(1.001 *FU)) GO TO 12
700
F(L)=FU
710
ICOUNT(L)=l
720
GO TO 14
730
12 CONTINUE
740
309 U(L)=(F(L)-FU)/(FOLD(L)-FU)
750
FOLD(L)=F(L)
760
14 CONTINUE
770
SUM=SUM+DTL
780
200 CONTINUE
790
TIME=TIME+DT
800
DO201N=l,NN
810
L=K1-NN+N
820
UP=(F(L)-FU)/(FI-FU)
830
K=AK+R*AK*(1.-UP)
840
P(I ,L)=U(L)*P((I-1 ),L> (1 .-U(L-1 ))*P((I-1 ),(L-1 ))*UP
850
VEL(L)=P(I,L)*F(L)**3/(K*(1 .-F(L))**2)
860
201 CONTINUE
870
IF(NN.EQ.K3) GO TO 78