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 - demandes ou suggestions de modifications ou ajouts
par Klaus Aujourd'hui à 19:48

» KGF_dll - nouvelles versions
par pascal10000 Aujourd'hui à 17:27

» Mah-Jong européen new-look
par Minibug Hier à 22:31

» track_bar circulaire
par Klaus Hier à 13:54

» API Windows
par Klaus Hier à 3:21

» Cartes de voeux, menus, etc.
par JL35 Lun 11 Déc 2017 - 17:48

» a l'aide klaus
par Minibug Lun 11 Déc 2017 - 11:42

» bug SYNEDIT_TARGET_IS_OBJECT
par Jack Lun 11 Déc 2017 - 0:16

» Jukebox : Serge Reggiani
par papydall Sam 9 Déc 2017 - 5:58

» Ecouter la radio fm sur votre pc
par pascal10000 Sam 9 Déc 2017 - 3:42

» anomalie
par Klaus Sam 9 Déc 2017 - 3:21

» hommage
par Jicehel Ven 8 Déc 2017 - 11:29

» Logiciel de soutien scolaire en langues.
par Pedro Alvarez Ven 8 Déc 2017 - 10:43

» carte son
par Klaus Ven 8 Déc 2017 - 2:37

» mise a jour calculatrice
par joeeee2017 Mer 6 Déc 2017 - 22:19

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Décembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
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 : 542
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 : 5613
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 - 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/
JL35



Nombre de messages : 6018
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 : 5613
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 - 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/
Yannick

avatar

Nombre de messages : 8002
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 : 5613
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 - 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/
papydall

avatar

Nombre de messages : 5613
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 - 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/
Yannick

avatar

Nombre de messages : 8002
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 : 5613
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 - 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/
Yannick

avatar

Nombre de messages : 8002
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 : 5613
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 - 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/
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 :: Vos sources, vos utilitaires à partager-
Sauter vers: