[Digressions] Shapes your booty, Fractales et consorts...

[garnote]

@Staple1600
Salutations,
Super! et malin, malin et demi , tu m'as fait replonger dans mes souvenirs Excelabo. J'avais réussi à construire un fichier permettant d'obtenir des centaines de fractales du genre de ce fil. Pas sûr de l'avoir publié sur MPFE et là, j'ai la théorie pour le refaire, mais pour le moment, incapable de le faire apparaître sur Excel . En tout cas, si je l'avais publié, peut-être que @Modeste geedee , que je salue, a ça dans ses archives!
Serge

 

[Staple1600]

Moi j'ai retrouvé ceci dans mes archives

Ça vous rappelle quelque chose, non ?

PS: Excel me dit : Date de création du fichier: 06/03/1998 (le temps file )

Petit Quizz
Combien valait Excel en francs en 1998 ?

 

[garnote]

Moi j'ai retrouvé ceci dans mes archives
Regarde la pièce jointe 1149944

Ça vous rappelle quelque chose, non ?

PS: Excel me dit : Date de création du fichier: 06/03/1998 (le temps file )

Petit Quizz
Combien valait Excel en francs en 1998 ?

En effet, comme le temps passe vite! Me semble que c'est de moi cette affaire-là, mais me souviens pas comment j'y suis arrivé! 20 ans sans Excel, ça m'a fait perdre certains "pouvoirs". Quant au coût de ma version d'Excel de cette époque enflammée , aucune idée! Bonne fin de soirée!

 

[Staple1600]

C'est bien de vous si vous êtes Serge G.
C'est bien pour cela que j'écrivais

Ça vous rappelle quelque chose, non ?

Une autre pour la route

Sub TRI_SIER_OneAgain()
Application.ScreenUpdating = False
Dim r As Range, x&, y&: Set r = Range("A1:IV256")
r.ColumnWidth = 0.35: r.RowHeight = 3.5: r.Interior.Color = vbWhite
For x = 1 To 256
    For y = 1 To 256
        If (x And y) = 0 Then Cells(x, y).Interior.Color = vbBlue
    Next
Next
ActiveWindow.Zoom = 87
Application.ScreenUpdating = True
End Sub

NB: C'est une variante de cette macro du message#40

 

[garnote]

C'est bien de vous si vous êtes Serge G.
C'est bien pour cela que j'écrivais


La route est belle! Et à mon tour, une autre pour ta route!
En vue de construire de nombreuses fractales. ...

 

[garnote]

@Staple1600
Ave!
Pour le plaisir! . Pas encore automatisé, mais j'ai toutes les macros qui conviennent pour engendrer 512 fractales différentes. . En voici une, un peu construite manuellement. Un vrai fou!
N.B. : Tu peux oublier le document précédent, inutilement compliqué!

 

[Staple1600]

Bonjour garnote, le fil

@garnote
On peut voir ces macros à grossesses multiples
(512 !)
Ou il est encore trop tôt ?

 

[Staple1600]

Bonsoir le fil

Adapté pour Excel de l'article d'Antoine Houlou-Garcia

Sub Dessiner_Julia()
Application.ScreenUpdating = False
Cells.Interior.Color = vbWhite
Calculs
Mise_En_Forme
End Sub
Sub Calculs()
[B1] = 0.0002: [D3] = 0.2: [C4] = 0.3
Range("E3:HK3").FormulaR1C1 = "=RC[-1]+R1C2"
Range("C5:C140").FormulaR1C1 = "=R[-1]C-R1C2"
Range("D4:HK140").Formula2R1C1 = "=JULIA(R3C,RC3)"
Range("C5").CurrentRegion = Range("C5").CurrentRegion.Value
End Sub

Sub Mise_En_Forme()
Dim Julia As Range
Set Julia = Range("D4:HK140")
Julia.ColumnWidth = 0.35: Julia.RowHeight = 3.5
Julia.FormatConditions.AddColorScale ColorScaleType:=3
Julia.FormatConditions(Julia.FormatConditions.Count).SetFirstPriority
Julia.FormatConditions(1).ColorScaleCriteria(1).Type = xlConditionValueLowestValue
Julia.FormatConditions(1).ColorScaleCriteria(1).FormatColor.Color = vbRed
Julia.FormatConditions(1).ColorScaleCriteria(2).Type = xlConditionValuePercentile
Julia.FormatConditions(1).ColorScaleCriteria(2).Value = 50
Julia.FormatConditions(1).ColorScaleCriteria(2).FormatColor.Color = vbYellow
Julia.FormatConditions(1).ColorScaleCriteria(3).Type = xlConditionValueHighestValue
Julia.FormatConditions(1).ColorScaleCriteria(3).FormatColor.Color = vbGreen
ActiveWindow.Zoom = 50
End Sub
Function Julia(x, y) As Integer
Dim Modulo, z_reel, z_imag, z_carre_reel, z_carre_imag As Double
Dim n As Integer
n = 0
Modulo = 0
z_reel = x
z_imag = y
Do While (n < 200 And Modulo < 2)
z_carre_reel = z_reel ^ 2 - z_imag ^ 2
z_carre_imag = 2 * z_reel * z_imag
z_reel = z_carre_reel - 0.7927
z_imag = z_carre_imag + 0.1609
Modulo = Sqr(z_reel ^ 2 + z_imag ^ 2)
n = n + 1
Loop
Julia = n
End Function

 

[Staple1600]

Avant d'aller voir Morphée
Une version raccourcie pour Mise_En_Forme

Sub Mise_En_Forme()
Dim Julia As Range, i%, t, c
Set Julia = Range("D4:HK140")
t = Array(1, 5, 2): c = Array(vbRed, vbYellow, vbGreen)
Julia.ColumnWidth = 0.35: Julia.RowHeight = 3.5
Julia.FormatConditions.AddColorScale ColorScaleType:=3
Julia.FormatConditions(Julia.FormatConditions.Count).SetFirstPriority
For i = 1 To 3
Julia.FormatConditions(1).ColorScaleCriteria(i).Type = t(i)
If i = 2 Then Julia.FormatConditions(1).ColorScaleCriteria(i).Value = 50
Julia.FormatConditions(1).ColorScaleCriteria(i).FormatColor.Color = c(i)
Next
ActiveWindow.Zoom = 50
End Sub

NB: Ne pas oublier de mettre Option Base 1 en début de module

 

[garnote]

Bonjour garnote, le fil

@garnote
On peut voir ces macros à grossesses multiples
(512 !)
Ou il est encore trop tôt ?

@Staple1600
Bonjour, Bonsoir ou Bonne nuit à tous et toutes, selon le cas!

Ce n'est pas pour demain, mais je finirai bien par arriver à rendre ça potable, m'enfin je l'espère!
En attendant, ma façon d'aborder cette belle folie!

 

[Staple1600]

Bonjour Garnote, le fil


J'ai ouvert ton fichier
Et pour le moment, je ne comprends pas encore ton cheminement.

Mais j'attends la suite avec impatience

 

[garnote]

@Staple1600 @Modeste geedee @patricktoulon @TooFatBoy et tous les autres, La nuit porte conseil . Le plus dur pour moi, les macros de rotation et transformation de plages sans passer par des images! J'espère que ma feuille "Fonctionnement" sera vous éclairer sur ma démarche. Ça ne roule pas à une vitesse infinie, mais peut-être saurez-vous l'accélérer, en la simplifiant ou en passant par un autre chemin. Bonne soirée!

 

[Staple1600]

Impressionnant !

Je vais au cinoche puis je retourne m'amuser avec ton fichier.

Bonne soirée.

 

[garnote]

Impressionnant !
Regarde la pièce jointe 1150699
Je vais au cinoche puis je retourne m'amuser avec ton fichier.

Bonne soirée.

Merci et bon ciné! Et dans la macro "Fractale", j'ai ajouté cette ligne juste après Sheets.Add :
ActiveSheet.Name = un & " - " & deux & " - " & trois
pour se rappeler des codes génétiques de nos préférées!

 

[TooFatBoy]

J'adore !


​