From f35ea80659b6a49d1bb2ce1d7d002583f3f40947 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Tue, 10 Oct 2017 12:38:01 +0530
Subject: updated the code

---
 116/CH12/EX12.4/exa12_4.sce | 67 ++++++++++++++++++++++-----------------------
 1 file changed, 33 insertions(+), 34 deletions(-)

(limited to '116/CH12/EX12.4/exa12_4.sce')

diff --git a/116/CH12/EX12.4/exa12_4.sce b/116/CH12/EX12.4/exa12_4.sce
index eff220a3f..7ddacf887 100755
--- a/116/CH12/EX12.4/exa12_4.sce
+++ b/116/CH12/EX12.4/exa12_4.sce
@@ -1,34 +1,33 @@
-  
-//Caption:Program to calculate the percentage of total traffic carried by first five ckt and traffic carried by all other remaining
- 
-//Example 12.4
-
-//Page 529
- 
-disp('The Traffic intensity of system is,')
-
-A=1*2
-
-disp('The raffic intensity carried by i active ckt is exactly i erlangs. Hence the traffic carried by 1st 5 ckt is,')
-
-P1=[(1*2^1)/(1)]
- 
-P2=[(2*2^2)/(1*2)]
- 
-P3=[(3*2^3)/(1*2*3)]
-
-P4=[(4*2^4)/(1*2*3*4)]
-
-P5=[(5*2^5)/(1*2*3*4*5)]
-
-A5={(%e^-2)*[P1+P2+P3+P4+P5]}
-
-disp('All of remaining ckts carry,')
-
-Ar=2-1.89
-
-disp("Result")
- 
-disp("A(5) = 1.89 erlangs")
- 
-disp("A(remaining) = 0.11 erlangs")
+  
+
+//Example 12.4
+
+//Page 529
+ 
+disp('The Traffic intensity of system is,')
+
+A=1*2
+
+disp('The raffic intensity carried by i active ckt is exactly i erlangs. Hence the traffic carried by 1st 5 ckt is,')
+
+P1=[(1*2^1)/(1)]
+ 
+P2=[(2*2^2)/(1*2)]
+ 
+P3=[(3*2^3)/(1*2*3)]
+
+P4=[(4*2^4)/(1*2*3*4)]
+
+P5=[(5*2^5)/(1*2*3*4*5)]
+
+A5={(%e^-2)*[P1+P2+P3+P4+P5]}
+
+disp('All of remaining ckts carry,')
+
+Ar=2-1.89
+
+disp("Result")
+ 
+disp("A(5) = 1.89 erlangs")
+ 
+disp("A(remaining) = 0.11 erlangs")
-- 
cgit