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
» KGF_dll - nouvelles versions
par Yannick Aujourd'hui à 23:30

» Synedit Parameters
par Yannick Aujourd'hui à 23:26

» Un bug avec USER_EVENT ?
par Yannick Aujourd'hui à 23:16

» Concours de Morpions
par Froggy One Aujourd'hui à 19:30

» Bienvenue à Irikte
par papydall Aujourd'hui à 16:59

» Comment changer le graphisme d’un menu
par Yannick Aujourd'hui à 14:53

» LIBRARY COMMAND FUNCTION
par Jean Claude Aujourd'hui à 13:38

» OBJECT_PARENT NE FONCTIONNE PLUS ?! (RESOLU)
par Jack Aujourd'hui à 12:40

» Menu personalisé avec icones et menu contextuel
par Yannick Aujourd'hui à 12:10

» Doublon - Désolé !
par Laurent (Minibug) Aujourd'hui à 11:55

» Mac OS X sierra
par Irikte Aujourd'hui à 10:01

» Recherche de traductions de mots (@Klaus).
par Pedro Alvarez Hier à 20:34

» Problème avec SendStringAsText.
par Pedro Alvarez Hier à 20:32

» Version instantanée V 0.9.28i10 du 24/06/2017
par Yannick Hier à 18:19

» Mais qui a le focus ?
par Jack Hier à 16:35

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juin 2017
LunMarMerJeuVenSamDim
   1234
567891011
12131415161718
19202122232425
2627282930  
CalendrierCalendrier

Partagez | 
 

 Démo dédicacé à Papydall

Voir le sujet précédent Voir le sujet suivant Aller en bas 
Aller à la page : Précédent  1, 2
AuteurMessage
mindstorm

avatar

Nombre de messages : 530
Age : 48
Localisation : charente
Date d'inscription : 13/02/2013

MessageSujet: Re: Démo dédicacé à Papydall   Sam 2 Mar 2013 - 17: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 : 5387
Age : 66
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 - 18: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/ En ligne
JL35



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

MessageSujet: Re: Démo dédicacé à Papydall   Sam 2 Mar 2013 - 19: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 : 5387
Age : 66
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 - 19: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/ En ligne
Yannick

avatar

Nombre de messages : 7870
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Dim 3 Mar 2013 - 0: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 : 5387
Age : 66
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 - 2: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/ En ligne
papydall

avatar

Nombre de messages : 5387
Age : 66
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 - 5: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/ En ligne
Yannick

avatar

Nombre de messages : 7870
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Dim 3 Mar 2013 - 12: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 : 5387
Age : 66
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 - 13: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/ En ligne
Yannick

avatar

Nombre de messages : 7870
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Dim 3 Mar 2013 - 14: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 : 5387
Age : 66
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 - 2: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/ En ligne
Contenu sponsorisé




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

Revenir en haut Aller en bas
 
Démo dédicacé à Papydall
Voir le sujet précédent Voir le sujet suivant 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 32 bits :: Vos sources, vos utilitaires à partager-
Sauter vers: