1 files changed, 16 insertions, 0 deletions
diff --git a/2084/CH16/EX16.8w/16_8w.sce b/2084/CH16/EX16.8w/16_8w.sce
new file mode 100755
index 000000000..d7af3a859
--- /dev/null
+++ b/2084/CH16/EX16.8w/16_8w.sce
@@ -0,0 +1,16 @@
+//developed in windows XP operating system 32bit
+//platform Scilab 5.4.1
+clc;clear;
+//example 16.8w
+//calculation of the amplitude of vibration of the particles of the air
+
+//given data
+I=2*10^-6//intensity(in W/m^2) of the sound wave
+nu=1*10^3//frequency(in Hz) of the sound wave
+rho0=1.2//density(in kg/m^3) of the air
+v=330//speed(in m/s) of the sound in the air
+
+//calculation
+s0=sqrt(I/(2*%pi^2*nu^2*rho0*v))//equation of displacement amplitide
+
+printf('the amplitude of vibration of the particles of the air is %3.1e m',s0)