home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Interactive Guide / c-cplusplus-interactive-guide.iso / c_ref / csource5 / 349_01 / sss.arc / EX_0209.C < prev    next >
Encoding:
C/C++ Source or Header  |  1991-04-17  |  640 b   |  42 lines
  1. /* Program EX_0209.C
  2.    Listing 3C - see documentation in TUTOR.SSS
  3. */
  4.  
  5. #include "SSSC.H"
  6.  
  7. double x, pt, pv;
  8.  
  9. double rnx(double m, double s)
  10. {
  11.   double x;
  12.   do x = RN(m, s);
  13.   while (x <= 0.0);
  14.   return(x);
  15. }
  16.  
  17. void prime(void)
  18. {
  19.   INIQUE(0, 0, 2);
  20.   INISTA(1, "Call duration", 0, 12, 2, 0.5);
  21.   INISTA(2, "Cycle time", 0, 0, 0, 0);
  22.   pv = 0;
  23.   pt = rnx(7, 4);
  24. }
  25.  
  26. main()
  27. {
  28.   prime();
  29.   do
  30.   {
  31.     if (RA() < .25) x = ER(2, 2); else x = TR(1, 3, 4);
  32.     TALLY(1, x);
  33.     pt += x;
  34.     TALLY(2, pt - pv);
  35.     pv = pt;
  36.     pt += rnx(7, 4);
  37.   } while (pt <= 120);
  38.  
  39.   SUMRY("");
  40.   SUMRY("RESULTS");
  41. }
  42.