{VERSION 5 0 "IBM INTEL NT" "5.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 
0 0 0 0 0 0 0 0 0 1 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "
" 0 "" {TEXT -1 83 "These routines for the single-node case provide th
e essential computational engines" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 74 "read(`c:/TeXpapers/TaaffePapers/WebUpdate10152003/PhP
hInfSymbolic7.txt`):\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 77 "r
ead(`c:/TeXpapers/TaaffePapers/WebUpdate10152003/PhPhInfNumericEmpty7.
txt`):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 76 "read(`c:/TeXpaper
s/TaaffePapers/WebUpdate10152003/PhPhInfNumericInit7.txt`):" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 72 "read(`c:/TeXpapers/TaaffePap
ers/WebUpdate10152003/PhPhInfMoments7.txt`):" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 72 "read(`c:/TeXpapers/TaaffePapers/WebUpdate1015200
3/PhPhInfSojourn7.txt`):" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 68 "These
 routines handle the single arrival source, multiple queue case" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 76 "read(`c:/TeXpapers/TaaffePap
ers/WebUpdate10152003/PhPhInfNetSymbolic7.txt`):" }}}{EXCHG {PARA 0 ">
 " 0 "" {MPLTEXT 1 0 75 "read(`c:/TeXpapers/TaaffePapers/WebUpdate1015
2003/PhPhInfNetNumeric7.txt`):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 75 "read(`c:/TeXpapers/TaaffePapers/WebUpdate10152003/PhPhInfNetMo
ments7.txt`):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 75 "read(`c:/T
eXpapers/TaaffePapers/WebUpdate10152003/PhPhInfNetSojourn7.txt`):" }}}
{EXCHG {PARA 0 "" 0 "" {TEXT -1 90 "These are the most general multicl
ass routines; and are what the user would typically call" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 76 "read(`c:/TeXpapers/TaaffePapers/Web
Update10152003/PhPhInfMCNSymbolic7.txt`):" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 75 "read(`c:/TeXpapers/TaaffePapers/WebUpdate10152003/P
hPhInfMCNNumeric7.txt`):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 75 
"read(`c:/TeXpapers/TaaffePapers/WebUpdate10152003/PhPhInfMCNMoments7.
txt`):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 75 "read(`c:/TeXpaper
s/TaaffePapers/WebUpdate10152003/PhPhInfMCNSojourn7.txt`):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 104 "Pr := \+
matrix(3,3, [1/2 + 1/2*sin(Pi*t/4), 1/2 - 1/2*sin(Pi*t/4), 0,\n     0.
15, 0, 0.85,  0.7, 0.3, 0]);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 122 "A := matrix(4,4, [ 0, 1/3 + 1/3*cos(Pi*t/4), 2/3 - 1/3*cos(Pi
*t/4), 0,\n            0,0,0,1,  0,0.3,0,0.7,  0.8,0.2,0,0]);\n" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "lambda := vector(3, [5, 8, 1
0 + 5*sin(Pi*t/5)]); \n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 16 "
B := vector(2);\n" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 26 "Create B mat
rix for node 1" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 122 "B[1] := \+
matrix(4,4, [0,0.4,0.6,0,  0,0, 1/4 + 1/4*sin(Pi*t/6), 3/4 - 1/4*sin(P
i*t/6),\n        0,0,0.2,0.8,  0.5,0,.5,0]);\n" }}}{EXCHG {PARA 0 "" 
0 "" {TEXT -1 26 "Create B matrix for node 2" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 88 "B[2] := matrix(4,4, [0,0.5,0.5,0,  0,0,2/3,1/3, \+
0,1/3,1/3,1/3, \n        .5, 0, .5, 0]);\n" }}}{EXCHG {PARA 0 "> " 0 "
" {MPLTEXT 1 0 41 "mu := vector(2, [ [3,4,7.5], [2,2,2] ]);\n" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "" 0 "" 
{TEXT -1 88 "Plot the mean and variance of number in the network, and \+
in each node, from time 0 to 10" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 70 "mplots := PhPhInfMCNMoments(A, lambda, 1, B, mu, 2, Pr, [1,2],
 0, 10):" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 64 "Print out time-depend
ent mean number in network and at each node" }}}{EXCHG {PARA 0 "> " 0 
"" {MPLTEXT 1 0 11 "mplots[1];\n" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 
75 "Print out time-dependent variance of the number in network and at \+
each node" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "mplots[2];\n" 
}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 60 "sojourn := PhPhInfMCNSojourn(A, lambda, 1, B, mu
, 2, Pr, 5):" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 4 "mean" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "sojourn[1];\n" }}}{EXCHG {PARA 0 "
" 0 "" {TEXT -1 8 "variance" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
12 "sojourn[2];\n" }}}{EXCHG {PARA 0 "" 0 "" {TEXT -1 3 "cdf" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 12 "sojourn[3];\n" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG {PARA 0 "" 0 "" {TEXT 
-1 65 "Finally, display the moment differential equations for this mod
el" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "PhPhInfMCNSymbolic(A,
 lambda, 1, B, mu, 2, Pr);\n" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 0 "" }}}}{MARK "0 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }
{PAGENUMBERS 0 1 2 33 1 1 }