1 files changed, 20 insertions, 0 deletions
diff --git a/3850/CH41/EX41.1/Ex41_1.sce b/3850/CH41/EX41.1/Ex41_1.sce
new file mode 100644
index 000000000..3f86ab6a9
--- /dev/null
+++ b/3850/CH41/EX41.1/Ex41_1.sce
@@ -0,0 +1,20 @@
+
+//To Calculate the Factor Increase in the Value of Thermionic Current
+
+//Example 41.1
+
+clear;
+
+clc;
+
+T1=1500;//Initial Temperature in Kelvin
+
+T2=2000;//Final Temperature in Kelvin
+
+k=1.38*10^-23;//Boltzmann Constant
+
+phi=4.5*1.6*10^-19;//Work Function in electron-volts
+
+Ir=(T2/T1)^2*exp((-phi/k)*((1/T2)-(1/T1)));//Factor Increase in the Value of Thermionic Current
+
+printf("Thermionic current increases %.d times when temperature is increased from 1500 K to 2000 K",Ir);