initial commit / add all books

8 files changed, 197 insertions, 0 deletions

diff --git a/3482/CH8/EX8.1/Ex8_1.sce b/3482/CH8/EX8.1/Ex8_1.sce
new file mode 100644
index 000000000..bcc4dfdf7
--- /dev/null
+++ b/3482/CH8/EX8.1/Ex8_1.sce
@@ -0,0 +1,25 @@
+clc;

+//page 396

+

+h=100;//lb, horizontal force

+W=300;//lb, weight of block

+

+us=0.2;// Coeffiecient of static friction

+uk=0.20;//Co=efficient of kinetic friction

+

+//Applying sumFx =0 , we get

+F=h-3/5*W;//lb, Force along plane

+F=-F

+

+//Applying sumFy=0, we get

+N=4/5*W//lb, Normal force to the plane

+

+

+printf("Force F required to maintain the equillibrium is thus %.0f lb, up and to right\n",F);

+

+// Maximum friction force

+Fm=us*N;//lb,Maximum friction force

+printf("\n Maximum friction force is %.2f lb is less than that of required to maintain equillibrium that is %.2f lb \n So, equillibrium will nat maintain and block wil move down\n",Fm,F);

+// Actual value of friction force

+Fk=(0.6*300)-(h)-(Fm);//lb, Actual value of friction force

+printf("\nActual value of friction force is %.2f lb directed up and to the right\n",Fk);

diff --git a/3482/CH8/EX8.2/Ex8_2.sce b/3482/CH8/EX8.2/Ex8_2.sce
new file mode 100644
index 000000000..a1bcff21f
--- /dev/null
+++ b/3482/CH8/EX8.2/Ex8_2.sce
@@ -0,0 +1,27 @@
+clc;
+
+//page 397
+F=800;//N Firce in verical direction
+us=0.35;// Coeffiecient of static friction
+uk=0.25;//Co=efficient of kinetic friction
+theta=25;//degree, angle of inclination
+theta=theta*%pi/180;//rad, Conversion into radian
+// Force P start block moving up
+// At static equillibrium Tan(Theta_s)=us
+theta_s=atan(us);//rad
+P=F*tan(theta+theta_s);//N,Force P to start block moving up
+printf("Force P to start block moving up is %.0f N\n",P);
+
+
+// Force P to keep block moving up
+// At kinetic equillibrium Tan(Theta_k)=uk
+theta_k=atan(uk);//rad
+P=F*tan(theta+theta_k);//N,Force P to keep block moving up
+printf("Force P to keep block moving up is %.0f N\n",P);
+
+
+// Force P to prevent  block from sliding down
+
+theta_s=atan(us);//rad
+P=F*tan(theta-theta_s);//N,Force P to prevent  block from sliding down
+printf("Force P to prevent  block from sliding down is %.0f N\n",P);
diff --git a/3482/CH8/EX8.3/Ex8_3.sce b/3482/CH8/EX8.3/Ex8_3.sce
new file mode 100644
index 000000000..d8ed26fbc
--- /dev/null
+++ b/3482/CH8/EX8.3/Ex8_3.sce
@@ -0,0 +1,6 @@
+clc;

+us=0.25;// Coeffiecient of static friction

+//Applying equillibrium equation we get relation in x

+printf("Apply equillibrium equations. It is theoritical part. \n");

+x=12-(.75*2)+1.5//in, Distance at which the applied load can be supported

+printf("Minimum distance at which the applied load can be supported is %.0f in\n",x);

diff --git a/3482/CH8/EX8.4/Ex8_4.sce b/3482/CH8/EX8.4/Ex8_4.sce
new file mode 100644
index 000000000..56d0687a3
--- /dev/null
+++ b/3482/CH8/EX8.4/Ex8_4.sce
@@ -0,0 +1,54 @@
+clc;

+//page 411

+F=400;//lb, force exerte

+us=0.35;// Coeffiecient of static friction

+phi=atand(us);//rad, angle of friction

+//disp(phi)

+theta=8;//degree, angle of inclination

+theta=theta*%pi/180;//rad, Conversion into radian

+

+//Using sine rule

+//force p to raise block

+//free body , block B

+R1=F*sind(109.3)/(sind(43.4))

+//free body wedge A

+P=R1*sind(46.6)/(sind(70.7))

+printf(" force required to raise block is P=%.0f lb\n",P);

+

+//force to lower block

+//free body , block B

+R1=F*sind(70.7)/(sind(98.0))

+//free body wedge A

+P=R1*sind(30.6)/(sind(70.7))

+printf(" force required to lower block is P=%.0f lb\n",P);

+

+

+

+

+

+

+

+

+

+

+

+

+

+

+

+

+

+

+

+

+

+

+

+

+

+

+

+

+

+

+

diff --git a/3482/CH8/EX8.5/Ex8_5.sce b/3482/CH8/EX8.5/Ex8_5.sce
new file mode 100644
index 000000000..7fec8ecb3
--- /dev/null
+++ b/3482/CH8/EX8.5/Ex8_5.sce
@@ -0,0 +1,21 @@
+clc;
+
+//page 412
+pitch=2;//mm, pitch of screw
+d=10;//mm, mean diameter of thread
+r=d/2;//mm, radius
+us=0.30;// Coeffiecient of static friction
+M=40;//kN.m , Maximum couple
+
+//Force exerted by clamp
+L=2*pitch;//mm, as screw is double threaded
+theta=atan(L/(2*%pi*r));//rad, angle of inclination
+phi=atan(us);//rad, angle of friction
+Q=M/r*1000;//N, Force applied to block representing screw
+Q=Q/1000//kN, Conversion into kN
+W=Q/tan(theta+phi);//kN, Magnitude of force exerted on the piece of wood 
+printf("Magnitude of force exerted on the piece of wood  is W= %.2f kN \n",W);
+//Couple required to loosen clamp
+Q=W*tan(phi-theta);//kN, Force required to loosen clamp
+Couple=Q*r;//N.m, Couple required to loosen clamp
+printf("Couple  required to loosen clamp is %.2f N.m\n",Couple);
diff --git a/3482/CH8/EX8.6/Ex8_6.sce b/3482/CH8/EX8.6/Ex8_6.sce
new file mode 100644
index 000000000..4640616a0
--- /dev/null
+++ b/3482/CH8/EX8.6/Ex8_6.sce
@@ -0,0 +1,28 @@
+clc;
+clear all
+//Page 423
+r=1//in in
+us=0.20;// Coeffiecient of static friction between shaft and pully
+
+//Vertical Force required to raise load
+rf=r*us;//in, Perpendicular distance from the center Of pully to line of action 
+//summing moment about B
+P1=(2.20*500)/1.8//lb , downward Force required to raise load
+printf("Force required to raise load is %f lb in downward direction\n",P1);
+
+//Vertcal Force required to hold load
+
+//summing moment about C
+P=(1.80*500)/2.20//lb , downward Force required to hold load
+printf("Force required to hold load is %.0f lb in downward direction\n",P);
+
+//Horizontal force P to start raising the load
+OE=rf;//mm,
+OD=sqrt(2)*2;//in, pythagorus theorm
+theta=asin(OE/OD);//rad, 
+
+// from force triangle
+P=500*cotd(40.9);//lb, Horizontal force P to start raising the load
+printf("Horizontal force P required to start raising the load is %.0f lb\n",P);
+
+
diff --git a/3482/CH8/EX8.7/Ex8_7.sce b/3482/CH8/EX8.7/Ex8_7.sce
new file mode 100644
index 000000000..ce4e6b911
--- /dev/null
+++ b/3482/CH8/EX8.7/Ex8_7.sce
@@ -0,0 +1,18 @@
+clc;

+//page 431

+T1=150;//N, Force on free end of hawser

+T2=7500;//N, Force on other end of hawser

+

+

+//a, coefficient of friction

+bta=2*2*%pi;//rad, angle of contact, 2 turns

+//By equation 8.13

+us=log(T2/T1)/bta;// Co-efficient of static friction

+printf("Coefficient of static friction between hawser and ballard is us= %0.3f \n",us);

+

+//Number of wraps when tension in hawser=75 kN

+

+bta=3*2*%pi//in rad

+//One turn = 2* pi angle, bta corresponds to

+ten=T1*exp(bta*us)

+printf("Tension  is %f N \n ",ten);

diff --git a/3482/CH8/EX8.8/Ex8_8.sce b/3482/CH8/EX8.8/Ex8_8.sce
new file mode 100644
index 000000000..61419596d
--- /dev/null
+++ b/3482/CH8/EX8.8/Ex8_8.sce
@@ -0,0 +1,18 @@
+clc;

+//page 432

+//Given

+T2=600;//lb, Tension from side 2

+us=0.25;// Coeffiecient of static friction between pulley and belt

+bta=(2*%pi)/3;//Co=efficient of kinetic friction between pulley and belt

+r1=8//in in

+//Pulley B

+

+T1=T2/(exp(us*bta))//N, Tension from side 1

+//disp(T1)

+

+//Pulley A

+//Aumming moment about A

+MA=(T2*r1)-(T1*r1);//lb-ft, Couple MA applied to pulley which is equal and opposite to torque 

+

+printf("The largest torque which can be exerted by belt on pulley A is MA= %0.0f lb-in\n",MA);

+