1 files changed, 27 insertions, 0 deletions
diff --git a/2135/CH1/EX1.23/Exa_1_23.sce b/2135/CH1/EX1.23/Exa_1_23.sce
new file mode 100755
index 000000000..b6b87bab8
--- /dev/null
+++ b/2135/CH1/EX1.23/Exa_1_23.sce
@@ -0,0 +1,27 @@
+//Exa 1.23
+clc;
+clear;
+close;
+format('v',8);
+
+//Given Data :
+Rdegree=8314.3;//Universal Gas Constant
+r=12;//meter
+Patm=75;//cm of Hg
+Patm=Patm/76*1.01325*10^5;//N/m^2
+V=4/3*%pi*r^3;//m^3
+M_air=28.97;
+M_H2=2
+Tair=18+273;//K
+g=9.81;//gravity constant
+Rair=Rdegree/M_air;//Nm/KgK
+RH2=Rdegree/M_H2;//Nm/KgK
+//p*V=m*R*T
+m_air=Patm*V/Rair/Tair;//Kg
+disp(m_air,"Mass of air in kg : ");
+n_air=m_air/M_air;//moles
+disp(n_air,"No. of moles : ");
+m_H2=n_air*M_H2;//Kg
+disp(m_H2,"Mass of H2 in kg : ");
+Load=g*(m_air-m_H2);//N
+disp(Load,"Load balloon can lift in N ; ");