FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  RechercherRechercher  Dernières imagesDernières images  S'enregistrerS'enregistrer  MembresMembres  Connexion  
Derniers sujets
» Gestion d'un système client-serveur.
IFS Nice Leaves Emptypar Klaus Ven 17 Mai 2024 - 14:02

» item_index(résolu)
IFS Nice Leaves Emptypar jjn4 Mar 14 Mai 2024 - 19:38

» Bataille terrestre
IFS Nice Leaves Emptypar jjn4 Lun 13 Mai 2024 - 15:01

» SineCube
IFS Nice Leaves Emptypar Marc Sam 11 Mai 2024 - 12:38

» Editeur EliP 6 : Le Tiny éditeur avec 25 onglets de travail
IFS Nice Leaves Emptypar Marc Sam 11 Mai 2024 - 12:22

» Philharmusique
IFS Nice Leaves Emptypar jjn4 Ven 10 Mai 2024 - 13:58

» PANORAMIC V 1
IFS Nice Leaves Emptypar papydall Jeu 9 Mai 2024 - 3:22

» select intégrés [résolu]
IFS Nice Leaves Emptypar jjn4 Mer 8 Mai 2024 - 17:00

» number_mouse_up
IFS Nice Leaves Emptypar jjn4 Mer 8 Mai 2024 - 11:59

» Aide de PANORAMIC
IFS Nice Leaves Emptypar jjn4 Mer 8 Mai 2024 - 11:16

» trop de fichiers en cours
IFS Nice Leaves Emptypar lepetitmarocain Mer 8 Mai 2024 - 10:43

» Je teste PANORAMIC V 1 beta 1
IFS Nice Leaves Emptypar papydall Mer 8 Mai 2024 - 4:17

» bouton dans autre form que 0(résolu)
IFS Nice Leaves Emptypar leclode Lun 6 Mai 2024 - 13:59

» KGF_dll - nouvelles versions
IFS Nice Leaves Emptypar Klaus Lun 6 Mai 2024 - 11:41

» @Jack
IFS Nice Leaves Emptypar Jack Mar 30 Avr 2024 - 20:40

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Mai 2024
LunMarMerJeuVenSamDim
  12345
6789101112
13141516171819
20212223242526
2728293031  
CalendrierCalendrier
Le deal à ne pas rater :
Cartes Pokémon EV6.5 : où trouver le Bundle Lot 6 Boosters Fable ...
Voir le deal

 

 IFS Nice Leaves

Aller en bas 
4 participants
AuteurMessage
papydall

papydall


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

IFS Nice Leaves Empty
MessageSujet: IFS Nice Leaves   IFS Nice Leaves EmptySam 29 Jan 2022 - 22:56

Code:

rem ============================================================================
rem              IFS Nice Leaves
rem ============================================================================
dim scale, offsetx, offsety, iter,r,nx, ny, lastx, lasty
width 0,800 : height 0,700
picture 10 : full_space 10 : 2d_target_is 10: color 10,32,0,8 :2d_pen_color 0,192,0  
scale = 148.7642 : offsetx = 391 : offsety = 203
caption 0,"Tracé en cours ... <ESC> pour arrêter ..."
repeat
    iter = iter + 1
    r = rnd(1)
    if (r >= 0) and (r <= .36)
        nx =  .490662 * lastx + .357636 * lasty + .992214
        ny = -.367636 * lastx + .490662 * lasty - .032411
    else
        if (r >= .37) and (r <= .99)
            nx = -.1878  * lastx - .893171 * lasty - .283457
            ny = -.67173 * lastx + .196847 * lasty + .612409
        else
            nx = -.22345  * lastx - .170637 * lasty + .900462
            ny =  .129271 * lastx + .118929 * lasty - .778578
        end_if
    end_if
    2d_point nx * scale + offsetx , ny * scale + offsety
    lastx = nx : lasty = ny  : display
until scancode = 27
rem ============================================================================




Spoiler:
Revenir en haut Aller en bas
http://papydall-panoramic.forumarabia.com/
Minibug

Minibug


Nombre de messages : 4566
Age : 57
Localisation : Vienne (86)
Date d'inscription : 09/02/2012

IFS Nice Leaves Empty
MessageSujet: Re: IFS Nice Leaves   IFS Nice Leaves EmptyDim 30 Jan 2022 - 12:15

C'est génial cette façon de générer des objets pixel par pixel !

Papydall est parti pour nous recréer toute la foret !! Laughing Laughing
Revenir en haut Aller en bas
http://gpp.panoramic.free.fr
papydall

papydall


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

IFS Nice Leaves Empty
MessageSujet: Re: IFS Nice Leaves   IFS Nice Leaves EmptyJeu 3 Fév 2022 - 1:52

Merci Minibug.
Il s'agit de :
IFS : Iterated Functions Systems
ou SFI : Systèmes de Fonctions Itérées
Les systèmes de fonctions itérés sont une méthode de génération de fractales utilisant l’autosimilarité. Une image IFS est définie comme étant la somme des transformations géométriques d’elle-même. Il s’avère qu’il suffit de spécifier les transformations avec une probabilité pour chaque transformation pour déterminer l’image.

Je posterais d'autres images obtenues par les IFS.
Revenir en haut Aller en bas
http://papydall-panoramic.forumarabia.com/
Minibug

Minibug


Nombre de messages : 4566
Age : 57
Localisation : Vienne (86)
Date d'inscription : 09/02/2012

IFS Nice Leaves Empty
MessageSujet: Re: IFS Nice Leaves   IFS Nice Leaves EmptyJeu 3 Fév 2022 - 7:44

Merci pour ces explications Papydall !

Comme quoi toutes les formules mathématiques sont déjà dans la nature.
Encore une preuve que rien n'est fait au hasard...
Revenir en haut Aller en bas
http://gpp.panoramic.free.fr
papydall

papydall


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

IFS Nice Leaves Empty
MessageSujet: Re: IFS Nice Leaves   IFS Nice Leaves EmptyJeu 3 Fév 2022 - 8:45

Personnellement je pense que le hasard n'existe pas.
Le hasard c'est tout simplement le degré de notre ignorance.
Revenir en haut Aller en bas
http://papydall-panoramic.forumarabia.com/
Yannick




Nombre de messages : 8611
Age : 53
Localisation : Bretagne
Date d'inscription : 15/02/2010

IFS Nice Leaves Empty
MessageSujet: re   IFS Nice Leaves EmptyVen 4 Fév 2022 - 19:57

@ Papydall,

Ou le pourcentage restant de la fiabilité des données mesurables...
Oufff çà y est, je suis en surchauffe...
je sors.
lol!
Revenir en haut Aller en bas
Minibug

Minibug


Nombre de messages : 4566
Age : 57
Localisation : Vienne (86)
Date d'inscription : 09/02/2012

IFS Nice Leaves Empty
MessageSujet: Re: IFS Nice Leaves   IFS Nice Leaves EmptyVen 4 Fév 2022 - 20:26

Et ben à ce rythme on est pas prêt de le revoir notre Yannick !! Laughing Laughing

Yannick aime ce message

Revenir en haut Aller en bas
http://gpp.panoramic.free.fr
papydall

papydall


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

IFS Nice Leaves Empty
MessageSujet: Re: IFS Nice Leaves   IFS Nice Leaves EmptySam 5 Fév 2022 - 0:18

Salut Yannick.
Pour fêter ton retour, je t'offre cet emoji d'un visage souriant.

Code:

rem ============================================================================
rem       Emoji : Visage souriant pour Yannick
rem ============================================================================
dim x,y,x0,y0,r
picture 10 : full_space 10 : 2d_target_is 10
caption 0,"Visage souriant pour Yannick"
x0 = width_client(10)/2 : y0 = height_client(10)/2 : r = 100
2d_fill_color 255,255,0 : 2d_circle x0,y0,r
2d_fill_color 255,255,255 : x0 = x0-40 : y0 = y0-40: 2d_circle x0,y0,15
x0 = x0+80 : 2d_circle x0,y0,15 : 2d_fill_color 0,0,0
y0 = y0+8 : 2d_circle x0,y0,5 : x0 = x0-80 : 2d_circle x0,y0,5
x0 = x0+40 : y0 = y0+40 : 2d_circle x0,y0,10
degrees
x0 = width_client(10)/2 : y0 = height_client(10)/2 : 2d_arc x0,y0,40,0,180
y0 = y0+40 : 2d_arc x0,y0-2,10,0,180 : 2d_flood x0,y0+2,255,0,0
rem ============================================================================


Spoiler:

Yannick aime ce message

Revenir en haut Aller en bas
http://papydall-panoramic.forumarabia.com/
jjn4

jjn4


Nombre de messages : 2709
Date d'inscription : 13/09/2009

IFS Nice Leaves Empty
MessageSujet: Re: IFS Nice Leaves   IFS Nice Leaves EmptyVen 11 Fév 2022 - 16:51

Papydall a écrit:
Le hasard c'est tout simplement le degré de notre ignorance
Alors attends, j'essaie de suivre...
(en espérant ne pas surchauffer)
Si je comprend bien, celui qui gagne au loto,
c'est là, la preuve indéniable de son ignorance
qu'il n'avait aucune chance de gagner ?
alien alien alien Arrow cherry
lol!
Revenir en haut Aller en bas
http://jjn4.e-monsite.com
Contenu sponsorisé





IFS Nice Leaves Empty
MessageSujet: Re: IFS Nice Leaves   IFS Nice Leaves Empty

Revenir en haut Aller en bas
 
IFS Nice Leaves
Revenir en haut 
Page 1 sur 1

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: