10 files changed, 119 insertions, 0 deletions
diff --git a/1826/CH12/EX12.1/ex12_1.sce b/1826/CH12/EX12.1/ex12_1.sce
new file mode 100755
index 000000000..3c332cf4c
--- /dev/null
+++ b/1826/CH12/EX12.1/ex12_1.sce
@@ -0,0 +1,9 @@
+// Example 12.1, page no-350
+clear
+clc
+
+alfe=8.8*10^-6//per k
+lo=0.1//m
+delT=973//K
+delL=alfe*lo*delT
+printf("The change in length produced by heating is %.3f mm",delL*10^3)
diff --git a/1826/CH12/EX12.10/ex12_10.sce b/1826/CH12/EX12.10/ex12_10.sce
new file mode 100755
index 000000000..ec6ea4cc1
--- /dev/null
+++ b/1826/CH12/EX12.10/ex12_10.sce
@@ -0,0 +1,21 @@
+// Example 12.10, page no-356
+clear
+clc
+h_ir=444//J.kg^-1.K^-1
+h_gr=711//J.kg^-1.K^-1
+h_pl=1880//J.kg^-1.K^-1
+t2=373//K
+t1=300//K
+delT=t2-t1
+W=2 //Kg
+
+//(a) For Iron
+q=W*h_ir*delT
+
+//(b)for Graphite
+q1=W*h_gr*delT
+
+//(b)for polypropylene
+q2=W*h_pl*delT
+
+printf("The heat energy required to raise temperature %.0f K from its temperature of \niron, graphite and polypropylene is %.0f,%.0f,%.0f J respectively",delT,q,q1,q2)
diff --git a/1826/CH12/EX12.2/ex12_2.sce b/1826/CH12/EX12.2/ex12_2.sce
new file mode 100755
index 000000000..ddb035b5c
--- /dev/null
+++ b/1826/CH12/EX12.2/ex12_2.sce
@@ -0,0 +1,10 @@
+// Example 12.2, page no-350
+clear
+clc
+
+alfe=5.3*10^-6//per k
+lo=0.1//m
+delT=973//K
+delL=alfe*lo*delT
+printf("The change in length produced by heating is %.3f mm",delL*10^3)
+
diff --git a/1826/CH12/EX12.3/ex12_3.sce b/1826/CH12/EX12.3/ex12_3.sce
new file mode 100755
index 000000000..cdf91167c
--- /dev/null
+++ b/1826/CH12/EX12.3/ex12_3.sce
@@ -0,0 +1,8 @@
+// Example 12.3, page no-351
+clear
+clc
+k=371//J/msk
+delT=50//in degrees
+delx=10*10^-3
+ht=k*delT/delx
+printf("The steady state heat transfer of 10 mm copper sheet is %.3f *10^6 J.m^-2.s^-1",ht*10^-6)
diff --git a/1826/CH12/EX12.4/ex12_4.sce b/1826/CH12/EX12.4/ex12_4.sce
new file mode 100755
index 000000000..c5c74f485
--- /dev/null
+++ b/1826/CH12/EX12.4/ex12_4.sce
@@ -0,0 +1,12 @@
+// Example 12.4, page no-351
+clear
+clc
+alfe=8.8*10^-6//per K
+t1=1300//K
+t2=327//K
+delT=t1-t2
+E=370 //GPa
+ep=alfe*delT
+sig=ep*E
+printf("\nThe unconstrained thermal expansion produced by the heating is %.4f *10^-3",ep*10^3)
+printf("\nthe compression stress produced by heating is %.3f GPa",sig)
diff --git a/1826/CH12/EX12.5/ex12_5.sce b/1826/CH12/EX12.5/ex12_5.sce
new file mode 100755
index 000000000..3c0a59bd2
--- /dev/null
+++ b/1826/CH12/EX12.5/ex12_5.sce
@@ -0,0 +1,13 @@
+// Example 12.5, page no-352
+clear
+clc
+
+K=120//W/m.K
+t2=423
+t1=323
+delT=t2-t1
+delx=7.5*10^-3//m
+A=0.5//m^2
+Q=K*A*(delT/delx)
+hph=Q*3600
+printf("The heat flux transmitted through a sheet per hour is %.2f *10^9 J.h^-1",hph*10^-9)
diff --git a/1826/CH12/EX12.6/ex12_6.sce b/1826/CH12/EX12.6/ex12_6.sce
new file mode 100755
index 000000000..ff54f3d78
--- /dev/null
+++ b/1826/CH12/EX12.6/ex12_6.sce
@@ -0,0 +1,13 @@
+// Example 12.6, page no-353
+clear
+clc
+
+alfe=17*10^-6///per K
+t2=293 //K
+t1=233 //K
+delT=t2-t1
+st=119//MPa
+k=alfe*delT
+printf("\nThe strain produced in te rod is %.2f * 10^-3",k*10^3)
+E=(st*10^6)/k
+printf("\nThe Youngs Modulus of the rod is %.1f GPa",E*10^-9)
diff --git a/1826/CH12/EX12.7/ex12_7.sce b/1826/CH12/EX12.7/ex12_7.sce
new file mode 100755
index 000000000..a48c611cc
--- /dev/null
+++ b/1826/CH12/EX12.7/ex12_7.sce
@@ -0,0 +1,9 @@
+// Example 12.7, page no-353
+clear
+clc
+
+lo=11.6 //m
+delx=5.4*10^-3//m
+alfL=12*10^-6//per K
+delT=delx/(lo*alfL)
+printf("The maximum temperature cange can withstand without any thermal stress is %.2f K",delT)
diff --git a/1826/CH12/EX12.8/ex12_8.sce b/1826/CH12/EX12.8/ex12_8.sce
new file mode 100755
index 000000000..538dd523f
--- /dev/null
+++ b/1826/CH12/EX12.8/ex12_8.sce
@@ -0,0 +1,14 @@
+// Example 12.7, page no-354
+clear
+clc
+
+lo=0.35//m
+alfe=23.6*10^-6///per K
+t2=358 //K
+t1=288 //K
+delT=t2-t1
+ym=69//GPa
+k=alfe*delT
+printf("\nThe strain produced in te rod is %.3f * 10^-3",k*10^3)
+E=ym*k*10^9
+printf("\nThe compressive stress produced in Al rod is %.3f GPa",E*10^-9)
diff --git a/1826/CH12/EX12.9/ex12_9.sce b/1826/CH12/EX12.9/ex12_9.sce
new file mode 100755
index 000000000..468100de3
--- /dev/null
+++ b/1826/CH12/EX12.9/ex12_9.sce
@@ -0,0 +1,10 @@
+// Example 12.9, page no-355
+clear
+clc
+alfe=20*10^-6//per K
+t1=293//K
+sig=172///MPa
+E=100 //GPa
+delT=(sig*10^6)/(E*alfe*10^9)
+printf("\nTf-Ti=%.0f",delT)
+printf("\n\nthe maximum temperature at which the rod may be heated without\nexceeding a compresssive stress of %.0f MPa is %.0f K",sig,delT+t1)