home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c129 / 1.ddi / BARDEM.C < prev    next >
Encoding:
C/C++ Source or Header  |  1988-11-02  |  1.3 KB  |  70 lines
  1.  
  2. # include <math.h>
  3. # include <stdlib.h>
  4. # include <stdio.h>
  5. # include <string.h>
  6. # include <graph.h>
  7. # include "asyncxx.h"
  8. # include "hpplot.h"
  9. # include "worlddr.h"
  10. # include "segraph.h"
  11.  
  12.      int wc,k,j,i,grcolor;
  13.      float rr, xx1,yy1,xdata[100], ydata[100];
  14.      int  n;
  15.      char teststring[80];
  16.  
  17. float frand()
  18. { float r;
  19.   int i;
  20.   i = rand();
  21.   r = i;
  22.   r = r / 32767.0;
  23.   return(r);
  24. }
  25.  
  26.  
  27. void main()
  28. {
  29.   n = 50;
  30.   for (i = 0; i<= n-1; i++ )
  31.   {
  32.  
  33.     xdata[i] = (4.0*3.1415* (frand()-0.5))+6.5;
  34.     ydata[i] = 25.0*(1.0/(sqrt(2*3.1415*(9.0))))*exp(-((xdata[i]*xdata[i])/(2*(9.0))));
  35.     rr = i;
  36.   }
  37.  /**************************************************/
  38.  /*   IF YOU WANT TO CONFIGURE FOR CGA 4 COLORS    */
  39.  /*   CHOOSE InitSEGraphics(1);                     */
  40.  /**************************************************/
  41.   InitSEGraphics(6);
  42.   for (wc = 2; wc<= 10; wc++ )
  43.   {
  44.     SetCurrentWindow(wc);
  45.     SetAxesType(0,0);
  46.  
  47.     AutoAxes(xdata,ydata,n,1);
  48.  
  49.     BargraphData(xdata, ydata, n, 0.7,wc,2);
  50.     DrawGrid(5);
  51.     BorderCurrentWindow(wc);
  52.     TitleWindow("College Drinking Study");
  53.     TitleXAxis("Beers/Day");
  54.     TitleYAxis("GPA");
  55.     getch();
  56.     if (wc < 7)
  57.       ClearWindow();
  58.  
  59.   }
  60.   CloseSEGraphics();
  61.  
  62. }
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.