summaryrefslogtreecommitdiff
path: root/1040/CH6/EX6.1.b/Chapter6_Ex1_b.sce
blob: ce57ebe0fdea84df14c0a1b4776cda1079f20f5a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
//Harriot P., 2003, Chemical Reactor Design (I-Edition), Marcel Dekker, Inc., USA, pp 436.
//Chapter-6 Ex6.1.b Pg No.236
//Title:Speed of stirrer and  increase in blending time
//====================================================================================================================
clear
clc
//INPUT
n=5;
P_by_V_limit=10;//Pressure per unit volume (HP/1000gal)
P_by_V1=59;//Pressure per unit volume from Ex6.1.a
n1=5;

//CALCULATION
n_limit=(P_by_V_limit/P_by_V1)^(1/3) *n1;//Pressure per unit vol propotional to n3
t_inc_factor=n1/n_limit;//t inversely propotional to n
rotational_speed=n_limit*60;//Speed in rpm

//OUTPUT
//Console Output
mprintf('\n The speed of the stirrer  = %.2f sec-1 or %.0f rpm',n_limit,rotational_speed);
mprintf('\n Blending time increases by factor of %.2f ',t_inc_factor); 

//File Output
fid= mopen('.\Chapter6_Ex1_b_Output.txt','w');
mfprintf(fid,'\n The speed of the stirrer  = %.2f sec-1 or %.0f rpm',n_limit,rotational_speed);
mfprintf(fid,'\n Blending time increases by factor of %.2f ',t_inc_factor); 
mclose(fid);
//==================================================END OF PROGRAM===================================================