summaryrefslogtreecommitdiff
path: root/1739/CH8/EX8.14/Exa8_14.sce
blob: a180bf169f4eb1a6e3924157101797a52241edeb (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
//Exa 8.14
clc;
clear;
close;
//Given data :
format('v',5);
lambda=0.9;//in um
lambda=lambda*10^-6;//in meter
ETA=60;//Quantum Efficiency in %
Id=3;//in nA
Id=Id*10^-9;//in Ampere
B=5;//in MHz
P=200;//in nW
P=P*10^-9;//in Watts 
h=6.63*10^-34;//Planks constant
q=1.6*10^-19;//in coulamb
c=3*10^8;//in m/s
Ip=P*(ETA/100)*q*lambda/(h*c);//in Ampere
//Formula : Is^2=2*q*(Ip+Id)*B
Is=sqrt(2*q*(Ip+Id)*B*10^6);//in Ampere
disp(Is*10^9,"Total shot noise current in nA : ");