initial commit / add all books

8 files changed, 89 insertions, 0 deletions

diff --git a/3557/CH10/EX10.1/Ex10_1.sce b/3557/CH10/EX10.1/Ex10_1.sce
new file mode 100644
index 000000000..cbe48f480
--- /dev/null
+++ b/3557/CH10/EX10.1/Ex10_1.sce
@@ -0,0 +1,11 @@
+//Example 10.1//

+

+T1=1173;//K// Absolute Temperature

+T2=673;//K // Absolute Temperature

+R=8.314;//J/mol.K // Universal gas constant

+a=10^6;//(G900/G400)

+C=10^-3;//preexponential term

+Q=-(R*log(a))/((1/T1)-(1/T2))*C

+mprintf("Q = %i KJ per mol",Q)

+

+

diff --git a/3557/CH10/EX10.10/Ex10_10.sce b/3557/CH10/EX10.10/Ex10_10.sce
new file mode 100644
index 000000000..758af18a7
--- /dev/null
+++ b/3557/CH10/EX10.10/Ex10_10.sce
@@ -0,0 +1,6 @@
+//Example 10.10//

+xc=15;

+x=7;

+xm=2;

+m=round((xc-x)/(xc-xm)*100)

+mprintf("m = %i mol percent",m)

diff --git a/3557/CH10/EX10.4/Ex10_4.sce b/3557/CH10/EX10.4/Ex10_4.sce
new file mode 100644
index 000000000..1d5939d84
--- /dev/null
+++ b/3557/CH10/EX10.4/Ex10_4.sce
@@ -0,0 +1,20 @@
+//Example 10.4//

+

+//(a)= 0.5 wt % C we must quenchfrom the austenite boundary (770degree C) to ~520 degree in ~0.6, giving

+a=770;//degree C //austenite boundary

+b=520;//Degree C //temprature

+t=0.6;//s //seconds // time

+dt1=(a-b)/t

+mprintf("dt1 = %i degree C/s",dt1)

+//(b)=0.77 wt % C steel, we quench from the eutectoid temperature(727degree C) to ~550degree C in 0.7s, giving

+a1=727;//degree C //eutectoid temperature

+b1=550;//degree C //temperature

+t1=0.7;//s//seconds //time

+dt2=(a1-b1)/t1

+mprintf("\ndt2 = %i degree C/s",dt2)

+//(c)= 1.13 wt %C steel we quench from the austenite boundary (880degree C) to ~550degree C in ~3.5

+a2=880;//degree C //eutectoid temperature

+t3=0.35;//s //seconds //time

+dt3=(a2-b1)/t3

+mprintf("\ndt3 = %i degree C/s",dt3)

+mprintf("\nThe calculated answer in the textbook is wrong")

diff --git a/3557/CH10/EX10.5/Ex10_5.sce b/3557/CH10/EX10.5/Ex10_5.sce
new file mode 100644
index 000000000..b1458adc7
--- /dev/null
+++ b/3557/CH10/EX10.5/Ex10_5.sce
@@ -0,0 +1,16 @@
+//Example 10.5//

+//(a) = For 0.5 wt % C steel indicates that complete bainite formation will have ocuurred 5degree C above Ms,by

+a=180;//s //second

+b=1;//m //minute

+c=60;//s//seconds

+d=a*(b/c)

+mprintf("d= %i min",d)

+//(b)= For 0.77 wt % C steel gives a time of

+a1=1.9*10^4;//s //seconds

+b1=3600;//s/h //seconds per hour

+c1=a1/b1

+mprintf("\nc1 = %f h ",c1)

+//(c)= for 1.13 wt % C steel gives an austempering time of

+mprintf("\n= Figure 10.15 for 1.13 wt percent C steel gives an austempering time of ~1day ")

+

+

diff --git a/3557/CH10/EX10.6/Ex10_6.sce b/3557/CH10/EX10.6/Ex10_6.sce
new file mode 100644
index 000000000..64e0d6833
--- /dev/null
+++ b/3557/CH10/EX10.6/Ex10_6.sce
@@ -0,0 +1,15 @@
+//Example 10.6//

+

+//Jominy end squench test on this alloy produces a hardness of Rockwell C45 at 22/16 in from the quenched end which is equal

+a=22;//in

+b=16;//in

+c=25.4;//mm/in

+Dqe=(a/b)*c

+mprintf("Dqe = %i mm",Dqe)

+

+x=[0 2 4 6 8 10 15 20 25 30 40 50];

+y=[600 300 150 70 50 20 15 10 6 5 3 2];

+plot2d(x,y, style=1);

+xlabel("Distance from quenched end ,Dqe (Jominy distance)", "fontsize", 3)

+ylabel("Cooling rate at 700 degree C C/sec ", "fontsize", 3)

+mprintf("\nFrom the figure which applies  to carbon and low-alloy steels,we see that the cooling rate was approximately \n 4 degree C/s (at 700 degree C) ")

diff --git a/3557/CH10/EX10.8/Ex10_8.sce b/3557/CH10/EX10.8/Ex10_8.sce
new file mode 100644
index 000000000..82e1ddb1e
--- /dev/null
+++ b/3557/CH10/EX10.8/Ex10_8.sce
@@ -0,0 +1,8 @@
+//Example 10.8//

+x=4.5;//wt % // x is the overall composition

+xk=0;//wt % // composition for two phases

+xth=53;//wt % //coposition for two phases

+//(a) 

+wt=(x-xk)/(xth-xk)*100

+mprintf("wt = %f percent",wt)

+mprintf("\n As the G.P zones are precursors to the equlibrium precipitation the maximum amount would be 8.49 percent")

diff --git a/3557/CH10/EX10.9/Ex10_9.sce b/3557/CH10/EX10.9/Ex10_9.sce
new file mode 100644
index 000000000..c010e5935
--- /dev/null
+++ b/3557/CH10/EX10.9/Ex10_9.sce
@@ -0,0 +1,7 @@
+//Example 10.9//

+

+T1=290;//degree C //recrystallization temperature

+T2=920;// degree C //solidus temperature

+T3=273;//K //Kelvin

+T4=(T1+T3)/(T2+T3)

+disp(T4)

diff --git a/3557/CH10/EX17.10/Ex10_10.sce b/3557/CH10/EX17.10/Ex10_10.sce
new file mode 100644
index 000000000..a45c55834
--- /dev/null
+++ b/3557/CH10/EX17.10/Ex10_10.sce
@@ -0,0 +1,6 @@
+//Example 10.10//

+xc=15;//mol % //cubic phase composition of CaO

+x=7;//mol % //x for overall composition

+xm=2;//mol % //monoclinic phase composition of CaO

+m=(xc-x)/(xc-xm)*100

+mprintf("m = %i mol percent",m)