matheraum.de
Raum für Mathematik
Offene Informations- und Nachhilfegemeinschaft

Für Schüler, Studenten, Lehrer, Mathematik-Interessierte.
Hallo Gast!einloggen | registrieren ]
Startseite · Forum · Wissen · Kurse · Mitglieder · Team · Impressum
Forenbaum
^ Forenbaum
Status Schulmathe
  Status Primarstufe
  Status Mathe Klassen 5-7
  Status Mathe Klassen 8-10
  Status Oberstufenmathe
    Status Schul-Analysis
    Status Lin. Algebra/Vektor
    Status Stochastik
    Status Abivorbereitung
  Status Mathe-Wettbewerbe
    Status Bundeswettb. Mathe
    Status Deutsche MO
    Status Internationale MO
    Status MO andere Länder
    Status Känguru
  Status Sonstiges

Gezeigt werden alle Foren bis zur Tiefe 2

Navigation
 Startseite...
 Neuerdings beta neu
 Forum...
 vorwissen...
 vorkurse...
 Werkzeuge...
 Nachhilfevermittlung beta...
 Online-Spiele beta
 Suchen
 Verein...
 Impressum
Das Projekt
Server und Internetanbindung werden durch Spenden finanziert.
Organisiert wird das Projekt von unserem Koordinatorenteam.
Hunderte Mitglieder helfen ehrenamtlich in unseren moderierten Foren.
Anbieter der Seite ist der gemeinnützige Verein "Vorhilfe.de e.V.".
Partnerseiten
Weitere Fächer:

Open Source FunktionenplotterFunkyPlot: Kostenloser und quelloffener Funktionenplotter für Linux und andere Betriebssysteme
StartseiteMatheForenMathematicaGeschachtelte For-Schleifen
Foren für weitere Schulfächer findest Du auf www.vorhilfe.de z.B. Deutsch • Englisch • Französisch • Latein • Spanisch • Russisch • Griechisch
Forum "Mathematica" - Geschachtelte For-Schleifen
Geschachtelte For-Schleifen < Mathematica < Mathe-Software < Mathe < Vorhilfe
Ansicht: [ geschachtelt ] | ^ Forum "Mathematica"  | ^^ Alle Foren  | ^ Forenbaum  | Materialien

Geschachtelte For-Schleifen: Frage (beantwortet)
Status: (Frage) beantwortet Status 
Datum: 13:11 Fr 11.06.2010
Autor: Peter_Pein

Aufgabe
es geht darum, die in Maple 13 funktionierende "Doppelschleife" unter Mathematica zu realisieren.

Liebe Leute,

ich vermute mal, dass mir die Hitze in Berlin den Brägen gebrutzelt hat, denn ich sehe nicht, wo im Folgenden der Fehler (sich ver-)steckt:

1: lst={};
2: Block[{i,j},
3: For[i=2,i<=2^7,i++
4: For[j=1,j<i,j++,
5: lst=Join[lst,{{j/i,1/i}}]
6: ]]];
7: ListPlot[lst,PlotStyle->AbsolutePointSize[1],PlotRange->{{0,1},{0,1/2}}]


da i von 2 bis sonstnichwas läuft und j von 1 bis i-1, sollte doch (sogar als erstes Element von lst)  {j/i,1/i}/.{i->2,j->1}  -->  {1/2,1/2} enthalten sein. Weder der Plot noch lst[[1]] --> {1/3,1/3} oder auch MemberQ[lst,{1/2,1/2}] --> False liefern einen Hinweis auf eine Existenz des Zahlenpaares {1/2,1/2} in lst.

Hingegen liefert die für Mathematica typischere Eingabe ListPlot[Flatten[Table[{j/i,1/i},{i,2,50},{j,1,i-1}],1],PlotRange->All,Axes->False,Frame->True] genau das erwartete Ergebnis (inklusive {1/2,1/2}).

Werde ich schon kurz vor meinem 47. Geburtstag dement, oder was übersehe ich hier?

Vielen Dank im Voraus,
Peter

P.S.: Ich habe eine gleich lautende Frage auf englisch im Forum comp.soft-sys.math.mathematica gestellt.

P.P.S.: natürlich ist es irrelevant, dass i einmal bis 128 hochrattert und im zweiten Beispiel nur bis "fuffzich".

        
Bezug
Geschachtelte For-Schleifen: Mitteilung
Status: (Mitteilung) Reaktion unnötig Status 
Datum: 13:39 Fr 11.06.2010
Autor: Peter_Pein

seltsam, wenn ich den Mma-Compiler verwende, erhalte ich auch bei den geschachtelten Fors das erwartete Ergebnis:

1: lst={};
2: Compile[{{imax,_Integer}},Block[{i,j},For[i=2,i<=imax,i++ ,For[j=1,j<i,j++,lst=Join[lst,N@{{j/i,1/i}}] ]]],
3: {{i|j,_Integer},{lst,_Real,2}}
4: ][50];
5: ListPlot[lst,PlotStyle->AbsolutePointSize[1],PlotRange->{{0,1},{0,1/2}}]
6: lst[[1]]

ergibt den (diesmal vollständigen Plot) und {0.5,0.5}.


Bezug
        
Bezug
Geschachtelte For-Schleifen: Mitteilung
Status: (Mitteilung) Reaktion unnötig Status 
Datum: 13:43 Fr 11.06.2010
Autor: Peter_Pein

stöhn!! ein wönzigös Komma nach "i++" fehlte.
Da ich mir nicht selber antworten kann, könnte sich bitte jemand erbarmen und eine leere Antwort senden, damit der Status meiner Frage auf "beantwortet" gesetzt wird?"


Bezug
                
Bezug
Geschachtelte For-Schleifen: Mitteilung
Status: (Mitteilung) Reaktion unnötig Status 
Datum: 13:45 Fr 11.06.2010
Autor: schachuzipus

Hallo Peter,

ist ohne Punkt und Komma erledigt und umgestellt ;-)

Gruß

schachuzipus

Bezug
                        
Bezug
Geschachtelte For-Schleifen: Mitteilung
Status: (Mitteilung) Reaktion unnötig Status 
Datum: 13:57 Fr 11.06.2010
Autor: Peter_Pein


> Hallo Peter,

und was ist  ^ das?

>  
> ist ohne Punkt und Komma erledigt und umgestellt ;-)
>  
> Gruß
>  
> schachuzipus


Bezug
        
Bezug
Geschachtelte For-Schleifen: Antwort
Status: (Antwort) fertig Status 
Datum: 01:09 Sa 12.06.2010
Autor: halirutan

Moin,

eine einfache Table haette es doch auch getan:

Flatten[Table[{j/i, 1/i}, {i, 2, [mm] 2^7 [/mm] - 1}, {j, 1, i - 1}], 1]

und ist zu dem noch um Millionen Laengen schneller als deine For-Schleife.

Cheers
Patrick

Bezug
                
Bezug
Geschachtelte For-Schleifen: Mitteilung
Status: (Mitteilung) Reaktion unnötig Status 
Datum: 21:59 Sa 12.06.2010
Autor: Peter_Pein

Achem - hüstel - wenn ich bitte mal aus meinem Posting zitieren darf: "Hingegen liefert die für Mathematica typischere Eingabe ListPlot[Flatten[Table[{j/i,1/i},{i,2,50},{j,1,i-1}],1],PlotRange->All,Axes->False,Frame->True] genau das erwartete Ergebnis (inklusive {1/2,1/2}). "


Bezug
                        
Bezug
Geschachtelte For-Schleifen: Mitteilung
Status: (Mitteilung) Reaktion unnötig Status 
Datum: 01:05 So 13.06.2010
Autor: halirutan

Ja, da hat wohl einer die Frage nicht bis zu ende gelesen.. Sorry.

Cheers
Patrick

Bezug
Ansicht: [ geschachtelt ] | ^ Forum "Mathematica"  | ^^ Alle Foren  | ^ Forenbaum  | Materialien


^ Seitenanfang ^
www.schulmatheforum.de
[ Startseite | Forum | Wissen | Kurse | Mitglieder | Team | Impressum ]