Scribd Logo
Cargar

¡Te damos la bienvenida a Scribd!

  • 10 vistas

    Código 6

    Cargado por

    Sergio Luna

    Copyright:

    © All Rights Reserved
    Descargue como DOCX, PDF, TXT o lea en línea desde Scribd

    Código 6

    Cargado por

    Sergio Luna
    10 vistas2 páginas

    Título original

    CÓDIGO 6

    Derechos de autor

    © © All Rights Reserved

    Formatos disponibles

    DOCX, PDF, TXT o lea en línea desde Scribd

    ¿Le pareció útil este documento?

    ¿Este contenido es inapropiado?

    Copyright:

    © All Rights Reserved
    Descargue como DOCX, PDF, TXT o lea en línea desde Scribd
    Descargar como docx, pdf o txt
    10 vistas2 páginas

    Código 6

    Cargado por

    Sergio Luna

    Copyright:

    © All Rights Reserved
    Descargue como DOCX, PDF, TXT o lea en línea desde Scribd
    Descargar como docx, pdf o txt
    Está en la página 1de 2

    El proyecto está guiado hacia la implementación de un sistema de tratamiento

    económica y ambientalmente sostenible para los desechos electrónicos


    provenientes de artículos tecnológicos. Este sistema será ofrecido a empresas que
    buscan garantizar practicas eco-amigables que vayan en pro de la legislación
    ambiental nacional. Además, se pretende aprovechar la presencia de oro, plata y
    cobre localizado en de residuos electrónicos, como fuente alterna de generación
    de ganancias. En el presente informe, se presentará un estudio técnico del
    proyecto.
    if sign(M(1,2))==sign(M(2,2)) 
        M(2,3)=M(1,3) 
    else  
        M(2,3)=M(1,1) 
    end 
      
    M(2,4)=P-(R*T)/(M(2,3)-b)+a/(M(2,3)*(M(2,3)+b)*T^0.5) 
      
      
    M(1,1)=M(2,1) 
    M(1,2)=M(2,2) 
    M(1,3)=M(2,3) 
    M(1,4)=M(2,4) 
      
    end 
      
    v=M(2,1) 
      
    % constantes Antoine 
    Ai=[16.5938 13.8594] 
    Bi=[3644.3 2773.78] 
    Ci=[239.76 220.07] 
      
    Tcr=[521.64 562.05] %K 
    Pcr=[8097 4895]  % kPa 
    R= 8.314 % kJ/kmolK 
      
    P=1000 %kPa 
      
    X1=0 
      
    while X1 <1 
         
    X2=1-X1 
    Xi=[X1 X2] 
      
      
    fi=ones(1, NC) 
      
    errorf=10 
    while errorf >0.0001 
      
    %estimar temperatura(supuesto) 
      
    for i=1:NC 
       Tsati(i)=Bi(i)/(Ai(i)-log(P))-Ci(i)  
    end 
      
    for i=1:NC 
       TsatiXi(i)=Tsati(i)*Xi(i)  

      
    for j=1:NC 
         
        Yjaj(j)=Yi(j)*ai(j)^0.5 
         
    end 
      
    for i=1:NC 
        fic(i)=exp(log(v/(v-b))+bi(i)/(v-b)+
    ((2*sum(Yjaj)*ai(i)^0.5)/(R*b*T^1.5)-(a*bi(i))/(R*b^2*T^1.5))*log(v/
    (v+b))-(a*bi(i))/(R*T^1.5*b*(v+b))-log((P*v)/(R*T))) 
    end 
      
    for i=1:NC 
    errorfi(i)=abs((fi(i)-fic(i))/(fic(i))) 
    end 
      
    errorf=sum(errorfi) 
    fi=fic 

    También podría gustarte