Forum de Programmation en langage PANORAMIC
Rechercher
 
 

Résultats par :
 


Rechercher Recherche avancée

Mots-clés

Derniers sujets
»  Simuler l’appui d'une touche ou combinaison de touches
Sam 16 Sep - 13:58 par Admin

» Régalez-vous !
Sam 29 Juil - 11:42 par Admin

» Les bienfaits du rire
Ven 7 Juil - 0:04 par Admin

» Derrière chaque beau parleur se cache un magnifique menteur
Ven 7 Juil - 0:01 par Admin

» Carré magique d’ordre 3 à 99 et plus si affinité !
Mer 5 Juil - 3:21 par Admin

» Dessine-moi une étoile
Mar 4 Juil - 17:32 par Admin

»  Equation paramétrique de la super-ellipse
Mar 4 Juil - 17:29 par Admin

»  Exécution des fichiers CPL
Sam 1 Juil - 14:01 par Admin

» Un papa à la page.
Ven 30 Juin - 15:01 par Admin

Octobre 2017
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     

Calendrier Calendrier


Butterfly effect : Lorens equations

Voir le sujet précédent Voir le sujet suivant Aller en bas

Butterfly effect : Lorens equations

Message par Admin le Dim 4 Juin - 2:09

Code:

rem ============================================================================
rem     Butterfly effect : Lorens equations
rem      Adaptation d’un code en Yabasic
rem             Papydall Juin 2017
rem ============================================================================
Init()
Boucle()
end
rem ============================================================================
SUB Init()
    dim xa(2), ya(2), za(2)
    dim c1, dt, a, b, c, i, x, y, z, x1, y1, z1, xd, yd
        
    picture 10 : width 10,width(0)-50 : height 10,height(0)-60 : top 10,10: left 10,20
    2d_target_is 10 : color 10,0,0,0 : caption 0,"Butterfly effect .... <ESC> pour arrêter ..."
    
    xa(0) = 3.051522 : xa(1) = 3.051522
    ya(0) = 1.592542 : ya(1) = 1.582542
    za(0) = 15.62388 : za(1) = 15.62388    
    c1 = 0.292893 : dt = 0.02 : a = 5 : b = 15 : c = 1
    
END_SUB
rem ============================================================================
SUB Boucle()
    repeat
        for i = 0 to 1
            x  = xa(i) : y = ya(i) : z = za(i)
            x1 = x-a*x*dt+a*y*dt
            y1 = y+b*x*dt-y*dt-z*x*dt
            z1 = z-c*z*dt+x*y*dt
            x  = x1 : y = y1 : z = z1
            xd = y-x*c1 : yd = z+x*c1

            if i = 1
               draw(xd,yd,128)
            else
               draw(xd,yd,255)
            end_if
            xa(i) = x : ya(i) = y : za(i) = z
        next i
    until scancode = 27

END_SUB
rem ============================================================================
' Draw a shiny ball
SUB Draw(xd,yd,cl)
    dim_local i1,j1,c,c1,c2,d1,d2,i,k
    c1 = 19.3 : c2 = width(10)/2
    d1 = 11.0 : d2 = 392.0 
    k  = 10
    i1 = c1*xd+c2
    j1 = 0-d1*yd+d2
    for i = 127 to 255 step 16
        c = 0.09*(10-k)
        2d_pen_color cl,i,i : 2d_fill_color cl,i,i
        2d_circle i1+c,j1+c,k
        k = k - 1
    next i
END_SUB
rem ============================================================================

_________________
Invité, merci d'être passé par ici.
avatar
Admin
Admin

Messages : 68
Date d'inscription : 08/09/2015
Age : 67
Localisation : MOKNINE (Tunisie)

Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum