home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c129 / 1.ddi / LINEDEM.C < prev    next >
Encoding:
C/C++ Source or Header  |  1989-04-11  |  1.7 KB  |  75 lines
  1.  
  2. # include <math.h>
  3. # include <stdlib.h>
  4. # include <stdio.h>
  5. # include <graph.h>
  6. # include <string.h>
  7. # include "hpplot.h"
  8. # include "worlddr.h"
  9. # include "segraph.h"
  10.  
  11.  
  12. extern BlackAndWhite;
  13.  
  14. float frand(){
  15.         float r;
  16.         int i;
  17.         i = rand();
  18.         r = i;
  19.         r = r / 32767.0;
  20.         return(r);
  21. }
  22.  
  23. void main()
  24.  
  25. {
  26.      int wc,i,grcolor,err;
  27.      float xdata[52];
  28.      float ydata[52];
  29.      char ch;
  30.  
  31.   for (i = 0; i <= 20; i++ ){
  32.     xdata[i] =  i;
  33.     ydata[i] =  xdata[i]*xdata[i];
  34.     wc = 1;
  35.   }
  36.  
  37.   SortDataX(xdata,ydata,20,1);
  38.  /****************************************************
  39.     - IF YOU WANT TO CONFIGURE FOR CGA 4 COLORS    
  40.       CHOOSE InitSEGraphics(1);
  41.     - HERCULES SUPPORT IS NOW INCLUDED IN MICROSOFT
  42.       C VERSION 5.1.  IF YOU WANT TO USE THE         
  43.       HERCULES DRIVER YOU MUST FIRST INSTALL       
  44.       MSHERC.COM FROM DOS BY TYPING  
  45.                   msherc<enter>
  46.       THEN IN YOUR MAIN PROGRAM CALL
  47.           InitSEGraphics(12);
  48.     - REFER TO THE README.DOC FILE - PART 3
  49.       INCLUDED IN YOUR MICROSOFT C 5.1 COMPILER 
  50.       FOR DETAILS ON ADDED HERCULES SUPPORT.
  51.  **************************************************/
  52.  
  53.   InitSEGraphics(6);
  54.   for (wc = 1; wc <= 6 ; wc++ ){
  55.     SetCurrentWindow(wc);
  56.     ClearWindow();
  57.     if (BlackAndWhite == 0)
  58.        SetViewBackground(14);
  59.     SetAxesType(0,0);
  60.     SelectColor(1);
  61.     AutoAxes(xdata,ydata,10,0);
  62.     BorderCurrentWindow(wc);
  63.     LinePlotData(xdata, ydata, 10, 4,0);
  64.     TitleWindow("Hair Growth Study");
  65.     TitleXAxis("Before/After Injections");
  66.     TitleYAxis("Hair inches/wk.");
  67.     getch();
  68.     ClearWindow();
  69.   }
  70.   CloseSEGraphics();
  71.  
  72. }
  73.  
  74.  
  75.