|
|
!'Recurrence Plot
CALL GINIT(600,600)
SET WINDOW -10,10,-10,10
FOR Y=-10 TO 10 STEP 1/32
FOR X=-10 TO 10 STEP 1/32
LET C=ABS(SIN(X)-SIN(Y))*7+1
!' LET C=ABS(TAN(X)-TAN(Y))+1
!' LET C=ABS(SEC(X)-SEC(Y))
!' LET C=ABS(X*X-Y*Y)+1
CALL PSET(X,Y,MOD(INT(C),8))
NEXT X
NEXT Y
END
EXTERNAL SUB PSET(X,Y,C)
SET POINT COLOR C
PLOT POINTS:X,Y
END SUB
EXTERNAL SUB GINIT(XSIZE,YSIZE)
SET BITMAP SIZE XSIZE,YSIZE
SET WINDOW 0,XSIZE-1,YSIZE-1,0
SET POINT STYLE 1
SET COLOR MODE "REGULAR"
SET COLOR MIX(0) 0,0,0
SET COLOR MIX(1) 0,0,1
SET COLOR MIX(2) 1,0,0
SET COLOR MIX(3) 1,0,1
SET COLOR MIX(4) 0,1,0
SET COLOR MIX(5) 0,1,1
SET COLOR MIX(6) 1,1,0
SET COLOR MIX(7) 1,1,1
CLEAR
END SUB
|
|