File:Analytic.svg
From Infogalactic: the planetary knowledge core
![File:Analytic.svg](/w/images/thumb/d/d7/Analytic.svg/373px-Analytic.svg.png)
Size of this PNG preview of this SVG file: 373 × 354 pixels. Other resolution: 253 × 240 pixels.
Original file (SVG file, nominally 373 × 354 pixels, file size: 37 KB)
Summary
A signal and the magnitude of its analytic signal, to demonstrate the envelope effect. I made it using Octave (that uses Gnuplot internally to output in SVG). Here is the code:
<span class="n">t</span><span class="p">=[</span><span class="mi">0</span><span class="p">:.</span><span class="mi">0001</span><span class="p">:</span><span class="mi">3</span><span class="p">];</span>
<span class="n">y1</span><span class="p">=</span><span class="o">-</span><span class="p">(</span><span class="mf">1.2</span><span class="o">./</span><span class="n">t</span><span class="p">)</span><span class="o">-</span><span class="n">t</span><span class="o">+</span><span class="mi">3</span><span class="p">;</span>
<span class="n">y1</span><span class="p">(</span><span class="n">y1</span><span class="o"><</span><span class="mi">0</span><span class="p">)=</span><span class="mi">0</span><span class="p">;</span>
<span class="n">y2</span><span class="p">=</span><span class="nb">sin</span><span class="p">(</span><span class="mi">2</span><span class="o">*</span><span class="mi">3</span><span class="o">*</span><span class="nb">pi</span><span class="o">*</span><span class="n">t</span><span class="p">);</span>
<span class="n">y3</span><span class="p">=</span><span class="n">y1</span><span class="o">.*</span><span class="n">y2</span><span class="p">;</span>
<span class="n">hil</span><span class="p">=</span><span class="nb">abs</span><span class="p">(</span><span class="n">hilbert</span><span class="p">(</span><span class="n">y3</span><span class="p">));</span>
<span class="n">gset</span> <span class="n">terminal</span> <span class="n">svg</span> <span class="n">enhanced</span> <span class="n">fname</span> "<span class="n">Times</span>" <span class="n">fsize</span> <span class="mi">20</span>
<span class="n">gset</span> <span class="n">output</span> "<span class="n">analytic</span><span class="p">.</span><span class="n">svg</span>"
<span class="n">gset</span> <span class="n">nokey</span>
<span class="n">gset</span> <span class="n">yrange</span> <span class="p">[</span><span class="o">-</span><span class="mi">1</span><span class="p">:</span><span class="mi">1</span><span class="p">]</span>
<span class="n">plot</span><span class="p">(</span><span class="n">t</span><span class="p">,</span><span class="n">y3</span><span class="p">,</span>"<span class="mi">3</span>"<span class="p">,</span><span class="n">t</span><span class="p">,</span><span class="n">hil</span><span class="p">,</span>"<span class="mi">1</span>"<span class="p">);</span>
Licensing
Lua error in package.lua at line 80: module 'strict' not found.
File history
Click on a date/time to view the file as it appeared at that time.
Date/Time | Thumbnail | Dimensions | User | Comment | |
---|---|---|---|---|---|
current | 18:21, 15 January 2017 | ![]() | 373 × 354 (37 KB) | 127.0.0.1 (talk) | <p>A signal and the magnitude of its analytic signal, to demonstrate the envelope effect. I made it using Octave (that uses Gnuplot internally to output in SVG). Here is the code: </p> <div class="mw-highlight mw-content-ltr" dir="ltr"><pre><span class="n">t</span><span class="p">=[</span><span class="mi">0</span><span class="p">:.</span><span class="mi">0001</span><span class="p">:</span><span class="mi">3</span><span class="p">];</span> <span class="n">y1</span><span class="p">=</span><span class="o">-</span><span class="p">(</span><span class="mf">1.2</span><span class="o">./</span><span class="n">t</span><span class="p">)</span><span class="o">-</span><span class="n">t</span><span class="o">+</span><span class="mi">3</span><span class="p">;</span> <span class="n">y1</span><span class="p">(</span><span class="n">y1</span><span class="o"><</span><span class="mi">0</span><span class="p">)=</span><span class="mi">0</span><span class="p">;</span> <span class="n">y2</span><span class="p">=</span><span class="nb">sin</span><span class="p">(</span><span class="mi">2</span><span class="o">*</span><span class="mi">3</span><span class="o">*</span><span class="nb">pi</span><span class="o">*</span><span class="n">t</span><span class="p">);</span> <span class="n">y3</span><span class="p">=</span><span class="n">y1</span><span class="o">.*</span><span class="n">y2</span><span class="p">;</span> <span class="n">hil</span><span class="p">=</span><span class="nb">abs</span><span class="p">(</span><span class="n">hilbert</span><span class="p">(</span><span class="n">y3</span><span class="p">));</span> <span class="n">gset</span> <span class="n">terminal</span> <span class="n">svg</span> <span class="n">enhanced</span> <span class="n">fname</span> "<span class="n">Times</span>" <span class="n">fsize</span> <span class="mi">20</span> <span class="n">gset</span> <span class="n">output</span> "<span class="n">analytic</span><span class="p">.</span><span class="n">svg</span>" <span class="n">gset</span> <span class="n">nokey</span> <span class="n">gset</span> <span class="n">yrange</span> <span class="p">[</span><span class="o">-</span><span class="mi">1</span><span class="p">:</span><span class="mi">1</span><span class="p">]</span> <span class="n">plot</span><span class="p">(</span><span class="n">t</span><span class="p">,</span><span class="n">y3</span><span class="p">,</span>"<span class="mi">3</span>"<span class="p">,</span><span class="n">t</span><span class="p">,</span><span class="n">hil</span><span class="p">,</span>"<span class="mi">1</span>"<span class="p">);</span> </pre></div> |
- You cannot overwrite this file.
File usage
The following 2 pages link to this file: