summaryrefslogtreecommitdiff
path: root/3020/CH4/EX4.12/ex4_12.sce
blob: e35efed8235dd84d4c34dbeb68a300e00489a68b (plain)
1
2
3
4
5
6
7
8
9
10
clc;
clear all;
s = 1.4; // Area of window in square meters
b = 60; // Intensity level of window in Db
I0 = 1e-12; // Standard intensity in watts per square meters
//60=10log10(I1/1e-12);
//so..
I1=I0*1e6;// Intensity of sound in watts per square meters
p = I1*s;//The acoustic power entering via window
disp('watts',p,'The acoustic power entering via window is')