tesis_uam/Codigos para el manejo de un reactor ... - cedip

I1 $CII1?ITRUL fJOL I ST? C F#Ji?ICli: FtEij [IATEÍIIAL AiJO SEPARATIII’I g.IURY, CALCULATIONS FOR3 C Fdh’ICriIiJG IJRAtIItJF-1 B Y GASEüiJS UIFF IJSIOiJ. (S.S. FEd. 27,4 C 1-96115 C P(T) - AFlOUlJT OF PHODlJCT DESIRED IN KGU6 C WX(I1 - z u-23s IiJ COLAS7 C XPP(1) IVITIAL % OF U-235 IN PROOlJCTtl I: XPE(1) - FIrJAL % OF iJ-2-55 IiJ PRí)UUCT4, C kINC(1) - 1:1CiiE:i1ErJT OF % FROM IiJITIAL TO FINAL %l U C XF - i dF !I-235 Ii? URAIJIUM FEED11 C CF - COST üF FEEL) / KGlJ12 C CS - COST OF ONE SEPARATIVE NORK UNIT I KGU13 C A1d - IJUi4REH OF CASES TO BE STUDIED14 c IF ‘-1cIQE 1iiA.J TEiI CASES ARE TO RE STiJOIEú, IiJCREASE THE DIMENSION1 5 C ST4TEI’IE3JT T:) THE ijECIQEI1 IJU:*IBER OF CASES,Ib111’4EhJSIdiJ F ( 101 hX ( 1 O) r XPP ( 1 O) ,E I?JC ( 1 O) XPE ( 1 O)17\)AT A D AT I ad/ ’ fJ /18 V ( X ) = (2,*X-i. ) * ALOG (X/ I: 1 .OX 1 19 WHITE (6131¿U 913 dR I TF (6,5 9 1 )21 5Ül Fi7R .1AT(SX, ‘AiJíjTA EL C!ISTO DEL MATERIAL ALIMENTA00 Y ’,122 *‘C:lbT 1 O t 1 Silk! Eli S/KG:’) 23 HEAI)(Sr*) CFFCS 124 WR I TE (6 t 502)25 502 FURMAT(SX, ‘ANOTA EL ENRIQUECIMIENTO DE ALIMENTACION(1X = 1.0) ‘i26 */,5X ‘ Y EL liuflEYO DE CASUS QUE SEíiAiJ COKRIDUS:’)!27 HEAII (S,*I XF-, At\ir2hI\I=AiJ29 130 131 503 FORI?lAT(SX, ‘ANOTA EL ENRIQUECIMIENTO DE COLASILOS LIMITES DE ‘ , I32 *’ FNVIilkJEC I:~iIF_;iTt)’,33 *‘ Y tI, I;ICiiEiíit_iJTú’,/,5%, ’i,E EIJRIWUECI~IIE~TO PARA LL CASO’,543535 P(I)=l*(I) rEINC(1)37 10 C!JNT I fJl.IE! ,3c< tJqTTE (hrl-l) XF,CF,CS39 N4ITE (or5140 r)’i is I=~,;J41 15 di=xP,= ( I 144 5 20 C 3KTIiJiJEJb I)) GO TCi 4047 ,O.Ol €INC(II=100,48 .I GO TO 40495 o51,., !d b k 1 =vvx ( I ) / 1 O0r: t> 1 = x f’/ 1 do./, 5X, ’ IlJFERIOH Y SUPERIOR DE LA TABLA ’,brJ C53 CS - fGiJr4dEit UF E;JHICHIiJG STAGESSN - ;JCIMBER OF STRIPPING STAGES54 Cs5 C ON SEPARATION FACTOR OF 0.0045 b l))/(XFl/(l-XFl)))!I 7 S.j=590.*ALUti( (XF1/(1-XF 111 / (kXl/(l-bJXl)) 1- I. Z.A” --&-‘,-’*.“-*&---.-5- - .. *- i_ _”_-