initial commit / add all books

19 files changed, 356 insertions, 0 deletions

diff --git a/3131/CH6/EX6.1/6_1.sce b/3131/CH6/EX6.1/6_1.sce
new file mode 100644
index 000000000..b4ae90799
--- /dev/null
+++ b/3131/CH6/EX6.1/6_1.sce
@@ -0,0 +1,26 @@
+clear all; clc;
+disp("Ex 6_1")
+a1=45
+a=a1*%pi/180
+
+// At joint B , Summing forces along X and Y directions:
+F_BC=500/sin(a)
+disp("At joint B:")
+printf('\n\n F_BC = %0.1f N (C)',F_BC)
+F_BA=F_BC*cos(a)
+printf('\n\n F_BA = %0.0f N (T)',F_BA)
+
+// At joint C , Summing forces along X and Y directions:
+disp("At joint C:")
+F_CA=F_BC*cos(a)
+printf('\n\n F_CA = %0.0f N (T)',F_CA)
+Cy=F_BC*sin(a)
+printf('\n\n Cy = %0.0f N ',Cy)
+
+// At joint A , Summing forces along X and Y directions:
+disp("At joint A:")
+Ax=500
+printf('\n\n Ax = %0.0f N',Ax)
+Ay=500
+printf('\n\n Ay = %0.0f N',Ay)
+
diff --git a/3131/CH6/EX6.10/6_10.sce b/3131/CH6/EX6.10/6_10.sce
new file mode 100644
index 000000000..60989fb11
--- /dev/null
+++ b/3131/CH6/EX6.10/6_10.sce
@@ -0,0 +1,4 @@
+clear all; clc;
+disp("Ex 6_10")
+
+disp("THe free body diagrams are shown in figures 6-22c and 6-22d")
diff --git a/3131/CH6/EX6.11/6_11.sce b/3131/CH6/EX6.11/6_11.sce
new file mode 100644
index 000000000..f4e1444ec
--- /dev/null
+++ b/3131/CH6/EX6.11/6_11.sce
@@ -0,0 +1,4 @@
+clear all; clc;
+disp("Ex 6_11")
+
+disp("The free body diagrams are shown in figures 6-23b and 6-23c")
diff --git a/3131/CH6/EX6.12/6_12.sce b/3131/CH6/EX6.12/6_12.sce
new file mode 100644
index 000000000..de579b91b
--- /dev/null
+++ b/3131/CH6/EX6.12/6_12.sce
@@ -0,0 +1,4 @@
+clear all; clc;
+disp("Ex 6_12")
+
+disp("The free body diagrams are shown in figures 6-24b and 6-24c")
diff --git a/3131/CH6/EX6.13/6_13.sce b/3131/CH6/EX6.13/6_13.sce
new file mode 100644
index 000000000..630804f03
--- /dev/null
+++ b/3131/CH6/EX6.13/6_13.sce
@@ -0,0 +1,4 @@
+clear all; clc;
+disp("Ex 6_13")
+
+disp("The free body diagrams are shown in figures 6-25c, 6-25d and 6-25e")
diff --git a/3131/CH6/EX6.14/6_14.sce b/3131/CH6/EX6.14/6_14.sce
new file mode 100644
index 000000000..43d891c1e
--- /dev/null
+++ b/3131/CH6/EX6.14/6_14.sce
@@ -0,0 +1,31 @@
+clear all; clc;
+disp("Ex 6_14")
+disp("Figure 6-27b shows the free body diagram")
+//Applying equations of equilibrium
+//summing moments about C and equating to zero
+a1=60
+a=a1*%pi/180
+F_AB=(2000*2)/(sin(a)*4)
+printf('\n F_AB = %0.1f N',F_AB)
+//summinf forces in X direction
+Cx=F_AB*cos(a)
+printf('\n Cx = %0.0f N',Cx)
+//summing forces in Y direction
+Cy=2000-(F_AB*sin(a))
+printf('\n Cy = %0.0f N\n',Cy)
+
+//Alternate method ignoring AB is not a two force member
+disp("Alternate method")
+A=[3*sin(a),-3*cos(a),0,0;0,-4,0,0;1,0,-1,0;0,1,0,1]
+B=[0;-4000;0;2000]
+C=inv(A)
+D=C*B 
+Bx=D(1)
+By=D(2)
+Cx=D(3)
+Cy=D(4)
+
+
+//Result
+printf('\n The values are')
+printf('\n Bx=%0.0f \n By=%0.0f \n Cx=%0.0f \n Cy=%0.0f \n All values are in N',Bx,By,Cx,Cy)
diff --git a/3131/CH6/EX6.15/6_15.sce b/3131/CH6/EX6.15/6_15.sce
new file mode 100644
index 000000000..1a819c502
--- /dev/null
+++ b/3131/CH6/EX6.15/6_15.sce
@@ -0,0 +1,22 @@
+clear all; clc;
+disp("Ex 6_15")
+
+//Calculations
+//Applying summation of forces along X and Y axes for both the segments BC and AB and equating them to zero 
+//Applying moment about point B for Segment BC and about point A for segment AB and equating it to zero 
+//We get six equations and we solve for each component
+//Solving by matrix method to obtain solution
+A=[0,1,0,0,0,0;0,0,0,0,2,0;0,0,0,1,1,0;1,1,0,0,0,0;0,0,0,-4,0,1;0,0,1,-1,0,0]
+B=[0;8;8;6;16;8]
+C=inv(A)
+D=C*B 
+Ax=D(1)
+Bx=D(2)
+Ay=D(3)
+By=D(4)
+Cy=D(5)
+MA=D(6)
+
+//Result
+printf('\n The values are \n')
+printf('\n Ax=%0.0f kN\n Bx=%0.0f \n Ay=%0.0f kN\n By=%0.0f kN\n Cy=%0.0f kN\n MA=%0.0f kN.m\n',Ax,Bx,Ay,By,Cy,MA)
diff --git a/3131/CH6/EX6.16/6_16.sce b/3131/CH6/EX6.16/6_16.sce
new file mode 100644
index 000000000..536260bd1
--- /dev/null
+++ b/3131/CH6/EX6.16/6_16.sce
@@ -0,0 +1,22 @@
+clear all; clc;
+disp("Ex 6_16")
+//Calculations
+//Applying summation of forces along X and Y axes for the entire frame and the member CEF equating them to zero 
+//Applying moment about point A for the entire frame and about point C for member CEF and equating it to zero 
+//We get six equations and we solve for each component
+//Solving by matrix method to obtain solution
+a=45*%pi/180
+A=[0,0,0,0,0,2.8;1,0,0,0,0,0;0,1,0,0,0,0;0,0,-sin(a)*1.6,0,0,0;0,0,0,-1,0,0;0,0,0,0,1,0]
+B=[981*2;700.7;981;981*2;-1734.2*cos(a);(-1734.2*sin(a))+981]
+C=inv(A)
+D=C*B 
+Ax=D(1)
+Ay=D(2)
+FB=D(3)
+Cx=D(4)
+Cy=D(5)
+Dx=D(6)
+
+//Result
+printf('\n The values are \n')
+printf('\n Ax=%0.1f N\n Ay=%0.0f N \n FB=%0.1f N\n Cx=%0.0f N\n Cy=%0.0f N\n Dx=%0.1f N\n',Ax,Ay,FB,Cx,Cy,Dx)
diff --git a/3131/CH6/EX6.17/6_17.sce b/3131/CH6/EX6.17/6_17.sce
new file mode 100644
index 000000000..64f44b647
--- /dev/null
+++ b/3131/CH6/EX6.17/6_17.sce
@@ -0,0 +1,19 @@
+clear all; clc;
+disp("Ex 6_17")
+disp("Figures 6-30b and 6-30c show the free body diagrams")
+
+// Applying equilibrium equations to the entire frame 
+Cx=20/1.1// Summing moments about A and equating to zero
+Ax=18.2// Balancing forces in X-direcion
+Ay=20// Balancing forces in Y-direction
+
+// Applying conditions of equilibrium on member AB
+Bx=18.2// Balancing forces in X-direction
+ND=(20*2)/1//Summing moments about B and equating to zero
+By=20// Balancing forces in Y-direction
+
+//Applying conditions of equilibrium on disk
+Dx=0//Balancing forces in X- direction
+Dy=20//Balancing forces in Y direction
+
+printf('\n\n Bx = %0.1f N\nBy = %0.0f N\n Dx = %0.0f N\n Dy = %0.0f N',Bx,By,Dx,Dy)
diff --git a/3131/CH6/EX6.18/6_18.sce b/3131/CH6/EX6.18/6_18.sce
new file mode 100644
index 000000000..be72359a1
--- /dev/null
+++ b/3131/CH6/EX6.18/6_18.sce
@@ -0,0 +1,18 @@
+clear all; clc;
+disp("Ex 6_18")
+disp("Free body diagram is shown in figure 6-31b")
+//Calculations
+//Applying summation of forces along Y axis and equating them to zero
+//We get three equations and we solve for each component
+//Solving by matrix method to obtain solution
+A=[3,0,0;-2,1,0;-2,-1,1]
+B=[600;0;0]
+C=inv(A)
+D=C*B 
+P=D(1)
+T=D(2)
+R=D(3)
+
+//Result
+printf('\n The values are \n')
+printf('\n P=%0.0f N\n T=%0.0f N\n R=%0.0f N',P,T,R)
diff --git a/3131/CH6/EX6.19/6_19.sce b/3131/CH6/EX6.19/6_19.sce
new file mode 100644
index 000000000..e8036f689
--- /dev/null
+++ b/3131/CH6/EX6.19/6_19.sce
@@ -0,0 +1,31 @@
+clear all; clc;
+disp("Ex 6_19")
+disp("Free body diagram is shown in figure 6-32b")
+//Calculations
+
+//Applying equations of equlibrium to pulley B
+//We get two equations and we solve for each component
+//Solving by matrix method to obtain solution
+a=45*%pi/180
+A=[1,0;0,1]
+B=[490.5*cos(a);(490.5*sin(a))+490.5]
+C=inv(A)
+D=C*B 
+Bx=D(1)
+By=D(2)
+
+//Result
+printf('\n The values are \n')
+printf('\n Bx=%0.1f N\n By=%0.1f N\n',Bx,By)
+
+//For the equilibrium of the pin in X and Y directions
+E=[4/5,0;0,1]
+F=[(By+490.5);Bx+((3/5)*1660)]
+G=inv(E)
+H=G*F 
+F_CB=H(1)
+F_AB=H(2)
+
+//Result
+printf('\n The values are \n')
+printf('\n F_CB=%0.0f N\n F_AB=%0.0f N\n',F_CB,F_AB)
diff --git a/3131/CH6/EX6.2/6_2.sce b/3131/CH6/EX6.2/6_2.sce
new file mode 100644
index 000000000..eb970b622
--- /dev/null
+++ b/3131/CH6/EX6.2/6_2.sce
@@ -0,0 +1,29 @@
+clear all; clc;
+disp("Ex 6_2")
+
+//Calculations
+// At joint C:
+//Applying summation of forces along all axes and equating them to zero  
+//We get two equations and we solve for each component
+//Solving by matrix method to obtain solution
+disp("At joint C:")
+a1=30
+a=a1*%pi/180
+b1=45
+b=b1*%pi/180
+A=[-cos(a),sin(b);sin(a),-cos(b)]
+B=[0;-1.5]
+C=inv(A)
+D=C*B 
+F_CD=D(1)
+F_CB=D(2)
+
+//Result
+printf('\n The values are ')
+printf('\n F_CD=%0.2f \n F_CB=%0.2f \n All values are in kN',F_CD, F_CB)
+
+disp("At joint D:")
+F_DA=4.10
+printf('\n F_DA = %0.2f kN (T)', F_DA)
+F_DB=4.10
+printf('\n F_DB = %0.2f kN (T)', F_DB)
diff --git a/3131/CH6/EX6.3/6_3.sce b/3131/CH6/EX6.3/6_3.sce
new file mode 100644
index 000000000..4eabb7405
--- /dev/null
+++ b/3131/CH6/EX6.3/6_3.sce
@@ -0,0 +1,24 @@
+clear all; clc;
+disp("Ex 6_3")
+// Equilibrium gives:
+Cx=600
+Cy=200
+
+// At joint A:
+disp("At Joint A:")
+F_AB=600*5/4
+F_AD=750*3/5
+printf('\n F_AB = %0.0f N (C)',F_AB)
+printf('\n F_AD = %0.0f N (T)\n',F_AD)
+
+// At joint D:
+disp("At joint D:")
+F_DB=(600-450)*5/3
+printf('\n F_DB = %0.0f N (T)',F_DB)
+F_DC=250*4/5
+printf('\n F_DC = %0.0f N (C)\n',F_DC)
+
+// At joint C:
+disp("At joint C:")
+F_CB=600
+printf('\n F_CB = %0.0f N (C)',F_CB)
diff --git a/3131/CH6/EX6.4/6_4.sce b/3131/CH6/EX6.4/6_4.sce
new file mode 100644
index 000000000..70342c953
--- /dev/null
+++ b/3131/CH6/EX6.4/6_4.sce
@@ -0,0 +1,24 @@
+clear all; clc;
+disp("Ex 6_4")
+
+
+// At joint G:
+disp("At Joint G:")
+F_GC=0// Summing forces along Y axis
+printf('\n F_GC = %0.0f \n',F_GC)
+
+// At joint D:
+disp("At Joint D:")
+F_DF=0// Summing forces along X axis
+printf('\n F_DF = %0.0f \n',F_DF)
+
+
+// At joint F:
+disp("At Joint F:")
+F_FC=0// Summing forces along Y axis
+printf('\n F_GC = %0.0f \n',F_FC)
+
+// At joint B:
+disp("At Joint B:")
+F_BH=2// Summing forces along Y axis
+printf('\n F_BH = %0.0f kN (C)\n',F_BH)
diff --git a/3131/CH6/EX6.5/6_5.sce b/3131/CH6/EX6.5/6_5.sce
new file mode 100644
index 000000000..ad9f7098d
--- /dev/null
+++ b/3131/CH6/EX6.5/6_5.sce
@@ -0,0 +1,21 @@
+clear all; clc;
+disp("Ex 6_5")
+
+// Equilibrium condition gives:
+Ax=400//in N
+Dy=900//in N
+Ay=300// in N
+
+disp("Figure 6-16c shows the free body diagram of the left portion of the truss")
+
+//Summing moments about G
+F_BC=((300*4)+(400*3))/3
+printf('\n F_BC = %0.0f N (T)\n',F_BC)
+
+//Summing moments about C
+F_GE=300*8/3
+printf('\n F_GE = %0.0f N (C)\n',F_GE)
+
+//Summing forces in Y direction,
+F_GC=300*5/3
+printf('\n F_GC = %0.0f N (T)\n',F_GC)
diff --git a/3131/CH6/EX6.6/6_6.sce b/3131/CH6/EX6.6/6_6.sce
new file mode 100644
index 000000000..a3e0ca707
--- /dev/null
+++ b/3131/CH6/EX6.6/6_6.sce
@@ -0,0 +1,8 @@
+clear all; clc;
+disp("Ex 6_6")
+disp("Figure 6-17a shows exposed internal force in member CF")
+//Summing moments about O and equating to zero
+a1=45
+a=a1*%pi/180
+F_CF=((3*8)-(4.75*4))/(sin(a)*12)
+printf('\n\n F_CF = %0.3f kN (C)',F_CF)
diff --git a/3131/CH6/EX6.7/6_7.sce b/3131/CH6/EX6.7/6_7.sce
new file mode 100644
index 000000000..119437f53
--- /dev/null
+++ b/3131/CH6/EX6.7/6_7.sce
@@ -0,0 +1,17 @@
+clear all; clc;
+disp("Ex 6_7")
+//FIgue 6-18c shows the final free body diagram
+
+// Summing moments at B
+a1=30
+a=a1*%pi/180
+F_ED=(((1000*4)+(3000*2)-(4000*4))*-1)/(sin(a)*4)
+printf('\n\n F_ED = %0.0f N (C)\n',F_ED)
+
+//Summing forces in X-direction
+F_EF=(3000*cos(a))/cos(a)
+printf('\n F_EF = %0.0f N (C)\n',F_EF)
+
+//Summing forces in Y direction
+F_EB=(2*3000*sin(a))-1000
+printf('\n F_EB = %0.0f N (T)',F_EB)
diff --git a/3131/CH6/EX6.8/6_8.sce b/3131/CH6/EX6.8/6_8.sce
new file mode 100644
index 000000000..8fae3275d
--- /dev/null
+++ b/3131/CH6/EX6.8/6_8.sce
@@ -0,0 +1,44 @@
+clear all; clc;
+disp("Ex 6_8")
+
+//Initilization of variables
+F_AE=[0.577,0.577,-0.577] //matrix notation
+P=[0,-4,0]// in kN
+
+//At joint A:
+//Calculations
+//Applying summation of forces along all axes and equating them to zero  
+//We get three equations and we solve for each component
+//Solving by matrix method to obtain solution
+A=[0.577,0,0;0.577,0,1;-0.577,-1,0]
+B=[0;4;0]
+C=inv(A)
+D=C*B 
+F_AE=D(1)
+F_AC=D(2)
+F_AB=D(3)
+
+//Result
+printf('\n The values are \n')
+printf('\n F_AE=%0.0f \n F_AC=%0.0f \n F_AB=%0.0f (T)\n All values are in kN',F_AE,F_AC,F_AB)
+
+//At joint B:
+//Calculations
+//Applying summation of forces along all axes and equating them to zero  
+//We get three equations and we solve for each component
+//Solving by matrix method to obtain solution
+a1=45
+a=a1*%pi/180
+A=[-cos(a),0.707,0;sin(a),0,0;0,-0.707,1]
+B=[0;4;-2]
+C=inv(A)
+D=C*B 
+RB=D(1)
+F_BE=D(2)
+F_BD=D(3)
+
+//Result
+printf('\n The values are \n')
+printf('\n RB=%0.2f (T)\n F_BE=%0.2f (T)\n F_BD=%0.0f (C)\n All values are in kN',RB,F_BE,F_BD)
+disp(" ")
+disp("F_DE = F_DC = F_CE = 0")
diff --git a/3131/CH6/EX6.9/6_9.sce b/3131/CH6/EX6.9/6_9.sce
new file mode 100644
index 000000000..023ce2e7f
--- /dev/null
+++ b/3131/CH6/EX6.9/6_9.sce
@@ -0,0 +1,4 @@
+clear all; clc;
+disp("Ex 6_9")
+
+disp("THe free body diagrams are shown in figures 6-21b, 6-21c and 6-21d")