simcode/example954.c at main · rljonesiii/simcode · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
/******************************************************************************
*                                                                             *
*  File:  example954.c                                                        *
*                                                                             *
*  Project #3 Example:                                                        *
*  Queuing netork description and stochastic specification                    *
*  for the 5 node network shown in example 9.5.4 of notes.                    *
*                                                                             *
*******************************************************************************/

#include "qnet.h"

#define lambda    0.83  /* arrival rate    */
#define nu1       0.7   /* service rates...*/
#define nu2       0.8

#ifdef JACKSON

static double service1(void)
{
  return(Exponential(1.0/nu1));
}
static double service2(void)
{
  return(Exponential(1.0/nu2));
}

#else

static double service1(void)
{
  return(Erlang(5,2.0/7.0));
}
static double service2(void)
{
  return(Erlang(4,5.0/16.0));
}

#endif

static double Expo(void)
{
  return(Exponential(1.0/lambda));
}


void Network(void)
/******************************************************************************
  define the queuing network here
*******************************************************************************/
{
  Nodes(5); /* declare 5 service nodes */

  /* specify the network connections */
  Connect(0,1,0.4);
  Connect(0,3,0.6);
  Connect(1,2,0.8);
  Connect(1,3,0.2);
  Connect(2,0,0.2);
  Connect(2,1,0.4);
  Connect(2,5,0.4);
  Connect(3,4,1.0);
  Connect(4,2,0.2);
  Connect(4,5,0.8);
  Connect(5,0,1.0);

  /* specify the external inter-arrival time */
  Arrival(Expo,lambda);

  /* specify the service times */
  Service(1,service1,nu1);
  Service(2,service2,nu2);
  Service(3,service1,nu1);
  Service(4,service2,nu2);
  Service(5,service2,nu2);
}

void InitialState(void)
/******************************************************************************
  define the initial state of the queuing network here
*******************************************************************************/
{
  /* network is initially empty */
}