7 files changed, 134 insertions, 0 deletions
diff --git a/866/CH20/EX20.1/20_1.sce b/866/CH20/EX20.1/20_1.sce
new file mode 100755
index 000000000..5cccf0bbe
--- /dev/null
+++ b/866/CH20/EX20.1/20_1.sce
@@ -0,0 +1,21 @@
+clc
+//initialisation of variables
+Xac= 2 //m
+Xcb= 4 //m
+Xbd= 2 //m
+Wa= 1 //N
+Wc= 1 //N
+Wd= 1 //N
+//CALCULATIONS
+Rb= Wa*Xac/(Xac+Xcb)  
+Sc= Rb
+Ra= Wc*Xcb/(Xac+Xcb)
+Sc1= -Ra
+Ra1=-Wd*Xbd/(Xac+Xcb)
+Mc= Ra*Xac
+Mc1= Ra1*Xac
+//RESULTS
+printf ('Rb= %.2f KN',Rb)
+printf (' \n Ra= %.2f KN ',Ra) 
+printf (' \n Ra= %.2f KN ',Ra1)
+printf (' \n Mc= %.2f KN m',Mc1)
diff --git a/866/CH20/EX20.2/20_2.sce b/866/CH20/EX20.2/20_2.sce
new file mode 100755
index 000000000..287ae2c77
--- /dev/null
+++ b/866/CH20/EX20.2/20_2.sce
@@ -0,0 +1,13 @@
+clc
+//initialisation of variables
+xac= 2 //m
+xcb= 4 //m
+xbd= 2 //m
+//CALCULATIONS
+C1e= xac/((xac)+(xcb))
+C1f= xcb/ ((xac)+(xcb))
+C2h= 1/((1/xac)+(1/xcb))
+//RESULTS
+printf ('C1e= %.2f m',C1e)
+printf (' \n C1f= %.2f m',C1f) 
+printf (' \n C2h= %.2f m',C2h)
diff --git a/866/CH20/EX20.3/20_3.sce b/866/CH20/EX20.3/20_3.sce
new file mode 100755
index 000000000..af5c4d190
--- /dev/null
+++ b/866/CH20/EX20.3/20_3.sce
@@ -0,0 +1,17 @@
+clc
+//initialisation of variables
+W1= 3 //KN
+W2= 4 //KN
+W3= 5 //KN
+x1= 0.3 //m
+x2= 0.1 //m
+x3= 0.5 //m
+x4= 0.7 //m
+//CALCULATIONS
+Skmax= W3*x1+W2*x2
+Sk1= W1*(-x4)+W2*(-x3)+W3*(-x1)
+Sk2= W1*(x2)+W2*(-x4)+W3*(-x3)
+//RESULTS
+printf ('Sk(max)= %.2f KN',Skmax)
+printf (' \n Sk= %.2f KN',Sk1) 
+printf (' \n Sk= %.2f KN',Sk2)
diff --git a/866/CH20/EX20.4/20_4.sce b/866/CH20/EX20.4/20_4.sce
new file mode 100755
index 000000000..3e55844d2
--- /dev/null
+++ b/866/CH20/EX20.4/20_4.sce
@@ -0,0 +1,20 @@
+clc
+//initialisation of variables
+W= 2 //KN/m
+l= 2 //m
+x1= 0.05
+x2= 0.25
+x3= 0.75
+x4= 0.55
+x5= 1.5
+x6= 1.875
+l1= 0.5 //m
+l2= 1.5 //m
+//CALCULATIONS
+Sk= W*l*(1/2)*(x1+x2)
+Sk1= -W*l*(1/2)*(x3+x4)
+Mk= W*((1/2)*(x5+x6)*l1+(1/2)*(x5+x6)*l2)
+//RESULTS
+printf ('Sk(max +)= %.2f KN',Sk)
+printf (' \n Sk(max -)= %.2f KN',Sk1) 
+printf (' \n Mk(max)= %.2f KN m',Mk)
diff --git a/866/CH20/EX20.6/20_6.sce b/866/CH20/EX20.6/20_6.sce
new file mode 100755
index 000000000..33dfa33bf
--- /dev/null
+++ b/866/CH20/EX20.6/20_6.sce
@@ -0,0 +1,20 @@
+clc
+//initialisation of variables
+W1= 9 //KN
+W2= 15 //KN
+W3= 15 //KN
+W4= 8 //KN
+W5= 8 //KN
+x1= 2 //m
+x2= 2.3 //m
+x3= 2.7 //m
+x4= 2.3 //m
+l= 20 //m
+l1= 10.105 //m
+//CALCULATIONS
+x= (W2*x1+W3*(x1+x2)+W4*(x1+x2+x3)+W5*(x1+x2+x3+x4))/(W1+W2+W3+W4)
+Ra= (W1+W2+W3+W4+W5)*l1/l
+Mk= ((W1+W2+W3+W4+W5)/l)*l1*l1-W1*(x1+x2)-W2*x2
+//RESULTS
+printf ('Ra= %.1f KN',Ra)
+printf (' \n Mk= %.1f KN',Mk) 
diff --git a/866/CH20/EX20.7/20_7.sce b/866/CH20/EX20.7/20_7.sce
new file mode 100755
index 000000000..5773ffa6d
--- /dev/null
+++ b/866/CH20/EX20.7/20_7.sce
@@ -0,0 +1,22 @@
+clc
+//initialisation of variables
+W= 2.5 //KN/m
+n= 8
+x= 1.4 //m
+y= 1.4 //m
+l= 4 //m
+x1= 2.5
+x2= 3.2
+x3= 0.25
+x4= 0.3125
+x5= 0.625
+x6= 0.5
+x7= 3.5
+a= 45 //degrees
+//CALCULATIONS
+Fec= x1*x2*x3*(1/2)/sind(a)
+Scd= W*(0.5*(x4+x5)*x6+0.5*(x5+x4)*x7)
+Fec1= Scd/sind(a)
+//RESULTS
+printf ('Maximum compressive force= %.2f KN',Fec)
+printf (' \n Maximum tensile force= %.2f KN',Fec1)
diff --git a/866/CH20/EX20.8/20_8.sce b/866/CH20/EX20.8/20_8.sce
new file mode 100755
index 000000000..fd33bc5a2
--- /dev/null
+++ b/866/CH20/EX20.8/20_8.sce
@@ -0,0 +1,21 @@
+clc
+//initialisation of variables
+W= 1.5 //KN/m
+W1= 1 //KN/m
+n=10
+x= 0.9 //m
+y= 1.2 //m
+x1= 5
+x2= 0.5
+x3= 4
+x4= 0.4
+x5= 6
+x6= 0.6
+x7= 3
+x8= 0.3
+//CALCULATIONS
+S5= -1*0.5*x1*x2+2.5*0.5*x3*x4
+S51= -1*0.5*x5*x6+2.5*0.5*x7*x8
+//RESULTS
+printf ('S5= %.2f KN',S5)
+printf (' \n S4= %.2f KN',S51)