XProfan

Italia

p.specht

Bis zu 10 x 10 - Matrizen ist folgendes recht schnell:

var n&=9
declare A![n&,n&]
A![] = if(&index mod (n&+2),0,1)

Da nach einem Declare (bzw. Clear) die Einzelelemente automatisch Null sind, sufficiente es per größere Matrizen, lediglich die Hauptdiagonalelemente auf 1 zu setzen:

Kompilieren Markieren Separieren

Clear A![]:whileloop 0,n&:A![&Loop,&Loop]=1:wend

Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...

14.05.2021 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Zum Quelltext

Topic-Options

Unreaded
subscribe
Remember-List
Notes
guests
Delete
Permanent
Done

1.421 Views

Untitled	vor 0 min.
p.specht	21.11.2021
R.Schneider	20.11.2021
Uwe Lang	20.11.2021
Manfred Barei	19.11.2021
Di più...

Themeninformationen

Dieses Thema hat 1 subscriber:

p.specht (1x)

XProfan

Quadratische Einheitsmatrix erstellen

Zum Quelltext

Topic-Options

1.421 Views

Themeninformationen

Informativa sulla privacy

OGL-Basic
XProfan X4
XProfan X3
FreeProfan
XProfan X2
XProfan 11
XProfan 10
XProfan 9
XProfan 8
Infinity-Profan
Alle Sprachen