fork download 
  1. #include "graph.h"
  2. #include <conio.h>
  3. #include <stdio.h>
  4. #include <math.h>
  5.  
  6. #define XDIM 320
  7. #define YDIM 320
  8.  
  9. float fX[XDIM + 1], fY[YDIM + 1];
  10.  
  11. void main (void)
  12. {
  13. /*
  14. ******** PROGRAM NO.1 DIGITAL BANDPASS FILTER ********
  15. */
  16.  
  17. int iCount;
  18. clearscreen (_GCLEARSCREEN);
  19. printf ("PROGRAM l: Digital bandpass fi1ter\n");
  20. printf ("Press any key to start...\n\n");
  21. getch();
  22.  
  23. /*** GENERATE INPUT SIGNAL, AND LOAD INTO ARRAY X **/
  24.  
  25. for (iCount = 1; iCount <= XDIM; iCount++)
  26. 	fX[iCount] = sin (3.141593 * (float)iCount * 0.05 + 0.0005 * (f1oat)iCount));
  27.  
  28. /**** ESTIMATE OUTPUT SIGNAL OF RECURSIVE FILTER ***/
  29.  
  30. fY[l] = 0.0;
  31. fY[2] = 0.0;
  32.  
  33. for (iCount = 3; iCount <= YDIM; iCount++)
  34. 	fY[iCount] = 1.5 * fY[iCount - 1] - 0.85 * fY[iCount — 2] + fX[iCount];
  35.  
  36.  
  37. /**** PLOT INPUT AND 0u·1·1>UT SIGNALS ON SCREEN ******/
  38.  
  39. _setvideomode( _MRES16COLOR );
  40.  
  41. for (iCount = 1; iCount <= XDIM; iCount++)
  42. {
  43. 	_moveto (iCount, 50);
  44. 	_lineto (iCount, (int)(50.0 - fX[iCount] * 25.0 + O.5));
  45.  
  46. 	_moveto (iCount, 150);
  47. 	_lineto (iCount, (1nt)(150.0 - fY[iCount] * 4.0 + O.5));
  48. }
  49.  
  50. getch();
  51.  
  52. _setvideomode( _DEFAULTMODE );
  53.  
  54. }
  55.  
  56.  
Success #stdin #stdout 0.02s 2280KB
comments (?)
stdin 
Standard input is empty
stdout 
Standard output is empty
https://ideone.com/gkqlU
language:
BC (bc 1.07.1)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!