summaryrefslogtreecommitdiff
path: root/698/CH4/EX4.3
diff options
context:
space:
mode:
Diffstat (limited to '698/CH4/EX4.3')
-rw-r--r--698/CH4/EX4.3/3_determination_of_e.txt11
-rw-r--r--698/CH4/EX4.3/P3_determination_of_e.sce38
2 files changed, 49 insertions, 0 deletions
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