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
» Une copie de Panoramic Editeur
par Minibug Aujourd'hui à 1:17

» Problème mathématique en 3D
par Marc Hier à 18:24

» Nouvelle version 0.33
par jean_debord Hier à 9:02

» Reprise du développement et de la documentation
par Fredisland Hier à 7:14

» Objet 3D_PLANE, réalisation d'un dé en 3D
par Marc Mar 22 Mai 2018 - 0:33

» Cacher la barre des tâches
par Klaus Lun 21 Mai 2018 - 21:27

» Une "base de connaissance" - pour jouer ou plus si affinité
par Minibug Lun 21 Mai 2018 - 10:29

» quel est ce comportement de Panoramic_editor
par Oscaribout Lun 21 Mai 2018 - 0:22

» Des FORM(s) Colorés
par Jean Claude Dim 20 Mai 2018 - 20:58

» Recherches dans un fichier texte
par JL35 Dim 20 Mai 2018 - 20:18

» Problème d'affichage des pages du forum (Résolu)
par Jean Claude Dim 20 Mai 2018 - 20:00

» Créer une application *.exe
par Yannick Ven 18 Mai 2018 - 20:01

» [RÉSOLU] Priorité affichage des objets : comment la définir?
par papydall Ven 18 Mai 2018 - 18:22

» Aucune différence entre ON_CLICK et ON_DOUBLE_CLICK
par Jean Claude Jeu 17 Mai 2018 - 8:37

» [Résolu] Récuperer les fonctions systeme de Panoramic
par Minibug Mar 15 Mai 2018 - 23:21

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Mai 2018
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   
CalendrierCalendrier

Partagez | 
 

 Démo dédicacé à Papydall

Aller en bas 
Aller à la page : Précédent  1, 2
AuteurMessage
mindstorm

avatar

Nombre de messages : 553
Age : 49
Localisation : charente
Date d'inscription : 13/02/2013

MessageSujet: Re: Démo dédicacé à Papydall   Sam 2 Mar 2013 - 15:59

bonjour @ tous
j'ai un probleme de lancement du programme Julia
Run() illegal fonction
end
si quelqu un peut m aider
merci
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Démo dédicacé à Papydall   Sam 2 Mar 2013 - 16:40

Salut mindstorm

Il n’y a aucune raison pour que le programme ne fonctionne pas !
Essaie de le retélécharger à nouveau.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
JL35



Nombre de messages : 6257
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Démo dédicacé à Papydall   Sam 2 Mar 2013 - 17:39

Bonjour papydall;
Je confirme, chez moi ça marche très bien (très lent mais c'est normal).

à propos, fais la bise à Julia de ma part.
Very Happy
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Démo dédicacé à Papydall   Sam 2 Mar 2013 - 17:51

@JL35
On ne peut pas faire la bise à l’un des grands mathématiciens décédé !
Que Dieu ait son âme!
J’ai nommé Gaston Maurice Julia
On ne peut qu’admirer sa théorie et les ensembles qui en découlent !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Yannick

avatar

Nombre de messages : 8077
Age : 47
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Sam 2 Mar 2013 - 22:57

On aurait pu croire que Julia était une ancienne amie à toi...
( je plaisantais... confused même si j'avoue mon ignorance de ce grand mathématicien... Embarassed )
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Démo dédicacé à Papydall   Dim 3 Mar 2013 - 0:52

Tu peux taper dans Google Gaston Julia ; et tu apprécieras le talent de ce mathématicien.

Jette un oeil ici
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
papydall

avatar

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

MessageSujet: Re: Démo dédicacé à Papydall   Dim 3 Mar 2013 - 3:04

Une petite amélioration du programme Julia.bas
Avec les paramètres du programme, voici ce que vous pouvez obtenir.
Le temps de l'exécution est plus long, mais le résultat est meilleur.



Code:
' ******************************************************************************
'                  Julia.bas par Papydall
' ******************************************************************************
Run()
end
' ******************************************************************************
SUB Run()
    label fin
    dim ec,x0,y0,xp0,yp0,Nxp,Nyp
    caption 0,"Tracé de la fractale de Julia en cours ... Veuillez patienter ... <CLICK> pour arrêter"
    ec = 400 : width 0, 2*ec+20 : color 0,0,0,0
' Essayez ces differents paramètres pour d'autres ensembles de Julia
    x0 = 0 : y0 = 0 : xp0 = .36237 : yp0 = .32
'    x0 = 0 : y0 = 0 : xp0 = .3 : yp0 = .5
'    x0 = 0-.5 : y0 = 0 : xp0 = .285 : yp0 = .013
'    x0 = 0-.5 : y0 = 0 : xp0 = .3 : yp0 = 0 -.49
'    x0 = 0-.5 : y0 = 0 : xp0 = .285 : yp0 = .01
'    x0 = .5 : y0 = .123 : xp0 = .3777 : yp0 = .123456
'    x0 = 0-.5 : y0 = .0123 : xp0 = .3456789 : yp0 = 0-.423456789

    Nxp = (xp0 - x0) * ec  / 4 + ec / 2 : Nyp = (y0 - yp0) * ec  / 4 + ec / 2
    alpha 1 : top 1,420 :left 1,100 : font_color 1,255,255,0 : font_bold 1
    color 1,255,0,0 : font_size 1,10 : caption 1," Fractale en Couleur "
    alpha 2 : top 2,420 :left 2,600 : font_color 2,255,255,0 : font_bold 2
    color 2,255,0,0 : font_size 2,10 : caption 2," Fractale en Noir "
    display : Julia(Nxp,Nyp) : caption 0,"Terminé"
END_SUB
' *****************************************************************************
' Tracé de la fractale ; optimisation du tracé par la symétrie
SUB Julia(Nxp, Nyp)
    dim_local cx,cy,x,y,xn,yn,modul ,nx,ny,Nb_iter
    cx = x0 + 4 / ec * (Nxp - ec / 2) : cy = y0 - 4 / ec * (Nyp - ec / 2)
    FOR Nx = 1 TO ec
        FOR Ny = 1 TO Nx
            X = 3 / ec * (Nx - ec / 2) : Y =  -3 / ec * (Ny - ec / 2)
' Diminuer le nombre d'itérations accélère le tracé mais on perd en netteté !
' Augmenter le nombre d'itérations donne une image plus nette, plus detaillée
' Mais le temps de calcul sera plus long.
            FOR Nb_iter = 1 TO 150
                xn = X*X - Y*Y + cx : yn = 2*X*Y + cy
                modul = SQR((x-xn)*(x-xn) + (y-yn)*(y-yn)) : X = xn : Y = yn
                IF SQR(xn * xn + yn * yn) > 2
                  2d_pen_color 50,150,150
                  2d_point Nx, Ny : 2d_point ec - Nx + 1, ec - Ny + 1
                  2d_point ec + nx, Ny : 2d_point 2*ec - Nx +1, ec -Ny + 1
                  GOTO fin
                END_IF
            NEXT Nb_iter
            IF modul >= 2  THEN 2d_pen_color 0,0,0
            IF modul < 2    THEN 2d_pen_color 255,0,255
            IF modul < 1.75  THEN 2d_pen_color 255,255,0
            IF modul < 1.5  THEN 2d_pen_color 255,255,255
            IF modul < 1.25 THEN 2d_pen_color 0,255,0
            IF modul < 1    THEN 2d_pen_color 0,255,255
            IF modul < .7  THEN 2d_pen_color 0,0,255
            IF modul < .5  THEN 2d_pen_color 127,127,127
            IF modul < .4  THEN 2d_pen_color 127,127,0
            IF modul < .3  THEN 2d_pen_color 127,0,127
            IF modul < .2  THEN 2d_pen_color 127,0,0
            IF modul < .1  THEN 2d_pen_color 255,0,0
            2d_point Nx, Ny : 2d_point ec - Nx + 1, ec - Ny + 1
fin:
            if scancode <> 0 then caption 0,"Arrêté par l'utilisateur ! Dommage !!!" :end
        NEXT Ny
    NEXT Nx
END_SUB
' ******************************************************************************
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Yannick

avatar

Nombre de messages : 8077
Age : 47
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Dim 3 Mar 2013 - 10:41

Me voilà un peu mon couillon... Laughing

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

avatar

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

MessageSujet: Re: Démo dédicacé à Papydall   Dim 3 Mar 2013 - 11:54

ygeronimi a écrit:
Me voilà un peu mon couillon... Laughing

Merci Papydall
Tu ne veux sans doute pas nous montrer ton couillon, au sens de jeu de cartes ?
Moi aussi je suis moins couillon en réfléchissant à ton couillon.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Yannick

avatar

Nombre de messages : 8077
Age : 47
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Dim 3 Mar 2013 - 12:33

l' éditeur de texte du forum a une fâcheuse tendance à manger des lettres
et parfois des mots complets, ce qui rend nos posts incompréhensible.

@ Papydall,

il fallait lire : "Me voilà un peu moins couillon" qui est une expression du midi de la France
pour ne pas employer le fameux mot vulgaire de trois lettres commençant par la même lettre.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Démo dédicacé à Papydall   Lun 4 Mar 2013 - 0:23

Salut tout le monde.

Et pour clore ce sujet voici la fractale de Mandelbrot.



Code:
' ******************************************************************************
'                      La Fractale de Mandelbrot
'                    Mandelbrot.bas par Papydall
' ******************************************************************************
Mandelbrot()
end
' ******************************************************************************
SUB Mandelbrot()
  dim xp,yp,cy,cx,x,y,Nb_iter,j,z,c,r,v,b
  xp = 350: yp = 225
  caption 0,"Tracé du Mandelbrot en cours ... Veuillez patienter ... <CLICK> pour arrêter"
  alpha 1 : top 1,20 : left 1,170 :color 1, 255,0,0 : font_color 1,255,255,0
  font_bold 1 : font_size 1,12 : caption 1," PAPYDALL vous propose ... "
  alpha 2 : top 2,400 : left 2,150 :color 2, 255,0,0 : font_color 2,255,255,0
  font_bold 2 : font_size 2,12 : caption 2," ... La fractale de MANDELBROT "
  for cy = -1.5 to 0.006 step 0.006
    for cx = -2.5 to 1 step 0.006
        x = .01: y = .01 : Nb_iter = 0
        while Nb_iter < 60 :' augmenter le nombre d'itérations pour une meilleure définition.
                            ' mais le temps de calcul devient excessivement long.
            if scancode <> 0 then end
            z = x * y : x = x * x - y * y + cx : y = z + z + cy
            if x < -2 or x > 2 or y < -2 or y > 2
              couleur() : 2d_pen_color r,v,b
              2d_point xp + cx*100, yp - cy*100
              2d_point xp + cx*100, yp + cy*100
              exit_while
            end_if
            Nb_iter = Nb_iter + 1
        end_while
    next cx
  next cy
  caption 0,"fin"
END_SUB
' *****************************************************************************
sub couleur()
    IF Nb_iter < 10 THEN r = 0    : v = 0  : b = 255 : exit_sub
    IF Nb_iter < 20 THEN r = 0    : v = 255 : b = 0  : exit_sub
    IF Nb_iter < 30 THEN r = 255 : v = 0  : b = 255 : exit_sub
    IF Nb_iter < 40 THEN r = 255 : v = 0  : b = 0  : exit_sub
    IF Nb_iter < 50 THEN r = 255 : v = 255 : b = 0 : exit_sub
    r = 64 : v = 64 : b = 0
end_sub
' ******************************************************************************
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Contenu sponsorisé




MessageSujet: Re: Démo dédicacé à Papydall   

Revenir en haut Aller en bas
 
Démo dédicacé à Papydall
Revenir en haut 
Page 2 sur 2Aller à la page : Précédent  1, 2
 Sujets similaires
-
» Démo dédicacé à Papydall
» Welcome Papydall
» Rachel Bilson (PF & PFS)
» Les articles de Papydall

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: