home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c129 / 1.ddi / SCATDEM.C < prev    next >
Encoding:
C/C++ Source or Header  |  1989-01-03  |  2.1 KB  |  102 lines
  1. # include <math.h>
  2. # include <stdlib.h>
  3. # include <stdio.h>
  4. # include <string.h>
  5. # include <graph.h>
  6. # include "asyncxx.h"
  7. # include "worlddr.h"
  8. # include "segraph.h"
  9.  
  10.      int wc,i;
  11.      float rr,xdata[100], ydata[100];
  12.      int  n;
  13.  
  14.  
  15. float frand()
  16. { float r;
  17.   int i;
  18.   i = rand();
  19.   r = i;
  20.   r = r / 32767.0;
  21.   return(r);
  22. }
  23.  
  24.  
  25. void main()
  26.  
  27. {
  28.  
  29.   n = 20;
  30.   for (i = 0; i<= n-1; i++ )
  31.   {
  32.     xdata[i] = (4.0*3.1415* (frand()-0.5));
  33.     ydata[i] =  30.0+ i - xdata[i] * xdata[i] *  frand();
  34.  
  35.   }
  36.  
  37.  /****************************************************
  38.     - IF YOU WANT TO CONFIGURE FOR CGA 4 COLORS    
  39.       CHOOSE InitSEGraphics(1);
  40.     - HERCULES SUPPORT IS NOW INCLUDED IN MICROSOFT
  41.       C VERSION 5.1.  IF YOU WANT TO USE THE         
  42.       HERCULES DRIVER YOU MUST FIRST INSTALL       
  43.       MSHERC.COM FROM DOS BY TYPING  
  44.                   msherc<enter>
  45.       THEN IN YOUR MAIN PROGRAM CALL
  46.           InitSEGraphics(12);
  47.     - REFER TO THE README.DOC FILE - PART 3
  48.       INCLUDED IN YOUR MICROSOFT C 5.1 COMPILER 
  49.       FOR DETAILS ON ADDED HERCULES SUPPORT.
  50.  **************************************************/
  51.  
  52.   InitSEGraphics(6);
  53.   settextstyleXX( 0, 0,1 );
  54.   for (wc = 1; wc <= 10; wc++ )
  55.   {
  56.     SelectColor(wc);
  57.     SetCurrentWindow(wc);
  58.     ClearWindow();
  59.  
  60.     SetAxesType(0,0);
  61.     ScalePlotArea( -6.0, 0.0, 7.0, 50.0 );
  62.     SetXYIntercepts(0.0,0.0);
  63.     DrawYAxis( 1.0, 0);
  64.     LabelYAxis(10.0,0);
  65.     DrawXAxis(1.0,0);
  66.     LabelXAxis( 2.0,0 );
  67.     BorderCurrentWindow(wc);
  68.     ScatterPlotData(xdata, ydata, n,2, 2);
  69.     SelectColor(4);
  70.     TitleWindow("Roach Study");
  71.     TitleXAxis("Radiation exposure");
  72.     TitleYAxis("Pop. 10^6");
  73.     getch();
  74.     ClearWindow();
  75.  
  76.     SetCurrentWindow(wc);
  77.     AutoAxes(xdata,ydata,n,1);
  78.     ScatterPlotData(xdata, ydata, n, 2, 1);
  79.     DrawGridY(5);
  80.     DrawGridX(5);
  81.     SelectColor(4);
  82.     TitleWindow("Roach Study");
  83.     TitleXAxis("Radiation exposure");
  84.     TitleYAxis("Pop. 10^6");
  85.     getch();
  86.     ClearWindow();
  87.  }
  88.   CloseSEGraphics();
  89. }
  90.  
  91.  
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.