Re: Fourier transform

[Udo und Susanne Krause <su.krause@XXXXXXX.ch>]

Hello again,

das machts einfacher und eps wird unnütz zu dem Zweck, in der Tat, in Mma 4.2
unter xp ist

In[3]:= data = Import["Noether_Emmy_5.jpeg"]
In[5]:= InputForm[data]
Graphics[Raster[{{66, 66, 65, 65, 64, 63, <snip>
254, 254, 254}},
  {{0, 0}, {226, 326}}, {0, 255}, ColorFunction -> GrayLevel], ImageSize -> {226,
326},
 PlotRange -> {{0, 225}, {1, 326}}, AspectRatio -> Automatic]

also es ist das erste Element im ersten Element, oder mit anderen Worten

In[10]:= Dimensions[First[First[data]]]
Out[10]= {326, 226}

wie bereits bekannt.

Mit den besten Grüssen
Udo.

Uli Schwarz schrieb:

> Hallo Stefan,
>
> bild=Import["bild.jpg"]
>
> ist eine Liste. Eines der Elemente beinhaltet die technischen Daten
> (Pixelgröße, Farbtabelle,...), ein anderes die Bildinformation als
> Matrix. Wenn bild.jpg 100x100 Pixel hatte, ist bild[[2]] eine 100x100
> Matrix und kann beliebig (z.B. Fourier) manipuliert werden.
>
> Ich kann allerdings nicht garantieren, daß es bild[[2]] ist, weil ich
> gerade keine Zugriff auf Mathematice habe. Ich habe auf Suse 8.2
> gewechselt, da läuft Mathematice 4.2 nicht (Frontend produziert
> Speicherzugriffverletzung).
>
> Bitte, Uli Schwarz
>
> Stefan Heusler wrote:
>
> >Hallo!
> >
> >Ich habe eine Bild als jpg-File importiert und moechte es in eine Tabelle
> >von Pixel
> >verwandeln, die ich dann Fouriertransformieren moechte, und als neue Graphic
> >ausgeben.
> >
> >Wie kann ich das machen??
> >
> >Vielen Dank,
> >
> >Stefan
> >
> >----- Original Message -----
> >From: "Schlosser Reinhard, Prof. Dr." <reinhard.schlosser@XXXXXXX.de>
> >To: <>
> >Sent: Wednesday, April 09, 2003 5:25 AM
> >Subject: NDSolve
> >
> >
> >
> >
> >>Zur der Berechnung von 2D-Feldlinien x(t), y(t) benutze ich NDSolve.
> >>
> >>So sieht der Aufruf aus (alles ganz einfach)
> >>
> >>NDSolve[{D[x[t], t] == f[x[t], y[t]], D[y[t], t] == g[x[t], y[t]], x[0] ==
> >>0, y[0] == 0}, {x, y}, {t, 0, 1}]
> >>
> >>Die Komplexität des Problems steckt in den Funktionen f(x,y) und g(x,y).
> >>
> >>Die Lösung die Mathematica liefert ist nicht genau genug.
> >>
> >>Ich habe daraufhin an den Optionen gespielt, allerdings ohne nennenswerten
> >>Erfolg.
> >>
> >>Überascht war ich, daß die Optionen
> >>
> >>DifferenceOrder, MaxRelativeStepSize, SolveDelayed, StoppingTest
> >>
> >>im Help Browser 4.1.2.0 gar nicht erklärt sind.
> >>
> >>Kann mir jemand Literatur zu NDSolve empfehlen?
> >>
> >>Es gibt jede Menge Bücher zum Stichwort
> >>
> >>(Differentialgleichungen, differential equations) und Mathematica
> >>
> >>In welchem finde ich wohl die Infos die ich brauche,
> >>um eine befriedigend genaue Lösung mit NDSolve zu erhalten?
> >>
> >>Mit freundlichen Gruessen / Best Regards
> >>Prof. Dr.-Ing. Reinhard Schlosser
> >>
> >>Fachhochschule Deggendorf
> >>Fachbereich Elektrotechnik und Medientechnik
> >>Edlmairstrasse 6 + 8
> >>94469 Deggendorf
> >>Tel 0991-3615-515
> >>Fax 0991-3615-599
> >>reinhard.schlosser@XXXXXXX.de
> >>http://www.fh-deggendorf.de
> >>
> >>
> >>
> >>
> >
> >
> >
> >
>
> --
> Ulrich T. Schwarz              Tel: (++49) 0941 943 2113
> NWF II - Physik                Fax: (++49) 0941 943 2754
> Universitaet Regensburg        e-mail: uli.schwarz@XXXXXXX.de
> D-93040 Regensburg
> url: http://homepages.uni-regensburg.de/~scu04188