From 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 Mon Sep 17 00:00:00 2001 From: prashantsinalkar Date: Tue, 10 Oct 2017 12:27:19 +0530 Subject: initial commit / add all books --- 3557/CH9/EX9.1/Ex9_1.sce | 7 +++++++ 3557/CH9/EX9.10/Ex9_10.sce | 7 +++++++ 3557/CH9/EX9.11/Ex9_11.sce | 16 ++++++++++++++++ 3557/CH9/EX9.12/Ex9_12.sce | 13 +++++++++++++ 3557/CH9/EX9.3/Ex9_3.sce | 16 ++++++++++++++++ 3557/CH9/EX9.4/Ex9_4.sce | 15 +++++++++++++++ 3557/CH9/EX9.5/Ex9_5.sce | 9 +++++++++ 3557/CH9/EX9.6/Ex9_6.sce | 19 +++++++++++++++++++ 3557/CH9/EX9.7/Ex9_7.sce | 11 +++++++++++ 3557/CH9/EX9.8/Ex9_8.sce | 17 +++++++++++++++++ 3557/CH9/EX9.9/Ex9_9.sce | 31 +++++++++++++++++++++++++++++++ 11 files changed, 161 insertions(+) create mode 100644 3557/CH9/EX9.1/Ex9_1.sce create mode 100644 3557/CH9/EX9.10/Ex9_10.sce create mode 100644 3557/CH9/EX9.11/Ex9_11.sce create mode 100644 3557/CH9/EX9.12/Ex9_12.sce create mode 100644 3557/CH9/EX9.3/Ex9_3.sce create mode 100644 3557/CH9/EX9.4/Ex9_4.sce create mode 100644 3557/CH9/EX9.5/Ex9_5.sce create mode 100644 3557/CH9/EX9.6/Ex9_6.sce create mode 100644 3557/CH9/EX9.7/Ex9_7.sce create mode 100644 3557/CH9/EX9.8/Ex9_8.sce create mode 100644 3557/CH9/EX9.9/Ex9_9.sce (limited to '3557/CH9') diff --git a/3557/CH9/EX9.1/Ex9_1.sce b/3557/CH9/EX9.1/Ex9_1.sce new file mode 100644 index 000000000..8f522df92 --- /dev/null +++ b/3557/CH9/EX9.1/Ex9_1.sce @@ -0,0 +1,7 @@ +//Example 9.1// +//Assuming constant pressure of 1 atm above the alloy +//There are two components (Pb &Sn) and two phases +c=2; +p=2; +F=c-p+1 +disp(F) diff --git a/3557/CH9/EX9.10/Ex9_10.sce b/3557/CH9/EX9.10/Ex9_10.sce new file mode 100644 index 000000000..a939d6ed5 --- /dev/null +++ b/3557/CH9/EX9.10/Ex9_10.sce @@ -0,0 +1,7 @@ +//Example 9.10// + +x=4.5;//wt % //x is overall composition +xk=0;//wt %//composition of two phases +xth=53;//wt % //composition of two phases +wt=(x-xk)/(xth-xk)*100 +mprintf("wt = %f percent ",wt) diff --git a/3557/CH9/EX9.11/Ex9_11.sce b/3557/CH9/EX9.11/Ex9_11.sce new file mode 100644 index 000000000..14caeb0c0 --- /dev/null +++ b/3557/CH9/EX9.11/Ex9_11.sce @@ -0,0 +1,16 @@ +//Example 9.11// +//(a) +xL=54;//wt % //liquid solution composition +x=50;//wt % //x is the overall composition +xa=18;//wt % //composition of two phases +wta=(xL-x)/(xL-xa)*100 +mprintf("wta = %f percent",wta) +wtL=(x-xa)/(xL-xa)*100 +mprintf("\nwtL =%f percent",wtL) +//Similarly, at 100 degree C, we obtain +xb=99;//wt % //composition of two phases +xa=5;//wt % //composition of two phases +wta1=(xb-x)/(xb-xa)*100 +mprintf("\nwta1 = %f ",wta1) +wtb=(x-xa)/(xb-xa)*100 +mprintf("\nwtb = %f percent",wtb) diff --git a/3557/CH9/EX9.12/Ex9_12.sce b/3557/CH9/EX9.12/Ex9_12.sce new file mode 100644 index 000000000..2cd9598c4 --- /dev/null +++ b/3557/CH9/EX9.12/Ex9_12.sce @@ -0,0 +1,13 @@ +//Example 9.12// + +Al2O3=1;// solid composition +SiO2=2; // solid composition +molp=(Al2O3/(Al2O3+SiO2))*100 +mprintf("molp = %f percent",molp) +xm=60;//mol % //composition of mullite +x=33.3;//mol% // x is overall comosition +xs=0;//mol % //composition of SiO2 +mols=(xm-x)/(xm-xs)*100 +mprintf("\nmols = %f mol percent ",mols) +molm=(x-xs)/(xm-xs)*100 +mprintf("\nmolm = %f mol percent",molm) diff --git a/3557/CH9/EX9.3/Ex9_3.sce b/3557/CH9/EX9.3/Ex9_3.sce new file mode 100644 index 000000000..08e967f75 --- /dev/null +++ b/3557/CH9/EX9.3/Ex9_3.sce @@ -0,0 +1,16 @@ +//Example 9.3// + +xss=66;//wt % //solid solution composition +xL=18;//wt % //liquid solution composition +x=50;//x is overall composition +a=1;//kg //weight of alloy +mL=((xss-x)/(xss-xL))*a; +mprintf("mL = %f kg ",mL) +b=10^3;//grams ////As 1kg= 10^3grams +mL1=mL*b +mprintf("\nmL1= %i g",mL1) +mss=((x-xL)/(xss-xL))*a +mprintf("\nmss = %f kg ",mss) +mss1=mss*b //As 1kg= 10^3grams +mprintf("\nmss1=%i g",mss1) + diff --git a/3557/CH9/EX9.4/Ex9_4.sce b/3557/CH9/EX9.4/Ex9_4.sce new file mode 100644 index 000000000..7eae46dda --- /dev/null +++ b/3557/CH9/EX9.4/Ex9_4.sce @@ -0,0 +1,15 @@ +//Example 9.4// + +xfe3c=6.69;//wt % //Fe3C composition +x=0.77;//wt % //x is the overall composition +xa=0;//wt % //composition of two phases +a=1;//kg +ma=((xfe3c-x)/(xfe3c-xa))*a +mprintf("ma = %f kg ",ma) +b=10^3;//g //As 1kg = 10^3grams +ma1=ma*b +mprintf("\nma1 = %i g ",ma1) +mfe3c=((x-xa)/(xfe3c-xa))*a +mprintf("\nmfe3c = %f kg ",mfe3c) +mfe3c1=mfe3c*b +mprintf("\nmfe3c1 = %i g",mfe3c1) diff --git a/3557/CH9/EX9.5/Ex9_5.sce b/3557/CH9/EX9.5/Ex9_5.sce new file mode 100644 index 000000000..f78320559 --- /dev/null +++ b/3557/CH9/EX9.5/Ex9_5.sce @@ -0,0 +1,9 @@ +//Example 9.5// + +xcub=15;//wt % //cubic phase +x1=8;//mol % CaO//x1 is the overall composition +xmono=2;//wt % //monoclinic phase +monoclinic=(xcub-x1)/(xcub-xmono)*100 +mprintf("monoclinic = %f mol percent",monoclinic) +cubic=(x1-xmono)/(xcub-xmono)*100 +mprintf("\ncubic = %f mol percent",cubic) diff --git a/3557/CH9/EX9.6/Ex9_6.sce b/3557/CH9/EX9.6/Ex9_6.sce new file mode 100644 index 000000000..b03ddb658 --- /dev/null +++ b/3557/CH9/EX9.6/Ex9_6.sce @@ -0,0 +1,19 @@ + //Example 9.6// +//(a) +x1=70;//wt % //x1 is the overall composition +xa=30;//wt % //composition of two phases +xb=90;//wt % //composition of two phases +xl=60;//wt %// +a=1;//kg +mb1=((x1-xa)/(xb-xa))*a +mprintf("mb1 = %f kg ",mb1) +b=10^3;//g//As 1kg = 10^3grams +mb3=mb1*b////As 1kg = 10^3grams +mprintf("\nmb1= %i g",mb3) +mb2=((x1-xl)/(xb-xl))*a +mprintf("\n mb2 = %f kg ",mb2) +mb4=mb2*b//As 1kg = 10^3g +mprintf("\nmb4= %i g",mb4) +fp=mb4/mb3 +mprintf("\n fp =%f ",fp) + diff --git a/3557/CH9/EX9.7/Ex9_7.sce b/3557/CH9/EX9.7/Ex9_7.sce new file mode 100644 index 000000000..5a95cd89a --- /dev/null +++ b/3557/CH9/EX9.7/Ex9_7.sce @@ -0,0 +1,11 @@ +//Example 9.7// + +xy=0.77;//wt % // composition of two phases +x1=0.50;//wt % //x1 is the overall composition +xa=0.02;//wt % //composition of two phases +a=1;//kg +ma=((xy-x1)/(xy-xa))*a +mprintf("ma = %f kg ",ma) +b=10^3;//grams //As 1 kg = 10^3grams +ma1=ma*b +mprintf ("\nma1= %i g",ma1) diff --git a/3557/CH9/EX9.8/Ex9_8.sce b/3557/CH9/EX9.8/Ex9_8.sce new file mode 100644 index 000000000..da2bd0da2 --- /dev/null +++ b/3557/CH9/EX9.8/Ex9_8.sce @@ -0,0 +1,17 @@ +//Example 9.8// +//(a) 1153degre c is just below he eutectic temperature +x1=3.00;//wt % //x1 is the overall composition +xc=2.08;//wt % //composition of two phases +xC=100;//wt %//composition of two phases +a=1;//kg +mc=((x1-xc)/(xC-xc))*a +mprintf("mc = %f kg ",mc) +b=10^3;//g //As 1kg = 10^3 grams +mc2=mc*b +mprintf("\nmc2= %f g",mc2) +//(b) At room temperature, we obtain +xa=0; +mc1=((x1-xa)/(xC-xa))*a +mprintf("\n mc1 = %f kg ",mc1) +mc3=mc1*b +mprintf("\nmc3= %i g",mc3) diff --git a/3557/CH9/EX9.9/Ex9_9.sce b/3557/CH9/EX9.9/Ex9_9.sce new file mode 100644 index 000000000..54b75db50 --- /dev/null +++ b/3557/CH9/EX9.9/Ex9_9.sce @@ -0,0 +1,31 @@ +//Example 9.9// +xl=12.6;//wt % //liquid solution composition +xa=1.6;//wt %// composition of two phases +x1=10;//wt % //x1 is the overall composition +xb=100;//wt %//composition of two phases +a=1;//kg +ma=((xl-x1)/(xl-xa))*a +mprintf("ma = %f kg ",ma) +b=10^3;//g //As 1kg = 10^3grams +ma2=ma*b +mprintf("\nma2= %i g",ma2) + +//At 576degree C, the overall microstructure is alpha+beta, the amount of each are +ma1=((xb-x1)/(xb-xa))*a +mprintf("\nma1 = %f kg ",ma1) +ma3=ma1*b +mprintf("\nma3= %i g",ma3) +mb=((x1-xa)/(xb-xa))*a +mprintf("\nmb = %f kg ",mb) +mb1=mb*b +mprintf("\nmb1= %i g",mb1) +ae= ma3-ma2 +mprintf("\nae = %i g",ae) +a1=0.016;//wieght fraction +a2=1.000;//wieght fraction +si1=(a1)*(ma2) +mprintf("\nsi1 = %f g",si1) +si2=(a1)*(ae) +mprintf("\nsi2 = %f g",si2) +si3=(a2)*(mb1) +mprintf("\nsi3 = %i g",si3) -- cgit