From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001 From: priyanka Date: Wed, 24 Jun 2015 15:03:17 +0530 Subject: initial commit / add all books --- 1752/CH10/EX10.1/exa_10_1.sce | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100755 1752/CH10/EX10.1/exa_10_1.sce (limited to '1752/CH10/EX10.1') diff --git a/1752/CH10/EX10.1/exa_10_1.sce b/1752/CH10/EX10.1/exa_10_1.sce new file mode 100755 index 000000000..2f3cabfc9 --- /dev/null +++ b/1752/CH10/EX10.1/exa_10_1.sce @@ -0,0 +1,23 @@ +//Exa 10.1 +clc; +clear; +close; +//given data +format('v',13); +P1=4;// in bar +P2=2;// in bar +T=25;// in degree C +Dhp=9*10^-8;// in m^2/s +S=3*10^-3;// in kg mole/m^3 bar +del_x=0.5*10^-3;// thickness in m +//(a) The molar concentration of a gas in terms of solubility +CH1=S*P1;// in kg mole/m^3 +CH2=S*P2;// in kg mole/m^3 +//(b) Molar diffusion flux of hydrogen through plastic memberence is given by Fick's law of diffision +//N_H= N_h/A = Dhp*(CH1-CH2)/del_x; +N_H= Dhp*(CH1-CH2)/del_x;// in kg mole/s-m^2 +disp(N_H,"Molar diffusion flux of hydrogen through the membrane in kg mole/s-m^2"); +//Mass_d_Flux= N_H*Molecular_Weight +Molecular_Weight=2; +Mass_d_Flux= N_H*Molecular_Weight +disp(Mass_d_Flux,"Molar diffusion flux in kg/s-m^2"); -- cgit