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. /*
  24. ***** GENERATE INPUT SIGNAL, AND LOAD INTO ARRAY X *****
  25. */
  26.  
  27. for (iCount = 1; iCount <= XDIM; iCount++)
  28. 	fX[iCount] = sin (3.141593 *
  29. 					(float)iCount *
  30. 					(0.05 + 0.0005 * (f1oat)iCount));
  31.  
  32. /*
  33. ****** ESTIMATE OUTPUT SIGNAL OF RECURSIVE FILTER *******
  34. */
  35.  
  36. fY[l] = 0.0;
  37. fY[2] = 0.0;
  38.  
  39. for (iCount = 3; iCount <= YDIM; iCount++)
  40. 	fY[iCount] = 1.5 *
  41. 	fY[iCount - 1] - 0.85 *
  42. 	fY[iCount — 2] + fX[iCount];
  43.  
  44.  
  45. /*
  46. ******* PLOT INPUT AND 0u·1·1>UT SIGNALS ON SCREEN *********
  47. */
  48.  
  49. _setvideomode( _MRES16COLOR );
  50.  
  51. for (iCount = 1; iCount <= XDIM; iCount++)
  52. {
  53. 	_moveto (iCount, 50);
  54. 	_lineto (iCount, (int)(50.0 - fX[iCount] * 25.0 + O.5));
  55.  
  56. 	_moveto (iCount, 150);
  57. 	_lineto (iCount, (1nt)(150.0 - fY[iCount] * 4.0 + O.5));
  58. }
  59.  
  60. getch();
  61.  
  62. _setvideomode( _DEFAULTMODE );
  63. /*
  64. ·k·k**********·k*·k·k1:**~k·k·k·k1:*1:***·k*~A··k**·k**************%*11******
  65. */
  66. }
  67.  
  68.  
Success #stdin #stdout 0.02s 2280KB
comments (?)
stdin 
Standard input is empty
stdout 
Standard output is empty
https://ideone.com/LdCaZ
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!