9 files changed, 116 insertions, 0 deletions
diff --git a/1364/CH1/EX1.4.1/1_4_1.sce b/1364/CH1/EX1.4.1/1_4_1.sce
new file mode 100755
index 000000000..2c9447e11
--- /dev/null
+++ b/1364/CH1/EX1.4.1/1_4_1.sce
@@ -0,0 +1,10 @@
+clc
+//initialisation of variables
+ws= 64 //lbf/ft^3
+wi= 57 //lbf/ft^3
+//CALCULATIONS
+vabyvb= (ws/wi)-1
+vtbyva= (1/vabyvb)+1
+vabyvt= (1/vtbyva)*100
+//RESULTS
+printf ('percentage of total volume extended above the surface= %.1f per cent',vabyvt)
diff --git a/1364/CH1/EX1.4.2/1_4_2.sce b/1364/CH1/EX1.4.2/1_4_2.sce
new file mode 100755
index 000000000..857eb5e6c
--- /dev/null
+++ b/1364/CH1/EX1.4.2/1_4_2.sce
@@ -0,0 +1,14 @@
+clc
+//initialisation of variables
+p= 20 //lbf/in^2
+d1= 4 //in
+d2= 18 //in
+d3= 0.5 //in
+sw= 62.3 //lbf/ft^3
+//CALCULATIONS
+Fa= p*(%pi/4)*d3^2
+Fb= (4/d2)*3.92
+V= 1.5*(Fb/sw)*1728
+r= (0.75*(V/%pi))^(1/3)*2
+//RESULTS
+printf ('diameter of the float= %.2f in',r)
diff --git a/1364/CH1/EX1.6.1/1_6_1.sce b/1364/CH1/EX1.6.1/1_6_1.sce
new file mode 100755
index 000000000..ee4364fdc
--- /dev/null
+++ b/1364/CH1/EX1.6.1/1_6_1.sce
@@ -0,0 +1,12 @@
+clc
+//initialisation of variables
+W= 4 //tonf
+d= 30 //ft
+W1= 2000 //tonf
+O1=(0.015)
+O2= -0.015
+//CALCULATIONS
+O= O1-O2
+GM= (W*d)/(W1*O)
+//RESULTS
+printf ('metacentric height= %.f ft',GM)
diff --git a/1364/CH1/EX1.6.2/1_6_2.sce b/1364/CH1/EX1.6.2/1_6_2.sce
new file mode 100755
index 000000000..57154b9d0
--- /dev/null
+++ b/1364/CH1/EX1.6.2/1_6_2.sce
@@ -0,0 +1,23 @@
+clc
+//initialisation of variables
+ws= 1/35 //tonf/ft^3
+A= 10500 //ft^2
+wf= 1/36 //tonf/ft^3
+Wo= 7000 //tonf
+Wf= 6950//tonf
+li= 300 //ft
+lh= 400 //ft
+l= 7200 //ft
+l1=50 //ft
+l2= 10 //ft
+l3= 250 //ft
+l4= 40 //ft
+//CALCULATIONS
+Dod= (1/A)*((Wo/wf)-(Wf/ws))
+Ac= ws*A*0.835
+x= (l1*l2+l3*l4)/(l+l3-l1*l2)
+do= (x/lh)*li
+//RESULTS
+printf ('change of draught= %.3f ft',Dod)
+printf (' \n Additional cargo=%.f tonf',Ac)
+printf (' \n change of trim=%.1f ft',do) 
diff --git a/1364/CH1/EX1.6.3/1_6_3.sce b/1364/CH1/EX1.6.3/1_6_3.sce
new file mode 100755
index 000000000..747ab729a
--- /dev/null
+++ b/1364/CH1/EX1.6.3/1_6_3.sce
@@ -0,0 +1,10 @@
+clc
+//initialisation of variables
+M= 500 //tonf ft/in
+D= 32 //tonf/in
+l= 200 //ft
+L= 380 //ft
+//CALCULATIONS
+x= l+(M/D)*(L/l)
+//RESULTS
+printf ('length= %.1f ft aft',x)
diff --git a/1364/CH1/EX1.7.2/1_7_2.sce b/1364/CH1/EX1.7.2/1_7_2.sce
new file mode 100755
index 000000000..df0969968
--- /dev/null
+++ b/1364/CH1/EX1.7.2/1_7_2.sce
@@ -0,0 +1,11 @@
+clc
+//initialisation of variables
+a= 6
+b= -6
+c= 1
+//CALCULATIONS
+s1= (-b+sqrt(b^2-4*a*c))/(2*a)
+s2= (-b-sqrt(b^2-4*a*c))/(2*a)
+//RESULTS
+printf ('upper limit for specific gravity s= %.3f ',s1)
+printf (' \n lower limit for specific gravity s=%.3f tonf',s2)
diff --git a/1364/CH1/EX1.7.3/1_7_3.sce b/1364/CH1/EX1.7.3/1_7_3.sce
new file mode 100755
index 000000000..973bc279c
--- /dev/null
+++ b/1364/CH1/EX1.7.3/1_7_3.sce
@@ -0,0 +1,16 @@
+clc
+//initialisation of variables
+b= 350 //ft
+d= 12 //ft
+L= 46 //ft
+Ac1= 500*80*12 //ft^3
+Ac2= 350*12*9 //ft^3
+//CALCULATIONS
+Ic= (b*d^3)/12
+A= b*d
+Io= Ic+A*L^2
+I= 2*Io
+V= Ac1+2*Ac2
+BM= I/V
+//RESULTS
+printf ('displacement of body= %.1f ft',BM)
diff --git a/1364/CH1/EX1.8.1/1_8_1.sce b/1364/CH1/EX1.8.1/1_8_1.sce
new file mode 100755
index 000000000..f29122763
--- /dev/null
+++ b/1364/CH1/EX1.8.1/1_8_1.sce
@@ -0,0 +1,11 @@
+clc
+//initialisation of variables
+W= 4500 //tonf
+b= 6 //ft
+d= 2.5 //ft
+s= 0.83
+//CALCULATIONS
+I= b*d^3/12
+r= 3*s*I*1000/(W)
+//RESULTS
+printf ('Reduction caused by three compartments= %.3f mmE',r)
diff --git a/1364/CH1/EX1.9.1/1_9_1.sce b/1364/CH1/EX1.9.1/1_9_1.sce
new file mode 100755
index 000000000..b7ff33ad9
--- /dev/null
+++ b/1364/CH1/EX1.9.1/1_9_1.sce
@@ -0,0 +1,9 @@
+clc
+//initialisation of variables
+Kg= 12 //ft
+g= 32.2 //ft/s^2
+GM= 2 //ft
+//CALCULATIONS
+T= 2*%pi*sqrt(Kg^2/(g*GM))
+//RESULTS
+printf ('periodic time of rolling of the ship= %.1f sec',T)