File:Daubechies4-functions.svg
Fra Wikimedia Commons
Spring til navigation
Spring til søgning
![File:Daubechies4-functions.svg](https://upload.wikimedia.org/wikipedia/commons/thumb/b/b0/Daubechies4-functions.svg/800px-Daubechies4-functions.svg.png?20090911112533)
Size of this PNG preview of this SVG file: 800 × 600 pixels. Andre opløsninger: 320 × 240 pixels | 640 × 480 pixels | 1.024 × 768 pixels | 1.280 × 960 pixels | 2.560 × 1.920 pixels | 1.000 × 750 pixels.
Oprindelig fil (SVG fil, basisstørrelse 1.000 × 750 pixels, filstørrelse: 10 KB)
File information
Structured data
Captions
Captions
Tilføj en kort forklaring på en enkelt linje om hvad filen viser
Beskrivelse
[redigér]BeskrivelseDaubechies4-functions.svg |
English: Daubechies 4 tap wavelet and scaling functions |
Dato | |
Kilde | Eget arbejde |
Forfatter | LutzL |
Andre versioner | Daubechies4-functions.png |
Licensering
[redigér]Jeg, dette værks ophavsretsindehaver, udgiver hermed værket under den følgende licens:
![w:da:Creative Commons](https://upload.wikimedia.org/wikipedia/commons/thumb/7/79/CC_some_rights_reserved.svg/90px-CC_some_rights_reserved.svg.png)
![kreditering](https://upload.wikimedia.org/wikipedia/commons/thumb/1/11/Cc-by_new_white.svg/24px-Cc-by_new_white.svg.png)
![deling på samme vilkår](https://upload.wikimedia.org/wikipedia/commons/thumb/d/df/Cc-sa_white.svg/24px-Cc-sa_white.svg.png)
Denne fil er udgivet under Creative Commons Kreditering-Del på samme vilkår 3.0 Ikke-porteret-licensen.
- Du må frit:
- at dele – at kopiere, distribuere og overføre værket
- at remixe – at tilpasse værket
- Under følgende vilkår:
- kreditering – Du skal give passende kreditering, angive et link til licensen, og oplyse om der er foretaget ændringer. Du må gøre det på enhver fornuftig måde, men ikke på en måde der antyder at licensgiveren godkender dig eller din anvendelse.
- deling på samme vilkår – Hvis du bearbejder, ændrer eller bygger videre på dette værk, skal du distribuere dine bidrag under den samme eller en kompatibel licens som originalen.
![]() |
Tilladelse er givet til at kopiere, distribuere og/eller ændre dette dokument under betingelserne i GNU Free Documentation License', Version 1.2 eller enhver senere version udgivet af Free Software Foundation; uden et invariant afsnit, ingen forsidetekster, og ingen bagsidetekst. En kopi af licensen er inkluderet i afsnittet GNU Free Documentation License.http://www.gnu.org/copyleft/fdl.htmlGFDLGNU Free Documentation Licensetruetrue |
Du kan vælge den licens du foretrækker.
file daubechies.magma
[redigér]see en:Magma computer algebra system, with link for an online calculator.
R<I>:=ComplexField(30);
LP<Z> := LaurentSeriesRing(R);
T:=(-Z+2-Z^-1)/4;
TR<U>:=PowerSeriesRing(R);
Pol<X>:=PolynomialRing(R);
readi A,"What accuracy should the wavelets have?";
PolarFactorization:=function(A)
pp:=Truncate( (1-U+O(U^A))^-A );
pp:=Evaluate(pp,X);
p:=LP!1;
for rr in Roots(pp) do
r:=rr[1];r;
for ff in Roots(X^2+(4*r-2)*X+1) do
f:=ff[1];
if Abs(f) ge 1 then p*:=Z-f; end if;
end for;
end for;
p1:=Evaluate(p,1);
return LP![ Real(c): c in Eltseq(p/p1) ],pp;
end function;
p,p2:=PolarFactorization(A);p;a:=2^(1-A)*(1+Z)^A*p;a2:=(1-X)^A*p2;
"Scaling sequence",Coefficients(a),"product filter", Coefficients(a2);
Decimation:= function(c)
return LP![ Coefficient(c,2*k): k in [0..Degree(c) div 2+2] ];
end function;
// Power iteration for the values of the scaling function at integer locations
shape := LP!(Z^A);
for i := 1 to 10 do
for k := 1 to 10 do
shape := Decimation(a*shape); shape := shape/Evaluate(shape,1);
end for;
shape:=LP![ R!(1+Coefficient(shape,k))-1: k in [0..Degree(shape)] ];
end for;
wave := LP![ (-1)^k*Coefficient(a,2*A-k): k in [1..2*A] ];
scal := shape;
dx := 1; supp := 2*A-1; pow:=1;
for i := 1 to 4 do
scal := scal*LP!Evaluate(a,Z^pow);
dx /:=2; supp *:=2; pow*:=2;
end for;
wave := scal*LP!Evaluate(wave,Z^pow);
scal := scal*LP!Evaluate(a,Z^pow);
dx /:=2; supp *:=2; pow*:=2;
a2;
fp := Open(Sprintf("daub%o-scal.dat",A),"w");
RO:=RealField(12);
for k := 1 to supp do
fprintf fp, "%o\t%o\t%o\t%o\t%o\n",RO!(k*dx),
RO!Coefficient(scal,k),
RO!Coefficient(wave,k),
RO!Abs(Evaluate(scal,Exp(I*2*Pi(RO)*dx^2*k))*dx),
RO!Abs(Evaluate(wave,Exp(I*2*Pi(RO)*dx^2*k))*dx);
end for;
Flush(fp);
set data style lines
set zeroa
set key bottom
set term svg enhanced size 1000,750 fsize 24
set out "Daubechies4-functions.svg"
set title "Daubechies 4 tap wavelet"
pl "daub2-scal.dat" u 1:2 ti "scaling function" w lines lt 3 lw 3,\
"daub2-scal.dat" u 1:3 ti "wavelet function" w lines lt 1 lw 3
set out
Filhistorik
Klik på en dato/tid for at se filen som den så ud på det tidspunkt.
Dato/tid | Miniaturebillede | Dimensioner | Bruger | Kommentar | |
---|---|---|---|---|---|
nuværende | 11. sep. 2009, 11:25 | ![]() | 1.000 × 750 (10 KB) | LutzL (diskussion | bidrag) | {{Information |Description={{en|1=Daubechies 4 tap wavelet and scaling functions}} |Source=Own work by uploader |Author=LutzL |Date=2009-09-11 |Permission= |other_versions=Daubechies4-functions.png }} Category:Wavelets [[Category:Gnupl |
Du kan ikke overskrive denne fil.
Filanvendelse
De følgende 2 sider bruger denne fil:
Global filanvendelse
Følgende andre wikier anvender denne fil:
- Anvendelser på ca.wikipedia.org
- Anvendelser på da.wikipedia.org
- Anvendelser på de.wikipedia.org
- Anvendelser på en.wikipedia.org
- Anvendelser på eo.wikipedia.org
- Anvendelser på uk.wikipedia.org
Metadata
Denne fil indeholder yderligere informationer, sandsynligvis tilføjet af digitalkameraet eller den skanner som blev brugt til at oprette eller digitalisere den. Hvis filen er ændret fra sin oprindelige tilstand, afspejler nogle detaljer muligvis ikke den ændrede fil.
Billedtitel | Produced by GNUPLOT 4.2 patchlevel 4 |
---|