1 files changed, 11 insertions, 0 deletions
diff --git a/1061/CH8/EX8.5/Ex8_5.sce b/1061/CH8/EX8.5/Ex8_5.sce
new file mode 100755
index 000000000..968b179a2
--- /dev/null
+++ b/1061/CH8/EX8.5/Ex8_5.sce
@@ -0,0 +1,11 @@
+//Ex:8.5
+clc;
+clear;
+close;
+r=45*10^-6;// radius in m
+NA=0.3;// numerical aperture
+rd=40;// radiance
+A=3.14*(r*100)^2;// area in cm^2
+pe=3.14*(1-r)*A*rd*NA^2;// optical power coupled into the fiber
+Pe=pe*10^4;// optical power coupled into the fiber uW
+printf("The optical power coupled into the fiber =%f uW", Pe);
+\ No newline at end of file