//Fiber-optics communication technology, by Djafer K. Mynbaev and Lowell L. Scheiner 
//Example 10.3.3
//windows 7
//Scilab version-6.0.0
clc;
clear ;
//given
RIN=1E-16;//relative intensity in 1/Hz
P=100E-6;//power received in W
BW=100E+6;//Receiver bandwidth in Hz

PN=sqrt(RIN*(P^2)*BW);//The average noise power detected by receiver W

mprintf("The average noise power detected by receiver = %.2f uW",PN*1E+6);
//multiplication by 1e6 to convert unit to W from uW