summaryrefslogtreecommitdiff
path: root/3850/CH41/EX41.1/Ex41_1.sce
blob: 3f86ab6a9f85cbf19286f8738494a548dbef9eea (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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);