diff options
Diffstat (limited to '3886/CH8')
34 files changed, 211 insertions, 0 deletions
diff --git a/3886/CH8/EX8.1/8_1.sce b/3886/CH8/EX8.1/8_1.sce new file mode 100644 index 000000000..f70b4fc26 --- /dev/null +++ b/3886/CH8/EX8.1/8_1.sce @@ -0,0 +1,12 @@ +//Resultant of system
+//Refer fig. 8.5
+//Let E be the equilibriant
+//using virtual work principle
+//-E*cosd(theta)=50*cosd(45)+80*cosd(25)+70*cosd(50)=152.86 N
+//-E*sind(theta)=-50*sind(45)+80*sind(25)+70*sind(50)=52.07*sind(25)
+//Thus
+a=152.86 //N (R*cosd(theta))
+b=52.07 //N (R*sind(theta))
+R=sqrt(a^2+b^2) //N
+theta=atand(b/a) //degree
+printf("Resultant R=%.2f N inclined at theta=%.2f degree w.r.t positive x-axis",R,theta)
diff --git a/3886/CH8/EX8.1/8_1.txt b/3886/CH8/EX8.1/8_1.txt new file mode 100644 index 000000000..5cf1ab4fe --- /dev/null +++ b/3886/CH8/EX8.1/8_1.txt @@ -0,0 +1,3 @@ +
+--> exec('E:\My program EM\8. Virtual work\8.1.sce', -1)
+Resultant R=161.49 N inclined at theta=18.81 degree w.r.t positive x-axis
\ No newline at end of file diff --git a/3886/CH8/EX8.10/8_10.sce b/3886/CH8/EX8.10/8_10.sce new file mode 100644 index 000000000..5f8e97bd5 --- /dev/null +++ b/3886/CH8/EX8.10/8_10.sce @@ -0,0 +1,6 @@ +//Horizontal force P
+//refer fig.8.14
+//Applying virtual work principle
+//-1500*(delta(s)*sind(30))+P*delta(s)*cosd(30)+0=0
+P=1500*tand(30) //N
+printf("Magnitude of P=%.2f N",P)
diff --git a/3886/CH8/EX8.10/8_10.txt b/3886/CH8/EX8.10/8_10.txt new file mode 100644 index 000000000..0ebbbf703 --- /dev/null +++ b/3886/CH8/EX8.10/8_10.txt @@ -0,0 +1,2 @@ +--> exec('E:\My program EM\8. Virtual work\8.10.sce', -1)
+Magnitude of P=866.03 N
\ No newline at end of file diff --git a/3886/CH8/EX8.11/8_11.sce b/3886/CH8/EX8.11/8_11.sce new file mode 100644 index 000000000..80f80af83 --- /dev/null +++ b/3886/CH8/EX8.11/8_11.sce @@ -0,0 +1,13 @@ +//Range of force P
+//refer fig. 8.15
+//a-when the motion is impending up the plane
+mu=0.3
+N=1000*cosd(70)
+F=mu*N //N
+//Applying virtual work principle
+aP=1000*sind(70)+300*cosd(70) //N
+//b-when the motion is impending down the plane
+//Applying virtual work principle
+bP=1000*sind(70)-300*cosd(70) //N
+printf("Block is in equilibrium for P=%.2f N to %.2f N",bP,aP)
+
diff --git a/3886/CH8/EX8.11/8_11.txt b/3886/CH8/EX8.11/8_11.txt new file mode 100644 index 000000000..1b8e2919b --- /dev/null +++ b/3886/CH8/EX8.11/8_11.txt @@ -0,0 +1,3 @@ +
+--> exec('E:\My program EM\8. Virtual work\8.11.sce', -1)
+Block is in equilibrium for P=837.09 N to 1042.30 N
\ No newline at end of file diff --git a/3886/CH8/EX8.12/8_12.sce b/3886/CH8/EX8.12/8_12.sce new file mode 100644 index 000000000..bea441e90 --- /dev/null +++ b/3886/CH8/EX8.12/8_12.sce @@ -0,0 +1,7 @@ +//Position of the balls
+//refer fig. 8.16
+//Let a virtual displacement be given to the system of balls as shown
+//Applying virtual work principle
+//200*sind(30)*delta(DB)+150*sind(60)*delta(EB)=0
+theta=atand((150*sind(60))/(200*sind(30))) //degree
+printf("Thus theta=%.2f degree",theta)
diff --git a/3886/CH8/EX8.12/8_12.txt b/3886/CH8/EX8.12/8_12.txt new file mode 100644 index 000000000..b0ec00b10 --- /dev/null +++ b/3886/CH8/EX8.12/8_12.txt @@ -0,0 +1,3 @@ +
+--> exec('E:\My program EM\8. Virtual work\8.12.sce', -1)
+Thus theta=52.41 degree
\ No newline at end of file diff --git a/3886/CH8/EX8.13/8_13.sce b/3886/CH8/EX8.13/8_13.sce new file mode 100644 index 000000000..de1cbf0aa --- /dev/null +++ b/3886/CH8/EX8.13/8_13.sce @@ -0,0 +1,14 @@ +//Force P to make motion impending to the left
+//Refer fig.8.17
+N1=250
+N2=1000*cosd(45)
+N3=500
+F1=0.25*N1 //N
+F2=0.25*N2 //N
+F3=0.25*N3 //N
+//let us give virtual displacement towards left
+//Applying virtual work principle
+//(P-F1-1000*sind(45)-F2-F3)*delta(s)=0
+P=F1+1000*sind(45)+F2+F3 //N
+printf("The required force is P=%.2f N",P)
+
diff --git a/3886/CH8/EX8.13/8_13.txt b/3886/CH8/EX8.13/8_13.txt new file mode 100644 index 000000000..e0186396a --- /dev/null +++ b/3886/CH8/EX8.13/8_13.txt @@ -0,0 +1,3 @@ +
+--> exec('E:\My program EM\8. Virtual work\8.13.sce', -1)
+The required force is P=1071.38 N
\ No newline at end of file diff --git a/3886/CH8/EX8.14/8_14.sce b/3886/CH8/EX8.14/8_14.sce new file mode 100644 index 000000000..a34f24830 --- /dev/null +++ b/3886/CH8/EX8.14/8_14.sce @@ -0,0 +1,12 @@ +//Determine WB
+//refer fig.8.18
+theta=atand(3/4)
+mu=0.3
+WA=200
+F=mu*WA*cosd(theta) //N
+//Let us give virtual displacement of delta(s) up the plane to block A
+//Applying virtual work principle
+//(-200*sind(theta)-F+WB/2)*delta(s)=0
+WB=2*(200*sind(theta)+F) //N
+printf("Required value of WB=%.2f N",WB)
+
diff --git a/3886/CH8/EX8.14/8_14.txt b/3886/CH8/EX8.14/8_14.txt new file mode 100644 index 000000000..eb621d93c --- /dev/null +++ b/3886/CH8/EX8.14/8_14.txt @@ -0,0 +1,3 @@ +
+--> exec('E:\My program EM\8. Virtual work\8.14.sce', -1)
+Required value of WB=336.00 N
\ No newline at end of file diff --git a/3886/CH8/EX8.15/8_15.sce b/3886/CH8/EX8.15/8_15.sce new file mode 100644 index 000000000..3d7112b13 --- /dev/null +++ b/3886/CH8/EX8.15/8_15.sce @@ -0,0 +1,13 @@ +//Determine force P
+//refer fig.8.19
+//(a) P at floor level
+//Applying virtual work principle
+//P*delta(x)-200*delta(y)=0
+P=100*tand(30) //N
+//(b) If the rope is used instead of force P
+//refer fig.8.20
+//Taking C as origin
+//Applying virtual work principle
+//(-3*T*cosd(theta)+400*sind(theta))*delta(theta)=0
+T=(400*tand(30))/3 //N
+printf("\nP=%.2f N\nT=%.2f N",P,T)
diff --git a/3886/CH8/EX8.15/8_15.txt b/3886/CH8/EX8.15/8_15.txt new file mode 100644 index 000000000..b0fe2b738 --- /dev/null +++ b/3886/CH8/EX8.15/8_15.txt @@ -0,0 +1,5 @@ +
+--> exec('E:\My program EM\8. Virtual work\8.15.sce', -1)
+
+P=57.74 N
+T=76.98 N
\ No newline at end of file diff --git a/3886/CH8/EX8.16/8_16.sce b/3886/CH8/EX8.16/8_16.sce new file mode 100644 index 000000000..bb8ccec03 --- /dev/null +++ b/3886/CH8/EX8.16/8_16.sce @@ -0,0 +1,9 @@ +//Least value of theta to avoid slipping of ladder
+//refer fig.8.21
+//Applying virtual work principle
+//-0.4*NA*6*cosd(theta)*delta(theta)-200*(-3*sind(theta)*delta(theta))-900*(-5*sind(theta)*delta(theta))+0.25*NB(-6*sind(theta)*delta(theta))=0
+NA=1100/(1+0.25*0.4) //N
+NB=0.4*1000 //N
+theta=atand(2400/4500) //degree
+printf("Thus theta=%.2f degree",theta)
+
diff --git a/3886/CH8/EX8.16/8_16.txt b/3886/CH8/EX8.16/8_16.txt new file mode 100644 index 000000000..318209712 --- /dev/null +++ b/3886/CH8/EX8.16/8_16.txt @@ -0,0 +1,3 @@ +
+--> exec('E:\My program EM\8. Virtual work\8.16.sce', -1)
+Thus theta=28.07 degree
\ No newline at end of file diff --git a/3886/CH8/EX8.17/8_17.sce b/3886/CH8/EX8.17/8_17.sce new file mode 100644 index 000000000..5e8339399 --- /dev/null +++ b/3886/CH8/EX8.17/8_17.sce @@ -0,0 +1,7 @@ +//Force in the member FH
+//refer fig.8.22
+//use symmetry
+//Apply virtual work principle
+//RA*12*delta(theta)-10*10*delta(theta)-10*6*delta(theta)-10*2*delta(theta)+FFH*2*tand(60)=0
+FFH=-240/(2*tand(60)) //kN
+printf("FFH is a compressive force of %.2f kN",-FFH)
diff --git a/3886/CH8/EX8.17/8_17.txt b/3886/CH8/EX8.17/8_17.txt new file mode 100644 index 000000000..a80319a14 --- /dev/null +++ b/3886/CH8/EX8.17/8_17.txt @@ -0,0 +1,3 @@ +
+--> exec('E:\My program EM\8. Virtual work\8.17.sce', -1)
+FFH is a compressive force of 69.28 kN
\ No newline at end of file diff --git a/3886/CH8/EX8.18/8_18.sce b/3886/CH8/EX8.18/8_18.sce new file mode 100644 index 000000000..0cd98b2ea --- /dev/null +++ b/3886/CH8/EX8.18/8_18.sce @@ -0,0 +1,6 @@ +//Force developed in member DF
+//refer fig. 8.23
+//Applying virtual work principle
+//-100*10*delta(theta)-100*5*delta(theta)+FDF*5*delta(theta)*cosd(45)=0
+FDF=1500/(5*cosd(45)) //kN (tensile)
+printf("Thus force developed in member DF is FDF=%.2f kN (Tensile)",FDF)
diff --git a/3886/CH8/EX8.18/8_18.txt b/3886/CH8/EX8.18/8_18.txt new file mode 100644 index 000000000..04c06d618 --- /dev/null +++ b/3886/CH8/EX8.18/8_18.txt @@ -0,0 +1,3 @@ +
+--> exec('E:\My program EM\8. Virtual work\8.18.sce', -1)
+Thus force developed in member DF is FDF=424.26 kN (Tensile)
\ No newline at end of file diff --git a/3886/CH8/EX8.2/8_2.sce b/3886/CH8/EX8.2/8_2.sce new file mode 100644 index 000000000..c1d5c8f5c --- /dev/null +++ b/3886/CH8/EX8.2/8_2.sce @@ -0,0 +1,7 @@ +//Reactions developed in beam
+//refer fig 8.6
+//Let RA and RB be the reactions at supports A and B
+//applying virtual work principle
+RB=(20/3)+(80/3) //kN
+RA=(40/3)+(40/3) //kN
+printf("Reactions are-\nRA=%.2f kN\nRB=%.2f kN",RA,RB)
diff --git a/3886/CH8/EX8.2/8_2.txt b/3886/CH8/EX8.2/8_2.txt new file mode 100644 index 000000000..4ef7f3fa2 --- /dev/null +++ b/3886/CH8/EX8.2/8_2.txt @@ -0,0 +1,5 @@ +
+--> exec('E:\My program EM\8. Virtual work\8.2.sce', -1)
+Reactions are-
+RA=26.67 kN
+RB=33.33 kN
\ No newline at end of file diff --git a/3886/CH8/EX8.3/8_3.sce b/3886/CH8/EX8.3/8_3.sce new file mode 100644 index 000000000..46e19ea52 --- /dev/null +++ b/3886/CH8/EX8.3/8_3.sce @@ -0,0 +1,6 @@ +//Reactions of overhanging beam
+//refer fig. 8.7
+//Applying virtual work principle for beam in equilibrium
+RB=(8/6)*(30+60*4/8-20/8) //kN
+RA=(7/6)*(20+60*2/7-30*2/7) //kN
+printf("The reactions are-\nRA=%0.2f kN\nRB=%.2f kN",RA,RB)
diff --git a/3886/CH8/EX8.3/8_3.txt b/3886/CH8/EX8.3/8_3.txt new file mode 100644 index 000000000..281ed61d3 --- /dev/null +++ b/3886/CH8/EX8.3/8_3.txt @@ -0,0 +1,5 @@ +
+--> exec('E:\My program EM\8. Virtual work\8.3.sce', -1)
+The reactions are-
+RA=33.33 kN
+RB=76.67 kN
\ No newline at end of file diff --git a/3886/CH8/EX8.4/8_4.sce b/3886/CH8/EX8.4/8_4.sce new file mode 100644 index 000000000..6abb120a4 --- /dev/null +++ b/3886/CH8/EX8.4/8_4.sce @@ -0,0 +1,7 @@ +//Reactions at A
+//refer fig. 8.8
+//applying virtual work principle
+//(RA-60)delta(y)=0
+//thus
+RA=60 //kN
+printf("\n Reaction is RA=%.2f kN",RA)
diff --git a/3886/CH8/EX8.4/8_4.txt b/3886/CH8/EX8.4/8_4.txt new file mode 100644 index 000000000..18ccdf0ae --- /dev/null +++ b/3886/CH8/EX8.4/8_4.txt @@ -0,0 +1,4 @@ +
+--> exec('E:\My program EM\8. Virtual work\8.4.sce', -1)
+
+ Reaction is RA=60.00 kN
\ No newline at end of file diff --git a/3886/CH8/EX8.5/8_5.sce b/3886/CH8/EX8.5/8_5.sce new file mode 100644 index 000000000..4bd95c5b9 --- /dev/null +++ b/3886/CH8/EX8.5/8_5.sce @@ -0,0 +1,11 @@ +//Reaction at A in overhanging beam
+//refer fig. 8.9
+//Applying virtual work principle
+//(-2*RA+180-20)*delta(y)=0
+//Thus
+RA=(180-20)/2 //kN
+printf("\n Reaction is RA=%.2f kN",RA)
+
+
+
+
diff --git a/3886/CH8/EX8.5/8_5.txt b/3886/CH8/EX8.5/8_5.txt new file mode 100644 index 000000000..a936f647e --- /dev/null +++ b/3886/CH8/EX8.5/8_5.txt @@ -0,0 +1,4 @@ +
+--> exec('E:\My program EM\8. Virtual work\8.5.sce', -1)
+
+ Reaction is RA=80.00 kN
\ No newline at end of file diff --git a/3886/CH8/EX8.6/8_6.sce b/3886/CH8/EX8.6/8_6.sce new file mode 100644 index 000000000..e0bbe045f --- /dev/null +++ b/3886/CH8/EX8.6/8_6.sce @@ -0,0 +1,7 @@ +//Reaction at B
+//refer fig. 8.10
+//Applying virtual work principle
+//(-4-6+RB)*delta(y)=0
+//Thus
+RB=6+4 //kN
+printf("Reaction at B is RB=%.2f kN",RB)
diff --git a/3886/CH8/EX8.6/8_6.txt b/3886/CH8/EX8.6/8_6.txt new file mode 100644 index 000000000..e2dc2ec61 --- /dev/null +++ b/3886/CH8/EX8.6/8_6.txt @@ -0,0 +1,3 @@ +
+--> exec('E:\My program EM\8. Virtual work\8.6.sce', -1)
+Reaction at B is RB=10.00 kN
\ No newline at end of file diff --git a/3886/CH8/EX8.7/8_7.sce b/3886/CH8/EX8.7/8_7.sce new file mode 100644 index 000000000..3050647db --- /dev/null +++ b/3886/CH8/EX8.7/8_7.sce @@ -0,0 +1,8 @@ +//Determine reaction RA
+//refer fig. 8.11
+//give virtual displacement at A
+//Applying virtual work principle
+//(RA-32+8+0+4)*delta(y)=0
+RA=32-8-4 //kN
+printf("Reaction at A is RA=%.2f kN",RA)
+
diff --git a/3886/CH8/EX8.7/8_7.txt b/3886/CH8/EX8.7/8_7.txt new file mode 100644 index 000000000..6e57c581d --- /dev/null +++ b/3886/CH8/EX8.7/8_7.txt @@ -0,0 +1,3 @@ +
+--> exec('E:\My program EM\8. Virtual work\8.7.sce', -1)
+Reaction at A is RA=20.00 kN
\ No newline at end of file diff --git a/3886/CH8/EX8.8/8_8.sce b/3886/CH8/EX8.8/8_8.sce new file mode 100644 index 000000000..0c9cacbb7 --- /dev/null +++ b/3886/CH8/EX8.8/8_8.sce @@ -0,0 +1,8 @@ +//Determine reaction RA
+//refer fig.8.12
+//Applying virtual work principle
+//give virtual displacement at A
+//Virtual work equation is
+//(RA-20+8)*delta(y)=0
+RA=20-8 //kN
+printf("The reaction RA=%.2d kN",RA)
\ No newline at end of file diff --git a/3886/CH8/EX8.8/8_8.txt b/3886/CH8/EX8.8/8_8.txt new file mode 100644 index 000000000..805fc6b8f --- /dev/null +++ b/3886/CH8/EX8.8/8_8.txt @@ -0,0 +1,3 @@ +
+--> exec('E:\My program EM\8. Virtual work\8.8.sce', -1)
+The reaction RA=12 kN
\ No newline at end of file |