Hello everyone,

After a few days thinking and encouraged by p2, I'm opening this topic to start a pack or collection of programs to help any student or worker (you don't know who will use this programs).

So, the idea is, i have a lot of excels made for calculate (with accurated methods) some of the most used in the engineering world like:

Kern method
Pinch method
Binary distillation (McCabe-Thiele method)
Multicomponent Distillation
Etc

At the end of the day, the real use of the ti nspire and the other calculators is to make easy our calculations 

And for do that i'm asking help to the CW comunity.

Thanks for your attantion.

P.D: Add some excels so you can make an idea of what i'm talking about.

Hi everyone

I open this topic because i want to share with you my Kern program for heat exchanger design, is very intuitive to use so I hope you can get a good use of it.

Also i want to ask if someone can help me to make it better, i want it to look like te FormulaPro and have similar functionality.


As I don't know how to do for post the code or the progam in use, I uploaded some screenshoots with all the code, my first time so, i hope i get better with this xD

:Request "T_in hot [ºC]",b2:Request "T_out hot [ºC]",b3:Request "P_in [bar]",b4:Request "Cabal hot [kg/s]",b5:Request "Rho hot [kg/m3]",b6:Request "Cp hot [kJ/kg K]",b7:Request "k hot [W/m K]",b8:Request "Viscositat hot [Pa·s]",b9::Request "T_in cold [ºC]",c2:Request "P_in cold [bar]",c4:Request "Cabal cold [kg/s]",h4:Request "Rho cold [kg/m3]",c6:Request "Cp cold [kJ/kg K]",c7:Request "k cold[W/m K]",c8:Request "Viscositat cold [Pa·s]",c9:Disp "1. BE y estimacion Area":Request "Q procés [kW]",f8:2.−4→b10:2.−4→c10:b2→f2:b5→f4:b7→f5:f4*f5→f6:c2→h2:((f8)/(h6))+h2→h3:c7→h5:h4*h5→h6:b2-((f8)/(f6))→f3:Disp "T_out cold=",h3,"ºC":Disp "T_out hot real=",f3,"ºC"::((f2-h3-(f3-h2))/(ln(((f2-h3)/(f3-h2)))))→f9:Disp "∆Tlm=",f9,"ºC"::Request "U [W/m2*K]",f10:::((f3-f2)/(h2-f2))→f17:((h2-h3)/(f3-f2))→f18:((2)/(f17))-1-f18→f19:((2)/(f17))*√((1-f17)*(1-f17*f18))→f20::Disp "P=",f17:Disp "R=",f18:Disp "A=",f19:Disp "B=",f20::Request "Numero de pasos por carcasa",f16:If f16=1 Then:((((√(f18^(2)+1))/(f18-1))*ln(((1-f17)/(1-f17*f18))))/(ln(((f19+√(f18^(2)+1))/(f19-√(f18^(2)+1))))))→f11:EndIf:If f16=2 Then::((((√(f18^(2)+1))/(2*(f18-1)))*ln(((1-f17)/(1-f17*f18))))/(ln(((f19+f20+√(f18^(2)+1))/(f19+f20-√(f18^(2)+1))))))→f11:EndIf::Disp "F utilitzada=",f10::((f8*1000)/(f10*f9*f11))→f12::Disp "A_estimada=",f12,"m2"::Disp "2. Tipus de tub i carcasa"::Request "D_in [m]",l2:Request "D_out [m]",l4:Request "L_rub [m]",l6::((l4-l2)/(2))→l3:π*l4→l5:Disp "Espessor paret tub=",l3,"[m]":((f12)/(l6*l5))→l8:Disp "n_tubs=",l8:1.25*l4→l12:Request "Disposició tubs 1:∆ 2:▫",a:If a=1 Then:((4*(l12^(2)-((π*l4^(2))/(4))))/(π*l4))→l16:EndIf:If a=2 Then:((4*(((l12)/(2))*0.86*l12-0.5*π*((l4^(2))/(4))))/(((π*l4)/(2))))→l16:EndIf:Request "n_tubs real",l20:Request "D_carcasa real",l19:Request "n_pasos tub",l9:l20*l6*l5→l21:Disp "A_real=",l21,"m2"::Disp "3. Calcul d'energia i ΔP":f16→l10:h4→c5:((l20*π*((l2^(2))/(4)))/(l9))→q2:((b5)/(b6*q2))→q3:((q3*l2*b6)/(b9))→q5:Request "Se el Pr? 1:Si 2:No",c:If c=1 Then:Request "Pr=",q6:EndIf:If c=2 Then:((1000*b7*b9)/(b8))→q6:EndIf:((((q11)/(8))*q5*q6)/(1.07+((900)/(q5))-((0.63)/(1+10*q6))+12.7*(((q11)/(8)))^(0.5)*(q6^(((2)/(3)))-1)))→q7:((q7*b8)/(l2))→q8:q8*((l2)/(l4))→q9:(0.79*ln(q5)-1.64)^(−2)→q11:((q11*l6*l9*b6*q3^(2))/(l2*(((b9)/(8.365−4)))^(0.14)*2))→q12:((4*l9*b6*q3^(2))/(2))→q13:q13+q12→q14:Disp "Re_tub=",q5:Disp "Pr_tub=",q6:Disp "Nu=",q7:Disp "h tub=",q8,"W/m2 K":Disp "h_tub out=",q9,"W/m2 K":Disp "ΔPtub=",q12,"Pa":Disp "ΔP canvi pas=",q13,"Pa":Disp "ΔPtub total=",q14,"Pa"::Disp "4. Càlcul d'energia i pèrdua de càrrega per carcassa":Request "k1 =",u3:Request "a=",u4:Request "B: Separació baffles [m]",u5:Request "Z: Densitat baffles",u6:h3→c3:l4*(((l20)/(u3)))^(((1)/(u4)))→u2:(((l12-l4)*l19*u5)/(l12*l10))→u7:l12-l4→u8:((l19)/(l12))→u9:l16→u10::((c5)/(c6*u7))→u12:Disp "V_carcassa=",u12,"m/s":((u12*u10*c6)/(c9))→u13:((1000*c7*c9)/(c8))→u14:0.36*u13^(0.55)*u14^(((1)/(3)))*(((c9)/(8.365−4)))^(0.14)→u15:((u15*c8)/(u10))→u16:((b2+b3)/(2))+((u16)/(u16+q9))*(((c2+c3)/(2))-((b2+b3)/(2)))→u17:((l6)/(u5))→u22:((0.5)/(u13^(0.2)))→u21:((4*u21*l19*u22*c6*u12^(2))/(u10*(((c9)/(8.905−4)))^(0.14)*2))→u19::Disp "Re_carcassa=",u13:Disp "Pr_carcassa=",u14:Disp "Nu=",u15:Disp "h carcassa=",u16,"W/m2 K":Disp "ΔP carcassa=",u19,"Pa"::Disp "5. Càlcul resistencies ":((1)/(π*l2*l6*q8))→ab12:((b10)/(π*l2*l6))→ab13:((ln(((l4)/(l2))))/(2*π*l6*52.5))→ab14:((c10)/(π*l4*l6))→ab15:((1)/(π*l4*l6*u16))→ab16::ab12+ab13+ab14+ab15+ab16→ab17:((1)/(π*l4*l6*(ab12+ab14+ab16)))→ab3:((1)/(π*l4*l6*ab17))→ab4::((1000*f8)/(f11*f9*ab4))→ab6::Disp "U net",ab3,"W/m2 K":Disp "U servei",ab4,"W/m2 K":Disp "Area requerida=",ab6,"m2"