ing computacional

PROCESO DE MEZCLADO
CODIGO DEL PROGRAMA
Double precision w1,w2,x1,x2,w,x,c,t,xinf
integer i 
open (unit=12 , file= " Resultado.txt")
print*, "Introduzca el valor de W1, w2 en Kg/min"
Read*,w1,w2
print*, w1,w2
Print*, "Introduzca el valor de x1, x2 "
Read*,x1,x2
print*, x1,x2
print*, "Escoja las condiciones del sistema para estado estable oprima (1), para estado inestable oprima (2)"read *, i
  select case (i)
  case (1)
w= w1 + w2
x= (W1*x1+w2*x2)/w
write (12,*)x
Case (2)
  w=w1+w2
  x0=(w1*x1+w2*x2)/w
  print*, 'el valor de x0 es',x0
print*, 'Que variable cambiasúbitamente?, para w1 oprima 1,para w2 oprima 2,para x1 oprima 3,para x2 oprima 4' 
read *, j
 select case (j)
   case (1) 
   print*, 'el nuevo valor de w1 es' 
   read*, w1
   w= W1 + W2
  c=(w1*x1+w2*x2)/w

   do t= 0,50, 1
     xinf= 0.5*exp(-t/3)+c*(1-exp(-t/3))
     xnt=(xinf-x0)/(c-x0)
   write (12,*) t,xinf,xnt  
   end do 
    case (2) 
   print*, 'el nuevo valor de w2 es' 
  read*, w2
   w= W1 + W2
   c=(w1*x1+w2*x2)/w
   do t= 0,50, 1
     xinf= 0.5*exp(-t/3)+c*(1-exp(-t/3))
     xnt=(xinf-x0)/(c-x0)
   write (12,*) t,xinf,xnt 
   end do
    case (3) 
   print*,'el nuevo valor de x1 es' 
   read*, x1
   w= W1 + W2
   c=(w1*x1+w2*x2)/w
   do t= 0,50, 1
     xinf= 0.5*exp(-t/3)+c*(1-exp(-t/3))
     xnt=(xinf-x0)/(c-x0)
   write (12,*) t,xinf,xnt 
  end do
end select
end select 
end 

Ingeniería Computational
Proyecto #1

1. Un tanque agitado usado para procesos de mezcla a nivel constante de es usado para mezclar dos Corrientes cuyasdensidades son aproximadamente 900 . La densidad no cambia durante el mezclado.
a) Asuma que el proceso ha estado operando por un largo periodo de tiempo con flujos másicos de y , y la composición delalimento (fracción másica) de y . Cuál es el estado estable de ?

RTA: El estado estable de x es 0.5

b) Suponga que cambia súbitamente de a y se mantiene en el nuevo valor. Determine la...