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
» Logiciel de planétarium.
IFS Nice Leaves Emptypar Pedro Aujourd'hui à 10:37

» Un autre pense-bête...
IFS Nice Leaves Emptypar Froggy One Jeu 21 Nov 2024 - 15:54

» Récupération du contenu d'une page html.
IFS Nice Leaves Emptypar Pedro Sam 16 Nov 2024 - 14:04

» Décompilation
IFS Nice Leaves Emptypar JL35 Mar 12 Nov 2024 - 19:57

» Un album photos comme du temps des grands-mères
IFS Nice Leaves Emptypar jjn4 Mar 12 Nov 2024 - 17:23

» traitement d'une feuille excel
IFS Nice Leaves Emptypar jjn4 Jeu 7 Nov 2024 - 3:52

» Aide-mémoire mensuel
IFS Nice Leaves Emptypar jjn4 Lun 4 Nov 2024 - 18:56

» Des incomprèhension avec Timer
IFS Nice Leaves Emptypar Klaus Mer 30 Oct 2024 - 18:26

» KGF_dll - nouvelles versions
IFS Nice Leaves Emptypar Klaus Mar 29 Oct 2024 - 17:58

» instructions panoramic
IFS Nice Leaves Emptypar maelilou Lun 28 Oct 2024 - 19:51

» Figures fractales
IFS Nice Leaves Emptypar Marc Ven 25 Oct 2024 - 12:18

» Panoramic et Scanette
IFS Nice Leaves Emptypar Yannick Mer 25 Sep 2024 - 22:16

» Editeur d étiquette avec QR évolutif
IFS Nice Leaves Emptypar JL35 Lun 23 Sep 2024 - 22:40

» BUG QR Code DelphiZXingQRCode
IFS Nice Leaves Emptypar Yannick Dim 22 Sep 2024 - 11:40

» fichier.exe
IFS Nice Leaves Emptypar leclode Ven 20 Sep 2024 - 19:02

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Novembre 2024
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
252627282930 
CalendrierCalendrier
-28%
Le deal à ne pas rater :
-28% Machine à café avec broyeur à grain MELITTA Purista
229.99 € 318.99 €
Voir le deal

 

 IFS Nice Leaves

Aller en bas 
4 participants
AuteurMessage
papydall

papydall


Nombre de messages : 7017
Age : 74
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 : 4570
Age : 58
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 : 7017
Age : 74
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 : 4570
Age : 58
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 : 7017
Age : 74
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 : 8635
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 : 4570
Age : 58
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 : 7017
Age : 74
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 : 2747
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: