home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c129 / 1.ddi / GROUPDEM.C < prev    next >
Encoding:
C/C++ Source or Header  |  1989-12-04  |  4.8 KB  |  169 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,i,k,grcolor;
  14.      float  xdata[100];
  15.      float GroupData[12][10];
  16.      char XStrings[13][80];
  17.      string80 LegendStrings[12];
  18.      int groupcolor[12];
  19.      int grouphatch[12];
  20.      extern BlackAndWhite;
  21.  
  22. float frand()
  23. { float r;
  24.   int i;
  25.   i = rand();
  26.   r = i;
  27.   r = r / 32767.0;
  28.   return(r);
  29. }
  30.  
  31.  
  32. void main()
  33.  
  34. {
  35.  
  36.  /****************************************************
  37.     - IF YOU WANT TO CONFIGURE FOR CGA 4 COLORS
  38.       CHOOSE InitSEGraphics(1);
  39.     - HERCULES SUPPORT IS NOW INCLUDED IN MICROSOFT
  40.       C VERSION 5.1.  IF YOU WANT TO USE THE
  41.       HERCULES DRIVER YOU MUST FIRST INSTALL
  42.       MSHERC.COM FROM DOS BY TYPING
  43.                   msherc<enter>
  44.       THEN IN YOUR MAIN PROGRAM CALL
  45.                   InitSEGraphics(12);
  46.     - REFER TO THE README.DOC FILE - PART 3
  47.       INCLUDED IN YOUR MICROSOFT C 5.1 COMPILER
  48.       FOR DETAILS ON ADDED HERCULES SUPPORT.
  49.  **************************************************/
  50.  
  51.     InitSEGraphics(6);
  52.     for ( i = 0; i<= 12; i++ )
  53.       for ( k = 0; k<= 10; k++ )
  54.       {
  55.     xdata[i] = i+1.0;
  56.     GroupData[k][i] =   100.0  * frand();
  57.       }
  58.  
  59.  
  60.     groupcolor[0] = 1; groupcolor[1] = 2; groupcolor[2] = 3;
  61.     groupcolor[3] = 4; groupcolor[4] = 5; groupcolor[5] = 6;
  62.     groupcolor[6] = 7; groupcolor[7] = 9; groupcolor[8] = 10;
  63.     groupcolor[9] = 11; groupcolor[10] = 12; groupcolor[11] = 13;
  64.  
  65.     grouphatch[0] = 1; grouphatch[1] = 2; grouphatch[2] = 3;
  66.     grouphatch[3] = 0; grouphatch[4] = 1; grouphatch[5] = 2;
  67.     grouphatch[6] = 3; grouphatch[7] = 0; grouphatch[8] = 1;
  68.     grouphatch[9] = 2; grouphatch[10] = 3; grouphatch[11] = 1;
  69.  
  70.     strcpy(LegendStrings[0], "Monday");
  71.     strcpy(LegendStrings[1], "Tuesday" );
  72.     strcpy(LegendStrings[2], "Wednesday");
  73.     strcpy(LegendStrings[3], "Thursday");
  74.     strcpy(LegendStrings[4], "Friday");
  75.     SetPercentWindow( 0.05,0.90,0.95,0.99,3);
  76.  
  77.     for (wc = 1; wc <= 2; wc++ ){
  78.        SetCurrentWindow(wc);
  79.        ClearWindow();
  80.        SetAxesType(0,0);
  81.        ScalePlotArea(0.0,0.0,12.5, 600.0);
  82.        SetXYIntercepts(0.0,0.0);
  83.        strcpy( XStrings[0],"");
  84.        strcpy( XStrings[1],"J");
  85.        strcpy( XStrings[2],"F");
  86.        strcpy( XStrings[3],"M");
  87.        strcpy( XStrings[4],"A");
  88.        strcpy( XStrings[5],"M");
  89.        strcpy( XStrings[6],"J");
  90.        strcpy( XStrings[7],"J");
  91.        strcpy( XStrings[8],"A");
  92.        strcpy( XStrings[9],"S");
  93.        strcpy( XStrings[10],"O");
  94.        strcpy( XStrings[11],"N");
  95.        strcpy( XStrings[12],"D");
  96.  
  97.        SelectColor(1);
  98.        DrawXAxis(1, 0);
  99.        LabelXAxWithStrings(1,XStrings,13,0);
  100.        DrawYAxis(20.0, 0);
  101.        LabelYAxis(5,0);
  102.        GroupPlotData(xdata, &GroupData[0][0], 12, 10,0, 0.75, groupcolor,grouphatch);
  103.        TitleWindow("Ratologist Studies");
  104.        TitleXAxis("Ratologist");
  105.        TitleYAxis("# Rats/wk.");
  106.  
  107.        getch();
  108.  
  109.        ClearWindow();
  110.        SetAxesType(0,0);
  111.        ScalePlotArea(0.0,0.0,12.5, 600.0);
  112.        if (BlackAndWhite == 0)
  113.          SetViewBackground(15);
  114.        SetXYIntercepts(0.0,0.0);
  115.        grouphatch[3] = 4;
  116.        grouphatch[4] = 5;
  117.        SelectColor(1);
  118.        DrawXAxis(1, 0);
  119.        LabelXAxWithStrings(1,XStrings,13,0);
  120.        GroupPlotData(xdata, &GroupData[0][0], 12, 10,1, 0.75, groupcolor,grouphatch);
  121.        DrawYAxis(20.0, 0);
  122.        DrawGridY(5);
  123.        LabelYAxis(5,0);
  124.        TitleXAxis("Ratologist");
  125.        TitleYAxis("# Rats/wk.");
  126.        TitleWindow("Ratologist Studies");
  127.        if (wc == 1){
  128.          SetCurrentWindow(3);
  129.        BorderCurrentWindow(5);
  130.        StringLegends(LegendStrings, groupcolor,grouphatch, 5,1);
  131.        }
  132.        getch();
  133.        ClearWindow();
  134.        SetCurrentWindow(wc);
  135.        ClearWindow();
  136.  
  137.        SetAxesType(0,0);
  138.        ScalePlotArea(0.0,0.0,4.5, 500.0);
  139.        SetXYIntercepts(0.0,0.0);
  140.        SetCurrentWindow(wc);
  141.        if (BlackAndWhite == 0)
  142.           SetViewBackground(15);
  143.        SelectColor(1);
  144.        ScalePlotArea(0.0,0.0,12.5, 100.0);
  145.        SetXYIntercepts(0.0,0.0);
  146.        DrawXAxis(1, 0);
  147.        LabelXAxWithStrings(1,XStrings,13,0);
  148.        DrawYAxis(10.0, 0);
  149.        LabelYAxis(2,0);
  150.        TitleXAxis("Ratologist");
  151.        TitleYAxis("# Rats/wk.");
  152.        TitleWindow("Ratologist Studies");
  153.        GroupPlotData(xdata, &GroupData[0][0], 12, 10,2, 0.75, groupcolor, grouphatch);
  154.        if (wc == 1){
  155.          SetCurrentWindow(3);
  156.        BorderCurrentWindow(5);
  157.        StringLegends(LegendStrings, groupcolor,grouphatch, 5,1);
  158.         }
  159.         getch();
  160.         ClearWindow();
  161.         SetCurrentWindow(wc);
  162.         ClearWindow();
  163.   }
  164.  
  165.   CloseSEGraphics();
  166.  
  167. }
  168.  
  169.