diff options
| author | priyanka | 2015-06-24 15:03:17 +0530 |
|---|---|---|
| committer | priyanka | 2015-06-24 15:03:17 +0530 |
| commit | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch) | |
| tree | ab291cffc65280e58ac82470ba63fbcca7805165 /1061/CH8/EX8.5/Ex8_5.sce | |
| download | Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2 Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip | |
initial commit / add all books
Diffstat (limited to '1061/CH8/EX8.5/Ex8_5.sce')
| -rwxr-xr-x | 1061/CH8/EX8.5/Ex8_5.sce | 11 |
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 |