diff options
Diffstat (limited to '3456/CH17')
| -rw-r--r-- | 3456/CH17/EX17.1/Ex17_1.sce | 13 | ||||
| -rw-r--r-- | 3456/CH17/EX17.2/Ex17_2.sce | 20 | ||||
| -rw-r--r-- | 3456/CH17/EX17.3/Ex17_3.sce | 24 | ||||
| -rw-r--r-- | 3456/CH17/EX17.4/Ex17_4.sce | 21 |
4 files changed, 78 insertions, 0 deletions
diff --git a/3456/CH17/EX17.1/Ex17_1.sce b/3456/CH17/EX17.1/Ex17_1.sce new file mode 100644 index 000000000..2a316728e --- /dev/null +++ b/3456/CH17/EX17.1/Ex17_1.sce @@ -0,0 +1,13 @@ +//Example 17.1
+//Forces in rolling
+//Page No. 596
+clc;clear;close;
+
+mu=0.08; //no unit
+R=12; //in inches
+alpha=atand(mu);
+dh=mu^2*R;
+printf('\nMaximum possible reduction when mu is 0.08 = %g in\n',dh);
+mu=0.5; //no unit
+dh=mu^2*R;
+printf('Maximum possible reduction when mu is 0.5 = %g in',dh);
diff --git a/3456/CH17/EX17.2/Ex17_2.sce b/3456/CH17/EX17.2/Ex17_2.sce new file mode 100644 index 000000000..b82483733 --- /dev/null +++ b/3456/CH17/EX17.2/Ex17_2.sce @@ -0,0 +1,20 @@ +//Example 17.2
+//Rolling Load
+//Page No. 598
+clc;clear;close;
+
+h0=1.5; //in inches
+mu=0.3; //no unit
+D=36; //in inches
+s_en=20; //in ksi
+s_ex=30; //in ksi
+h1=h0-0.3*h0;
+dh=h0-h1;
+h_=(h1+h0)/2;
+Lp=sqrt(D/2*dh);
+Q=mu*Lp/h_;
+sigma0=(s_en+s_ex)/2;
+P=sigma0*(exp(Q)-1)*s_ex*Lp/Q;
+printf('\nRolling Load = %g kips',P);
+P=sigma0*(Lp/(4*dh)+1)*s_ex*Lp;
+printf('\nRolling Load if sticking friction occurs = %g kips',P);
diff --git a/3456/CH17/EX17.3/Ex17_3.sce b/3456/CH17/EX17.3/Ex17_3.sce new file mode 100644 index 000000000..9bfcf6ee6 --- /dev/null +++ b/3456/CH17/EX17.3/Ex17_3.sce @@ -0,0 +1,24 @@ +//Example 17.3
+//Rolling Load
+//Page No. 599
+clc;clear;close;
+
+h0=1.5; //in inches
+mu=0.3; //no unit
+D=36; //in inches
+s_en=20; //in ksi
+s_ex=30; //in ksi
+C=3.34*10^-4; //in inches^2/ton
+P_=1357; //in tons
+h1=h0-0.3*h0;
+dh=h0-h1;
+h_=(h1+h0)/2;
+R=D/2;
+R1=R*(1+C*P_/(s_ex*(dh)));
+Lp=sqrt(R1*dh);
+Q=mu*Lp/h_;
+sigma0=(s_en+s_ex)/2;
+P2=sigma0*(exp(Q)-1)*s_ex*Lp/Q;
+P2=P2*0.45359 ///conversion to tons
+R2=R*(1+C*P2/(s_ex*(dh)));
+printf('\nP2 = %g tons\nR2 = %g in',P2,R2);
diff --git a/3456/CH17/EX17.4/Ex17_4.sce b/3456/CH17/EX17.4/Ex17_4.sce new file mode 100644 index 000000000..5771005a6 --- /dev/null +++ b/3456/CH17/EX17.4/Ex17_4.sce @@ -0,0 +1,21 @@ +//Example 17.4
+//Torque and Horsepower
+//Page No. 614
+clc;clear;close;
+
+w=12; //in inches
+hi=0.8; //in inches
+hf=0.6; //in inches
+D=40; //in inches
+N=100; //in rpm
+R=D/2;
+dh=abs(hf-hi);
+e1=log(hi/hf);
+r=(hi-hf)/hi;
+sigma=20*e1^0.2/1.2;
+Qp=1.5; //no unit
+P=2*sigma*w*(R*(hi-hf))^(1/2)*Qp/sqrt(3);
+a=0.5*sqrt(R*dh);
+a=a/12; //conversion to ft
+hp=4*%pi*a*P*N*1000/33000;
+printf('\nRolling Load = %g\nHorsepower = %g',P,hp);
|