Skeda:From Continuous To Discrete Fourier Transform.gif
Nga testwiki
Kërceni tek navigimi
Kërceni tek kërkimi
From_Continuous_To_Discrete_Fourier_Transform.gif (800 × 242 pixela, madhësia e skedës: 15 KB, tipi MIME: image/gif)
Kjo skedë është nga Wikimedia Commons dhe mund të përdoret nga projektet e tjera. Përshkrimi në faqen përshkruese të skedës është treguar më poshtë.
Përmbledhje
| PërshkrimiFrom Continuous To Discrete Fourier Transform.gif |
English: Relationship between the (continuous) Fourier transform and the discrete Fourier transform.
|
| Data | |
| Burimi | Puna vetjake |
| Autori | Sbyrnes321 |
(* Source code written in Mathematica 6.0, by Steve Byrnes, 2011. I release this code into the public domain. *)
ClearAll["Global`*"]
SetOptions[Plot, Frame -> True, FrameTicks -> None, Axes -> False, PlotRange -> {{-8, 8}, All}];
SetOptions[ListPlot, Frame -> True, FrameTicks -> None, Axes -> False,
Filling -> Axis, PlotStyle -> None, PlotRange -> {{-8, 8}, All}];
f[x_] := Exp[-(4/3)*\[Pi] x^2];
g[x_] := Exp[-(3/4)*\[Pi] x^2];
repeatedf[x_, p_] := Sum[f[x + n*p], {n, -10, 10}];
repeatedg[x_, p_] := Sum[g[x + n*p], {n, -10, 10}];
plotf = Plot[f[x], {x, -10, 10}, PlotStyle -> Darker[Blue]];
plotg = Plot[g[x], {x, -10, 10}, PlotStyle -> Darker[Red]];
plotrepeatedf = Plot[repeatedf[x, 5], {x, -10, 10}, PlotStyle -> Darker[Blue]];
discreteg = Table[{x, g[x]}, {x, -10, 10, 1/5}];
plotdiscreteg = ListPlot[discreteg, FillingStyle -> Darker[Red]];
discretef = Table[{x, f[x]}, {x, -10, 10, 1/3}];
plotdiscretef = ListPlot[discretef, FillingStyle -> Darker[Blue]];
plotrepeatedg = Plot[repeatedg[x, 3], {x, -10, 10}, PlotStyle -> Darker[Red]];
discreterepeatedf = Table[{x, repeatedf[x, 11/4]}, {x, -12, 12, 1/4}];
plotdiscreterepeatedf = ListPlot[discreterepeatedf, FillingStyle -> Darker[Blue]];
discreterepeatedg = Table[{x, repeatedg[x, 4]}, {x, -12, 12, 4/11}];
plotdiscreterepeatedg = ListPlot[discreterepeatedg, FillingStyle -> Darker[Red]];
finalimg = Show[GraphicsGrid[{{plotf, plotrepeatedf, plotdiscretef, plotdiscreterepeatedf},
{plotg, plotdiscreteg, plotrepeatedg, plotdiscreterepeatedg}}], ImageSize -> 800]
SetDirectory["C:\\Users\\Steve\\Desktop"];
Export["test.gif", finalimg]
Licencim
Unë, krijuesi i kësaj pune, e publikoj këtu në bazë të licensës në vijim:
| Kjo skedë është bërë e mundur nën Creative Commons CC0 1.0 Universal Public Domain Dedication. | |
| Personi që lidhi një punë me këtë vepër ia ka dedikuar punën public domain duke shmangur të gjitha të drejtat e tij apo të saj për punën në mbarë botën nën ligjin e të drejtës së autorit, duke përfshirë të gjitha të drejtat e lidhura dhe fqinje, deri në masën e lejuar me ligj. Ju mund ta kopjoni, modifikoni, shpërndani dhe të kryeni pune, madje edhe për qëllime komerciale, të gjitha pa kërkuar leje.
http://creativecommons.org/publicdomain/zero/1.0/deed.enCC0Creative Commons Zero, Public Domain Dedicationfalsefalse |
Kjo math fotografi duhet duhen te behen edhe i here si nje SVG.
|
Captions
Add a one-line explanation of what this file represents
Items portrayed in this file
përshkruan
Creative Commons CC0 License anglisht
5 dhjetor 2011
Historiku i skedarit
Kliko mbi një datë/orë për ta parë skedarin siç është shfaqur në atë kohë.
| Data/Ora | Miniatura | Përmasat | Përdoruesi | Koment | |
|---|---|---|---|---|---|
| e tanishme | 5 dhjetor 2011 19:18 | 800 × 242 (15 KB) | wikimediacommons>Sbyrnes321 |
Përdorimi i skedarit
faqe lidhet tek kjo skedë:
