stairs Art/Electric
PROGRAMS
general
color methods
col hypercube
fuzzy logic 1
fuzzy logic 2
fuzzy logic 3
macrame
mandelzoom
julia set
ripples
sines
newtons basin
hadamard matrix
 
PROGRAMS 2
L-systems
IF-Systems
 
e-mail
FUZZY LOGIC THREE - MINIMUM FIELD
Graphic
fuzzy affine minimum field - comparison mouseover

PROGRAM fuzzylogField_3A   ! © W.van Duyn 22nd May 2004
!adaptation from program by R.L.Bagula
!2 point minimum field fuzzy logic
SET MODE "color"
SET WINDOW 0,1199,0,903
PRINT "Input unit size(try 5), scale(try 32) (maximum size x scale = 450)"
INPUT h,f
CLEAR
SET COLOR "black"
BOX AREA 0,1199,0,903
LET q=1/2
LET dx=0   ! dx,dy center diagram in screen
LET dy=-0.5
FOR i = -h*f TO h*f
FOR j = -h*f TO h*f
LET xx = dx+i/(2*f)
LET yy = dy+j/(2*f)
LET r=1
LET mm=0
DO WHILE mm=<40
LET r1=r
LET x=xx
LET y=yy

LET xx1=1-abs((x+y)*q)
LET yy1=1-abs((-x+y)*q-1/2)
LET xx2=1-abs((-x-y)*q-1/2)
LET yy2=1-abs((x-y)*q-1)

LET xx=min(xx1,xx2)
LET yy=min(yy1,yy2)
LET r = xx + yy
LET mm = mm+1
IF r>1 OR ABS(r-r1)<10^(-3) THEN EXIT DO
LOOP

LET xi=i+600
LET yj=j+451
CALL colpatA(mm)
PLOT xi,yj
NEXT j
NEXT i
END

SUB colpatA(mm)
LET mc=MOD(mm,16)
IF mc=0 THEN SET COLOR "15"
IF mc=1 THEN SET COLOR "14"
IF mc=2 THEN SET COLOR "12"
IF mc=3 THEN SET COLOR "11"
IF mc=4 THEN SET COLOR "13"
IF mc=5 THEN SET COLOR "10"
IF mc=6 THEN SET COLOR "15"
IF mc=7 THEN SET COLOR "9"
IF mc=8 THEN SET COLOR "8"
IF mc=9 THEN SET COLOR "6"
IF mc=10 THEN SET COLOR "5"
IF mc=11 THEN SET COLOR "2"
IF mc=12 THEN SET COLOR "4"
IF mc=13 THEN SET COLOR "3"
IF mc=14 THEN SET COLOR "7"
IF mc=15 THEN SET COLOR "1"
IF mm=41 THEN SET COLOR "16"
END SUB


Website, Text and Some Images Copyright © 2002 tzingaro.com, all rights reserved.