Skeda:From Continuous To Discrete Fourier Transform.gif
Nuk ka përmasa më të madhaja.
From_Continuous_To_Discrete_Fourier_Transform.gif ((përmasa 800 × 242 px, madhësia skedës: 15 KB, lloji MIME: image/gif))
|
Kjo skedë është prej Wikimedia Commons dhe mund të përdoret nga projekte të tjera. Përshkrimi në këtë skedë në këtë faqe nuk është treguar më poshtë. | 
|
Shko tek faqja përshkruese në Commons |
Përmbledhje
| Përshkrimi |
English: Relationship between the (continuous) Fourier transform and the discrete Fourier transform.
|
| Data | |
| Burimi | Punë e juaja |
| 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.
|
|
Kjo math fotografi duhet duhen te behen edhe i here si nje SVG.
|
Historiku skedës
Shtypni mbi një datë/kohë për ta parë skedën siç ishte atëherë.
| Data/Koha | Miniaturë | Përmasat | Përdoruesi | Koment | |
|---|---|---|---|---|---|
| e tanishme | 5 dhjetor 2011 19:18 | | 800 × 242 (15 KB) | Sbyrnes321 |
Lidhje skedash
Këto faqe lidhen tek kjo skedë:
Përdorimi global i skedës
Kjo skedë përdoret nga Wiki të tjera në vijim:
- Përdorimi në ca.wikipedia.org
- Përdorimi në el.wikipedia.org
- Përdorimi në en.wikipedia.org
- Përdorimi në et.wikipedia.org
- Përdorimi në lt.wikipedia.org
- Përdorimi në pt.wikipedia.org
- Përdorimi në zh.wikipedia.org
