4 files changed, 160 insertions, 0 deletions
diff --git a/866/CH4/EX4.2/4_2.sce b/866/CH4/EX4.2/4_2.sce
new file mode 100755
index 000000000..271be8a77
--- /dev/null
+++ b/866/CH4/EX4.2/4_2.sce
@@ -0,0 +1,30 @@
+clc
+//initialisation of variables
+F1= -2 //KN
+F2= -3 //KN
+F3= -1 //KN
+x1= 2 //m
+x2= 1.5 //m
+x3= 1 //m
+x4= 0.5 //m
+//CALCULATIONS
+Ra= (-F2*x4-F3*x3-F1*x2)/x1
+Rd= -F1-F2-F3-Ra
+Fab= -2.75/sind(60)
+Fae= -Fab*cosd(60)
+Fba= Fab
+Fbe= (-2-Fba*cosd(30))/cosd(30)
+Fbc= Fba*cosd(60)-Fbe*cosd(60)
+Fdc= -Rd/sind(60)
+Fde= -Fdc*cosd(60)
+Fce= (-3-Fdc*cosd(30))/cosd(30)
+//RESULTS
+printf ('Ra= %.2f KN',Ra)
+printf (' \n Rd=%.2f KN',Rd)
+printf (' \n Fab=%.2f KN(compression)',Fab)
+printf (' \n Fae=%.2f KN(tension)',Fae)
+printf (' \n Fbe=%.2f KN(tension)',Fbe)
+printf (' \n Fbc=%.2f KN(compression)',Fbc)
+printf (' \n Fdc=%.2f KN(compression)',Fdc)
+printf (' \n Fde=%.2f KN(tension)',Fde)
+printf (' \n Fce=%.2f KN(tension)',Fce)
diff --git a/866/CH4/EX4.3/4_3.sce b/866/CH4/EX4.3/4_3.sce
new file mode 100755
index 000000000..615e11edf
--- /dev/null
+++ b/866/CH4/EX4.3/4_3.sce
@@ -0,0 +1,23 @@
+clc
+//initialisation of variables
+Re= -4 //KN
+Rh= -6 //KN
+Ro= 2 //KN
+x1= 1 //m
+x2= 3 //m
+x3= 5 //m
+x4= 4 //m
+//CALCULATIONS
+Rb= (Ro*x1-Re*x2-Rh*x3)/8
+Rav= (-Ro*x1-Re*x3-Rh*x2)/8
+Rah= Ro
+Fcf= (Rav+Re)/cosd(45)
+Fcd= (-Re*x1-Rav*x4-Ro*x1)/x1
+Fef= (Rav*x2+Ro*x1)/x1
+//RESULTS
+printf ('Rb= %.1f KN',Rb)
+printf (' \n Rav=%.1f KN',Rav)
+printf (' \n Rah=%.f KN',Rah)
+printf (' \n Fcf=%.2f KN',Fcf)
+printf (' \n Fcd=%.f KN',Fcd)
+printf (' \n Fef=%.1f KN',Fef)
diff --git a/866/CH4/EX4.4/4_4.sce b/866/CH4/EX4.4/4_4.sce
new file mode 100755
index 000000000..72749bc0c
--- /dev/null
+++ b/866/CH4/EX4.4/4_4.sce
@@ -0,0 +1,53 @@
+clc
+//initialisation of variables
+Rav= 1 //KN
+Re= 4 //KN
+Xac= 1.5 //m
+Xce= 1.5 //m
+Fd= -5 //KN
+Rah= -3 //KN
+xa= 0 //m
+ya= 0 //m
+xc= 1.5 //m
+yc= 0//m
+xe= 3 //m
+ye= 0 //m
+xf= 3 //m
+yf= 1.5 //m
+xd= 1.5 //m
+yd= 1.5 //m
+xb= 0 //m
+yb= 1.5 //m
+Yef= 1.5 //m
+Fb= 3 //KN
+//CALCULATIONS
+tac= -Rah/(xc-xa)
+tab= -Rav/(yb-ya)
+tba= tab
+tbc= -tba*(ya-yb)/(yc-yb)
+tbd= (-Fb-tbc*(xc-xb))/(xd-xb)
+tdb= tbd
+tdf= -tdb*(xb-xd)/(xf-xd)
+tdc= (-Fd-tdb*(yb-yd))/(yc-yd)
+tec= 0
+tfe= -Re/(yf-ye)
+tfc= (-tdf*(xd-xf)-tfe*(xe-xf))/(xc-xf)
+Tab= tab*(yb-ya)
+Tac= tac*(xc-xa)
+Tbc= tbc*sqrt((xb-xc)^2+(yb-yc)^2)
+Tbd= tbd*(xd-xb)
+Tdf= tdf*(xf-xd)
+Tdc= tdc*(yd-yc)
+Tfc= tfc*sqrt((xf-xc)^2+(yf-yc)^2)
+Tfe= tfe*(yf-ye)
+Tec= tec*(xe-xc)
+//RESULTS
+printf ('Tab= %.2f KN(compression)',Tab)
+printf (' \n Tac=%.2f KN(tension)',Tac)
+printf (' \n Tbc=%.2f KN(tension)',Tbc)
+printf (' \n Tbd=%.2f KN(compression)',Tbd)
+printf (' \n Tdf=%.2f KN(compression)',Tdf)
+printf (' \n Tdc=%.2f KN(compression)',Tdc)
+printf (' \n Tfc=%.2f KN(tension)',Tfc)
+printf (' \n Tfe=%.2f KN(compression)',Tfe)
+printf (' \n Tec=%.2f KN(tension)',Tec)
diff --git a/866/CH4/EX4.6/4_6.sce b/866/CH4/EX4.6/4_6.sce
new file mode 100755
index 000000000..083f64ef3
--- /dev/null
+++ b/866/CH4/EX4.6/4_6.sce
@@ -0,0 +1,54 @@
+clc
+//initialisation of variables
+xa= -2
+ya= -2
+za= -4
+xb= -2
+yb= -2
+zb= 2
+xc= 2
+yc= -2
+zc= -4
+xd= 2
+yd= -2
+zd= 2
+xf= 0
+yf= 0
+zf= 0
+xe= 0
+ye= 0
+ze= -2
+Fe= -60 //KN
+Ff= 40 //KN
+//CALCULATIONS
+A=[(xd-xf),(xb-xf),(xe-xf); (yd-yf),(yb-yf),(ye-yf); (zd-zf),(zb-zf),(ze-zf)]
+b=[Ff;0;0]
+c=A\b
+tfd= c(1,1)
+tfb= c(2,1)
+tfe= c(3,1)
+B=[(xb-xe),(xc-xe),(xa-xe); (yb-ye),(yc-ye),(ya-ye); (zb-ze),(zc-ze),(za-ze)]
+e=[0-tfe*(xf-xe);-Fe-tfe*(yf-ye);-tfe*(zf-ze)]
+f=B\e
+teb= f(1,1)
+tec= f(2,1)
+tea= f(3,1)
+Lfb= sqrt((xb-xf)^2+(yb-yf)^2+(zb-zf)^2)
+Lfd= sqrt((xd-xf)^2+(yd-yf)^2+(zd-zf)^2)
+Lfe= sqrt((xe-xf)^2+(ye-yf)^2+(ze-zf)^2)
+Lec= sqrt((xc-xe)^2+(yc-ye)^2+(zc-ze)^2)
+Lea= sqrt((xa-xe)^2+(ya-ye)^2+(za-ze)^2)
+Leb= sqrt((xb-xe)^2+(yb-ye)^2+(zb-ze)^2)
+Tfb= tfb*Lfb
+Tfd= tfd*Lfd
+Tfe= tfe*Lfe
+Tec= tec*Lec
+Tea= tea*Lea
+Teb= teb*Leb
+//RESULTS
+printf ('Tfb= %.1f KN(compression)',Tfb)
+printf (' \n Tfd=%.1f KN(tension)',Tfd)
+printf (' \n Tfe=%.1f KN',Tfe)
+printf (' \n Tec=%.1f KN(compression)',Tec)
+printf (' \n Tea=%.1f KN(compression)',Tea)
+printf (' \n Teb=%.1f KN(compression)',Teb)