initial commit / add all books

8 files changed, 99 insertions, 0 deletions

diff --git a/2708/CH6/EX6.1/ex_6_1.sce b/2708/CH6/EX6.1/ex_6_1.sce
new file mode 100755
index 000000000..d00a0c433
--- /dev/null
+++ b/2708/CH6/EX6.1/ex_6_1.sce
@@ -0,0 +1,13 @@
+//Example 6.1 // Equilibrium position time 

+clc;

+clear;

+//given data :

+A=.05;//Amplitude of SHM in m

+T=6;// period in sec

+Xo=A;// equilibrium position at t=0 position in m

+X=.025;//equilibrium position  in m

+w=2*%pi/T;// angular frequency in rad/sec

+ph=asin(Xo/A);// phase angle in radian

+t=(asin(X/A)-ph)/w// time for equilibrium position in sec

+t=abs(t);// it take positive magnitude

+disp(t,"time to move from Equilibrium position in sec") 

diff --git a/2708/CH6/EX6.2/ex_6_2.sce b/2708/CH6/EX6.2/ex_6_2.sce
new file mode 100755
index 000000000..a161e9e90
--- /dev/null
+++ b/2708/CH6/EX6.2/ex_6_2.sce
@@ -0,0 +1,9 @@
+//Example 6.2 // Maximum velocity in SHM 

+clc;

+clear;

+//given data :

+A=.06;// Amplitude of SHM in m

+T=31.4;// period in sec

+w=2*%pi/T;// angular frequency in rad/sec

+V=A*w;// maximum velocity in m/s

+disp(V,"Maximum velocity in m/s" )

diff --git a/2708/CH6/EX6.3/ex_6_3.sce b/2708/CH6/EX6.3/ex_6_3.sce
new file mode 100755
index 000000000..01e7683f8
--- /dev/null
+++ b/2708/CH6/EX6.3/ex_6_3.sce
@@ -0,0 +1,9 @@
+//Example 6.3 // Period of Oscillation 

+clc;

+clear;

+//given data :

+l=1;// length of pendulum in m

+m=1;// mass of pendulum in kg

+g=9.8;//acceleration of gravity in m/s2

+T=2*%pi*sqrt(l/g);//time period

+disp(T,"Period of Oscillation in sec")

diff --git a/2708/CH6/EX6.4/ex_6_4.sce b/2708/CH6/EX6.4/ex_6_4.sce
new file mode 100755
index 000000000..2ffe50851
--- /dev/null
+++ b/2708/CH6/EX6.4/ex_6_4.sce
@@ -0,0 +1,13 @@
+//Example 6.4 // Period of Oscillation 

+clc;

+clear;

+//given data :

+m1=8;// mass suspended in kg

+l=.32;// length of spring stretched in m

+m=.5;// new mass suspended in kg

+g=9.8;//acceleration of gravity in m/s2

+k=m1*g/l;// force constant  of spring in N/m

+disp(k)

+T=2*%pi*sqrt(m/k);// time period of Oscillation

+disp(T,"Time Period of Oscillation sec")

+// in book it is wrongly calculated

diff --git a/2708/CH6/EX6.6/ex_6_6.sce b/2708/CH6/EX6.6/ex_6_6.sce
new file mode 100755
index 000000000..0c6a8626b
--- /dev/null
+++ b/2708/CH6/EX6.6/ex_6_6.sce
@@ -0,0 +1,12 @@
+//Example 6.6 // oscillation time 

+clc;

+clear;

+//given data :

+r=10;//ratio of energies 

+Q=1D4;//quality factor

+v=250;// frequency of fork in cycles/s

+w=2*%pi*v;//angular frequency in rad/sec

+T=Q/w;// relaxation time in sec

+t=T*log(r);// time in sec

+disp(t,"time to become new energy in sec")

+

diff --git a/2708/CH6/EX6.7/ex_6_7.sce b/2708/CH6/EX6.7/ex_6_7.sce
new file mode 100755
index 000000000..ed95eeb35
--- /dev/null
+++ b/2708/CH6/EX6.7/ex_6_7.sce
@@ -0,0 +1,11 @@
+//Example 6.7 // Equilibrium position time 

+clc;

+clear;

+//given data :

+r=exp(2);//ratio of amplitude

+Q=2D3;//quality factor

+v=240;// frequency of fork in cycles/s

+w=2*%pi*v;//angular frequency in rad/sec

+T=Q/w;// relaxation time in sec

+t=2*T*log(r);//time for ne amplitude

+disp(t,"time to become for new amplitude in sec")

diff --git a/2708/CH6/EX6.8/ex_6_8.sce b/2708/CH6/EX6.8/ex_6_8.sce
new file mode 100755
index 000000000..97d243dca
--- /dev/null
+++ b/2708/CH6/EX6.8/ex_6_8.sce
@@ -0,0 +1,15 @@
+//Example 6.8 

+clc;

+clear;

+//part a :

+Ao=.1;// amplitude at minimum frequency in mm

+A=100;//maximum amplitude

+Q=A/Ao;//quality factor

+disp(Q,"Quality factor")

+//part b

+w=100;//resonance frequency in rad/sec

+T=Q/w;//energy decay time

+disp(T,"energy decay time in sec")

+//part c

+hw=1/(2*T);// half width of power resonance curve

+disp(hw,"half width of power resonance curve in rad/sec")

diff --git a/2708/CH6/EX6.9/ex_6_9.sce b/2708/CH6/EX6.9/ex_6_9.sce
new file mode 100755
index 000000000..8c32054e1
--- /dev/null
+++ b/2708/CH6/EX6.9/ex_6_9.sce
@@ -0,0 +1,17 @@
+//Example 6.9 // amplitude of oscillations & relative phase  

+clc;

+clear;

+//given data :

+m=.1;//suspended mass in kg

+k=100;// force constant in N/m

+Fo=2;// maximum driving force in N

+p=1;// constant in Ns/m

+Wo=sqrt(k/m);//angular frequency in rad/sec in steady state;

+W=50;//angular frequency in rad/sec

+f=Fo/m;

+d=p/(2*m);//damping constant

+B=f/sqrt(((Wo^2)-(W^2))^2+4*(d^2)*(W^2));//amplitude of Oscillation in m

+delta=atan(2*d*W/(Wo^2-W^2));// relative phase in radian

+disp(B,"amplitude of oscillations in m")

+delta=delta*180/%pi +180;// to convert in 0 t0 180 in degree

+disp(delta,"relative phase in degree")