home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c129 / 1.ddi / PLOTTERD.C < prev    next >
Encoding:
C/C++ Source or Header  |  1989-12-04  |  3.8 KB  |  158 lines
  1. # include <math.h>
  2. # include <stdlib.h>
  3. # include <stdio.h>
  4. # include <string.h>
  5. # include <graph.h>
  6. # include <stdlib.h>
  7. # include "asyncxx.h"
  8. # include "worlddr.h"
  9. # include "segraph.h"
  10.  
  11.  
  12.  
  13.      int err,wc,k,j,i,grcolor;
  14.      float rr, xx1,yy1;
  15.      int colors[5], hatch[5];
  16.      char c;
  17.      float GroupData[5][5];
  18.      char XStrings[6][80];
  19.      int groupcolor[5];
  20.      int grouphatch[5];
  21.      float xdata[50], ydata[50], y1data[50], y2data[50];
  22.      int n;
  23.  
  24. float frand()
  25. { float r;
  26.   int i;
  27.   i = rand();
  28.   r = i;
  29.   r = r / 32767.0;
  30.   return(r);
  31. }
  32.  
  33.  
  34. void main()
  35.  
  36. {
  37.  
  38.   n = 20;
  39.   for (i = 0; i<= n-1; i++ )
  40.   {
  41.     rr = i;
  42.     xdata[i] = (4.0*3.1415* (frand()-0.5)) + 5.0 ;
  43.     ydata[i] = 25.0*(1.0/(sqrt(2*3.1415*(9.0))))*exp(-((xdata[i]*xdata[i])/(2*(9.0))));
  44.     }
  45.   open_com(0,9600,0,1,8, &err);
  46.   PlotterOn();
  47.    /****************************************************
  48.     - IF YOU WANT TO CONFIGURE FOR CGA 4 COLORS
  49.       CHOOSE InitSEGraphics(1);
  50.     - HERCULES SUPPORT IS NOW INCLUDED IN MICROSOFT
  51.       C VERSION 5.1.  IF YOU WANT TO USE THE
  52.       HERCULES DRIVER YOU MUST FIRST INSTALL       
  53.       MSHERC.COM FROM DOS BY TYPING  
  54.                   msherc<enter>
  55.       THEN IN YOUR MAIN PROGRAM CALL
  56.                   InitSEGraphics(12);
  57.     - REFER TO THE README.DOC FILE - PART 3
  58.       INCLUDED IN YOUR MICROSOFT C 5.1 COMPILER 
  59.       FOR DETAILS ON ADDED HERCULES SUPPORT.
  60.  **************************************************/
  61.  
  62.   InitSEGraphics(6);
  63.  
  64.   /*  BAR GRAPH  */
  65.   SetCurrentWindow(7);
  66.   ClearWindow();
  67.   SetAxesType(0,0);
  68.   SelectColor(2);
  69.   AutoAxes(xdata,ydata,n,1);
  70.   BargraphData(xdata, ydata, n, 0.4,3,2);
  71.   DrawGrid(5);
  72.   TitleWindow("College Drinking Study");
  73.   TitleXAxis("Beers/Day");
  74.   TitleYAxis("GPA");
  75.  
  76.   /*  Scatter Data */
  77.    SetCurrentWindow(8);
  78.    ClearWindow();
  79.    SelectColor(3);
  80.    n = 20;
  81.    for (i = 0; i<= n-1; i++ ){
  82.        xdata[i] = xdata[i]-5;
  83.        ydata[i] =  i - xdata[i] * xdata[i] *  frand();
  84.        y1data[i] = ydata[i] - 1.0;
  85.        y2data[i] = ydata[i] + 1.0;
  86.   }
  87.    AutoAxes(xdata,ydata,n,0);
  88.    BorderCurrentWindow(2);
  89.    ScatterPlotData(xdata, ydata, n,6, 2);
  90.    SelectColor(5);
  91.    TitleWindow("Roach Study");
  92.    TitleXAxis("Radiation exposure");
  93.    TitleYAxis("Pop. 10^6");
  94.  
  95.  
  96.    /* Group Demo */
  97.    for ( i = 0; i<= 4; i++ )
  98.       for ( k = 0; k<= 4; k++ )
  99.       {
  100.         rr = i;
  101.         xdata[i] = i+1.0;
  102.     GroupData[k][i] =   100.0  * frand();
  103.       }
  104.    groupcolor[0] = 1; groupcolor[1] = 2;
  105.    groupcolor[2] = 3; groupcolor[3] = 4; groupcolor[4] = 5;
  106.    for ( i = 0; i<= 4; i++ )
  107.       grouphatch[i] = i+1;
  108.    SetCurrentWindow(9);
  109.    ClearWindow();
  110.    SetAxesType(0,0);
  111.    ScalePlotArea(0.0,0.0,5.5, 500.0);
  112.    SetXYIntercepts(0.0,0.0);
  113.    strcpy( XStrings[0],"");
  114.    strcpy( XStrings[1],"Rick");
  115.    strcpy( XStrings[2],"Lisa");
  116.    strcpy( XStrings[3],"Stef");
  117.    strcpy( XStrings[4], "Ken");
  118.    strcpy( XStrings[5], "Bob");
  119.  
  120.    SelectColor(1);
  121.    DrawXAxis(1, 0);
  122.    LabelXAxWithStrings(1,XStrings,6,0);
  123.    DrawYAxis(20.0, 0);
  124.    LabelYAxis(5,0);
  125.    GroupPlotData(xdata, &GroupData[0][0], 5, 5,1, 0.75, groupcolor,grouphatch);
  126.    TitleWindow("Ratologist Studies");
  127.    TitleXAxis("Ratologist");
  128.    TitleYAxis("# Rats/wk.");
  129.  
  130.  
  131.     /*  Line Plot */
  132.     for (i = 0; i <= 50; i++ ){
  133.       xdata[i] =  i;
  134.       ydata[i] =  xdata[i]*xdata[i];
  135.     }
  136.     SetCurrentWindow(10);
  137.     SetAxesType(0,0);
  138.     SelectColor(3);
  139.     ScalePlotArea(0.0, 0.0, 20.0,400.0);
  140.     SetXYIntercepts(0.0,0.0);
  141.     setlinestyleXX( 0,1,1);
  142.     DrawYAxis( 5.0, 0);
  143.     LabelYAxis(10.0,0);
  144.     DrawXAxis(0.5,0);
  145.     LabelXAxis( 10.0,0 );
  146.  
  147.     LinePlotData(xdata, ydata, 50, 2,0);
  148.     TitleWindow("Hair Growth Study");
  149.     TitleXAxis("Before/After Injections");
  150.     TitleYAxis("Hair inches/wk.");
  151.    
  152.   getch();
  153.   CloseSEGraphics();
  154.   close_com();
  155. }
  156.  
  157.  
  158.