2 files changed, 19 insertions, 0 deletions
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