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.
La courbe des larmes Emptypar Pedro Aujourd'hui à 10:37

» Un autre pense-bête...
La courbe des larmes Emptypar Froggy One Jeu 21 Nov 2024 - 15:54

» Récupération du contenu d'une page html.
La courbe des larmes Emptypar Pedro Sam 16 Nov 2024 - 14:04

» Décompilation
La courbe des larmes Emptypar JL35 Mar 12 Nov 2024 - 19:57

» Un album photos comme du temps des grands-mères
La courbe des larmes Emptypar jjn4 Mar 12 Nov 2024 - 17:23

» traitement d'une feuille excel
La courbe des larmes Emptypar jjn4 Jeu 7 Nov 2024 - 3:52

» Aide-mémoire mensuel
La courbe des larmes Emptypar jjn4 Lun 4 Nov 2024 - 18:56

» Des incomprèhension avec Timer
La courbe des larmes Emptypar Klaus Mer 30 Oct 2024 - 18:26

» KGF_dll - nouvelles versions
La courbe des larmes Emptypar Klaus Mar 29 Oct 2024 - 17:58

» instructions panoramic
La courbe des larmes Emptypar maelilou Lun 28 Oct 2024 - 19:51

» Figures fractales
La courbe des larmes Emptypar Marc Ven 25 Oct 2024 - 12:18

» Panoramic et Scanette
La courbe des larmes Emptypar Yannick Mer 25 Sep 2024 - 22:16

» Editeur d étiquette avec QR évolutif
La courbe des larmes Emptypar JL35 Lun 23 Sep 2024 - 22:40

» BUG QR Code DelphiZXingQRCode
La courbe des larmes Emptypar Yannick Dim 22 Sep 2024 - 11:40

» fichier.exe
La courbe des larmes 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
-17%
Le deal à ne pas rater :
(Black Friday) Apple watch Apple SE GPS + Cellular 44mm (plusieurs ...
249 € 299 €
Voir le deal

 

 La courbe des larmes

Aller en bas 
2 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

La courbe des larmes Empty
MessageSujet: La courbe des larmes   La courbe des larmes EmptySam 11 Avr 2020 - 1:59

Code:

rem ============================================================================
rem                         Courbe des Larmes
rem ============================================================================
rem
rem              Paramétrisation cartésienne de la courbe
rem               ______________________________________
rem              |                                      |                               |
rem              |  x = a * sin(t) * power(sin(t/2),n)  |
rem              |  y = a * cos(t)                      |
rem              |______________________________________|
rem
rem ============================================================================
dim xc,yc,n
width 0,1000 : caption 0,"Courbes des larmes"
picture 10 : full_space 10 : 2d_target_is 10 : color 10,50,200,100 : 2d_pen_color 255,255,0
xc = 240 : yc = height_client(10)/2
alpha 20 : top 20,20 : left 20,3*xc/2 : font_bold 20 : font_name 20,forte
font_size 20,20 : font_color 20,255,255,0 : color 20,50,200,100
for n = 1 to 100 : Larme(150,n) : next n
repeat
    font_color 20,255,255,0 : caption 20,"Il n'y a plus de larmes": pause 1000
    font_color 20,255,000,0 : caption 20,"Il n'y a plus de larmes": pause 1000
until scancode <> 0
end
rem ============================================================================
SUB Larme(a,n)
    dim_local x,y,t
    degrees : 2d_pen_width 2
    2d_pen_color rnd(n+a),rnd(a),abs(mod(rnd(360),255))
    2d_poly_from xc/2 , yc+a
    for t = 0 to 360        
        x = a * sin(t) * power(sin(t/2),n)
        y = a * cos(t)        
        2d_poly_to xc/2+x,yc+y
    next t
  
    2d_poly_from 3*xc/2, yc+a
    for t = 0 to 360
        x = a * sin(t) * power(sin(t/2),n)
        y = a * cos(t)
        2d_poly_to 3*xc/2-x,yc+y
    next t
    
    2d_poly_from 5*xc/2,yc+a
    for t = 0 to 360
        x = a * sin(t) * power(sin(t/2),n)
        y = a * cos(t)
        2d_poly_to 5*xc/2-x,yc+y
    next t
    2d_poly_from 7*xc/2,yc+a
    for t = 0 to 360
        x = a * sin(t) * power(sin(t/2),n)
        y = a * cos(t)
        2d_poly_to 7*xc/2-x,yc+y
    next t    
    display    
END_SUB
rem ============================================================================
Revenir en haut Aller en bas
http://papydall-panoramic.forumarabia.com/
Marc

Marc


Nombre de messages : 2466
Age : 63
Localisation : TOURS (37)
Date d'inscription : 17/03/2014

La courbe des larmes Empty
MessageSujet: Re: La courbe des larmes   La courbe des larmes EmptySam 11 Avr 2020 - 11:39

cheers  cheers

Merci Papydall pour tous tes partages "mathématiciens" !

Tu fais la pluie et le beau temps avec les maths !

Bonne continuation !
Revenir en haut Aller en bas
papydall

papydall


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

La courbe des larmes Empty
MessageSujet: Re: La courbe des larmes   La courbe des larmes EmptySam 11 Avr 2020 - 18:53

Merci Marc.

Quand j’étais jeune, j’ai voulu devenir mathématicien : mais j’ai été météorologue par accident !
La pluie et le beau temps étaient donc  mes occupations, professionnellement parlant.
Maintenant, je fais du n’importe quoi, faute de mieux.
Revenir en haut Aller en bas
http://papydall-panoramic.forumarabia.com/
Contenu sponsorisé





La courbe des larmes Empty
MessageSujet: Re: La courbe des larmes   La courbe des larmes Empty

Revenir en haut Aller en bas
 
La courbe des larmes
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Courbe en S
» Courbe de Hilbert : Récursion avec le compilateur
» Défi2 = les moindres carrés
» numérique : Courbe de Bézier
» Animation de courbe de Bézier cubique

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: