Select[] korrekt verwenden < Mathematica < Mathe-Software < Mathe < Vorhilfe
|
| Status: |
(Frage) beantwortet  | | Datum: | 23:43 Di 29.01.2013 | | Autor: | TruEnemy |
Ich habe diese Frage in keinem Forum auf anderen Internetseiten gestellt.
Hallo! Ich habe hier in Mathematica eine Liste mit zufällig erstellen Punkten
der Form {x,y,z}. Ich will nun über Select[Liste, Kriterium] all diejenigen
Punkte herausholen, für die z>0 gilt. Ich habe schon so ziemlich alles pro-
biert aber scheitere jedes Mal. Das Kriterium sollte am besten mit einer
PureFunction erstellt sein (nein, (#>0)& oder (#3>0)& klappt nicht). Könnte
mir bitte jemand helfen? ich bin am verzweifeln. Vielen Dank und liebe Grüße.
Hier der originale Quellcode, die Frage sowie einer meiner Versuche dazu:
points = {};
For[i = 1, i <= 10000, i++, {
[mm] \[Theta] [/mm] = [mm] RandomReal[{-\[Pi], \[Pi]}];
[/mm]
[mm] \[Phi] [/mm] = RandomReal[{0, 2 [mm] \[Pi]}];
[/mm]
AppendTo[points, [mm] {Cos[\[Phi]] Sin[\[Theta]], Sin[\[Phi]] Sin[\[Theta]], Cos[\[Theta]]}]; [/mm] }]
Graphics3D[{Sphere[], {Black, PointSize[.01], Point[points]}}, Boxed -> False, ImageSize -> 200]
(a) Zeichnen Sie getrennt alle Punkte, die sich auf der Nordhalbkugel bzw. auf der Südhalbkugel befinden.
Dazu verwenden wir am besten Select[ ] mit der entsprechenden Auswahlbedingung.
(b) Zeichnen Sie nur alle Punkte, die sich zwischen dem 30. und 50. Breitengrad befinden ( ebenfalls mit Select[ ] ).
(c) Zeichnen Sie alle Punkte, die sich zwischen dem 80. und 120. Längengrad befinden ( mit Select[ ] und ArcTan[x, y] ).
(a) NHK = Select[points, {points #3 > 0 &}]
Graphics3D[{Sphere[], {Black, PointSize[.01], Point[NHK]}}, Boxed -> False, ImageSize -> 200]
SHK = Select[points, {points#3 < 0 &}]
Graphics3D[{Sphere[], {Black, PointSize[.01], Point[SHK]}}, Boxed -> False, ImageSize -> 200]
|
|
| |
|
| Status: |
(Antwort) fertig  | | Datum: | 08:31 Mi 30.01.2013 | | Autor: | hieron |
hallo TruEnemy,
dein kriterium lautet so:
Select[points, (#[(**)[3]] > 0) &]
(**) kommentar kannst du löschen, ist nur ein workaround wegen forum
lg hieron
|
|
|
|
