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


Biomorphes de PICKOVER

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

Biomorphes de PICKOVER

Message par Admin le Dim 18 Juin - 0:35

Code:

rem ============================================================================
rem                 Biomorphes de PICKOVER
rem                  Papydall - Juin 2017
rem ============================================================================
rem Les biomorphes sont issus d’un programme informatique.
rem L’algorithme permettant de tracer un biomorphe utilise les nombres complexes.
rem Il manipule une suite de complexes dans le plan complexe.
rem ============================================================================
rem RAPPEL :
rem Un nombre complexe n’est pas si complexe que ça !
rem Il s’appelle complexe parce qu’il est composé de deux parties :
rem L’une dite partie réelle et l’autre partie imaginaire.
rem Un nombre complexe z s’écrit sous la forme :
rem         ______________
rem        |              |
rem        | z = a + i*b  |
rem        |______________|
rem
rem Dans le plan complexe, z désigne l’affixe d’un point où la partie réelle a
rem en détermine l’abscisse et la partie imaginaire b, l’ordonnée.
rem ============================================================================
rem Le nombre i (qui s’appelle unité imaginaire) est tel que i² = -1
rem C’est-à-dire "i = racine carrée de moins un"
rem ============================================================================
rem Comme exemple, on s’intéresse au biomorphe appelé "radiolaire" à 12 branches
rem de la forme z³ + c

rem ============================================================================
dim xc,yc : xc = 0.5 : yc = 0.1 : ' c <--- xc + i*yc
dim rz,rza,iz,iza,j,k,n,xm,ym,t$
width 0,750 
picture 10 : width 10,width_client(0)-100 : height 10,height_client(0)-100
top 10,50 : left 10,50 : 2d_target_is 10  : color 10,0,0,0
alpha 20 : font_size 20,14 : font_bold 20 : font_color 20,0,0,255 : left 20,150
t$ = "Biomorphe de Pickover : Radiolaire à 12 branches" + chr$(13)
t$ = t$ + "de la forme z³ + c  ..... <ESC> pour arrêter ....."
caption 20,t$ : caption 0,"Tracé en cours ..."
xm = width(10) : ym = height(10)
for j = 50 to xm - 50
    for k = 10 to ym
        rza = -6.4 + 0.02 * j : iza = -3.5 + 0.02 * k
        for n = 1 to 10
            rz = power(rza,3) - 3 * rza * power(iza,2) + xc : ' partie réelle de z
            iz = 3 * power(rza,2) * iza - power(iza,3) + yc : ' partie imaginaire de z
            IF (ABS(rz) > 10) OR (ABS(iz) > 10) OR (SQR(rz*rz+iz*iz) > 10) THEN exit_for
            rza = rz : iza = iz
        next n
        IF (ABS(rz) < 10) OR (ABS(iz) < 10)
           2d_pen_color 255,0,0 : 2d_point j,k 
        end_if
        IF (ABS(rz) <  OR (ABS(iz) < 
           2d_pen_color 255,255,0 : 2d_point j,k 
        end_if
        IF (ABS(rz) < 6) OR (ABS(iz) < 6)
           2d_pen_color 0,255,0 : 2d_point j,k 
        end_if
        IF (ABS(rz) < 4) OR (ABS(iz) < 4)
           2d_pen_color 255,0,0 : 2d_point j,k 
        end_if
        IF (ABS(rz) < 2) OR (ABS(iz) < 2)
           2d_pen_color 255,255,0 : 2d_point j,k 
        end_if
        display
        if scancode = 27 then terminate
    NEXT k
NEXT j
caption 0,"Terminé"
rem ============================================================================

Ce qui donne:




_________________
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


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