HOME PENTOS MARQUEE FRACTAL GALLERY GRAPHIX LINKS
 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 TWO escape time diagram & link to partly true PROGRAM fuzzylog !(1993 april from Pascal to True Basic 2004 march ) !(© 2004 W.van Duyn) SET MODE "color" SET WINDOW 0,1199,0,903 !Aspect ratio 1:1 tuned to 1280x1024 res PRINT "input Truth Value (tval) try: 1, Limit (lim) try:1" INPUT tval, lim PRINT "Input displacement on x-y axes (dx,dy) try: 0.5,0.5" INPUT dx,dy PRINT "Input size(h), scale(f), magnification(mag), try: 4,32,1" INPUT h,f,mag !for precise image use f=2^n CLEAR SET COLOR "black" BOX AREA 10,1189,10,893 !creates a colored background FLOOD 10,10 FOR i = -h*f to h*f LET ii=i LET xxx = dx*tval+(ii/(2*f))*tval/mag FOR j = -h*f to h*f LET jj=j LET y = dy*tval+(jj/(2*f))*tval/mag LET x = xxx LET konxy=0 LET mm=0 DO WHILE mm=<40 AND konxy=
 HOME PENTOS MARQUEE FRACTAL GALLERY GRAPHIX LINKS