summaryrefslogtreecommitdiff
path: root/2243/CH14
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /2243/CH14
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '2243/CH14')
-rwxr-xr-x2243/CH14/EX14.2/Ex14_2.sce15
-rwxr-xr-x2243/CH14/EX14.2/Res14_2.txt2
-rwxr-xr-x2243/CH14/EX14.3/Ex14_3.sce14
-rwxr-xr-x2243/CH14/EX14.3/Res14_3.txt1
-rwxr-xr-x2243/CH14/EX14.5/Ex14_5.sce16
-rwxr-xr-x2243/CH14/EX14.5/Res14_5.txt4
-rwxr-xr-x2243/CH14/EX14.6/Ex14_6.sce12
-rwxr-xr-x2243/CH14/EX14.6/Res14_6.txt2
-rwxr-xr-x2243/CH14/EX14.7/Ex14_7.sce19
-rwxr-xr-x2243/CH14/EX14.7/Res14_7.txt2
10 files changed, 87 insertions, 0 deletions
diff --git a/2243/CH14/EX14.2/Ex14_2.sce b/2243/CH14/EX14.2/Ex14_2.sce
new file mode 100755
index 000000000..99f5fe3e8
--- /dev/null
+++ b/2243/CH14/EX14.2/Ex14_2.sce
@@ -0,0 +1,15 @@
+clc();
+clear;
+//Given :
+lambda = 6000; //wavelength in A
+E2_E1 = 12422/lambda; // energy in eV
+k = 8.62*10^-5; // in eV/K
+T = 300; // Temperature in K
+//Equilibrium ratio = N2/N1 = exp[-(E2-E1)/k*T]
+//(a)
+Ratio = exp(-E2_E1/(k*T));
+//(b)
+T1 = (E2_E1)/(k*log(2)); // Temperature in K
+printf("Ratio = %.2f x 10^-35 \n",Ratio*10^35);
+printf("T = %d K",T1);
+//Resuts obtained differ from those in texbook, because approximate value of k*T was considered
diff --git a/2243/CH14/EX14.2/Res14_2.txt b/2243/CH14/EX14.2/Res14_2.txt
new file mode 100755
index 000000000..6241cef1b
--- /dev/null
+++ b/2243/CH14/EX14.2/Res14_2.txt
@@ -0,0 +1,2 @@
+Ratio = 1.70 x 10^-35
+T = 34650 K \ No newline at end of file
diff --git a/2243/CH14/EX14.3/Ex14_3.sce b/2243/CH14/EX14.3/Ex14_3.sce
new file mode 100755
index 000000000..7651373bc
--- /dev/null
+++ b/2243/CH14/EX14.3/Ex14_3.sce
@@ -0,0 +1,14 @@
+clc();
+clear;
+//Given :
+L =8;// in cm
+lambda = 5330; //wavelength in A
+// lambda = 2*L/n
+// 1 A = 1.0*10^-8 cm
+n= (2*L)/(lambda*10^-8); // allowed modes
+//adjacent mode
+n1 = round(n+1);
+// 1 cm = 1.0*10^8 A
+lambda1 = ((2*L)/n1)*10^8;// wavelength in A
+D = lambda-lambda1; // difference in wavelengths in A
+printf("Difference = %.3f A",D);
diff --git a/2243/CH14/EX14.3/Res14_3.txt b/2243/CH14/EX14.3/Res14_3.txt
new file mode 100755
index 000000000..8e83ff23a
--- /dev/null
+++ b/2243/CH14/EX14.3/Res14_3.txt
@@ -0,0 +1 @@
+Difference = 0.025 A \ No newline at end of file
diff --git a/2243/CH14/EX14.5/Ex14_5.sce b/2243/CH14/EX14.5/Ex14_5.sce
new file mode 100755
index 000000000..6d18ac65d
--- /dev/null
+++ b/2243/CH14/EX14.5/Ex14_5.sce
@@ -0,0 +1,16 @@
+clc();
+clear;
+//Given :
+tau_c = 10^-5; // lifetime of lasing energy in s
+tau_c1 = 10^-8; // coherence time in s
+lambda = 5000; // wavelength in A
+c = 3*10^8;// light speed in m/s
+// Ratio = delta_lambda/lambda = lambda/(c*tau_c)
+// 1 A = 1.0*10^-10 m
+//(a)Laser source
+Ratio = (lambda*10^-10)/(c*tau_c);
+//(b)Ordinary source
+Ratio1 = (lambda*10^-10)/(c*tau_c1);
+printf("Laser source = %.2f x 10^-10 \n",Ratio*10^10);
+printf("Ordinary source = %.2f x 10^-7 \n",Ratio1*10^7);
+//Results obtained differ from those in textbook, beacuse only order of 10 was considered in the result.
diff --git a/2243/CH14/EX14.5/Res14_5.txt b/2243/CH14/EX14.5/Res14_5.txt
new file mode 100755
index 000000000..5cb0ff3a6
--- /dev/null
+++ b/2243/CH14/EX14.5/Res14_5.txt
@@ -0,0 +1,4 @@
+ Laser source = 1.67 x 10^-10
+Ordinary source = 1.67 x 10^-7
+
+ \ No newline at end of file
diff --git a/2243/CH14/EX14.6/Ex14_6.sce b/2243/CH14/EX14.6/Ex14_6.sce
new file mode 100755
index 000000000..ba37d4af0
--- /dev/null
+++ b/2243/CH14/EX14.6/Ex14_6.sce
@@ -0,0 +1,12 @@
+clc();
+clear;
+//Given :
+P = 10; // Power in W
+lambda =5000; // wavelength in A
+SI = 7*10^3; // Sun's radiation intensity in W/cm^2
+// 1 A = 1.0*10^-8 cm
+I = P/(lambda*10^-8)^2; //Intensity in W/cm^2
+Ratio = (I)/SI;
+printf("Intensity = %.0f x 10^6 kW/cm^2 \n",I*10^-9);
+printf("Intensity of this laser source is %.1f x 10^6 times the intensity of Sun radiation",Ratio*10^-6);
+//Textbook : Only order of 10 is considered in the result
diff --git a/2243/CH14/EX14.6/Res14_6.txt b/2243/CH14/EX14.6/Res14_6.txt
new file mode 100755
index 000000000..1bcc6c569
--- /dev/null
+++ b/2243/CH14/EX14.6/Res14_6.txt
@@ -0,0 +1,2 @@
+ Intensity = 4 x 10^6 kW/cm^2
+Intensity of this laser source is 0.6 x 10^6 times the intensity of Sun radiation \ No newline at end of file
diff --git a/2243/CH14/EX14.7/Ex14_7.sce b/2243/CH14/EX14.7/Ex14_7.sce
new file mode 100755
index 000000000..83779eaf2
--- /dev/null
+++ b/2243/CH14/EX14.7/Ex14_7.sce
@@ -0,0 +1,19 @@
+clc();
+clear;
+//Given :
+c = 3*10^8;// light speed in m/s
+//Visible range = 4000 A - 7000 A
+lambda1 = 4000; // wavelength in A
+lambda2 = 7000;// wavelength in A
+// 1 A = 1.0*10^-10 m
+nu1 = c/(lambda1*10^-10); // frequency in Hz
+nu2 = c/(lambda2*10^-10);// frequency in Hz
+deltanu = nu1-nu2; // in Hz
+//(a)Telephone conversations
+f1 = 10^3; // frequency in Hz
+n1 = deltanu/f1;
+//(b)Television programmes
+f2 = 10^7; // frequency in Hz
+n2 = deltanu/f2;
+printf(" Number of Telephone conversations = %.1f x 10^11 \n",n1*10^-11);
+printf(" Number of Television programmes = %.1f x 10^7 \n",n2*10^-7);
diff --git a/2243/CH14/EX14.7/Res14_7.txt b/2243/CH14/EX14.7/Res14_7.txt
new file mode 100755
index 000000000..f2d5e84b3
--- /dev/null
+++ b/2243/CH14/EX14.7/Res14_7.txt
@@ -0,0 +1,2 @@
+ Number of Telephone conversations = 3.2 x 10^11
+ Number of Television programmes = 3.2 x 10^7 \ No newline at end of file