diff options
| author | alekhgupta1441 <alekhgupta1441@gmail.com> | 2020-03-13 01:49:58 +0530 |
|---|---|---|
| committer | Derek Kozel <derek.kozel@gmail.com> | 2020-03-12 21:26:40 +0000 |
| commit | edaa88fbc889a3d09fd374c3eb49cd46174b049f (patch) | |
| tree | 7f89a8afd17254c59dd139c5bc306bad61bc0773 | |
| parent | 6119083da9a7686cf7c162b9c94927e2b66e4284 (diff) | |
gr-utils:'#'replaced by '%' for commenting in codes.
| -rw-r--r-- | gr-utils/octave/cic_comp_taps.m | 26 | ||||
| -rw-r--r-- | gr-utils/octave/plot_cic_decimator_response.m | 28 | ||||
| -rw-r--r-- | gr-utils/octave/plot_freq_response.m | 20 | ||||
| -rw-r--r-- | gr-utils/octave/plot_freq_response_db.m | 22 | ||||
| -rw-r--r-- | gr-utils/octave/plot_freq_response_phase.m | 20 | ||||
| -rw-r--r-- | gr-utils/octave/single_pole_iir.m | 16 | ||||
| -rw-r--r-- | gr-utils/octave/write_float_binary.m | 24 | ||||
| -rw-r--r-- | gr-utils/octave/write_short_binary.m | 24 |
8 files changed, 90 insertions, 90 deletions
diff --git a/gr-utils/octave/cic_comp_taps.m b/gr-utils/octave/cic_comp_taps.m index 4f7879981a..77d3e16a69 100644 --- a/gr-utils/octave/cic_comp_taps.m +++ b/gr-utils/octave/cic_comp_taps.m @@ -1,17 +1,17 @@ -# -# Copyright 2008 Free Software Foundation, Inc. -# -# This file is part of GNU Radio -# -# SPDX-License-Identifier: GPL-3.0-or-later -# -# +% +% Copyright 2008 Free Software Foundation, Inc. +% +% This file is part of GNU Radio +% +% SPDX-License-Identifier: GPL-3.0-or-later +% +% -# See Altera Application Note AN455 -# -# R = decimation factor, 8-256 -# Fc = passband (one-sided) cutoff frequency -# L = number of taps +% See Altera Application Note AN455 +% +% R = decimation factor, 8-256 +% Fc = passband (one-sided) cutoff frequency +% L = number of taps function taps = cic_comp_taps(R, Fc, L) M = 1; %% Differential delay diff --git a/gr-utils/octave/plot_cic_decimator_response.m b/gr-utils/octave/plot_cic_decimator_response.m index 3bc3fe56cf..2fab31941e 100644 --- a/gr-utils/octave/plot_cic_decimator_response.m +++ b/gr-utils/octave/plot_cic_decimator_response.m @@ -1,32 +1,32 @@ -# -# Copyright 2004 Free Software Foundation, Inc. -# -# This file is part of GNU Radio -# -# SPDX-License-Identifier: GPL-3.0-or-later -# -# +% +% Copyright 2004 Free Software Foundation, Inc. +% +% This file is part of GNU Radio +% +% SPDX-License-Identifier: GPL-3.0-or-later +% +% function plot_cic_decimator_response (R, N, M) - ## R = decimation rate - ## N = number of stages (4) - ## M = 1 + %% R = decimation rate + %% N = number of stages (4) + %% M = 1 gain = (R*M)^N npoints = 1024; w = 0:1/npoints:1-1/npoints; w = w * 1 * pi; - ## w = w * R; + %% w = w * R; length(w); num = sin (w*R*M/2); length (num); - ## H = sin (w*R*M/2) ./ sin (w/2) + %% H = sin (w*R*M/2) ./ sin (w/2) denom = sin(w/2); length (denom); H = (num ./ denom) .^ N; H(1) = gain; H = H ./ gain; plot (R*w/(2*pi), 10 * log10 (H)); - ## plot (R*w/(2*pi), H); + %% plot (R*w/(2*pi), H); endfunction diff --git a/gr-utils/octave/plot_freq_response.m b/gr-utils/octave/plot_freq_response.m index 6d53672e09..f26c1d04c0 100644 --- a/gr-utils/octave/plot_freq_response.m +++ b/gr-utils/octave/plot_freq_response.m @@ -1,18 +1,18 @@ -# -# Copyright 2001 Free Software Foundation, Inc. -# -# This file is part of GNU Radio -# -# SPDX-License-Identifier: GPL-3.0-or-later -# -# +% +% Copyright 2001 Free Software Foundation, Inc. +% +% This file is part of GNU Radio +% +% SPDX-License-Identifier: GPL-3.0-or-later +% +% function plot_freq_response (b,...) if (nargin == 1) - ## Response of an FIR filter + %% Response of an FIR filter a = 1; elseif (nargin == 2) - ## response of an IIR filter + %% response of an IIR filter a = va_arg (); endif diff --git a/gr-utils/octave/plot_freq_response_db.m b/gr-utils/octave/plot_freq_response_db.m index af0c919a42..722505b847 100644 --- a/gr-utils/octave/plot_freq_response_db.m +++ b/gr-utils/octave/plot_freq_response_db.m @@ -1,18 +1,18 @@ -# -# Copyright 2001 Free Software Foundation, Inc. -# -# This file is part of GNU Radio -# -# SPDX-License-Identifier: GPL-3.0-or-later -# -# +% +% Copyright 2001 Free Software Foundation, Inc. +% +% This file is part of GNU Radio +% +% SPDX-License-Identifier: GPL-3.0-or-later +% +% function plot_freq_response_db (b,...) if (nargin == 1) - ## Response of an FIR filter + %% Response of an FIR filter a = 1; elseif (nargin == 2) - ## response of an IIR filter + %% response of an IIR filter a = va_arg (); endif @@ -22,6 +22,6 @@ function plot_freq_response_db (b,...) xlabel ('Normalized Frequency (Fs == 1)'); ylabel ('Magnitude Squared (dB)'); abs = abs(H); -# plot (w/(2*pi), 20 * log10 (abs/max(abs))); +% plot (w/(2*pi), 20 * log10 (abs/max(abs))); plot (w/(2*pi), 20 * log10 (abs)); endfunction diff --git a/gr-utils/octave/plot_freq_response_phase.m b/gr-utils/octave/plot_freq_response_phase.m index a20fb0c8f2..f50b4cbc6e 100644 --- a/gr-utils/octave/plot_freq_response_phase.m +++ b/gr-utils/octave/plot_freq_response_phase.m @@ -1,18 +1,18 @@ -# -# Copyright 2001 Free Software Foundation, Inc. -# -# This file is part of GNU Radio -# -# SPDX-License-Identifier: GPL-3.0-or-later -# -# +% +% Copyright 2001 Free Software Foundation, Inc. +% +% This file is part of GNU Radio +% +% SPDX-License-Identifier: GPL-3.0-or-later +% +% function plot_freq_response_db (b,...) if (nargin == 1) - ## Response of an FIR filter + %% Response of an FIR filter a = 1; elseif (nargin == 2) - ## response of an IIR filter + %% response of an IIR filter a = va_arg (); endif diff --git a/gr-utils/octave/single_pole_iir.m b/gr-utils/octave/single_pole_iir.m index 2bbba39b09..f59e72f935 100644 --- a/gr-utils/octave/single_pole_iir.m +++ b/gr-utils/octave/single_pole_iir.m @@ -1,11 +1,11 @@ -# -# Copyright 2002 Free Software Foundation, Inc. -# -# This file is part of GNU Radio -# -# SPDX-License-Identifier: GPL-3.0-or-later -# -# +% +% Copyright 2002 Free Software Foundation, Inc. +% +% This file is part of GNU Radio +% +% SPDX-License-Identifier: GPL-3.0-or-later +% +% function [b, a] = single_pole_iir (alpha) b = [alpha]; diff --git a/gr-utils/octave/write_float_binary.m b/gr-utils/octave/write_float_binary.m index 01905c1d54..75309c07f1 100644 --- a/gr-utils/octave/write_float_binary.m +++ b/gr-utils/octave/write_float_binary.m @@ -1,18 +1,18 @@ -# -# Copyright 2001 Free Software Foundation, Inc. -# -# This file is part of GNU Radio -# -# SPDX-License-Identifier: GPL-3.0-or-later -# -# +% +% Copyright 2001 Free Software Foundation, Inc. +% +% This file is part of GNU Radio +% +% SPDX-License-Identifier: GPL-3.0-or-later +% +% function v = write_float_binary (data, filename) - ## usage: write_float_binary (data, filename) - ## - ## open filename and write data to it as 32 bit floats - ## + %% usage: write_float_binary (data, filename) + %% + %% open filename and write data to it as 32 bit floats + %% if ((m = nargchk (2,2,nargin))) usage (m); diff --git a/gr-utils/octave/write_short_binary.m b/gr-utils/octave/write_short_binary.m index f1ca4dc262..8c1ec6efc1 100644 --- a/gr-utils/octave/write_short_binary.m +++ b/gr-utils/octave/write_short_binary.m @@ -1,18 +1,18 @@ -# -# Copyright 2001 Free Software Foundation, Inc. -# -# This file is part of GNU Radio -# -# SPDX-License-Identifier: GPL-3.0-or-later -# -# +% +% Copyright 2001 Free Software Foundation, Inc. +% +% This file is part of GNU Radio +% +% SPDX-License-Identifier: GPL-3.0-or-later +% +% function v = write_short_binary (data, filename) - ## usage: write_short_binary (data, filename) - ## - ## open filename and write data to it as 16 bit shorts - ## + %% usage: write_short_binary (data, filename) + %% + %% open filename and write data to it as 16 bit shorts + %% if ((m = nargchk (2,2,nargin))) usage (m); |