1 files changed, 14 insertions, 0 deletions
diff --git a/377/CH15/EX15.4/15_4.sce b/377/CH15/EX15.4/15_4.sce
new file mode 100644
index 000000000..79c872aa6
--- /dev/null
+++ b/377/CH15/EX15.4/15_4.sce
@@ -0,0 +1,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);
+\ No newline at end of file