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

---
 1586/CH17/EX17.2/EX17_2.sce | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 1586/CH17/EX17.2/EX17_2.sce

(limited to '1586/CH17/EX17.2/EX17_2.sce')

diff --git a/1586/CH17/EX17.2/EX17_2.sce b/1586/CH17/EX17.2/EX17_2.sce
new file mode 100644
index 000000000..ab084227b
--- /dev/null
+++ b/1586/CH17/EX17.2/EX17_2.sce
@@ -0,0 +1,17 @@
+clc;funcprot(0);//EXAMPLE 17.2
+// Initialisation of Variables
+per1=75;..............//Percent Weight of WC 
+per2=15;..............//Percent Weight of TiC
+per3=5;...............//Percent Weight of TaC
+per4=5;...............//Percent Weight of Co
+rho1=15.77;...........//Density of WC in g/cm^3
+rho2=4.94;............//Density of TiC in g/cm^3
+rho3=14.5;............//Density of TaC in g/cm^3
+rho4=8.90;............//Density of Co in g/cm^3
+//Calculations
+f1=(per1/rho1)/((per1/rho1)+(per2/rho2)+(per3/rho3)+(per4/rho4));.......//Volume fraction of WC 
+f2=(per2/rho2)/((per1/rho1)+(per2/rho2)+(per3/rho3)+(per4/rho4));.....//Volume fraction of Tic
+f3=(per3/rho3)/((per1/rho1)+(per2/rho2)+(per3/rho3)+(per4/rho4));.....//Volume fraction of Tac
+f4=(per4/rho4)/((per1/rho1)+(per2/rho2)+(per3/rho3)+(per4/rho4));.....//Volume fraction of Co
+rho=(f1*rho1)+(f2*rho2)+(f3*rho3)+(f4*rho4);........//Density of composite in g/cm^3
+disp(rho,"Density of composite in g/cm^3:")
-- 
cgit