summaryrefslogtreecommitdiff
path: root/623/CH2/EX2.1.7/U2_C1_7.sce
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /623/CH2/EX2.1.7/U2_C1_7.sce
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 '623/CH2/EX2.1.7/U2_C1_7.sce')
-rwxr-xr-x623/CH2/EX2.1.7/U2_C1_7.sce34
1 files changed, 34 insertions, 0 deletions
diff --git a/623/CH2/EX2.1.7/U2_C1_7.sce b/623/CH2/EX2.1.7/U2_C1_7.sce
new file mode 100755
index 000000000..c6b50d2b9
--- /dev/null
+++ b/623/CH2/EX2.1.7/U2_C1_7.sce
@@ -0,0 +1,34 @@
+//variable initialization
+ch=12400 //constant (eV Å)
+phi_Tantalum=4.2 //work function of Tantalum (eV)
+phi_Tungsten=4.5 //work function of Tungsten (eV)
+phi_Aluminium=4.2 //work function of Aluminium (eV)
+phi_Barium=2.5 //work function of Barium (eV)
+phi_Lithium=2.3 //work function of Lithium (eV)
+
+//Calculation
+lembda_Tantalum=ch/phi_Tantalum; //Threshold wavelength of Tantalum (Å)
+lembda_Tungsten=ch/phi_Tungsten; //Threshold wavelength of Tungsten (Å)
+lembda_Aluminium=ch/phi_Aluminium; //Threshold wavelength of Aluminium (Å)
+lembda_Barium=ch/phi_Barium; //Threshold wavelength of Barium (Å)
+lembda_Lithium=ch/phi_Lithium; //Threshold wavelength of Lithium (Å)
+
+if(lembda_Tantalum<8000&lembda_Tantalum>4000)then //Checking whether Threshold wavelength of Tantalum lies in visible range or not
+ disp("Tantalum can be used for designing photocell")
+end
+
+if(lembda_Tungsten<8000&lembda_Tungsten>4000)then //Checking whether Threshold wavelength of Tungsten lies in visible range or not
+ disp("Tungsten can be used for designing photocell")
+end
+
+if(lembda_Aluminium<8000&lembda_Aluminium>4000)then //Checking whether Threshold wavelength of Aluminium lies in visible range or not
+ disp("Aluminium can be used for designing photocell")
+end
+
+if(lembda_Barium<8000&lembda_Barium>4000)then //Checking whether Threshold wavelength of Barium lies in visible range or not
+ disp("Barium can be used for designing photocell")
+end
+
+if(lembda_Lithium<8000&lembda_Lithium>4000)then //Checking whether Threshold wavelength of Lithium lies in visible range or not
+ disp("Lithium can be used for designing photocell")
+end