initial commit / add all books

14 files changed, 166 insertions, 0 deletions

diff --git a/2381/CH12/EX12.1/ex_1.sce b/2381/CH12/EX12.1/ex_1.sce
new file mode 100755
index 000000000..1b1a3786f
--- /dev/null
+++ b/2381/CH12/EX12.1/ex_1.sce
@@ -0,0 +1,8 @@
+//Example 1// Speed
+clc;
+clear;
+close;
+//given data :
+vl=166;//m/s
+v=(2*vl);//m/s
+disp(v,"speed is,(m/s)")
diff --git a/2381/CH12/EX12.10/ex_10.sce b/2381/CH12/EX12.10/ex_10.sce
new file mode 100755
index 000000000..1ca088ce4
--- /dev/null
+++ b/2381/CH12/EX12.10/ex_10.sce
@@ -0,0 +1,14 @@
+//Example 10//frequency
+clc;
+clear;
+close;
+sa=1.5;//km
+oa=1;//km
+so=sqrt(oa^2+sa^2);//km
+csd=sa/so;//
+v=0.33;//km/s
+n=400;//Hz
+vlov=120*(1000/3600);//m/s
+vs1=(1/30)*csd;//km/s
+nd=((v)/(v-vs1))*n;//vibrations/sec
+disp(round(nd),"apparent frequency is,(vibrations/second)=")
diff --git a/2381/CH12/EX12.11/ex_11.sce b/2381/CH12/EX12.11/ex_11.sce
new file mode 100755
index 000000000..d444af42a
--- /dev/null
+++ b/2381/CH12/EX12.11/ex_11.sce
@@ -0,0 +1,15 @@
+//Example 11//frequency
+clc;
+clear;
+close;
+v=1200;//km/h
+w=40;//km/h
+vs=40;//km/h
+n=580;//Hz
+nd=((v+vs)/((v+vs)-vs))*n;//Hz
+disp(nd,"frequency of the whistle as heared by an observer on the hill is ,(Hz)=")
+x=29/30;//km
+disp(x*1000,"distance is ,(m)=")
+ndd=((v-w)+vs)/((v-w))*nd;//Hz
+disp(ndd,"frequency heared by driver is,(Hz)=")
+//distance is calculated wrong in the textbook
diff --git a/2381/CH12/EX12.12/ex_12.sce b/2381/CH12/EX12.12/ex_12.sce
new file mode 100755
index 000000000..648a48c87
--- /dev/null
+++ b/2381/CH12/EX12.12/ex_12.sce
@@ -0,0 +1,11 @@
+//Example 12//doppler shift and velocity
+clc;
+clear;
+close;
+h1=6010;//Å
+h2=6000;//Å
+ds=h1-h2;//Å
+disp(ds,"doppler shift is ,(Å)=")
+c=3*10^8;//m/s
+v=((ds/h2)*c);//m/s
+disp(v,"speed is ,(m/s)=")
diff --git a/2381/CH12/EX12.13/ex_13.sce b/2381/CH12/EX12.13/ex_13.sce
new file mode 100755
index 000000000..9102f1dc6
--- /dev/null
+++ b/2381/CH12/EX12.13/ex_13.sce
@@ -0,0 +1,12 @@
+//Example 13//doppler shift and velocity
+clc;
+clear;
+close;
+h1=3737;//Å
+h2=3700;//Å
+ds=h1-h2;//Å
+disp(ds,"doppler shift is ,(Å)=")
+c=3*10^8;//m/s
+v=((ds/h2)*c);//m/s
+disp(v,"speed is ,(m/s)=")
+//speed is  calculated wrong in the textbook
diff --git a/2381/CH12/EX12.14/ex_14.sce b/2381/CH12/EX12.14/ex_14.sce
new file mode 100755
index 000000000..7b5414636
--- /dev/null
+++ b/2381/CH12/EX12.14/ex_14.sce
@@ -0,0 +1,9 @@
+//Example 14//speed
+clc;
+clear;
+close;
+dv=10^3;//Hz
+v=5*10^9;//Hz
+c=3*10^8;//m/s
+v=((dv)/(2*v))*c;//m/s
+disp(v,"velocity is ,(m/s)=")
diff --git a/2381/CH12/EX12.2/ex_2.sce b/2381/CH12/EX12.2/ex_2.sce
new file mode 100755
index 000000000..88478badc
--- /dev/null
+++ b/2381/CH12/EX12.2/ex_2.sce
@@ -0,0 +1,8 @@
+//Example 2// frequency
+clc;
+clear;
+close;
+//given data :
+f1=90;//vibrations/second
+f2=(1+(1/10))*f1;//vibrations/s
+disp(f2,"frequency is,(vibrations/s)=")
diff --git a/2381/CH12/EX12.3/ex_3.sce b/2381/CH12/EX12.3/ex_3.sce
new file mode 100755
index 000000000..8f837f676
--- /dev/null
+++ b/2381/CH12/EX12.3/ex_3.sce
@@ -0,0 +1,13 @@
+//Example 3// frequency
+clc;
+clear;
+close;
+//given data :
+N=400;//hZ
+V=340;//M/S
+VS=60;//M/S
+N2=((V/(V-VS))*N);//Hz
+disp(round(N2),"frequency when engine is approaching to the listner is,(Hz)=")
+N3=((V/(V+VS))*N);//Hz
+disp(N3,"frequency when engine is moving away from the listner is,(Hz)=")
+
diff --git a/2381/CH12/EX12.4/ex_4.sce b/2381/CH12/EX12.4/ex_4.sce
new file mode 100755
index 000000000..5a4df5fbb
--- /dev/null
+++ b/2381/CH12/EX12.4/ex_4.sce
@@ -0,0 +1,10 @@
+//Example 4//WAVELENGTH
+clc;
+clear;
+close;
+x=1/5;//
+h=60;//cm
+h1=((1-x)*h);//cm
+h2=((1+x)*h);//cm
+disp(h1,"wavelength of waves in north-direction is,(cm)=")
+disp(h2,"wavelength of waves in south-direction is,(cm)=")
diff --git a/2381/CH12/EX12.5/ex_5.sce b/2381/CH12/EX12.5/ex_5.sce
new file mode 100755
index 000000000..bc46ea231
--- /dev/null
+++ b/2381/CH12/EX12.5/ex_5.sce
@@ -0,0 +1,16 @@
+//Example 5//frequency
+clc;
+clear;
+close;
+v=340;//m/s
+n=600;//Hz
+vs=36;//km h^-1
+vs1=vs*(1000/3600);//m/s
+apf=((v)/(v-vs1))*n;//Hz
+vs2=54;//km h^-1
+vs3=vs2*(1000/3600);//m/s
+apf1=((v)/(v+vs3))*n;//Hz
+disp("two apparent frequencies are "+string(apf)+" Hz and "+string(apf1)+" Hz")
+df=apf-apf1;//Hz
+disp(df,"difference in frequencies is ,(Hz)=")
+//second apparent frequency and difference is calculated wrong in the textbook
diff --git a/2381/CH12/EX12.6/ex_6.sce b/2381/CH12/EX12.6/ex_6.sce
new file mode 100755
index 000000000..f72f29bac
--- /dev/null
+++ b/2381/CH12/EX12.6/ex_6.sce
@@ -0,0 +1,12 @@
+//Example 6//frequency
+clc;
+clear;
+close;
+v=330;//m/s
+n=500;//Hz
+vs=30;//km h^-1
+vs1=vs*(1000/3600);//m/s
+n3=((v+vs1)/(v-vs1))*n;//Hz
+disp(round(n3),"frequency when cars are approaching is ,(Hz)=")
+n1=((v-vs1)/(v+vs1))*n;//Hz
+disp(round(n1),"frequency when cars have crossed  is ,(Hz)=")
diff --git a/2381/CH12/EX12.7/ex_7.sce b/2381/CH12/EX12.7/ex_7.sce
new file mode 100755
index 000000000..999639de4
--- /dev/null
+++ b/2381/CH12/EX12.7/ex_7.sce
@@ -0,0 +1,13 @@
+//Example 7//frequency
+clc;
+clear;
+close;
+v=330;//m/s
+n=600;//Hz
+vs=20;//m/s
+apf=((v)/(v+vs))*n;//Hz
+disp(round(apf),"frequency when source is moving away from the observer is ,(Hz)=")
+apf1=((v)/(v-vs))*n;//Hz
+disp(round(apf1),"frequency when siren reaching at the cliff is ,(Hz)=")
+bf=apf1-apf;//Hz
+disp(round(bf),"beat frequency is ,(Hz)=")
diff --git a/2381/CH12/EX12.8/ex_8.sce b/2381/CH12/EX12.8/ex_8.sce
new file mode 100755
index 000000000..74795b381
--- /dev/null
+++ b/2381/CH12/EX12.8/ex_8.sce
@@ -0,0 +1,16 @@
+//Example 8//frequency
+clc;
+clear;
+close;
+r=3;//m
+w=10;//s^-1
+vs=r*w;//m/s
+A=6;//m
+fd=5/%pi;//s^-1
+vmax=A*2*%pi*fd;//m/s
+v=330;//m/s
+n=340;//Hz
+nmax=((v+vmax)/(v-vs))*n;//Hz
+nmin=((v-vmax)/(v+vs))*n;//Hz
+disp(nmax,"maximum frequency is,(Hz)=")
+disp(nmin,"minimum frequency is ,(Hz)=")
diff --git a/2381/CH12/EX12.9/ex_9.sce b/2381/CH12/EX12.9/ex_9.sce
new file mode 100755
index 000000000..6b9d65669
--- /dev/null
+++ b/2381/CH12/EX12.9/ex_9.sce
@@ -0,0 +1,9 @@
+//Example 9//speed
+clc;
+clear;
+close;
+n12=3;//
+n=340;//Hz
+v=340;//m/s
+vs=((n12*v)/(2*n));//m/s
+disp(vs,"speed is ,(m/s)=")