home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / vol_300 / 349_01 / sss.arc / SSSQTP.H < prev    next >
Text File  |  1990-12-09  |  3KB  |  83 lines
  1. { file sssqtp.pas }
  2.  
  3. {  SSS - Simulation Subroutine Set. Version 1.00
  4.    Copyright (C) M. A. Pollatschek 1990.  All rights reserved.
  5. }
  6.  
  7. unit sss;
  8.  
  9. interface
  10.  
  11. uses crt;
  12.  
  13. const
  14.    MAXD = 100;   (*  max no. of values to use for user defined distribution  *)
  15.  
  16. type
  17.    user_arr = array[1..MAXD] of real;
  18.  
  19. (*********************library functions decleration***********************)
  20.  
  21.  
  22. function  A(i :integer):real;
  23. function  AIC(ir,i :integer):real;
  24. function  AIQ(nq,ir,i :integer):real;
  25. function  BE(theta,phi :real):real;
  26. function  BI(n: integer; p: real):integer;
  27. function  CD(x,p:user_arr; n:integer):real;
  28. procedure CLEARQ(i :integer);
  29. procedure CLEARS(i :integer);
  30. procedure CREATE(time: real; id: integer);
  31. procedure DISPOS;
  32. function  DP(prob:user_arr; nval:integer):real;
  33. function  ER(expon_mean :real;k :integer):real;
  34. function  EX(mean :real):real;
  35. function  GA(beta,alpha :real):real;
  36. function  IDE:integer;
  37. function  IDIC(ir :integer):integer;
  38. function  IDIQ(nq,ir :integer):integer;
  39. procedure INIQUE(max_q,max_attr,max_stat :integer);
  40. procedure INISTA(n :integer;name :string;if_time_p,n_cells:integer;fl,cw:real);
  41. function  NC:integer;
  42. function  NCEN:integer;
  43. function  NEIC(ir :integer):integer;
  44. function  NEXTEV:integer;
  45. function  NP(mean :real):integer;
  46. function  NQ(nq1: integer):integer;
  47. function  PRIQ(nq,ir :integer):real;
  48. function  QAVG(i :integer):real;
  49. function  QDC(i :integer):char;
  50. function  QMAX(i :integer):real;
  51. function  QMIN(i :integer):real;
  52. function  QNUM(i :integer):real;
  53. function  QSTD(i :integer):real;
  54. procedure QUEUE(nq :integer; PRIORITY: real);
  55. function  RA:real;
  56. procedure REMVFC(ir: integer);
  57. procedure REMVFQ(nq,ir: integer);
  58. function  RL(mean,sd :real):real;
  59. function  RN(mean,sd :real):real;
  60. function  SAVG(i :integer):real;
  61. procedure SCHED(time :real;ne,id :integer);
  62. procedure SETA(i :integer; v :real);
  63. procedure SETANT(y: integer);
  64. procedure SETDEB(err :integer);
  65. procedure SETIDE(id :integer);
  66. procedure SETQDC(n :integer;disc :string);
  67. procedure SETSEE( i :integer);
  68. procedure SETT(t :real);
  69. procedure SHOWQ(m: integer);
  70. procedure SIMEND(time: real);
  71. function  SMAX(i :integer):real;
  72. function  SMIN(i :integer):real;
  73. function  SNUM(i :integer):real;
  74. function  SSTD(i :integer):real;
  75. procedure SUMRY(fn :string);
  76. function  T:real;
  77. procedure TALLY(n :integer; observation :real);
  78. function  TIC(ir :integer):real;
  79. function  TR(minimum,mode,maximum :real):real;
  80. function  UN(minimum,maximum :real):real;
  81. function  WE(beta,alpha :real):real;
  82.  
  83.