Télécharger le zip
bof bof bof ...Primo, putpixel va plus vite en supprimant les Truc.select suivi de selection.action Secundo, je ne vois pas le rapport entre l'ensemble de Mandelbrot et le rectangle rayé obtenu ou le camenbert variable qui est situé en dessous.J'ai l'impression qu'il là s'agit d'un bricolage à partir d'un code trouvé ailleurs... Pas mal de variables ne servent à rien du tout ici puisque les pixels sont remplacés par des cellules et rien n'est paramétrable....Bref, je ne vois pas trop l'intérêt de ce truc qui doit contenir au moins un bug...
Encore moi ...J'ai localisé deux erreurs ...-> virer le camembert et putpixel() -> On peut augmenter k_max à 100 au moins -> remplacer iterat() par le code ci-dessous...On obtient enfin une "vue du célèbre ensemble.reste à 1. ajouter des outils pour la zone étudiée paramétrable2. Augmenter sugnificativement la taille du "dessin obtenu"( on pourrait envisager 256x256 cellules )Cordialement,HB--------------------Sub iterat(np, nq As Integer)p = pmin + np * dpq = qmin + nq * dqk = 0x = 0y = 0Dox_alt = xx = x * x - y * y + py = 2 * x_alt * y + qk = k + 1Loop Until (x * x + y * y > r_max) Or (k = k_max)If k = k_max Then k = 0End Ifz = nps = yres - nqu_f = k Mod akWorksheets("Mandelbrot").Cells(s + 1, z + 1).Interior.ColorIndex = u_fEnd Sub--------------------
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte