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

---
 698/CH4/EX4.3/3_determination_of_e.txt  | 11 ++++++++++
 698/CH4/EX4.3/P3_determination_of_e.sce | 38 +++++++++++++++++++++++++++++++++
 2 files changed, 49 insertions(+)
 create mode 100644 698/CH4/EX4.3/3_determination_of_e.txt
 create mode 100644 698/CH4/EX4.3/P3_determination_of_e.sce

(limited to '698/CH4/EX4.3')

diff --git a/698/CH4/EX4.3/3_determination_of_e.txt b/698/CH4/EX4.3/3_determination_of_e.txt
new file mode 100644
index 000000000..d06f5fc54
--- /dev/null
+++ b/698/CH4/EX4.3/3_determination_of_e.txt
@@ -0,0 +1,11 @@
+(a)	e=R-rn
+
+(b) Calculation of rn:
+	rn=(((bi-t)*ti)+((bo-t)*to)+(t*h))/((bi*log((ri+ti)/ri))+(t*log((ro-to)/(ri+ti)))+(bo*log(ro/(ro-to))))
+	rn=82.4473 mm
+
+(c)Calculation of R:
+	R=ri+ ((0.5* h^2 *t)+(0.5* ti^2 *(bi-t))+((bo-t)*to*(h- 0.5*to)))/(((bi-t)*ti)+((bo-t)*to)+(t*h))
+	R=88.1944 mm
+
+(d)e=R-rn= 5.7472 mm
\ No newline at end of file
diff --git a/698/CH4/EX4.3/P3_determination_of_e.sce b/698/CH4/EX4.3/P3_determination_of_e.sce
new file mode 100644
index 000000000..aa7d3d1d4
--- /dev/null
+++ b/698/CH4/EX4.3/P3_determination_of_e.sce
@@ -0,0 +1,38 @@
+clc
+//Example 4.3
+//Determination of e
+
+//------------------------------------------------------------------------------
+
+//Given data
+//Dimensions of I section
+ro=0.125 //m
+ri=0.06 //m
+bi=0.06 //m
+bo=0.05 //m
+t=0.01 //m
+h=0.065 //m
+ti=0.015 //m
+to=0.01 //m
+
+res3=mopen(TMPDIR+'3_determination_of_e.txt','wt')
+mfprintf(res3,'(a)\te=R-rn\n\n')
+mfprintf(res3,'(b) Calculation of rn:\n')
+mfprintf(res3,'\trn=(((bi-t)*ti)+((bo-t)*to)+(t*h))/((bi*log((ri+ti)/ri))+(t*log((ro-to)/(ri+ti)))+(bo*log(ro/(ro-to))))\n')
+
+rn=(((bi-t)*ti)+((bo-t)*to)+(t*h))/((bi*log((ri+ti)/ri))+(t*log((ro-to)/(ri+ti)))+(bo*log(ro/(ro-to))))
+mfprintf(res3,'\trn=%0.4f mm\n\n',rn* 10^3)
+
+mfprintf(res3,'(c)Calculation of R:\n')
+mfprintf(res3,'\tR=ri+ ((0.5* h^2 *t)+(0.5* ti^2 *(bi-t))+((bo-t)*to*(h- 0.5*to)))/(((bi-t)*ti)+((bo-t)*to)+(t*h))\n')
+
+R=ri+ ((0.5* h^2 *t)+(0.5* ti^2 *(bi-t))+((bo-t)*to*(h- 0.5*to)))/(((bi-t)*ti)+((bo-t)*to)+(t*h))
+mfprintf(res3,'\tR=%0.4f mm\n\n',R* 10^3)
+
+e=R-rn
+mfprintf(res3,'(d)e=R-rn= %0.4f mm',e* 10^3)
+
+mclose(res3)
+editor(TMPDIR+'3_determination_of_e.txt')
+//------------------------------------------------------------------------------
+//-----------------------------End of program-----------------------------------
\ No newline at end of file
-- 
cgit