Re: a double spiral type that is like the Threshold TV show crop circle
- From: Roger Bagula <rlbagulatftn@xxxxxxxxx>
- Date: Mon, 14 Nov 2005 14:34:35 GMT
Dear sam ende, The program runs in the student version of True Basic or a Bronze version. True basic is also translatable to QBasic or VisualBasic. True basic links: http://www.truebasic.com/ http://www.truebasic.com/demo.asp
4) Basic to True BASIC Converter
Software Windows (BToTBSetup.exe)
A utility to help translate your vintage Basic files to True BASIC. For simple programs, the translation may be 100%. For more complicated programs, you will probably have to make slight modifications here and there. Documentation included.
sam ende wrote:
Roger Bagula wrote:
hi, what do i do with this type of script to see/generate the fractal ?
sammi
A threshold type IFS: SET BACKGROUND COLOR "white" LET x=0 LET y=0 LET a=0 LET b =0 LET s1=6000 LET s2 =s1*1062/1922 RANDOMIZE PRINT" Threshold type fractal I.F.S." PRINT" BY R.L.BAGULA 11 Oct 2005 © " FOR n= 1 TO 8000000 LET a =RND LET r=sqr(3) LET sc=(1/3^(1+3^mod(n,9))) SET COLOR"red" IF a <= 1/4 THEN LET x1=y/r+1*sc LET y1=-x/r
END IF IF a<= 2/4 AND a>1/4 THEN LET x1=y/r-sc*1/2 LET y1=-x/r+sc*sqr(3)/2
END IF IF a<= 3/4 AND a>2/4 THEN LET x1=y/r-sc*1/2 LET y1=-x/r -sc*sqr(3)/2
END IF IF a<= 1 AND a>23/4 THEN LET x1=y/r LET y1=-x/r
END IF LET x=x1 LET y=y1 IF n>10 THEN PLOT 1922/2+s1*x,1062/2+s2*y NEXT n END
.
- Prev by Date: Re: Are children being taught to program computers today?
- Next by Date: Deep Zoom on Mandelbrot set
- Previous by thread: Re: Mandelbrot-Pictures
- Next by thread: Re: a double spiral type that is like the Threshold TV show crop circle
- Index(es):
Relevant Pages
|
