Re: Probleme mit do-Schleife

["Jens-Peer Kuska" <kuska@XXXXXXX.de>]

Hallo,

nun also, was ist if[] sollte vielleicht If[] gemeint sein ??
Gemeint war vermutlich

With[{nobs = 7},
 yperm = Table[0, {nobs}, {5}];
 yvec = Table[Random[Integer, {1, nobs}], {nobs}];
  Do[

    If[yvec[[i]] > 0,

      yperm[[i, yvec[[i]]]] = 1,

      yperm[[i, 1]] = 0], {i,nobs}

    ]

];



aber wer weiß das schon ..


Gruß
 Jens

----- Original Message ----- 
From: "Christine Ebling" <ebling@XXXXXXX.de>
To: <demug@XXXXXXX.ch>
Sent: Thursday, February 10, 2005 11:53 AM
Subject: Probleme mit do-Schleife


> Hallo!
>
> Ich habe Probleme mit einer do-Schleife. Konkret:
>
>
> Ich habe einen Vektor yvec, dem ich eine Matrix yperm zuordnen will
>
> yvec:
>
> 1
> 3
> 0
> 5
> 2
> 0
> 4
>
> yperm:
>
> 1      0      0      0      0
> 0      0      1      0      0
> 0      0      0      0      0
> 0      0      0      0      1
> 0      1      0      0      0
> 0      0      0      0      0
> 0      0      0      1      0
>
>
> In Gauss funktioniert das mit "yperm=zeros(7,5); i=1; do while i<=7; if
> yvec[i]>0;yperm[i,yvec[i]]=1; endif; i=i+1; endo;"
>
>
>
> Versuche ich nun eine ähnliche Schleife in Mathematica zu schreiben
>
> "yperm = Table[0, {7},{5}];
> Do[if[yvec[[i]] > 0, yperm[[i, yvec[[i]]]] = 1, yperm[[i, 1]] = 0], {i,
>      nobs}];"
>
>
> so kommt leider nichts Ordentliches raus. Was mache ich falsch?  Kann mir
> irgendjemand weiterhelfen?
>
> Herzlichen Dank im Voraus!
>
> Christine Ebling