summaryrefslogtreecommitdiff
path: root/377/CH15/EX15.4/15_4.sce
blob: 79c872aa665b3f2cc27091ef106d977cc16fb6aa (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
disp("λ=c*h/E");
h=6.626*10^-34;
c=2.998*10^8;
E=1.5*10^-19;
d=c*h/E;
printf('\nThe value of λ is %fμm',d*10^6);
n=0.65;
e=1.602*10^-19;
R=n*e/E;
printf('\nThe value of R is %fA/W',R);
disp("Po=Ip/R");
Ip=2.5*10^-6;
Po=Ip/R;
printf('\nThe required incident opticalpower is %fμW',Po*10^6);