summaryrefslogtreecommitdiff
path: root/3547/CH7/EX7.1/EX7_1.sce
diff options
context:
space:
mode:
authorprashantsinalkar2017-10-10 12:27:19 +0530
committerprashantsinalkar2017-10-10 12:27:19 +0530
commit7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch)
treedbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /3547/CH7/EX7.1/EX7_1.sce
parentb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff)
downloadScilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip
initial commit / add all books
Diffstat (limited to '3547/CH7/EX7.1/EX7_1.sce')
-rw-r--r--3547/CH7/EX7.1/EX7_1.sce36
1 files changed, 36 insertions, 0 deletions
diff --git a/3547/CH7/EX7.1/EX7_1.sce b/3547/CH7/EX7.1/EX7_1.sce
new file mode 100644
index 000000000..bcb4a1c21
--- /dev/null
+++ b/3547/CH7/EX7.1/EX7_1.sce
@@ -0,0 +1,36 @@
+// Example 7.1
+// Compuatation of the lower limit on the transmitter power
+//
+// Page no. 305
+
+clc;
+clear;
+close;
+
+//Given data
+q=1.6*10^-19;
+R=1;
+B=7*10^9;
+c=3*10^8; // Velocity of light
+h=6.62*10^-34; // Planck constant
+Q=6;
+k=1.38*10^-23; // Boltzman constant
+T=298;
+Rl=50;
+alpha=0.046; // Fiber loss coefficient
+L=130; // Length
+
+
+// The lower limit on the transmitter power
+a=2*q*R*B;
+b=(4*k*T*B)/Rl;
+p=(2*sqrt(b)/R*Q)+((a*Q^2)/R^2);
+Pi=p*exp(alpha*L);
+
+//Displaying the result in command window
+printf("\n The lower limit on the transmitter power = %0.2f mW",Pi*10^3);
+printf("\n The lower limit on the transmitter peak power is 7.23mW. If the transmitter peak power < 7.23mW, Q < 6.");
+
+// The answer vary due to round off error
+
+