5 files changed, 69 insertions, 0 deletions
diff --git a/213/CH9/EX9.1/9_1.sce b/213/CH9/EX9.1/9_1.sce
new file mode 100755
index 000000000..6d4a6b32e
--- /dev/null
+++ b/213/CH9/EX9.1/9_1.sce
@@ -0,0 +1,9 @@
+//To find inclination of track arm
+clc
+//Given:
+c=1.2,b=2.7 //m
+//Solution:
+//Calculating the inclination of the track arm to the longitudinal axis
+alpha=atan(c/(2*b))*180/%pi //degrees
+//Results:
+printf("\n\n Inclination of the track arm to the longitudinal axis, alpha = %.1f degrees.\n\n",alpha)
+\ No newline at end of file
diff --git a/213/CH9/EX9.3/9_3.sce b/213/CH9/EX9.3/9_3.sce
new file mode 100755
index 000000000..d28eefb00
--- /dev/null
+++ b/213/CH9/EX9.3/9_3.sce
@@ -0,0 +1,13 @@
+//To find the angle turned
+clc
+//Given:
+alpha=18*%pi/180 //radians
+//Solution:
+//Maximum velocity is possible when
+theta1=0,theta2=180 //degrees
+//Calculating the angle turned by the driving shaft when the velocity ratio is unity
+theta3=acos(sqrt((1-cos(alpha))/(sin(alpha)^2)))*180/%pi //degrees
+theta4=180-theta3 //degrees
+//Results:
+printf("\n\n Angle turned by the driving shaft when the velocity ratio is maximum, theta = %d degrees or %d degrees.\n",theta1,theta2)
+printf(" Angle turned by the driving shaft when the velocity ratio is unity, theta = %.1f degrees or %.1f degrees.\n\n",theta3,theta4)
+\ No newline at end of file
diff --git a/213/CH9/EX9.4/9_4.sce b/213/CH9/EX9.4/9_4.sce
new file mode 100755
index 000000000..36f82a206
--- /dev/null
+++ b/213/CH9/EX9.4/9_4.sce
@@ -0,0 +1,13 @@
+//To find the greatest permissible angle
+clc
+//Given:
+N=500 //rpm
+//Solution:
+//Calculating the angular velocity of the driving shaft
+omega=2*%pi*N/60 //rad/s
+//Calculating the total fluctuation of speed of the driven shaft
+q=12/100*omega //rad/s
+//Calculating the greatest permissible angle between the centre lines of the shafts
+alpha=acos((-(q/omega)+sqrt(0.12^2+4))/2)*180/%pi //degrees
+//Results:
+printf("\n\n Greatest permissible angle between the centre lines of the shafts, alpha = %.2f degrees.\n\n",alpha)
+\ No newline at end of file
diff --git a/213/CH9/EX9.5/9_5.sce b/213/CH9/EX9.5/9_5.sce
new file mode 100755
index 000000000..a9b9a5f07
--- /dev/null
+++ b/213/CH9/EX9.5/9_5.sce
@@ -0,0 +1,15 @@
+//To find speeds and permissible angle
+clc
+//Given:
+N=1200,q=100 //rpm
+//Solution:
+//Calculating the greatest permissible angle between the centre lines of the shafts
+alpha=acos((-(100/1200)+sqrt(0.083^2+4))/2)*180/%pi //degrees
+//Calculating the maximum speed of the driven shaft
+N1max=N/cosd(alpha) //rpm
+//Calculating the minimum speed of the driven shaft
+N1min=N*cosd(alpha) //rpm
+//Results:
+printf("\n\n Greatest permissible angle between the centre lines of the shafts, alpha = %.1f degrees.\n",alpha)
+printf(" Maximum speed of the driven shaft, N1(max) = %d rpm.\n",N1max)
+printf(" Minimum speed of the driven shaft, N1(min) = %d rpm.\n\n",N1min)
+\ No newline at end of file
diff --git a/213/CH9/EX9.7/9_7.sce b/213/CH9/EX9.7/9_7.sce
new file mode 100755
index 000000000..f8f4ebb92
--- /dev/null
+++ b/213/CH9/EX9.7/9_7.sce
@@ -0,0 +1,19 @@
+//To find speeds of shafts
+clc
+//Given:
+alpha=20 //degrees
+NA=500 //rpm
+//Solution:
+//Calculating the maximum speed of the intermediate shaft
+NBmax=NA/cosd(alpha) //rpm
+//Calculating the minimum speed of the intermediate shaft
+NBmin=NA*cosd(alpha) //rpm
+//Calculating the maximum speed of the driven shaft
+NCmax=NBmax/cosd(alpha) //rpm
+//Calculating the minimum speed of the driven shaft
+NCmin=NBmin*cosd(alpha) //rpm
+//Results:
+printf("\n\n Maximum speed of the intermediate shaft, NB(max) = %.1f rad/s.\n",NBmax)
+printf(" Minimum speed of the intermediate shaft, NB(min) = %.2f rad/s.\n",NBmin)
+printf(" Maximum speed of the driven shaft, NC(max) = %.2f rad/s.\n",NCmax)
+printf(" Minimum speed of the driven shaft, NC(min) = %.1f rad/s.\n",NCmin)
+\ No newline at end of file