home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c129 / 1.ddi / LOGDEM.C < prev    next >
Encoding:
C/C++ Source or Header  |  1989-03-06  |  4.2 KB  |  152 lines
  1. # include <math.h>
  2. # include <stdlib.h>
  3. # include <stdio.h>
  4. # include <graph.h>
  5. # include <string.h>
  6. # include "worlddr.h"
  7. # include "segraph.h"
  8. # include "asyncxx.h"
  9. # include <conio.h>
  10.  
  11. int  code, wc,k,j,i,err;
  12. float  rr,xx1,yy1;
  13. float  xdata[50], ydata[50], y2data[50], y3data[50], y4data[50];
  14. char ch, plottype[2] = {0,0};
  15. int ptype, chnum;
  16.  
  17.  
  18. void main(){
  19.   for ( i = 0; i< 50; i++)  {
  20.     rr = i+1;
  21.     xdata[i] = rr ;
  22.     ydata[i] =  rr * rr * (rand()/32766.0)+ 0.10;
  23.     y2data[i] = 1000 + ((2-(rand()/32766.0))/2.0) * 1000 * cos(rr/2.0);
  24.     y3data[i] = 3000 * (1-exp(-rr/10)) * (4-(rand()/32766.0))/4.0;
  25.   }
  26.   InitSEGraphics(6);
  27.   SetPercentWindow(0.01,0.01,0.255,0.22,6);
  28.   SetPercentWindow(0.26,0.01,0.505,0.22,7);
  29.   SetPercentWindow(0.51,0.01,0.755,0.22,8);
  30.   SetPercentWindow(0.76,0.01,0.99,0.22,9);
  31.   SetCurrentWindow(6); BorderCurrentWindow(1);
  32.   SetWin2PlotRatio(6,0.20,0.20,0.05,0.20);
  33.   ScalePlotArea(0.0,0.0,50.0, 3000.0);
  34.   SetXYIntercepts(0, 0);
  35.   TitleWindow("SIGNAL #1");
  36.   TitleXAxis("FREQ.");
  37.   TitleYAxis("MAG.");
  38.   DrawYAxis(500, 0);
  39.   DrawXAxis(10, 0);
  40.   LinePlotData(xdata, ydata,50,2,0);
  41.  
  42.   SetCurrentWindow(7); BorderCurrentWindow(1);
  43.   SetWin2PlotRatio(7,0.20,0.20,0.05,0.2);
  44.   ScalePlotArea(0.0,0.0,30.0, 3000.0);
  45.   SetXYIntercepts(0, 0);
  46.   DrawYAxis(500, 0);
  47.   DrawXAxis(10, 0);
  48.   TitleWindow("SIGNAL #2");
  49.   TitleXAxis("FREQ.");
  50.   TitleYAxis("MAG.");
  51.   LinePlotData(xdata, y2data,50,2,0);
  52.  
  53.   SetCurrentWindow(8); BorderCurrentWindow(1);
  54.   SetWin2PlotRatio(8,0.20,0.20,0.05,0.2);
  55.   ScalePlotArea(0.0,0.0,50.0, 3000.0);
  56.   SetXYIntercepts(0,0);
  57.   DrawYAxis(500, 0);
  58.   DrawXAxis(10, 0);
  59.   TitleWindow("SIGNAL #3");
  60.   TitleXAxis("FREQ.");
  61.   TitleYAxis("MAG.");
  62.   LinePlotData(xdata, y3data,50,2,0);
  63.  
  64.   SetCurrentWindow(9); BorderCurrentWindow(1);
  65.   SetWin2PlotRatio(9,0.20,0.20,0.05,0.2);
  66.   ScalePlotArea(25.0,0.0,50.0, 3000.0);
  67.   SetXYIntercepts(25,0);
  68.   DrawYAxis(500, 0);
  69.   DrawXAxis(10, 0);
  70.   TitleWindow("SIGNAL #4");
  71.   TitleXAxis("FREQ.");
  72.   TitleYAxis("MAG.");
  73.   LinePlotData(xdata, ydata,50,2,0);
  74.   SetPercentWindow(0.0,0.25,0.99,0.80,4);
  75.   SetPercentWindow(0.0,0.85,0.99,0.95,1);
  76.  
  77.  
  78.   for ( i = 0; i< 50; i++)  {
  79.     y2data[i] = ydata[i] + 5.0;
  80.     y3data[i] = ydata[i] - 5.0;
  81.   }
  82.  
  83.   SetCurrentWindow(4);
  84.   ClearWindow();
  85.   SetAxesType(0,1);
  86.   SelectColor(7);
  87.   AutoAxes(xdata,ydata,50,0);
  88.   LinePlotData(xdata, ydata,50,3,1);
  89.   SelectColor(1);
  90.   TitleWindow("SEMI-LOG PLOT");
  91.   TitleXAxis("FREQUENCY");
  92.   TitleYAxis("MAGNITUDE");
  93.   BorderCurrentWindow(1);
  94.   setlinestyleXX(1,0,0);
  95.   DrawGridY(1);
  96.   DrawGridX(10);
  97.  
  98.  
  99.   do {
  100.     SetCurrentWindow(1);
  101.     ClearWindow();
  102.     setlinestyleXX(0,0,0);
  103.     BorderCurrentWindow(1);
  104.     LabelGraphWindow(10,600,
  105.       "Select Graph Type <1-3> or Q to Quit  ",0,0);
  106.     LabelGraphWindow(10,200,
  107.       "GRAPH TYPE:   1 - LINE-PLOT  2 - SCATTER-PLOT  3 - BAR-GRAPH",0,0);    ch = getch();
  108.     ptype = (int) (ch - 48);
  109.     ch = toupper(ch);
  110.     if (ch != 'Q'){
  111.       ClearWindow();
  112.       BorderCurrentWindow(1);
  113.       LabelGraphWindow(10,600,"Enter Axis Type <1-3> ",0,0);
  114.       LabelGraphWindow(10,200,
  115.            "AXES TYPE:    1 - AUTO-LIN  2 - AUTO-SEMILOG  3 - AUTO-LOG",0,0);
  116.       ch = getch();
  117.       chnum = (int) (ch-48);
  118.       SetCurrentWindow(4);
  119.       ClearWindow();
  120.       switch (chnum) {
  121.         case 1  :  SetAxesType(0,0); break;
  122.         case 2  :  SetAxesType(0,1); break;
  123.         case 3  :  SetAxesType(1,1); break;
  124.       }
  125.       SelectColor(7);
  126.       AutoAxes(xdata,ydata,50,0);
  127.       switch ( ptype ){
  128.         case 1 :    LinePlotData(xdata, ydata,50,3,1);break;
  129.         case 2 :    ScatterPlotData(xdata,ydata,50,3,1);break;
  130.         case 3 :    BargraphData( xdata,ydata,50, 0.5,3,1 );break;
  131.       }
  132.       SelectColor(1);
  133.       if (chnum  == 1) TitleWindow("LINEAR PLOT");
  134.          else if (chnum == 2 ) TitleWindow("SEMI-LOG PLOT");
  135.               else   TitleWindow("LOG PLOT");
  136.       TitleXAxis("FREQUENCY");
  137.       TitleYAxis("MAGNITUDE");
  138.       BorderCurrentWindow(1);
  139.       setlinestyleXX(1,0,0);
  140.       if (ch == 49)
  141.         DrawGridY(5);
  142.       else
  143.         DrawGridY(1);
  144.       DrawGridX(10);
  145.       }
  146.    }
  147.   while (ch != 'Q');
  148.  
  149.   CloseSEGraphics();
  150.  
  151. }
  152.