XProfan

English

p.specht

up to 10 x 10 - Matrizen is the following right quick:

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

there to one Declare (or. Clear) The Einzelelemente automatically zero are, sufficient it for more Matrizen, solely The Hauptdiagonalelemente on 1 To settle:

Compile Mark Separation

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'...

05/14/21 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Zum Quelltext

Topic-Options

Unreaded
subscribe
Remember-List
Notes
guests
Delete
Permanent
Done

1.418 Views

Untitled	vor 0 min.
p.specht	11/21/21
R.Schneider	11/20/21
Uwe Lang	11/20/21
Manfred Barei	11/19/21
More...

Themeninformationen

this Topic has 1 subscriber:

p.specht (1x)

XProfan

Quadratische Einheitsmatrix create

Zum Quelltext

Topic-Options

1.418 Views

Themeninformationen

Privacy Policy

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