Mathematica Listen manipuliere < Mathematica < Mathe-Software < Mathe < Vorhilfe
|
| Status: |
(Frage) reagiert/warte auf Reaktion  | | Datum: | 10:58 So 08.09.2013 | | Autor: | volk |
Hallo,
ich möchte mit Mathematica einen 3D-Plot einer Datei erstellen. Die Datei hat 2 Zeilen. Die Datei lese ich wie folgt ein
Daten = ReadList["Datei.dat", Number, RecordLists -> True]
Das klappt alles super. Die Liste hat die Form
{{-10, 0}, {-9.95, 0}, {-9.9, 0}, {-9.85, 0}, ....}
Da ich einen 3D-Plot brauche, möchte ich in jede Zweier-Liste eine Konstante einfügen. Sie soll jeweils in der neu entstandenen Dreierliste in der Mitte stehen. Mein Versuch
Do[ReplacePart[Daten, Insert[Daten[[i]], 5, 2], i], {i, 1, Length[Daten], 1}]
führt leider nicht zum Ziel. Er spukt mir dann die selbe Liste unverändert aus. Lasse ich die Schleife weg und ändere eine Zweierliste manuell
ReplacePart[Daten, Insert[Daten[[2]], 5, 2], 2]
funktioniert es.
{{-10, 0}, {-9.95, 5, 0}, {-9.9, 0}, ...}
Wo liegt mein Fehler? Speichert er die Änderung in der Liste nicht?
Viele Grüße
volk
EDIT:
Ich habe jetzt noch ein anderes Problem. Ich möchte die 2D-Funktion in ein 3D-Koordinatensystem zeichnen. Die y-Achse ist abhängig von den Messungen und ihr Wert konstant. Im Endeffekt sollen in dem 3D-Plot 4-5 2D-Funktionen mit jeweils festen y-Werten gezeichnet sein.
Plotte ich es mit ListPlot3D zeigt er nichts an. Ist es mit Mathematica überhaupt so etwas zu realisieren?
Ich arbeite eigentlich mit matlab, wo ich dies immer mit pot(x,y,z) gelöst habe, für diese Aufgabe habe ich aber Mathematica gestellt bekommen und habe mit den Unterschieden zu kämpfen
Viele Grüße
volk
|
|
| |
|
| Status: |
(Frage) überfällig  | | Datum: | 17:08 So 08.09.2013 | | Autor: | volk |
Ich habe das jetzt alles hinbekommen. Nun hat sich ein anderes Problem ergeben. Ich habe mit Listplot3D geplottet und möchte nun die Gitternetzlinien dichter haben. Mein Plotbefehl ist
ListPlot3D[{DatenListe1, DatenListe2, DatenListe3},
Filling -> Bottom, Mesh -> All, PlotRange -> All,
FaceGrids -> {{0, 1, 0}, {0, 0, -1}, {1, 0, 0}},
FaceGridsStyle -> Directive[Dotted]]
Wie kriege ich noch mehr Gitternetzlinien in die vorhandenen?
Viele Grüße
volk
|
|
|
| |
|
| Status: |
(Mitteilung) Reaktion unnötig  | | Datum: | 17:20 Mo 16.09.2013 | | Autor: | matux |
$MATUXTEXT(ueberfaellige_frage)
|
|
|
|
