2020-04-18 08:09:38 +00:00
|
|
|
#include <stdio.h>
|
|
|
|
|
#include <stdlib.h>
|
|
|
|
|
#include <string.h>
|
|
|
|
|
#include "dspl.h"
|
|
|
|
|
|
2020-07-08 20:28:59 +00:00
|
|
|
/* Filter order */
|
2020-04-18 08:09:38 +00:00
|
|
|
#define ORD 4
|
|
|
|
|
|
2020-07-08 20:28:59 +00:00
|
|
|
/* Frequency response vector size */
|
2020-04-18 08:09:38 +00:00
|
|
|
#define N 1000
|
|
|
|
|
|
|
|
|
|
int main(int argc, char* argv[])
|
|
|
|
|
{
|
2020-07-18 06:34:52 +00:00
|
|
|
void* hdspl; /* DSPL handle */
|
|
|
|
|
void* hplot; /* GNUPLOT handle */
|
|
|
|
|
double a[ORD+1]; /* H(s) numerator coefficients vector */
|
|
|
|
|
double b[ORD+1]; /* H(s) denominator coefficients vector */
|
|
|
|
|
double Rs = 60.0; /* Stopband suppression (dB) */
|
|
|
|
|
double w[N]; /* Angular frequency (rad/s) */
|
|
|
|
|
double mag[N]; /* Filter Magnitude (dB) */
|
|
|
|
|
double phi[N]; /* Phase response */
|
|
|
|
|
double tau[N]; /* Group delay */
|
|
|
|
|
int k;
|
2020-04-18 08:09:38 +00:00
|
|
|
|
2020-07-18 06:34:52 +00:00
|
|
|
/* Load DSPL function */
|
|
|
|
|
hdspl = dspl_load();
|
|
|
|
|
if(!hdspl)
|
|
|
|
|
{
|
|
|
|
|
printf("libdspl loading error!\n");
|
|
|
|
|
return -1;
|
|
|
|
|
}
|
2020-04-18 08:09:38 +00:00
|
|
|
|
2020-07-18 06:34:52 +00:00
|
|
|
/* H(s) coefficients calculation */
|
|
|
|
|
int res = cheby2_ap(Rs, ORD, b, a);
|
|
|
|
|
if(res != RES_OK)
|
|
|
|
|
printf("error code = 0x%8x\n", res);
|
2020-04-18 08:09:38 +00:00
|
|
|
|
2020-07-18 06:34:52 +00:00
|
|
|
/* Print H(s) coefficients */
|
|
|
|
|
for(k = 0; k < ORD+1; k++)
|
|
|
|
|
printf("b[%2d] = %9.3f a[%2d] = %9.3f\n", k, b[k], k, a[k]);
|
2020-04-18 08:09:38 +00:00
|
|
|
|
2020-07-18 06:34:52 +00:00
|
|
|
/* Frequency in logarithmic scale from 0.01 to 100 rad/s */
|
|
|
|
|
logspace(-2.0, 2.0, N , DSPL_SYMMETRIC, w);
|
2020-04-18 08:09:38 +00:00
|
|
|
|
2020-07-18 06:34:52 +00:00
|
|
|
/* Filter frequency parameter calculation */
|
|
|
|
|
filter_freq_resp(b, a, ORD, w, N,
|
|
|
|
|
DSPL_FLAG_LOGMAG|DSPL_FLAG_UNWRAP | DSPL_FLAG_ANALOG,
|
|
|
|
|
mag, phi, tau);
|
2020-04-18 08:09:38 +00:00
|
|
|
|
2020-07-18 06:34:52 +00:00
|
|
|
/* Write Magnitude, phase response and group delay to the files */
|
|
|
|
|
writetxt(w, mag, N, "dat/cheby2_ap_test_mag.txt");
|
|
|
|
|
writetxt(w, phi, N, "dat/cheby2_ap_test_phi.txt");
|
|
|
|
|
writetxt(w, tau, N, "dat/cheby2_ap_test_tau.txt");
|
2020-04-18 08:09:38 +00:00
|
|
|
|
2020-07-18 06:34:52 +00:00
|
|
|
/* plotting by GNUPLOT */
|
|
|
|
|
gnuplot_create(argc, argv, 920, 260, "img/cheby2_ap_test.png", &hplot);
|
|
|
|
|
gnuplot_cmd(hplot, "set logscale x");
|
|
|
|
|
gnuplot_cmd(hplot, "unset key");
|
|
|
|
|
gnuplot_cmd(hplot, "set grid");
|
|
|
|
|
gnuplot_cmd(hplot, "set xlabel 'frequency, rad/s'");
|
|
|
|
|
gnuplot_cmd(hplot, "set multiplot layout 1,3 rowsfirst");
|
|
|
|
|
gnuplot_cmd(hplot, "set ylabel 'Magnitude, dB'");
|
|
|
|
|
gnuplot_cmd(hplot, "set yrange [-100:5]");
|
|
|
|
|
gnuplot_cmd(hplot, "plot 'dat/cheby2_ap_test_mag.txt' with lines");
|
|
|
|
|
gnuplot_cmd(hplot, "set ylabel 'Phase response, rad'");
|
|
|
|
|
gnuplot_cmd(hplot, "unset yrange");
|
|
|
|
|
gnuplot_cmd(hplot, "plot 'dat/cheby2_ap_test_phi.txt' with lines");
|
|
|
|
|
gnuplot_cmd(hplot, "set ylabel 'Groupdelay, sec'");
|
|
|
|
|
gnuplot_cmd(hplot, "unset yrange");
|
|
|
|
|
gnuplot_cmd(hplot, "plot 'dat/cheby2_ap_test_tau.txt' with lines");
|
|
|
|
|
gnuplot_cmd(hplot, "unset multiplot");
|
|
|
|
|
gnuplot_close(hplot);
|
2020-04-18 08:09:38 +00:00
|
|
|
|
2020-07-18 06:34:52 +00:00
|
|
|
/* free dspl handle */
|
|
|
|
|
dspl_free(hdspl);
|
|
|
|
|
|
|
|
|
|
return res;
|
2020-04-18 08:09:38 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
