8 files changed, 136 insertions, 0 deletions
diff --git a/866/CH7/EX7.1/7_1.sce b/866/CH7/EX7.1/7_1.sce
new file mode 100755
index 000000000..d1d3da82a
--- /dev/null
+++ b/866/CH7/EX7.1/7_1.sce
@@ -0,0 +1,10 @@
+clc
+//initialisation of variables
+P= 800*10^3
+sigmamax= 400
+//CALCULATIONS
+Amin= P/sigmamax
+B= sqrt(Amin/2)
+//RESULTS
+printf ('Amin= %.2f mm^2',Amin)
+printf (' \n B=%.2f mm(Therefore the min dimensions of the column cross section are 31.6mm*63.2mm)',B)
diff --git a/866/CH7/EX7.2/7_2.sce b/866/CH7/EX7.2/7_2.sce
new file mode 100755
index 000000000..f29b0e205
--- /dev/null
+++ b/866/CH7/EX7.2/7_2.sce
@@ -0,0 +1,17 @@
+clc
+//initialisation of variables
+x1= %pi/4
+y= 350^2-300^2
+W= 2000*10^3
+E= 200000
+h= 5*10^3
+//CALCULATIONS
+A= x1*y
+sigma= -(W/A)
+epsilon= (sigma/E)
+delta= -(epsilon*h)
+//RESULTS
+printf ('A= %.2f mm^2',A)
+printf (' \n sigma=%.2f N/mm^2',sigma)
+printf (' \n epsilon=%.5f ',epsilon)
+printf (' \n delta=%.2f mm',delta)
diff --git a/866/CH7/EX7.3/7_3.sce b/866/CH7/EX7.3/7_3.sce
new file mode 100755
index 000000000..aff3a494b
--- /dev/null
+++ b/866/CH7/EX7.3/7_3.sce
@@ -0,0 +1,15 @@
+clc
+//initialisation of variables
+W= 10*10^3 //KN
+L= 500 //mm
+D= 200 //mm
+T= 2 //mm
+G= 25000 //N/mm^2
+//CALCULATIONS
+Tav= W/(D*T)
+gama= Tav/G
+deltas= gama*L
+//RESULTS
+printf ('Tav= %.2f N/mm^2',Tav)
+printf (' \n gama=%.3f rad',gama)
+printf (' \n deltas=%.2f mm',deltas)
diff --git a/866/CH7/EX7.4/7_4.sce b/866/CH7/EX7.4/7_4.sce
new file mode 100755
index 000000000..f12742068
--- /dev/null
+++ b/866/CH7/EX7.4/7_4.sce
@@ -0,0 +1,13 @@
+clc
+//initialisation of variables
+mu= 0.3
+E= 200000 //N/mm^2
+R= 0.1*10^-2
+//CALCULATIONS
+K= E/(3*(1-2*mu))
+sigma= R*K
+linearstrain= R/3
+//RESULTS
+printf ('K= %.f N/mm^2',K)
+printf (' \n sigma=%.f N/mm^2',sigma)
+printf (' \n linearstarin=%.5f ',linearstrain)
diff --git a/866/CH7/EX7.5/7_5.sce b/866/CH7/EX7.5/7_5.sce
new file mode 100755
index 000000000..4a8211d3a
--- /dev/null
+++ b/866/CH7/EX7.5/7_5.sce
@@ -0,0 +1,23 @@
+clc
+//initialisation of variables
+x1= 4
+x2= %pi/x1
+L= 400 //mm
+h= 5 //m
+d=20 //mm
+W= 1000*10^3 //KN
+Ys= 200000 //N/mm^2
+Yc= 15000 //N/mm^2
+//CALCULATIONS
+As= x1*x2*(d^2)
+Ac= L^2-As
+sigmas= (Ys*W)/(Ac*Yc+As*Ys)
+sigmac= (Yc*W)/(Ac*Yc+As*Ys)
+delta= (sigmac*h*10^3)/(Yc)
+//RESULTS
+printf ('As= %.f mm^2',As)
+printf (' \n Ac=% f mm^2',Ac)
+printf (' \n sigmas=%.f N/mm^2(stress in the steel)',sigmas)
+printf (' \n sigmac=%.1f N/mm^2(stress in the concrete)',sigmac)
+printf (' \n delta;=%.1f mm(shortening of the column)',delta)
+
diff --git a/866/CH7/EX7.6/7_6.sce b/866/CH7/EX7.6/7_6.sce
new file mode 100755
index 000000000..dd958d385
--- /dev/null
+++ b/866/CH7/EX7.6/7_6.sce
@@ -0,0 +1,29 @@
+clc
+//initialisation of variables
+Ao= 2*300 //mm^2
+Eo= 80000 //N/mm^2
+Ei= 200000 //N/mm^2
+Ai= 300 //mm^2
+P= 100*10^3 //KN
+deltaT= 100 //degrees
+alphai= 1.2*10^-5 ///degreesc
+alphao= 1.85*10^-5 ///degreesc
+L= 4*10^3 //mm
+//CALCULATIONS
+sigmaiload= (Ei*P)/(Ao*Eo+Ai*Ei)
+sigmaoload= (Eo*P)/(Ao*Eo+Ai*Ei)
+sigmaotemp= (deltaT*(alphai-alphao)*Eo*Ai*Ei)/(Ao*Eo+Ai*Ei)
+sigmaitemp= (deltaT*(alphai-alphao)*Eo*Ao*Ei)/(Ao*Eo+Ai*Ei)
+sigmai= sigmaiload+sigmaitemp
+sigmao= sigmaoload-sigmaotemp
+deltaload= (P*L)/(Ao*Eo+Ai*Ei)
+deltatemp= (L*deltaT)*(alphao*Ao*Eo+alphai*Ai*Ei)/(Ao*Eo+Ai*Ei)
+displacement= deltatemp-deltaload
+//RESULTS
+printf ('sigmai= %.2f N/mm^2(stress in the column)',sigmai)
+printf (' \n sigmao=% f N/mm^2(stress in the column)',sigmao)
+printf (' \n displacement=% f mm(elongation)',displacement)
+
+
+
+
diff --git a/866/CH7/EX7.7/7_7.sce b/866/CH7/EX7.7/7_7.sce
new file mode 100755
index 000000000..8d4c1a18b
--- /dev/null
+++ b/866/CH7/EX7.7/7_7.sce
@@ -0,0 +1,15 @@
+clc
+//initialisation of variables
+A= 120*300 //mm^2
+At= 6*300 //mm^2
+Ec= 150 //N/mm^2
+Et= 150*15 //N/mm^2
+P= 150*10^3 //N
+//CALCULATIONS
+Ac= A-At
+sigmaci= (Ec*At)/Ac
+F= Ac*sigmaci
+stressintheconcrete= (sigmaci)-((Ec*P)/(Ac*Ec+At*Et))
+stressinthesteel= (F/At)+((Et*P)/(Ac*Ec+At*Et))
+printf ('stressintheconcrete= %.1f N/mm^2(compression)',stressintheconcrete)
+printf (' \n stressinthesteel=% f N/mm^2(tension)',stressinthesteel)
diff --git a/866/CH7/EX7.8/7_8.sce b/866/CH7/EX7.8/7_8.sce
new file mode 100755
index 000000000..e0261c946
--- /dev/null
+++ b/866/CH7/EX7.8/7_8.sce
@@ -0,0 +1,14 @@
+clc
+//initialisation of variables
+sigmac= 400 //N/mm^2
+fs= 6
+d= 2*10^3 //mm
+t= 20 //mm
+E= 200000 //N/mm^2
+mu= 0.3
+//CALCULATIONS
+p= (sigmac*2*t)/(d*6)
+volumestrain= (p*d)*((5/4)-mu)/(t*E)
+//RESULTS
+printf ('p= %.2f N/mm^2',p)
+printf (' \n volumestrain=% f percent',volumestrain)