FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Calculatrice
par papydall Hier à 22:45

» Orbites de l’ensemble de Mandelbrot
par Minibug Hier à 21:32

» Planétarium virtuel.
par Pedro Alvarez Hier à 17:07

» Demande pour Jack concernant PanExpress
par Minibug Hier à 11:04

» EPP_V01 éditeur pour Panoramic
par Minibug Mer 19 Sep 2018 - 21:03

» [RESOLU] Quelle ligne est sélectionnée dans SYNEDIT ?
par Jean Claude Mer 19 Sep 2018 - 21:02

» PanExpress : l'éditeur Panoramic avec création d'objet
par Minibug Mer 19 Sep 2018 - 15:58

» Petit coucou en passant !
par Minibug Dim 16 Sep 2018 - 15:03

» bug SEVERE fnc+sub : variables globales corrompus
par silverman Dim 16 Sep 2018 - 13:38

» Verrouiller un form en avant plan
par silverman Dim 16 Sep 2018 - 12:50

» Fin de l'aventure.
par Pedro Alvarez Sam 15 Sep 2018 - 18:16

» Demande d'explications Sur File_Write & File_writeln
par Jack Sam 15 Sep 2018 - 17:26

» MEMO avec des possibilités de commande
par Oscaribout Mer 12 Sep 2018 - 1:06

» La théorie du chaos
par jean_debord Mar 11 Sep 2018 - 9:30

» Version instantanée V 0.9.29i2 du 4/09/2018
par silverman Mer 5 Sep 2018 - 10:15

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Septembre 2018
LunMarMerJeuVenSamDim
     12
3456789
10111213141516
17181920212223
24252627282930
CalendrierCalendrier

Partagez | 
 

 Orbites de l’ensemble de Mandelbrot

Aller en bas 
AuteurMessage
papydall

avatar

Nombre de messages : 5993
Age : 68
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Orbites de l’ensemble de Mandelbrot   Sam 8 Sep 2018 - 16:15

Hello world !

Code:

rem ============================================================================
rem           Orbites de l’ensemble de Mandelbrot
rem ============================================================================

Init()
 Orbites(0.77777777777, 0.1133333333)
' Orbites(0.1          , 0.84)
' Orbites(0.77789456123, 0.123456789)
' Orbites(0.60123456789, 0.10123456789)
' Orbites(0.7654321,0.123456789)
terminate
rem ============================================================================
SUB Init()

    dim LX,LY,XI,XM,YI,YM,IM,A,B,XO,YO,F,I,X,Y,XX ,xp,yp,k,a$,r1,g1,b1,f$
    LX = 1000 : LY = 700
    Xi = -1.5 : XM = 1.5 : YI = -1 : YM = 1 : IM = 800
    width 0,LX : height 0,LY
    picture 10 : full_space 10 : 2d_target_is 10 : color 10,170, 170, 255
    application_title "Orbites de l'ensemble de Mandelbrot"
    caption 0,"Orbites de l’ensemble de Mandelbrot ... Tracé en cours ... <ESC> pour arrêter ..."

END_SUB
rem ============================================================================
' les paramètres a et b représentent respectivement la partie réelle et
' la partie imaginaire de la constante complexe.
' Jouez avec ces deux paramètres pour obtenir des jolis tracés
SUB Orbites(a,b)
    while scancode <> 27
       XO = (XM-XI) * RND(1) + XI : YO = (YM-YI) * RND(1) + YI
       X = XO : Y = YO  : ' Point de départ aléatoire
       for i = 1 to im
           xx = (x*x - y*y) - a : y = 2*x*y - b : x = xx
           xp = lx*(x-xi)/(xm-xi) : yp = ly*(y-yi)/(ym-yi)
           if i < (im*6/8) then b1 = 0 : else : b1 = 255          
           if i < (im / 2) then g1 = 0 : else : g1 = 255          
           if i < (im / 4) then r1 = 0 : else : r1 = 255
           2d_pen_color r1,g1,b1 : 2d_point xp,yp : 2d_point lx-xp,ly-yp
           if (x*x+y*y) > 4 then exit_for
       next i
    end_while
    caption 0, "Programme arrêté par l'utilisateur !"
    If message_information_yes_no("Voulez-vous sauvegarder l'image ?") = 1
       if dir_exists("Images") = 0 then dir_make "Images"
       f$ = "Images/" + str$(a) + "_" + str$(b) + ".bmp"
       file_save 10,f$
       message "L'image a été enrégistrée sous " + f$
    end_if
    
END_SUB
rem ============================================================================

Spoiler:
 
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
jean_debord

avatar

Nombre de messages : 822
Age : 64
Localisation : Limoges
Date d'inscription : 21/09/2008

MessageSujet: Re: Orbites de l’ensemble de Mandelbrot   Lun 10 Sep 2018 - 9:01

Merci papydall.

Les orbites sont à la mode ces temps-ci Smile

En ce temps de rentrée scolaire, c'est un bon moyen de se (re)mettre aux maths !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://www.unilim.fr/pages_perso/jean.debord/index.htm
Jean Claude

avatar

Nombre de messages : 5645
Age : 64
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Orbites de l’ensemble de Mandelbrot   Lun 10 Sep 2018 - 13:46

Bonjour à tous,

@Papydall,
j'ai bricolé un peu ton code, pour avoir des images assez jolies sur fond noir et plus rapidement.

Voici le résultat:



et le code revu pour le fond noir...

Code:
rem ============================================================================
rem          Orbites de l’ensemble de Mandelbrot  Papydall mofifié JC
rem ============================================================================

Init()
 Orbites(0.77777777777, 0.1133333333)
' Orbites(0.1          , 0.84)
' Orbites(0.77789456123, 0.123456789)
' Orbites(0.60123456789, 0.10123456789)
' Orbites(0.7654321,0.123456789)
terminate
rem ============================================================================
SUB Init()

    dim LX,LY,XI,XM,YI,YM,IM,A,B,XO,YO,F,I,X,Y,XX ,xp,yp,k,a$,r1,g1,b1,f$,CouleurMaxFond,rep$
    rep$=dir_current$
    CouleurMaxFond=180
    LX = 1000 : LY = 700
    Xi = -1.5 : XM = 1.5 : YI = -1 : YM = 1 : IM = 800
    width 0,LX : height 0,LY
    picture 10 : full_space 10 : 2d_target_is 10 : color 10,00,00,00
    application_title "Orbites de l'ensemble de Mandelbrot"
    caption 0,"Orbites de l’ensemble de Mandelbrot ... Tracé en cours ... <ESC> pour arrêter ..."

END_SUB
rem ============================================================================
' les paramètres a et b représentent respectivement la partie réelle et
' la partie imaginaire de la constante complexe.
' Jouez avec ces deux paramètres pour obtenir des jolis tracés
SUB Orbites(a,b)
    while scancode <> 27
      XO = (XM-XI) * RND(1) + XI : YO = (YM-YI) * RND(1) + YI
      X = XO : Y = YO  : ' Point de départ aléatoire
      for i = 1 to im
          xx = (x*x - y*y) - a : y = 2*x*y - b : x = xx
          xp = lx*(x-xi)/(xm-xi) : yp = ly*(y-yi)/(ym-yi)
          if i < (im*6/8) then b1 = 0 : else : b1 = 255         
          if i < (im / 2) then g1 = 0 : else : g1 = 255         
          if i < (im / 4) then r1 = 0 : else : r1 = 255
          if r1<CouleurMaxFond and g1<CouleurMaxFond and b1<CouleurMaxFond then r1=RND(150) : g1=RND(200) : b1=RND(255)
          2d_pen_color r1,g1,b1 : 2d_point xp,yp : 2d_point lx-xp,ly-yp : 2d_point x,y : 2d_point xi,yi : 2d_point xm,ym
          if (x*x+y*y) > 4 then exit_for
      next i
    end_while
    caption 0, "Programme arrêté par l'utilisateur !"
    If message_information_yes_no("Voulez-vous sauvegarder l'image ?") = 1
      dir_change rep$
      if dir_exists("Images") = 0 then dir_make "Images"
      f$ = "Images/" + str$(a) + "_" + str$(b) + ".bmp"
      file_save 10,f$
      message "L'image a été enrégistrée sous " + f$
    end_if
   
END_SUB
rem ============================================================================


Par contre j'aimerai bien voir le tien (de code) passé au compilateur pour voir plus rapidement la construction de l'image. Jack, si tu nous lis .... Very Happy

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5993
Age : 68
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Orbites de l’ensemble de Mandelbrot   Lun 10 Sep 2018 - 18:29

Merci les Jean (debord + claude)

Jean Claude a écrit:
j'ai bricolé un peu ton code, pour avoir des images assez jolies sur fond noir et plus rapidement.

Merci bricoleur !
C’est bon !

Jean Claude a écrit:
Par contre j'aimerai bien voir le tien (de code) passé au compilateur pour voir plus rapidement la construction de l'image. Jack, si tu nous lis ....  

Personnellement je propose à Jack de compiler ce code
Avec l’interpréteur, ça prend plus d’une heure sur ma bécane !

Spoiler:
 

J’aimerais bien voir ce que ça donne avec le compilateur.
Merci Jack, si tu passes par ici, …
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jean Claude

avatar

Nombre de messages : 5645
Age : 64
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Orbites de l’ensemble de Mandelbrot   Lun 10 Sep 2018 - 21:08

Paydall a écrit:
Personnellement je propose à Jack de compiler ce code => http://panoramic.1fr1.net/t4564-zoom-sur-mandelbrot?highlight=mandelbrot
Avec l’interpréteur, ça prend plus d’une heure sur ma bécane !
Chez moi, ça dure 27 minutes Very Happy
Bon, ceci dit le résultat sera le même, seul le temps sera plus court. Mais c'est toujours intéressant de voir la différence de traitement entre le compilateur et l'interpréteur, en terme de temps.

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jack
Admin
avatar

Nombre de messages : 1917
Date d'inscription : 28/05/2007

MessageSujet: Re: Orbites de l’ensemble de Mandelbrot   Hier à 11:16

Code:
Personnellement je propose à Jack de compiler ce code
Avec l’interpréteur, ça prend plus d’une heure sur ma bécane !

Voici le résultat de la compilation:
http://panoramic-language.pagesperso-orange.fr/Zoom_sur_Mandelbrot.zip

_________________
username : panoramic@jack-panoramic password : panoramic123
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://panoramic.1fr1.net
Minibug

avatar

Nombre de messages : 3025
Age : 51
Localisation : Vienne (86)
Date d'inscription : 09/02/2012

MessageSujet: Re: Orbites de l’ensemble de Mandelbrot   Hier à 11:28

Bonjour Jack !

L'archive semble corrompue ou incorrecte.
Pourrais tu la recharger stp ? Merci ! Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gpp.panoramic.free.fr
Jack
Admin
avatar

Nombre de messages : 1917
Date d'inscription : 28/05/2007

MessageSujet: Re: Orbites de l’ensemble de Mandelbrot   Hier à 11:45

Je viens de recharger l'archive.
En espérant que cela fonctionne maintenant.

_________________
username : panoramic@jack-panoramic password : panoramic123
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://panoramic.1fr1.net
Jean Claude

avatar

Nombre de messages : 5645
Age : 64
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Orbites de l’ensemble de Mandelbrot   Hier à 13:37

Citation :

Paydall a écrit:
Personnellement je propose à Jack de compiler ce code => http://panoramic.1fr1.net/t4564-zoom-sur-mandelbrot?highlight=mandelbrot
Avec l’interpréteur, ça prend plus d’une heure sur ma bécane !

Jean Claude à répondu:
Chez moi, ça dure 27 minutes
Bon, ceci dit le résultat sera le même, seul le temps sera plus court. Mais c'est toujours intéressant de voir la différence de traitement entre le compilateur et l'interpréteur, en terme de temps.

Jack a écrit:
Voici le résultat de la compilation:
http://panoramic-language.pagesperso-orange.fr/Zoom_sur_Mandelbrot.zip

Résultat de la version compilée:
31,734 Secondes  Very Happy  
C'est stupéfiant  cheers
Cela donne vraiment envie d'avoir un compilateur Panoramic.

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Minibug

avatar

Nombre de messages : 3025
Age : 51
Localisation : Vienne (86)
Date d'inscription : 09/02/2012

MessageSujet: Re: Orbites de l’ensemble de Mandelbrot   Hier à 18:56

Je suis déçu , chez moi la fenêtre s'affiche et plante avant de voir quoi que ce soit !! Mad

J'ai aussi un message d'Avira qui me détecte un intrus dans le programme...
Sûrement un faux positif mais c'est la première fois que Avira me fait un truc pareil !  Suspect

Je suis sous Windows 7.32 bits. Peut être y a t-il une incompatibilité ! scratch

EDIT :
Après quelques vérification avec Malware byte j'ai enfin réussi à exécuter le code ! cheers
Chez moi il faut une 40 de secondes pour avoir l'affichage complet. Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gpp.panoramic.free.fr
Oscaribout



Nombre de messages : 196
Date d'inscription : 29/12/2016

MessageSujet: Re: Orbites de l’ensemble de Mandelbrot   Hier à 19:56

J'ai enfin récupéré mon portable.

Je me demande quel est le problème?

Planétarium je ne peux rien faire
J'avais lancer un autre programme, je ne sais plus lequel, et je n'ai pas vu de différence entre le programme lancé en direct et celui que Jack a compiler.

J'espérai voir un résultat probable maintenant.
Voila ce que j'obtiens.

Spoiler:
 

Je vais laisser tourner pour voir si au bout d'un moment, l'image apparait, si comme le dernier programme que j'avais testé, il me semblait mettre le même temps d'exécution qu'à partir de Panoramic_Editor.

J'espérai voir enfin un résultat. J'ai laissé un programme de côté car sans le compilateur, il n'est pas crédible. Je pensais que Jack pourrai nous donner une information sur la publication du compilateur, vu qu'il semble fonctionner pour vous, mais maintenant j'ai des doutes! Sad  sur la validité de ce programme.

Mince alors!

Est-ce qu'on voit l'image se former progressivement, ou l'affichage complet d'un coup?


EDIT: Une fois envoyé et fermé le navigateur, j'ai vu l'affichage avec un temps de 441 secondes. Il y a un progrès si il faut plus d'une heure pour créer l'image. 441 secondes contre 40 et 27, il y a une sacrée marge.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 5645
Age : 64
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Orbites de l’ensemble de Mandelbrot   Hier à 20:29

Minibug a écrit:
Je suis déçu , chez moi la fenêtre s'affiche et plante avant de voir quoi que ce soit !! Mad

J'ai aussi un message d'Avira qui me détecte un intrus dans le programme...
Sûrement un faux positif mais c'est la première fois que Avira me fait un truc pareil !  Suspect

Je suis sous Windows 7.32 bits. Peut être y a t-il une incompatibilité ! scratch

EDIT :
Après quelques vérification avec Malware byte j'ai enfin réussi à exécuter le code ! cheers
Chez moi il faut une 40 de secondes pour avoir l'affichage complet. Wink

Perso ! les antis-virus pour moi c'est terminé.
Sous W8.1, il n'y en pas besoin, à condition de faire les mises à jour quotidiennement si elle ne sont pas automatiques.
Pour W7 je ne me prononce pas.
Le scan avec Malware-byte est une bonne solution si on a un anti-virus (Avast, Avira, Iobit, ...).

Oscaribout a écrit:
EDIT: Une fois envoyé et fermé le navigateur, j'ai vu l'affichage avec un temps de 441 secondes. Il y a un progrès si il faut plus d'une heure pour créer l'image. 441 secondes contre 40 et 27, il y a une sacrée marge.

Là, je pense qu'on doit tenir compte des performances du PC, chez moi 31 secondes contre 27 minutes ça se passe de commentaires. Very Happy

Oscaribout a écrit:
Est-ce qu'on voit l'image se former progressivement, ou l'affichage complet d'un coup?

Comme tu as pu le constater, ce n'est pas le cas, et c'est un peu dommage car dans la version interprétée on voit la progression, mais elle devient vite barbante vu le temps d'exécution. Je pense que dans la version compilée, si l'on pouvait voir, ce serait surement sympa.

A+

Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5993
Age : 68
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Orbites de l’ensemble de Mandelbrot   Hier à 20:53

Oscaribout a écrit:
Est-ce qu'on voit l'image se former progressivement, ou l'affichage complet d'un coup?

On voit l’affichage complet.
Bien que dans le code il y ait la commande DISPLAY pour voir l’image s’afficher au fur et à mesure, il semble que le compilateur ignore cette commande.
D’ailleurs, c’était le cas dans les anciennes versions du compilateur.
J’aime mieux voir l’image se former au fur et à mesure.
Jack peut nous en dire plus.

Question vitesse, chez moi c’est 85 s contre 3850 s !!!!

Spoiler:
 

@Jack
Si tu penses que la version actuelle du compilateur est suffisamment  fiable, tu veux bien la mettre en téléchargement ?
Comme ça, chacun pourrait le tester avec ses propres codes pour apprécier ses performances et relever, éventuellement ses faiblesses ou proposer certaines améliorations.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Minibug

avatar

Nombre de messages : 3025
Age : 51
Localisation : Vienne (86)
Date d'inscription : 09/02/2012

MessageSujet: Re: Orbites de l’ensemble de Mandelbrot   Hier à 21:32

@Oscaribout :

Tu rencontres le même problème que moi ou du moins quelque chose de proche...
Je pense que tu devrai passer Malewarebyte et voir le résultat !

Bon courage geek
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gpp.panoramic.free.fr
Contenu sponsorisé




MessageSujet: Re: Orbites de l’ensemble de Mandelbrot   

Revenir en haut Aller en bas
 
Orbites de l’ensemble de Mandelbrot
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» PANOMAND : pour explorer l'ensemble de Mandelbrot
» Ensemble de Mandelbrot z^p+c avec exposant p complexe
» SKETCHUPons et GIMPons ensemble !
» Est-il possible d'effacer l'ensemble de mes messages en un clic?
» bordures sur l'ensemble du forum: comment faire

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos sources, vos utilitaires à partager-
Sauter vers: