mirror of
https://github.com/PDP-10/stacken.git
synced 2026-01-15 15:56:46 +00:00
17 lines
480 B
Plaintext
17 lines
480 B
Plaintext
'<SILENCE>
|
|
.IF (A>3) .GOTO M1
|
|
ERROR::
|
|
!? GOER "DO GAM:POLY N" DAER "N" AER ETT TAL MELLAN 4 OCH 35
|
|
.MIC EXIT
|
|
M1::.IF(A>35).BACKTO ERROR
|
|
.R MLAB
|
|
*N
|
|
*N_'A;
|
|
*D_0:359:360/N; M_(SIND ON D)&''(COSD ON D);
|
|
*FUNCTION GCD(X,Y)=IF X<Y THEN GCD(X,X) ELSE IF MOD(X,Y)=0 THEN Y ELSE GCD(Y,MOD(X,Y));FOR S_2:INT(N/2) DO (C_GCD(S,N);FOR J_0:(C-1) DO (M_M&(M ROW (1+(MOD ON ((J+S*(0:N/C))&''N))))));
|
|
*WINDOW W, 2.1 BY 2.1, AT -1.05,-1.05;
|
|
*DISPLAY=T4010
|
|
'<REVIVE>
|
|
*DRAW M IN W;
|
|
.
|