Make your own free website on Tripod.com

FRACTALE , ensemble de mandelbrot, julia, quelques images source en pascal et pour casio 99000GC


 


go to sommaire

voici quelques exemples types:

image1

dreaming helene

image2

dead mouse

sommaire

introduction

comment programmer mandelbrot

source de mon program en pascal

programme pour casio fx9900GC

exemples types

comment me contacter

introduction

image3

highlander

evidemment les images seraient mieux en gif ou bmp plutot qu'en super high jpg compression... tanpis.

une fractale(ou un fractale?) est un objet presentant la meme structure quelque soit l'echelle d'observation nous voila bien avance... bref c'est des maths, mais on peut tout de meme dire qu'une feuille, qu'un flocon de neige que les poumons ont une structure fractale

application: compression de donne et decompression temp reel; electrode a structure fractale pour augmenter la surface de contact ect..

go to sommaire

structure de l'algorithme

une simple double boucle suffit pour calculer la couleur au point M(a,b): en utilisant deux suites: (Un) et (Vn) tel que U0=V0=0 . on laisse tourner la boucle:

UnČ-VnČ+a=>Un+1 2*Un*Vn+b=>Vn+1

jusqu'a ce que UnČ+VnČ soit superieur a 4 ou que n ait atteint une valeur suffisante (disons 67 pour un 486) plus pour un pentium 200mhz moins pour une CASIO9900GC et encore moins pour une HP48 (n=20 max)

on affiche la couleur UnČ+VnČ en M (c'est une possibilite on peut aussi afficher n)

go to sommaire

SOURCES

voici les sources du program et des unites, il n'y a qu'a changer *.txt par *.pas et compiler

soursime est une unite souris pratique et reutilisable ; t256 est une unite graphique dans le meme cas fondimag presente aussi un algorithme de compression simple pour image a faible couleur(donc pas pour fractal!) il decoupe l'image en carre de meme couleur pour en savoir plus: cf contact en bas de la page go to contact

go to sommaire

programme pour casio fx9900GC

tapez ceci directement dans un prog libre:

Range -2,.5,0,-1,1,0:-2->I: .03125->P: .01953->Q: Lbl 1:I+P->I:-1->J: Lbl 2:J+Q->J:0->U~V:20->W: Lbl A: U->T:UČ-VČ+I->U: 2TV+J->V:UČ+VČ->S: S>=4=>Goto B:Dsz W: Goto A:Lbl B:V=0=>Isz V:Frac (Int (S*7)/2)#0=>Goto C: Plot I,J:Plot I,-J:Lbl C: J<0=>Goto 2:I<2=>Goto 1

# correspond au = barre; -> a la fleche simple; => a la double fleche; >= a superieur ou egal

go to sommaire

comment me contacter

vous pouvez m'envoyer un mail envoyer un courrier maintenant

 

go to sommaire