XProfan

Deutsch

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, genügt es für 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 zitieren Zeilenweise zitieren

Zum Quelltext

Themenoptionen

Ungelesen
Abonnieren
Merkliste
Hinweise
Gäste
Löschen
Ständig
Erledigt

1.419 Betrachtungen

Unbenannt	vor 0 min.
p.specht	21.11.2021
R.Schneider	20.11.2021
Uwe Lang	20.11.2021
Manfred Barei	19.11.2021
Mehr...

Themeninformationen

Dieses Thema hat 1 Teilnehmer:

p.specht (1x)

XProfan

Quadratische Einheitsmatrix erstellen

Zum Quelltext

Themenoptionen

1.419 Betrachtungen

Themeninformationen

Datenschutz

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