From f35ea80659b6a49d1bb2ce1d7d002583f3f40947 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Tue, 10 Oct 2017 12:38:01 +0530
Subject: updated the code

---
 339/CH6/EX6.4/ex6_4.sce | 37 ++++++++++++++++++++-----------------
 1 file changed, 20 insertions(+), 17 deletions(-)

(limited to '339/CH6/EX6.4/ex6_4.sce')

diff --git a/339/CH6/EX6.4/ex6_4.sce b/339/CH6/EX6.4/ex6_4.sce
index 437073e4f..c0d37eaed 100755
--- a/339/CH6/EX6.4/ex6_4.sce
+++ b/339/CH6/EX6.4/ex6_4.sce
@@ -1,18 +1,21 @@
-//doping concentrations
-Nc=2.8*10^19;
-Nd=1*10^16;
-term=Nc/Nd;
-k=1.38*10^-23; //Boltzman's constant
-q=1.6*10^-19; //charge
-Vc=(k*T)*log(term)/q;
-Vm=5.1; //workfunction
-X=4.05; //affinity
-Vd=(Vm-X)-Vc; //Barrier Voltage
-Epsilon=11.9*8.854*10^-12;
-ds=sqrt((2*Epsilon*Vd)/(q*Nd));
-A=1*10^-4; //cross-sectional area
-Cj=(A*Epsilon)/(ds); //junction capacitance
-disp("Volts",Vc,"Conduction Band potential");
-disp("Volts",Vd,"Built in Barrier Voltage");
-disp("metre",ds,"Space Charge Width");
+clc
+clear
+T=300;
+//doping concentrations
+Nc=2.8*10^19;
+Nd=1*10^16;
+term=Nc/Nd;
+k=1.38*10^-23; //Boltzman's constant
+q=1.6*10^-19; //charge
+Vc=(k*T)*log(term)/q;
+Vm=5.1; //workfunction
+X=4.05; //affinity
+Vd=(Vm-X)-Vc; //Barrier Voltage
+Epsilon=11.9*8.854*10^-12;
+ds=sqrt((2*Epsilon*Vd)/(q*Nd));
+A=1*10^-4; //cross-sectional area
+Cj=(A*Epsilon)/(ds); //junction capacitance
+disp("Volts",Vc,"Conduction Band potential");
+disp("Volts",Vd,"Built in Barrier Voltage");
+disp("metre",ds,"Space Charge Width");
 disp("Farads",Cj,"Junction Capacitance");
\ No newline at end of file
-- 
cgit