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

---
 23/CH4/EX4.2/Example_4_2.pdf | Bin 0 -> 4630 bytes
 23/CH4/EX4.2/Example_4_2.sce |  34 ++++++++++++++++++++++++++++++++++
 2 files changed, 34 insertions(+)
 create mode 100755 23/CH4/EX4.2/Example_4_2.pdf
 create mode 100755 23/CH4/EX4.2/Example_4_2.sce

(limited to '23/CH4/EX4.2')

diff --git a/23/CH4/EX4.2/Example_4_2.pdf b/23/CH4/EX4.2/Example_4_2.pdf
new file mode 100755
index 000000000..b3692976e
Binary files /dev/null and b/23/CH4/EX4.2/Example_4_2.pdf differ
diff --git a/23/CH4/EX4.2/Example_4_2.sce b/23/CH4/EX4.2/Example_4_2.sce
new file mode 100755
index 000000000..17cd13141
--- /dev/null
+++ b/23/CH4/EX4.2/Example_4_2.sce
@@ -0,0 +1,34 @@
+clear;
+clc;
+
+//To find Approx Value
+function[A]=approx(V,n)
+  A=round(V*10^n)/10^n;//V-Value  n-To what place
+  funcprot(0)
+endfunction  
+
+function[Q]=ICPH(T0,T,A,B,C,D)
+  t=T/T0;
+  Q=(A+((B/2)*T0*(t+1))+((C/3)*T0*T0*((t^2)+t+1))+(D/(t*T0*T0)))*(T-T0)
+  funcprot(0);
+endfunction
+    
+
+//Example 4.2
+//Caption : Program to find Heat Required to Heat Methane gas
+
+//Given values for methane
+R=8.314;
+T0=533.15;
+T=873.15;
+A=1.702;
+B=9.081*(10^-3);
+C=-2.164*(10^-6);
+D=0;
+
+
+//Solution
+Q=approx(R*ICPH(T0,T,A,B,C,D),0);
+disp('J',Q,'Heat Required')
+
+//End
\ No newline at end of file
-- 
cgit