summaryrefslogtreecommitdiff
path: root/3782/CH8
diff options
context:
space:
mode:
Diffstat (limited to '3782/CH8')
-rw-r--r--3782/CH8/EX8.1/Ex8_1.sce33
-rw-r--r--3782/CH8/EX8.10/Ex8_10.sce60
-rw-r--r--3782/CH8/EX8.2/Ex8_2.sce59
-rw-r--r--3782/CH8/EX8.3/Ex8_3.sce27
-rw-r--r--3782/CH8/EX8.4/Ex8_4.sce23
-rw-r--r--3782/CH8/EX8.5/Ex8_5.sce29
-rw-r--r--3782/CH8/EX8.6/Ex8_6.sce46
-rw-r--r--3782/CH8/EX8.7/Ex8_7.sce46
-rw-r--r--3782/CH8/EX8.8/Ex8_8.sce32
-rw-r--r--3782/CH8/EX8.9/Ex8_9.sce46
10 files changed, 401 insertions, 0 deletions
diff --git a/3782/CH8/EX8.1/Ex8_1.sce b/3782/CH8/EX8.1/Ex8_1.sce
new file mode 100644
index 000000000..6a9c1454b
--- /dev/null
+++ b/3782/CH8/EX8.1/Ex8_1.sce
@@ -0,0 +1,33 @@
+
+
+
+//
+
+//given
+
+h1=0.90,h2=1.25,h3=2.15,h4=2.50,h5=1.85,h6=1.35,h7=0.85,
+
+
+b=10//width in m
+sh=1.5//side slope in m
+
+h=40//m
+
+d1=(b+(sh*h1))*h1
+d2=(b+(sh*h2))*h2
+d3=(b+(sh*h3))*h3
+d4=(b+(sh*h4))*h4
+d5=(b+(sh*h5))*h5
+d6=(b+(sh*h6))*h6
+d7=(b+(sh*h7))*h7
+
+printf("\n d1= %0.3f sq. meter,d2 = %0.3f sq. meter,d3= %0.3f sq. meter,d4= %0.3f sq. meter,d5= %0.3f sq. meter,d6= %0.3f sq. meter,d7= %0.3f sq.meter",d1,d2,d3,d4,d5,d6,d7)
+printf("\n by trapezoidal rule')
+v=(h/2)*(d1+d7+2*(d2+d3+d4+d5+d6))
+printf("\n V= %0.3f meter cube',v)
+
+printf("\n by prismoidal rule')
+
+v1=(h/3)*(d1+d7+4*(d2+d4+d6)+2*(d3+d5))
+
+printf("\n V= %0.3f meter cube',v1)
diff --git a/3782/CH8/EX8.10/Ex8_10.sce b/3782/CH8/EX8.10/Ex8_10.sce
new file mode 100644
index 000000000..f826349b4
--- /dev/null
+++ b/3782/CH8/EX8.10/Ex8_10.sce
@@ -0,0 +1,60 @@
+
+
+
+//
+
+//
+
+a1=0,a2=3.0,
+
+b1=2.20,b2=5.50,
+
+c1=1.75,c2=3.0,
+
+d1=1.5,d2=0,
+
+e1=4.75,e2=5.25,
+
+f1=6.40,f2=7.30,
+
+g1=0,g2=3.0,
+
+
+printf("\n at station 1')
+sp=(e1*d2)+(f1*e2)+(d2*f2)+(c1*d2)+(b1*c2)+(a1*b2)
+
+sq=(e2*d1)+(e1*f2)+(f1*g2)+(d1*c2)+(c1*b2)+(b1*a2)
+
+area1=0.5*(sp-sq)
+area1=abs(area1)
+printf("\n sp= %0.3f,sq= %0.3f",sp,sq)
+printf("\n area = %0.3f sq. meter",area1)
+
+a1=0,a2=3.0,
+
+b1=3.1,b2=5.25,
+
+c1=2.20,c2=3.0,
+
+d1=2,d2=0,
+
+e1=5.25,e2=6,
+
+f1=7.40,f2=8.5,
+
+g1=0,g2=3.0,
+
+printf("\n at station 2')
+sp1=(e1*d2)+(f1*e2)+(d2*f2)+(c1*d2)+(b1*c2)+(a1*b2)
+
+sq1=(d1*e2)+(e1*f2)+(f1*g2)+(d1*c2)+(c1*b2)+(b1*a2)
+printf("\n sp1= %0.3f,sq1= %0.3f",sp1,sq1)
+
+
+area2=0.5*(sp1-sq1)
+area2=abs(area2)
+printf("\n area = %0.3f sq. meters",area2)
+
+printf("\n volume by average end area rule')
+v=50*((area1+area2)/2)
+printf("\n volume= %0.3f cu. meters",v)
diff --git a/3782/CH8/EX8.2/Ex8_2.sce b/3782/CH8/EX8.2/Ex8_2.sce
new file mode 100644
index 000000000..d594f4d4a
--- /dev/null
+++ b/3782/CH8/EX8.2/Ex8_2.sce
@@ -0,0 +1,59 @@
+
+
+
+//
+
+//
+
+h1=0.75,h2=1.15,h3=0.80,h4=1.30,h5=1.5,h6=0.75
+
+b=8 //m
+sh=2 //m
+
+
+x1=(50*h1)/(h1+h2)
+x2=(50*h2)/(h2+h3)
+x3=(50*h3)/(h4+h3)
+x4=(50*h4)/(h4+h5)
+printf("\n x1=%0.3f m,x2=%0.3f m,x3=%0.3f m,x4=%0.3f m",x1,x2,x3,x4)
+
+a1=(b+(sh*h1))*h1
+a2=(b+(sh*h2))*h2
+a3=(b+(sh*h3))*h3
+a4=(b+(sh*h4))*h4
+a5=(b+(sh*h5))*h5
+a6=(b+(sh*h6))*h6
+printf("\n a1=%0.3f sq.m,a2=%0.3f sq.m,a3=%0.3f sq.m,a4=%0.3f sq.m,a5=%0.3f sq.m,a6=%0.3f sq.m",a1,a2,a3,a4,a5,a6)
+
+printf("\n from chainage 0 to 50')
+c1=(a1/2)*(x1)
+f1=(a2/2)*(x2+0.79)
+printf("\n c1=%0.3f cu.m,f1=%0.3f cu.m",c1,f1)
+
+
+
+printf("\n from chainage 50 to 100')
+f2=(a2/2)*(x2)
+c2=(a3/2)*(x3+1.46)
+printf("\n c2=%0.3f cu.m,f2=%0.3f cu.m",c2,f2)
+
+printf("\n from chainage 100 to 150')
+c3=(a3/2)*(x3)
+f3=(a4/2)*(30.95)
+printf("\n c3%0.3f cu.m,f3=%0.3f cu.m",c3,f3)
+
+printf("\n from chainage 150 to 200')
+f4=(a4/2)*(x4)
+c4=(a5/2)*(x4+3.59)
+printf("\n c4=%0.3f cu.m,f4=%0.3f cu.m",c4,f4)
+
+printf("\n from chainage 200 to 250')
+c5=((a1+a5)/2)*50
+
+printf("\n c5=%0.3f cu.m",c5)
+
+tc=c1+c2+c3+c4+c5
+tf=f1+f2+f3+f4
+
+printf("\n total cutting = %0.3f cu. meters",tc)
+printf("\n total fitting= %0.3f cu. meters",tf)
diff --git a/3782/CH8/EX8.3/Ex8_3.sce b/3782/CH8/EX8.3/Ex8_3.sce
new file mode 100644
index 000000000..8c1712547
--- /dev/null
+++ b/3782/CH8/EX8.3/Ex8_3.sce
@@ -0,0 +1,27 @@
+
+
+
+//
+
+//
+h=50
+h1=2.50,h2=1.25,h3=0.95,h4=1.65,h5=2.20,h6=2.85,h7=0.75,
+
+b=8,sh=1,
+//metres
+
+
+a1=(b+(sh*h1))*h1
+a2=(b+(sh*h2))*h2
+a3=(b+(sh*h3))*h3
+a4=(b+(sh*h4))*h4
+a5=(b+(sh*h5))*h5
+a6=(b+(sh*h6))*h6
+a7=(b+(sh*h7))*h7
+
+printf("\n a1=%0.3f sq.m,a2=%0.3f sq.m,a3=%0.3f sq.m,a4=%0.3f sq.m,a5=%0.3f sq.m,a6=%0.3f sq.m,a7=%0.3f sq.m",a1,a2,a3,a4,a5,a6,a7)
+
+v=(h/3)*(a1+a7+4*(a2+a4+a6)+2*(a3+a5))
+
+
+printf("\n volume= %0.3f meter cube",v)
diff --git a/3782/CH8/EX8.4/Ex8_4.sce b/3782/CH8/EX8.4/Ex8_4.sce
new file mode 100644
index 000000000..d812e9392
--- /dev/null
+++ b/3782/CH8/EX8.4/Ex8_4.sce
@@ -0,0 +1,23 @@
+
+
+
+//
+
+//areas
+
+a1=2050,a2=8400,a3=16300,a4=24600,a5=31500,
+
+
+h=5
+
+printf("\n according to trapezoidal rule')
+
+v1=(h/2)*(a1+a5+2*(a2+a3+a4))
+
+printf("\n volume = %0.3f meter cube",v1)
+
+printf("\n according to prismoidal rule')
+
+v2=(h/3)*(a1+a5+4*(a2+a4)+2*(a3))
+
+printf("\n volume = %0.3f meter cube",v2)
diff --git a/3782/CH8/EX8.5/Ex8_5.sce b/3782/CH8/EX8.5/Ex8_5.sce
new file mode 100644
index 000000000..145b639f2
--- /dev/null
+++ b/3782/CH8/EX8.5/Ex8_5.sce
@@ -0,0 +1,29 @@
+
+
+
+//
+
+//
+
+printf("\n bottom section')
+L=40//m
+B=30//m
+a1=L*B//m2
+printf("\n area A1= %0.3f sq. meters",a1)
+
+printf("\n mid section')
+b=40//m
+sh=2.5//m
+
+l=L+2*2*sh
+b=B+2*2*sh
+a2=l*b
+printf("\n area A2= %0.3f sq. meters",a2)
+
+printf("\n top section')
+sh=5
+
+l1=L+2*sh
+b1=B*2*2*sh
+a3=l1*b1
+printf("\n area A3= %0.3f sq. meters",a3)
diff --git a/3782/CH8/EX8.6/Ex8_6.sce b/3782/CH8/EX8.6/Ex8_6.sce
new file mode 100644
index 000000000..505446d95
--- /dev/null
+++ b/3782/CH8/EX8.6/Ex8_6.sce
@@ -0,0 +1,46 @@
+
+
+
+//
+
+//
+
+b=8//m
+h=2//m
+n=10
+s=1
+
+printf("\n first section')
+b1=(b/2)+((n*s)/(n-s))*(h+(b/(2*n)))
+b2=(b/2)+((n*s)/(n+s))*(h-(b/(2*n)))
+
+a1=0.5*((((b/(2*s))+h))*(b1+b2)-((b*b)/(2*s)))
+printf("\n b1=%0.3f,b2=%0.3f",b1,b2)
+
+printf("\n area A1= %0.3f sq. meters",a1)
+
+printf("\n second section')
+b=8,h=3,n=10,s=1,
+
+
+
+b1=(b/2)+((n*s)/(n-s))*(h+(b/(2*n)))
+b2=(b/2)+((n*s)/(n+s))*(h-(b/(2*n)))
+
+a2=0.5*((((b/(2*s))+h))*(b1+b2)-((b*b)/(2*s)))
+printf("\n b1=%0.3f,b2=%0.3f",b1,b2)
+
+printf("\n area A2= %0.3f sq. meters",a2)
+
+printf("\n third section')
+b=8,h=4,n=10,s=1,
+
+
+
+b1=(b/2)+((n*s)/(n-s))*(h+(b/(2*n)))
+b2=(b/2)+((n*s)/(n+s))*(h-(b/(2*n)))
+
+a3=0.5*((((b/(2*s))+h))*(b1+b2)-((b*b)/(2*s)))
+printf("\n b1=%0.3f,b2=%0.3f",b1,b2)
+
+printf("\n area A3= %0.3f sq. meters",a3)
diff --git a/3782/CH8/EX8.7/Ex8_7.sce b/3782/CH8/EX8.7/Ex8_7.sce
new file mode 100644
index 000000000..b0a7d9e25
--- /dev/null
+++ b/3782/CH8/EX8.7/Ex8_7.sce
@@ -0,0 +1,46 @@
+
+
+
+//
+
+//
+
+b=10
+h=1//m
+n=10
+s=1
+
+printf("\n first section')
+b1=(b/2)+((n*s)/(n-s))*(h+(b/(2*n)))
+b2=(b/2)+((n*s)/(n+s))*(h-(b/(2*n)))
+
+a1=0.5*((((b/(2*s))+h))*(b1+b2)-((b*b)/(2*s)))
+printf("\n b1=%0.3f,b2=%0.3f",b1,b2)
+
+printf("\n area A1= %0.3f ",a1)
+
+printf("\n second section')
+b=10,h=2,n=5,s=1,
+
+
+
+b1=(b/2)+((n*s)/(n-s))*(h+(b/(2*n)))
+b2=(b/2)+((n*s)/(n+s))*(h-(b/(2*n)))
+
+a2=0.5*((((b/(2*s))+h))*(b1+b2)-((b*b)/(2*s)))
+printf("\n b1=%0.3f,b2=%0.3f",b1,b2)
+
+printf("\n area A2= %0.3f sq. meters ",a2)
+
+printf("\n third section')
+b=10,h=1.5,n=8,s=1,
+
+
+
+b1=(b/2)+((n*s)/(n-s))*(h+(b/(2*n)))
+b2=(b/2)+((n*s)/(n+s))*(h-(b/(2*n)))
+
+a3=0.5*((((b/(2*s))+h))*(b1+b2)-((b*b)/(2*s)))
+printf("\n b1=%0.3f,b2=%0.3f",b1,b2)
+
+printf("\n area A3= %0.3f sq. meters",a3)
diff --git a/3782/CH8/EX8.8/Ex8_8.sce b/3782/CH8/EX8.8/Ex8_8.sce
new file mode 100644
index 000000000..4d1df21cc
--- /dev/null
+++ b/3782/CH8/EX8.8/Ex8_8.sce
@@ -0,0 +1,32 @@
+
+
+
+//
+
+//
+
+printf("\n at station 1')
+h=1,h1=2.55,h2=0.95,b=9,b1=7.5,b2=5.25,
+
+w1=b1+b2
+a=(((h/2)*(b1+b2))+((b/4)*(h1+h2)))
+printf("\n area= %0.3f sq. meter",a)
+
+printf("\n at station 2')
+h=1.5,h1=2.8,h2=1.35,b=9,b1=8.1,b2=4.75,
+
+
+a1=(((h/2)*(b1+b2))+((b/4)*(h1+h2)))
+d=50
+k=10.01
+v=(d/2)*(a+a1)
+w2=b1+b2
+printf("\n area= %0.3f sq.m ",a1)
+h2=1
+h1=1.5
+cp=(d/12)*(h1-h2)*(w2-w1)
+
+
+cv=v-cp
+printf("\n v= %0.3f cu.m cp= %0.3f cu.m ",v,cp)
+printf("\n correct volume = %0.3f cu.meters",cv)
diff --git a/3782/CH8/EX8.9/Ex8_9.sce b/3782/CH8/EX8.9/Ex8_9.sce
new file mode 100644
index 000000000..035e155d2
--- /dev/null
+++ b/3782/CH8/EX8.9/Ex8_9.sce
@@ -0,0 +1,46 @@
+
+
+
+//
+
+//
+
+printf("\n section 1')
+b=10,n=5,s=1,s1=2,
+
+d=50,h1=0.5,h2=0.7,
+
+
+ac=0.5*(((0.5*b+n*h1)*(0.5*b+n*h1))/(n-s))
+
+af=0.5*(((0.5*b-n*h1)*(0.5*b-n*h1))/(n-s1))
+
+printf("\n ac=%0.3f,af=%0.3f",ac,af)
+
+
+printf("\n section 2')
+
+
+ac1=0.5*(((0.5*b+n*h2)*(0.5*b+n*h2))/(n-s))
+
+af1=0.5*(((0.5*b-n*h2)*(0.5*b-n*h2))/(n-s1))
+D=50
+printf("\n ac1=%0.3f,af1=%0.3f",ac1,af1)
+vc=((ac+ac1)/2)*D
+vf=((af+af1)/2)*D
+
+printf("\n vc= %0.3f vf= %0.3f ",vc,vf)
+
+D=50//m
+pcc=(D/(12*(n-s)))*(n*n*(h1-h2)*(h1-h2))
+
+
+pcf=(D/(12*(n-s1)))*(n*n*(h1-h2)*(h1-h2))
+
+
+cvc=vc-pcc
+cvf=vf-pcf
+
+printf("\n corrected volume (in cutting)= %0.3f cu. meter",cvc)
+
+printf("\n corrected volume(in filling)= %0.3f cu. meter",cvf)
generated by cgit (git 2.34.1) at 2024-12-22 09:47:57 +0000