summaryrefslogtreecommitdiff
path: root/3856/CH2/EX2.1/Ex2_1.sce
blob: 0698b6d31b282f7bdc947496e4fbef0c46422d4d (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
//Calucate the number of oxygen molecules
//Example 2.1

clc;

clear;

r=0.0050;.......//radius of alveoli in cm

P=1;........//Pressure in atm

R=0.08206;.......//Gas Constant in L atm K^-1 mol^-1

T=310;.......//Temperature in Kelvin

mp=14;........//Mole Percent of Oxygen

V=(4/3)*%pi*r^3*10^-3;........//Volume of one alveolus in Litres

n=(P*V)/(R*T);..........//Number of moles of air in one alveolus in mol

Na=6.022*10^23;.....//Avagadro's Number

N=n*(mp/100)*Na;.......//Number of Oxygen Molecules

printf("The number of oxygen molecules = %.1f*10^12 Oxygen molecules",N*10^-12);