Est-il encore besoin de présenter les ensembles fractals de Mandelbrot ? à partir de l'équation Z -> Z^2 + C, on peut créer une infinité d'images fantastiques, qui possèdent des propriétés d'autosimilarité et d'invariance d'échelle : Z et C étant des nombres complexes, on compte combien d'itérations sont nécessaires pour sortir du cercle unitaire, c'est tout !
Mode d'emploi : zoomer sur l'image en sélectionnant une zone :-)
Version 4.0 : Algo. de remplissage (réutilisable en analyse ou traitement d'images), Mode Détail des itérations (cf. copie d'écran), Programmation orientée objet (POO).
Version 3.0 : Z -> Z^degré + C avec degré entre 2 et 5, ensembles de Julia (voir la copie d'écran), panneau de configuration, bitmap de cache en option, zoom -, thread pour tracer, sélection améliorée.
J'ai plusieurs améliorations de prévues pour ce logiciel, la dernière étape étant la création de films fractals en DivX !
Voir : VBDivX : Faire un film de synthèse en DivX image par image en VB :
www.vbfrance.com/article.aspx?Val=5687
Source / Exemple :
Call ClickOnTheZip();
Conclusion :
Note : pour ceux qui n'ont pas Visual Studio .NET, l'exécutable de Fractalis est inclut dans le fichier zip (reste le framework .NET à télécharger : 20 Mo, cf. doc.)
à suivre...
Par Patrice Dargenton : patrice.dargenton@free.fr
http://patrice.dargenton.free.fr/fractal/index.html
http://patrice.dargenton.free.fr/index.html
Mais je suis en train aussi de deboguer un système qui combine en POO les QuadTree et l'algo de remplissage de façon à tracer plus rapidement les fractales, mais il y a encore un petit bug de précision (anomalie des pixels), à suivre donc.
dans le fichier =>FrmConfig.vb :
Public WriteOnly Property iAvancement%()
...Set(ByVal iVal%)
......Me.pbAvancement.Value = Math.Min(iVal, 100) ' pb : ProgressBar
...End Set
End Property
===================A remplacer par ====================
Public WriteOnly Property iAvancement%()
...Set(ByVal iVal%)
......SetpbAvancementValue(iVal)
...End Set
End Property
Private Delegate Sub SetpbAvancementValueCallBack(ByVal iVal%)
Private Sub SetpbAvancementValue(ByVal iVal%)
...If Me.pbAvancement.InvokeRequired Then
......Dim dlg As New SetpbAvancementValueCallBack(AddressOf SetpbAvancementValue)
......Me.Invoke(dlg, New Object() {iVal})
...Else
......Me.pbAvancement.Value = Math.Min(iVal, 100) ' pb : ProgressBar
...End If
End Sub
(dsl pour les "." je me rapelle jamais si il vire les espace tout seul ou pas)
www.go-mono.com/archive/1.1.8/windows/mono-1.1.8-gtksharp-1.9.5-win32-0.0.exe
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.