home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c129 / 1.ddi / ERRORDEM.C < prev    next >
Encoding:
C/C++ Source or Header  |  1989-01-03  |  1.9 KB  |  88 lines
  1. # include <math.h>
  2. # include <stdlib.h>
  3. # include <stdio.h>
  4. # include <graph.h>
  5. # include <string.h>
  6. # include "hpplot.h"
  7. # include "worlddr.h"
  8. # include "segraph.h"
  9. # include "asyncxx.h"
  10.  
  11.      int wc,k,j,i,grcolor;
  12.      float rr, xx1,yy1,xdata[100], ydata[100], y1data[100], y2data[100];
  13.      int colors[10], hatch[10];
  14.      char c;
  15.      int  n;
  16. float frand()
  17. { float r;
  18.   int i;
  19.   i = rand();
  20.   r = i;
  21.   r = r / 32767.0;
  22.   return(r);
  23. }
  24.  
  25.  
  26. void main()
  27. {
  28.  
  29.  
  30.  
  31.   n = 20;
  32.   for ( i = 0; i <= n-1; i++)
  33.   {
  34.     rr = i;
  35.     xdata[i] = (4.0*3.1415* (frand()-0.5)) ;
  36.     ydata[i] =   rr - xdata[i] * xdata[i] *  frand();
  37.   }
  38.   SortDataX(xdata,ydata,n,0);
  39.   for ( i = 0; i <= n-1; i++)
  40.   {
  41.     y1data[i] = ydata[i] - 1.0;
  42.     y2data[i] = ydata[i] + 1.0;
  43.   }
  44.  
  45.  /****************************************************
  46.     - IF YOU WANT TO CONFIGURE FOR CGA 4 COLORS    
  47.       CHOOSE InitSEGraphics(1);
  48.     - HERCULES SUPPORT IS NOW INCLUDED IN MICROSOFT
  49.       C VERSION 5.1.  IF YOU WANT TO USE THE         
  50.       HERCULES DRIVER YOU MUST FIRST INSTALL       
  51.       MSHERC.COM FROM DOS BY TYPING  
  52.                   msherc<enter>
  53.       THEN IN YOUR MAIN PROGRAM CALL
  54.           InitSEGraphics(12);
  55.     - REFER TO THE README.DOC FILE - PART 3
  56.       INCLUDED IN YOUR MICROSOFT C 5.1 COMPILER 
  57.       FOR DETAILS ON ADDED HERCULES SUPPORT.
  58.  **************************************************/
  59.  
  60.    InitSEGraphics(6);
  61.    for (wc = 1; wc <= 10; wc++)
  62.   {
  63.     SetCurrentWindow(wc);
  64.     ClearWindow();
  65.     SetAxesType(0,0);
  66.  
  67.     AutoAxes(xdata,ydata,n,(wc % 2));
  68.     LinePlotData(xdata, ydata, n,2, 1);
  69.     ScatterPlotData( xdata,ydata,n,5,1);
  70.     PlotErrorBars(xdata, y1data, y2data, n,6,0.4);
  71.  
  72.     TitleWindow("Error Bar Demo");
  73.     TitleXAxis(" Independent Variable");
  74.     TitleYAxis(" Dependent Variable");
  75.     getch();
  76.  
  77.     ClearWindow();
  78.   }
  79.   CloseSEGraphics();
  80.  
  81. }
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.