&Web server model for qnap ... re-enterd Jan 18 2002

/declare/ queue real serv_t;   &each queue has param queue.serv_t
  queue user,net,webserv,websrvdk,dbserv,dbdisk;
  integer n_users;
&
/station/ name=user;
  type=infinite;
  service=exp(serv_t);
  init=n_users;
  transit=net,1;
&
/station/ name=net;
  service=exp(serv_t);   &demand for round trip is put into one visit
  type=infinite;
  transit=webserv,1;
&
/station/ name=webserv;
  service=exp(serv_t);
  transit=websrvdk,50,dbserv,0.2,user,1;
&
/station/ name=websrvdk;
  service=exp(serv_t);
  transit=webserv,1;
&
/station/ name=dbserv;
  service=exp(serv_t);
  transit=webserv,1,dbdisk,15;
&
/station/ name=dbdisk;
  service=exp(serv_t);
  transit=dbserv,1;
&
/exec/ begin
  user.serv_t:=15000.0;
  webserv.serv_t:=53.25/51.2;
  websrvdk.serv_t:= 2.0;
  dbserv.serv_t:=170.0/16;
  dbdisk.serv_t:=3.0;
  net.serv_t:= 7.0;
  & loop for multiple solutions for different n_users
  for n_users := 100,200,300,400
  do
    begin
    print("no. of jobs =", n_users);
    solve;  &qnap decides on the solver, using MVA by preference
    end;
  end;