From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 287/CH18/EX18.1/Exa18_1.sci |  7 +++++++
 287/CH18/EX18.2/Exa18_2.sci |  8 ++++++++
 287/CH18/EX18.3/Exa18_3.sci |  7 +++++++
 287/CH18/EX18.4/Exa18_4.sci | 13 +++++++++++++
 287/CH18/EX18.5/Exa18_5.sci | 17 +++++++++++++++++
 287/CH18/EX18.6/Exa18_6.sci | 31 +++++++++++++++++++++++++++++++
 287/CH18/EX18.7/Exa18_7.sci |  9 +++++++++
 287/CH18/EX18.8/Exa18_8.sci | 11 +++++++++++
 8 files changed, 103 insertions(+)
 create mode 100755 287/CH18/EX18.1/Exa18_1.sci
 create mode 100755 287/CH18/EX18.2/Exa18_2.sci
 create mode 100755 287/CH18/EX18.3/Exa18_3.sci
 create mode 100755 287/CH18/EX18.4/Exa18_4.sci
 create mode 100755 287/CH18/EX18.5/Exa18_5.sci
 create mode 100755 287/CH18/EX18.6/Exa18_6.sci
 create mode 100755 287/CH18/EX18.7/Exa18_7.sci
 create mode 100755 287/CH18/EX18.8/Exa18_8.sci

(limited to '287/CH18')

diff --git a/287/CH18/EX18.1/Exa18_1.sci b/287/CH18/EX18.1/Exa18_1.sci
new file mode 100755
index 000000000..4118e495f
--- /dev/null
+++ b/287/CH18/EX18.1/Exa18_1.sci
@@ -0,0 +1,7 @@
+//Determine the usage in seconds,CCS and Erlangs which has accumulated on the piece of the equipment
+
+U = (450-0)*(5/3600)
+
+disp(U, 'Usage in Erlangs')
+disp(U*36, 'Usage in CCS')
+disp(U*36*100, 'Usage in seconds')
\ No newline at end of file
diff --git a/287/CH18/EX18.2/Exa18_2.sci b/287/CH18/EX18.2/Exa18_2.sci
new file mode 100755
index 000000000..916dbc7fc
--- /dev/null
+++ b/287/CH18/EX18.2/Exa18_2.sci
@@ -0,0 +1,8 @@
+//Determine the offered load
+
+CCS = 2900;
+p = 0.05;
+
+U = CCS/(1-p);
+
+disp(U, 'Offered Load (in CCS)');
diff --git a/287/CH18/EX18.3/Exa18_3.sci b/287/CH18/EX18.3/Exa18_3.sci
new file mode 100755
index 000000000..506826b58
--- /dev/null
+++ b/287/CH18/EX18.3/Exa18_3.sci
@@ -0,0 +1,7 @@
+//Determine the traffic intensity
+
+t = 120;
+
+I = (2*t)/3600;
+
+disp(I*36, 'Traiffic Intensity (in CCS)');
\ No newline at end of file
diff --git a/287/CH18/EX18.4/Exa18_4.sci b/287/CH18/EX18.4/Exa18_4.sci
new file mode 100755
index 000000000..27472108c
--- /dev/null
+++ b/287/CH18/EX18.4/Exa18_4.sci
@@ -0,0 +1,13 @@
+////Determine the traffic intensity in Erlangs and CCS
+
+n = 10;
+t = 1.5;
+Cd = 60+74+80+90+92+70+96+48+64+126;
+
+CAR = n/t;
+Hbar = Cd/10; 
+
+I = (CAR*Hbar)/3600;
+
+disp(I, 'Traiffic Intensity (in Erlangs)');
+disp(I*36, 'Traiffic Intensity (in CCS)');
\ No newline at end of file
diff --git a/287/CH18/EX18.5/Exa18_5.sci b/287/CH18/EX18.5/Exa18_5.sci
new file mode 100755
index 000000000..52ae69ddd
--- /dev/null
+++ b/287/CH18/EX18.5/Exa18_5.sci
@@ -0,0 +1,17 @@
+////Determine the traffic intensity during the eight-hour period and the busy hour
+
+n = 11;
+t = 8;
+Cd1 = 3+10+7+10+5+5+1+5+15+34+5;
+Cd2 = 34+5;
+CAR2 = 2;
+
+CAR1 = n/t;
+Hbar1 = Cd1/(n*60);
+Hbar2 = Cd2/(CAR2*60);
+
+I1 = CAR1 * Hbar1 ;
+I2 = CAR2 * Hbar2 ;
+
+disp(I1*36, 'Traiffic Intensity (in CCS)')
+disp(I2*36, 'Traiffic Intensity during busy hour (in CCS)')
\ No newline at end of file
diff --git a/287/CH18/EX18.6/Exa18_6.sci b/287/CH18/EX18.6/Exa18_6.sci
new file mode 100755
index 000000000..4e92d1f41
--- /dev/null
+++ b/287/CH18/EX18.6/Exa18_6.sci
@@ -0,0 +1,31 @@
+//Determine ABS/BH switch calling rate and CCS for a switch
+
+RL = 12000;
+n = 80000;
+BL = 64000;
+HL = 4000;
+CRr = 2;
+CRb = 3;
+CRh = 10;
+HTr = 140;
+HTb = 160;
+HTh = 200;
+
+RLp = RL/n;
+BLp = BL/n;
+HLp = HL/n;
+CCSrl = CRr * (HTr/100);
+CCSbl = CRb * (HTb/100);
+CCShl = CRh * (HTh/100);
+SCR = (CRr*RLp) + (CRb*BLp) + (CRh*HLp) ;
+Sccs = (CCSrl*RLp) + (CCSbl*BLp) + (CCShl*HLp) ;
+
+Aht = (Sccs/SCR)*100;
+ABSc = SCR*n;
+ABSu = (Sccs*n)/36;
+
+Dcc = 1.5*ABSc;
+De = 1.5*ABSu;
+
+disp(Dcc, 'Design call capacity based on HD')
+disp(De, 'Design erlangs based on HD')
\ No newline at end of file
diff --git a/287/CH18/EX18.7/Exa18_7.sci b/287/CH18/EX18.7/Exa18_7.sci
new file mode 100755
index 000000000..a3711cb68
--- /dev/null
+++ b/287/CH18/EX18.7/Exa18_7.sci
@@ -0,0 +1,9 @@
+//Determine the offered load and channels required
+
+CPH = 4000;
+ACH = 150
+
+A = (CPH*ACH)/3600;
+
+disp(A, 'Offered Load');
+disp(182, 'Channels REquired (using Erlang B table)')
\ No newline at end of file
diff --git a/287/CH18/EX18.8/Exa18_8.sci b/287/CH18/EX18.8/Exa18_8.sci
new file mode 100755
index 000000000..960cf9642
--- /dev/null
+++ b/287/CH18/EX18.8/Exa18_8.sci
@@ -0,0 +1,11 @@
+//Determine the no. of users supported
+
+BHA = 1.2;
+ACH = 120;
+
+C = 40.26;   //from Erlang B table
+
+At = (BHA*ACH)/3600;
+N = C/At;
+
+disp(N, 'No. of users supported');
\ No newline at end of file
-- 
cgit