16 files changed, 107 insertions, 0 deletions

diff --git a/3886/CH21/EX21.1/21_1.sce b/3886/CH21/EX21.1/21_1.sce
new file mode 100644
index 000000000..2c244ffc2
--- /dev/null
+++ b/3886/CH21/EX21.1/21_1.sce
@@ -0,0 +1,7 @@
+//S.H.M

+//a=-25*s

+omega=5

+//Period

+T=(2*%pi)/(5)  //sec

+f=(1/T)  //osc. per second

+printf("\nT=%.3f sec\nf=%.3f osc. per second",T,f) 

diff --git a/3886/CH21/EX21.1/21_1.txt b/3886/CH21/EX21.1/21_1.txt
new file mode 100644
index 000000000..9310f2774
--- /dev/null
+++ b/3886/CH21/EX21.1/21_1.txt
@@ -0,0 +1,5 @@
+ 

+--> exec('E:\My program EM\21. Mechanical vibration\21.1.sce', -1)

+

+T=1.257 sec

+f=0.796 osc. per second
\ No newline at end of file
diff --git a/3886/CH21/EX21.10/21_10.sce b/3886/CH21/EX21.10/21_10.sce
new file mode 100644
index 000000000..788f9a734
--- /dev/null
+++ b/3886/CH21/EX21.10/21_10.sce
@@ -0,0 +1,9 @@
+//Circular ring

+//refer fig. 21.9 (a) and (b)

+//Radius of gyration about centre of the ring

+//Kz^2=(((R1^2)+(R2^2))/(2))+R2^2

+//thus

+Kz=sqrt(((1+0.75*0.75)/(2))+(0.75^2))

+T=2*%pi*sqrt(1.34375/(9.81*0.75))  //sec

+printf("\nT=%.3f sec",T)

+

diff --git a/3886/CH21/EX21.10/21_10.txt b/3886/CH21/EX21.10/21_10.txt
new file mode 100644
index 000000000..65f4edaaf
--- /dev/null
+++ b/3886/CH21/EX21.10/21_10.txt
@@ -0,0 +1,4 @@
+ 

+--> exec('E:\My program EM\21. Mechanical vibration\21.10.sce', -1)

+

+T=2.685 sec
\ No newline at end of file
diff --git a/3886/CH21/EX21.2/21_2.sce b/3886/CH21/EX21.2/21_2.sce
new file mode 100644
index 000000000..b1c6b101b
--- /dev/null
+++ b/3886/CH21/EX21.2/21_2.sce
@@ -0,0 +1,9 @@
+//S.H.M

+r=0.75  //m

+T=1.2  //sec

+omega=((2*%pi)/(1.2))  //rad/sec

+vxmax=0.75*5.236  //m/sec

+axmax=0.75*5.236^2  //m/sec^2

+printf("\nvx(max)=%.3f m/sec\nax(max)=%.3f m/sec^2",vxmax,axmax)

+

+

diff --git a/3886/CH21/EX21.2/21_2.txt b/3886/CH21/EX21.2/21_2.txt
new file mode 100644
index 000000000..4b66afe8a
--- /dev/null
+++ b/3886/CH21/EX21.2/21_2.txt
@@ -0,0 +1,5 @@
+ 

+--> exec('E:\My program EM\21. Mechanical vibration\21.2.sce', -1)

+

+vx(max)=3.927 m/sec

+ax(max)=20.562 m/sec^2
\ No newline at end of file
diff --git a/3886/CH21/EX21.3/21_3.sce b/3886/CH21/EX21.3/21_3.sce
new file mode 100644
index 000000000..828ad6d5d
--- /dev/null
+++ b/3886/CH21/EX21.3/21_3.sce
@@ -0,0 +1,9 @@
+//Displacement

+//After 0.5 sec

+theta=5.236*0.5*(180/%pi)

+//displacement

+x=0.75*sind(150)  //m

+//Velocity

+vx=0.75*5.236*cosd(150)

+ax=0.375*5.236^2  //m/sec^2

+printf("\nx=%.3f m\nvx=%.3f m/sec\nax=%.2f ",x,vx,ax)

diff --git a/3886/CH21/EX21.3/21_3.txt b/3886/CH21/EX21.3/21_3.txt
new file mode 100644
index 000000000..e1c2d6949
--- /dev/null
+++ b/3886/CH21/EX21.3/21_3.txt
@@ -0,0 +1,6 @@
+ 

+--> exec('E:\My program EM\21. Mechanical vibration\21.3.sce', -1)

+

+x=0.375 m

+vx=-3.401 m/sec

+ax=10.28 
\ No newline at end of file
diff --git a/3886/CH21/EX21.4/21_4.sce b/3886/CH21/EX21.4/21_4.sce
new file mode 100644
index 000000000..2617b6d9d
--- /dev/null
+++ b/3886/CH21/EX21.4/21_4.sce
@@ -0,0 +1,13 @@
+//SHM

+//r*sind(theta1)=0.2

+//r*omega*cosd(theta1)=0.5

+//r*sind(theta2)=0.3

+//r*omega*cosd(theta2)=0.35

+//thus

+theta1=asind(0.44)

+r=(0.2)/(sind(26.1))  //m

+omega=1.225  //rad/sec^2

+vmax=0.454*1.225  //m/sec

+amax=-0.454*1.225^2  //m/sec^2

+f=(1.225)/(2*%pi)  //osc. per sec

+printf("\namax=%.3f m/sec^2\nf=%.3f osc. per. sec\nvmax=%.3f m/sec",amax,f,vmax)

diff --git a/3886/CH21/EX21.4/21_4.txt b/3886/CH21/EX21.4/21_4.txt
new file mode 100644
index 000000000..95cc9d2db
--- /dev/null
+++ b/3886/CH21/EX21.4/21_4.txt
@@ -0,0 +1,6 @@
+ 

+--> exec('E:\My program EM\21. Mechanical vibration\21.4.sce', -1)

+

+amax=-0.681 m/sec^2

+f=0.195 osc. per. sec

+vmax=0.556 m/sec
\ No newline at end of file
diff --git a/3886/CH21/EX21.6/21_6.sce b/3886/CH21/EX21.6/21_6.sce
new file mode 100644
index 000000000..f2914d433
--- /dev/null
+++ b/3886/CH21/EX21.6/21_6.sce
@@ -0,0 +1,3 @@
+//Period of simple pendulum

+T=2*%pi*sqrt(1.5/9.81)  //sec

+printf("\nT=%.2f sec",T)

diff --git a/3886/CH21/EX21.6/21_6.txt b/3886/CH21/EX21.6/21_6.txt
new file mode 100644
index 000000000..325e9f963
--- /dev/null
+++ b/3886/CH21/EX21.6/21_6.txt
@@ -0,0 +1,4 @@
+ 

+--> exec('E:\My program EM\21. Mechanical vibration\21.6.sce', -1)

+

+T=2.46 sec
\ No newline at end of file
diff --git a/3886/CH21/EX21.7/21_7.sce b/3886/CH21/EX21.7/21_7.sce
new file mode 100644
index 000000000..1808899a1
--- /dev/null
+++ b/3886/CH21/EX21.7/21_7.sce
@@ -0,0 +1,3 @@
+//Length of pendulum

+L=(1*9.81)/(4*%pi*%pi)  //m

+printf("\nL=%.3f m",L)

diff --git a/3886/CH21/EX21.7/21_7.txt b/3886/CH21/EX21.7/21_7.txt
new file mode 100644
index 000000000..102a9d197
--- /dev/null
+++ b/3886/CH21/EX21.7/21_7.txt
@@ -0,0 +1,4 @@
+ 

+--> exec('E:\My program EM\21. Mechanical vibration\21.7.sce', -1)

+

+L=0.248 m
\ No newline at end of file
diff --git a/3886/CH21/EX21.9/21_9.sce b/3886/CH21/EX21.9/21_9.sce
new file mode 100644
index 000000000..a7fc58991
--- /dev/null
+++ b/3886/CH21/EX21.9/21_9.sce
@@ -0,0 +1,16 @@
+//Compound pendulum

+//refer fig. 21.8

+//Length of uniform rod

+l=0.6  //m

+//Radius of uniform disc

+r=0.3  //m

+//Mass moment of inertia about centre of suspention

+Iz=((25*0.6^2)/(9.81*12))+((25*0.6^2)/(9.81*2*2))+((40*0.15^2)/(2*9.81))+((40*(0.6+0.15)^2)/(9.81))  //units

+M=((25)/(9.81))+((40)/(9.81))

+//Kzz^2=0.3992

+//Distance of centre of gravity of compound pendulum from centre of suspension

+r=(25*0.3+40*0.75)/(25+40)  //m

+T=2*%pi*sqrt((0.3992)/(0.5769))  //sec

+//equivalent length

+Le=(0.3992/0.5769)  //m

+printf("\T=%.3f sec\nLe=%.3f m",T,Le)

diff --git a/3886/CH21/EX21.9/21_9.txt b/3886/CH21/EX21.9/21_9.txt
new file mode 100644
index 000000000..6a0ea1909
--- /dev/null
+++ b/3886/CH21/EX21.9/21_9.txt
@@ -0,0 +1,4 @@
+ 

+--> exec('E:\My program EM\21. Mechanical vibration\21.9.sce', -1)

+T=5.227 sec

+Le=0.692 m
\ No newline at end of file