Re: ListSurfacePlot3D, Frage

[Klamser@XXXXXXX.de (Uta & Peter Klamser)]

Hallo,

die Daten sind um eine Stufe zu tief verschachtelt:

dat = Flatten[dat, 1]

wenn dat die Daten sind.

Dann mit

ifd = Interpolation[dat]

eine Interpolationsfunktion erstellen und nicht vergessen, das 3D 
Grafikpaket zu laden

Needs["Graphics`Graphics3D`"]

und nun das Resultat anschauen

Plot3D[ifd[x, y], {x, -3, 3}, {y, -3, 3}]

Gruß

Peter Klamser

Jens Peters wrote:

> Lieber Mathematica Gruppe,
>
> ich habe einen 3D Datenarray, der in der x-Variablen ansteigt und dann
> (in
> der nächsten Zeile)  wieder fällt.
> Statt der üblichen Sägezahncharakteristik also ein
> Dreieckscharakteristik für x.
>
> Es ist mir nicht gelungen, diese Daten mit ListSurfacePlot3D
> darzustellen.
> Muß ich tatsächlich die Daten bei jeder zweiten Zeile drehen, also nach
> Erreichen des Maximums?
>
> Im Anhang sende ich die Daten von einem funktionierenden und
> meinem nicht funktionierenden Beispiel.
>
> Über eine Hilfe würde ich mich sehr freuen.
>
>
> Mit freundlichen Grüßen
>
> Jens Peters