IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Haskell Discussion :

Mandelbrot et Julia sans le module Complex


Sujet :

Haskell

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Mai 2006
    Messages
    113
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2006
    Messages : 113
    Par défaut Mandelbrot et Julia sans le module Complex
    Bonjour,
    Passionné depuis des années 70 par le graphisme et les fractales, j'ai voulu recemant m'initier à Haskell. A l'aide des consieil obtenus ici j'ai reussi de créer des petits codes pour une vingaine des fractales les plus répendues. Les codes el les images sont visible sur http://haskellaskvasil.wordpress.com.
    Les problèmes sont apparus quant j'ai voulu m'attaquer aux complexes. Pour m'instruire j'ai consulté tous ce que j'ai pu trouver sur le net. Hélas, à part deux codes pour Mandel les "index hors limite", "not in scope" et modul manquant son la monnée courante. Le point commun : ils utilisent tous le module Complex.
    Voici deux petits codes VB6 dessinant Mandelbrot et Julia en 1026 x 750 points et ceci en une vingtaine de secondes et sans complexe.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    Public Function Simple_Mandel()
    minX = -2.4: maxX = 2.4
    minY = -1.5: maxY = 1.5
    w = Me.ScaleWidth: h = Me.ScaleHeight
            DoEvents
            If Touche <> 0 Then Exit Function
    For x = 0 To w - 1
      rc = minX + (maxX - minX) / w * x
      For y = 0 To h - 1
        ic = minY + (maxY - minY) / h * y
        rz = 1
        iz = 0
        For a = 1 To 29: Rem choix de 32 itérations
          DoEvents
          r = rz
          i = iz
          rz = r * r - i * i + rc
          iz = 2 * r * i + ic
          module = rz * rz + iz * iz
          If module > 4 Then Exit For
        Next a
        PSet (x, y) , RGB(64, 10 * a Mod 255, 20 * a Mod 255)
    Next y
    Next x
    While Touche = 0
        DoEvents
        Wend
    End Function
     
    Public Function JuliaSet()
        Dim cRe As Double, cIm  As Double 
        Dim newRe As Double, newIm As Double, oldRe As Double, oldIm As Double 
        Dim zoom As Double: zoom = 1
        moveX = 0: moveY = 0 
        Dim color As Double 
        Dim maxIterations As Integer: maxIterations = 300  
        w = Me.ScaleWidth: h = Me.ScaleHeight
        cRe = -0.7
        cIm = 0.27015
        Dim x As Integer, y As Integer
        For x = 0 To w
        For y = 0 To h
            newRe = 1.5 * (x - w / 2) / (0.5 * zoom * w) + moveX
            newIm = (y - h / 2) / (0.5 * zoom * h) + moveY
            Dim i As Integer
            For i = 0 To maxIterations
                oldRe = newRe
                oldIm = newIm
                newRe = oldRe * oldRe - oldIm * oldIm + cRe
                newIm = 2 * oldRe * oldIm + cIm
                'if the point is outside the circle with radius 2: stop
                If ((newRe * newRe + newIm * newIm) > 4) Then Exit For
            Next i
            color = RGB(255 Mod (i * 30 + 1), 255 Mod (i + 1), 20 * i) '< maxIterations))
            PSet (x, y), color
        Next y, x
        Me.Refresh
    End Function
    Nom : Simple MandelVB6.jpg
Affichages : 531
Taille : 14,2 Ko
    Nom : JuliaVB6.jpg
Affichages : 422
Taille : 68,0 Ko

    Malgré mes efforts, je n'arrive pas à faire les codes correspondants en Haskell, que j'ai commencé à apprendre depuis peu.
    Alors possible ou pas possible ?

  2. #2
    Membre Expert

    Homme Profil pro
    Développeur informatique
    Inscrit en
    Avril 2013
    Messages
    610
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Finance

    Informations forums :
    Inscription : Avril 2013
    Messages : 610
    Billets dans le blog
    21
    Par défaut
    Possible sans aucun doute!
    Mais il faudrait comprendre quel est ce problème avec le module Complex, j'ai du mal à croire qu'il contienne des bugs qui t'empêche de programmer tes fractales.

    En tout cas je plussoie ta question, je suis allé sur ton blog qui est très sympa!

  3. #3
    Membre confirmé
    Profil pro
    Inscrit en
    Mai 2006
    Messages
    113
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2006
    Messages : 113
    Par défaut
    Non, ce n'est pas le module Complexe qui pose problème.
    Je voudrai tout simplement m'en passer. Hélas toutes les variantes que j'ai faites , soit tournent sans fin , soit n'affichent pas l'image voulu, mais n'importe quoi. Alors je continue à chercher.

  4. #4
    Rédacteur/Modérateur

    Avatar de gorgonite
    Homme Profil pro
    Ingénieur d'études
    Inscrit en
    Décembre 2005
    Messages
    10 322
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 41
    Localisation : France

    Informations professionnelles :
    Activité : Ingénieur d'études
    Secteur : Transports

    Informations forums :
    Inscription : Décembre 2005
    Messages : 10 322
    Par défaut
    • Pourquoi t'en passer ? Y a-t-il une incompatibilité avec un autre module que tu utilises ? juste un problème de conversion vers l'entrée de ton module d'affichage ?
    • Qu'as-tu essayé en pratique ?
    Evitez les MP pour les questions techniques... il y a des forums
    Contributions sur DVP : Mes Tutos | Mon Blog

  5. #5
    Membre confirmé
    Profil pro
    Inscrit en
    Mai 2006
    Messages
    113
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2006
    Messages : 113
    Par défaut
    Il n'y a pas de problème !
    Je désire faire autrement puisque c'est possible, à quoi ça sert de faire ce que les autres ont déjà fait.

  6. #6
    Rédacteur/Modérateur

    Avatar de gorgonite
    Homme Profil pro
    Ingénieur d'études
    Inscrit en
    Décembre 2005
    Messages
    10 322
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 41
    Localisation : France

    Informations professionnelles :
    Activité : Ingénieur d'études
    Secteur : Transports

    Informations forums :
    Inscription : Décembre 2005
    Messages : 10 322
    Par défaut
    Citation Envoyé par vasilpapa Voir le message
    Il n'y a pas de problème !
    Je désire faire autrement puisque c'est possible, à quoi ça sert de faire ce que les autres ont déjà fait.
    Ah ok...


    Aurais-tu un exemple de ta création qui pose problème ? histoire qu'on puisse te conseiller quelque chose...
    Evitez les MP pour les questions techniques... il y a des forums
    Contributions sur DVP : Mes Tutos | Mon Blog

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Compiler Qt sans le module QtNetwork
    Par samcha dans le forum Qt
    Réponses: 0
    Dernier message: 27/04/2010, 14h35
  2. Générer le site du projet parent sans les modules
    Par Baptiste Wicht dans le forum Maven
    Réponses: 2
    Dernier message: 22/09/2009, 09h04
  3. Démarche pour installer les modules sans executable...
    Par Olivier_ dans le forum Déploiement/Installation
    Réponses: 7
    Dernier message: 21/10/2005, 17h50
  4. Compiler un module sans recompiler tout le noyau
    Par khayyam90 dans le forum Administration système
    Réponses: 7
    Dernier message: 22/09/2005, 03h16
  5. application utilisant BD locale sans installation complexe
    Par snjonjo dans le forum Décisions SGBD
    Réponses: 1
    Dernier message: 09/01/2005, 02h44

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo