FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Problème de math
par papydall Aujourd'hui à 1:53

» A propos des attributs de fichier
par papydall Hier à 14:33

» Problème de math
par Marc37 Sam 21 Oct 2017 - 23:04

» I Love You
par papydall Sam 21 Oct 2017 - 19:22

» Un petit "coucou" à tous les Panoramiciens !
par mindstorm Sam 21 Oct 2017 - 17:06

» MARK_ON déclenche un événement ON_CLICK à la place de ...
par Jean Claude Mer 18 Oct 2017 - 18:08

» mise a jour calculatrice
par joeeee2017 Mer 18 Oct 2017 - 15:57

» [solved] 3D_LINE How to ?
par Jicehel Mer 18 Oct 2017 - 11:01

» Convertisseur de base 10 de 2 à 36
par gigi75 Mar 17 Oct 2017 - 18:49

» calculatrice avec touches movibles
par joeeee2017 Dim 15 Oct 2017 - 1:11

» CORTANA
par gigi75 Sam 14 Oct 2017 - 16:32

» Calculatrice
par Jean Claude Sam 14 Oct 2017 - 12:30

» Compilateur FBPano
par jean_debord Jeu 12 Oct 2017 - 9:53

» KGF_dll - nouvelles versions
par Klaus Mar 10 Oct 2017 - 18:49

» à propos de Panoramic_Editor [Résolu]
par Klaus Mar 10 Oct 2017 - 3:19

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Octobre 2017
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendrierCalendrier

Partagez | 
 

 Equation d’un œuf

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

avatar

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

MessageSujet: Equation d’un œuf   Mar 3 Mai 2016 - 17:06

Si quelqu’un peut inventer l’équation d’une omelette ?  Evil or Very Mad
En attendant voici l’équation d’un œuf. cheers



Code:

rem ============================================================================
rem         OVE
rem ============================================================================
' Ref : http://serge.mehl.free.fr/anx/ovale.html
' L'ovale ne possède pas d'équation mathématique simple
' Une étude de l'équation de l'ove aboutit à une équation paramétrique au moyen
' des fonctions logiques pas vraiment simple.
rem ============================================================================
rem x(t) = cos(t)*(t<=p)+(1+2cos(t))*(t>p)*(t<=5p/4)+(2-sqrt(2))cos(t)*(t>5p/4)*(t<=7p/4)
rem      +(-1+2cos(t))*(t>7p/4)
rem y(t) = sin(t)*(t<=p)+2sin(t)*(t>pi)*(t<=5p/4)+(-1+(2-sqrt(2))*sin(t))*(t>5p/4)*(t<=7p/4)
rem        +2sin(t)*(t>7p/4)
rem ============================================================================
' Panoramic ne permettant pas de manipuler des telles équations logiques, on
' peut les transformer sous une autre forme utilisant la partie entière (INT)
' que Panoramic sait très bien s'en servir.
' on obtient :
rem ============================================================================
rem  x(t) = cos(t)*(1-int(t/pi))+(1+2cos(t))*int(t/pi)*(1-int(4t/5/pi))
rem         +(2-sqrt(2))cos(t)*int(4t/5/pi)*(1-int(4t/7/pi))+(-1+2cos(t))*int(4t/7/pi)*(1-int(t/2/pi))
rem  y(t) = sin(t)*(1-int(t/pi))+2sin(t)*int(t/pi)*(1-int(4t/5/pi))
rem         +(-1+(2-sqrt(2))sin(t))*int(4t/5/pi)*(1-int(4t/7/pi))+2sin(t)*int(4t/7/pi)*(1-int(t/2/pi))
rem ============================================================================
rem &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
rem ============================================================================
Ove(300,250,150)
Ove(80,100,50) : Ove(530,100,50)
Ove(80,240,50) : Ove(530,240,50)
Ove(80,380,50) : Ove(530,380,50)
end
rem ============================================================================
SUB Ove(xc,yc,r)
    dim_local x,y,t,p
    p = pi/180
    color 0,0,0,0 : 2d_pen_color 200,150,100 : 2d_poly_from xc+r,yc
    for t = 0 to 2*pi step p
        x = cos(t)*(1-int(t/pi))+(1+2*cos(t))*int(t/pi)*(1-int(4*t/5/pi))
        x = x +(2-sqr(2))*cos(t)*int(4*t/5/pi)*(1-int(4*t/7/pi))
        x = x +(-1+2*cos(t))*int(4*t/7/pi)*(1-int(t/2/pi))
        y = sin(t)*(1-int(t/pi))+2*sin(t)*int(t/pi)*(1-int(4*t/5/pi))
        y = y +(-1+(2-sqr(2))*sin(t))*int(4*t/5/pi)*(1-int(4*t/7/pi))
        y = y +2*sin(t)*int(4*t/7/pi)*(1-int(t/2/pi))
        2d_poly_to xc+r*x,yc+r*y
    next t
    2d_flood xc,yc,200,150,100
END_SUB
rem ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jean Claude

avatar

Nombre de messages : 5040
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Equation d’un œuf   Mar 3 Mai 2016 - 17:22

Bon, ben avec ça je vais pouvoir fabriquer un Sprite pour Pâque 2017. Very Happy

Papydall a écrit:
Si quelqu’un peut inventer l’équation d’une omelette ?
Ouai ! je suis pour, ça m'évitera de taper sur mon écran pour casser l’œuf...

lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Equation d’un œuf   Mar 3 Mai 2016 - 18:07

On peut même tourner ces oves par rapport à la verticale d’un angle quelconque (de 0 à 360 °) dans le sens horaire.

Code:

rem ============================================================================
rem         OVE
rem ============================================================================
' Ref : http://serge.mehl.free.fr/anx/ovale.html
' L'ovale ne possède pas d'équation mathématique simple
' Une étude de l'équation de l'ove aboutit à une équation paramétrique au moyen
' des fonctions logiques pas vraiment simple.
rem ============================================================================
rem x(t) = cos(t)*(t<=p)+(1+2cos(t))*(t>p)*(t<=5p/4)+(2-sqrt(2))cos(t)*(t>5p/4)*(t<=7p/4)
rem      +(-1+2cos(t))*(t>7p/4)
rem y(t) = sin(t)*(t<=p)+2sin(t)*(t>pi)*(t<=5p/4)+(-1+(2-sqrt(2))*sin(t))*(t>5p/4)*(t<=7p/4)
rem        +2sin(t)*(t>7p/4)
rem ============================================================================
' Panoramic ne permettant pas de manipuler des telles équations logiques, on
' peut les transformer sous une autre forme utilisant la partie entière (INT)
' que Panoramic sait très bien s'en servir.
' on obtient :
rem ============================================================================
rem  x(t) = cos(t)*(1-int(t/pi))+(1+2cos(t))*int(t/pi)*(1-int(4t/5/pi))
rem         +(2-sqrt(2))cos(t)*int(4t/5/pi)*(1-int(4t/7/pi))+(-1+2cos(t))*int(4t/7/pi)*(1-int(t/2/pi))
rem  y(t) = sin(t)*(1-int(t/pi))+2sin(t)*int(t/pi)*(1-int(4t/5/pi))
rem         +(-1+(2-sqrt(2))sin(t))*int(4t/5/pi)*(1-int(4t/7/pi))+2sin(t)*int(4t/7/pi)*(1-int(t/2/pi))
rem ============================================================================
rem &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
rem ============================================================================

 Ove(300,250,100,000)

 Ove(080,080,50,045) : Ove(500,080,50,135)
 Ove(080,220,50,090) : Ove(500,220,50,270)
 Ove(080,360,50,180) : Ove(500,360,50,225)

end
rem ============================================================================
' inclinaison en degrés de l'ove par rapport à la verticale dans le sens horaire
SUB Ove(cx,cy,r,Inclideg)
    dim_local x,y,xp,yp,t,p
    p = pi/180
    color 0,0,0,0 : 2d_pen_color 200,150,100
    for t = 0 to 2*pi step p
        x = cos(t)*(1-int(t/pi))+(1+2*cos(t))*int(t/pi)*(1-int(4*t/5/pi))
        x = x +(2-sqr(2))*cos(t)*int(4*t/5/pi)*(1-int(4*t/7/pi))
        x = x +(-1+2*cos(t))*int(4*t/7/pi)*(1-int(t/2/pi))
        y = sin(t)*(1-int(t/pi))+2*sin(t)*int(t/pi)*(1-int(4*t/5/pi))
        y = y +(-1+(2-sqr(2))*sin(t))*int(4*t/5/pi)*(1-int(4*t/7/pi))
        y = y +2*sin(t)*int(4*t/7/pi)*(1-int(t/2/pi))
        
         ' Application de la matrice de rotation par rapport au centre cx,cy
        xp = (x*cos(p*IncliDeg) - y*sin(p*IncliDeg))
        yp = (x*sin(p*IncliDeg) + y*cos(p*IncliDeg))
        if t = 0
           2d_poly_from cx+r*xp,cy+r*yp
        else
           2d_poly_to cx+r*xp,cy+r*yp
        end_if
    next t
    2d_flood cx,cy,200,150,100
END_SUB
rem ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
mindstorm

avatar

Nombre de messages : 536
Age : 48
Localisation : charente
Date d'inscription : 13/02/2013

MessageSujet: Re: Equation d’un œuf   Mar 3 Mai 2016 - 20:02

Citation :
Une étude de l'équation de l'ove
Alors Là, c'est de l'amour....pour les Maths
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Equation d’un œuf   Mar 3 Mai 2016 - 20:27

Je suis un éternel amoureux  I love you  … pour les maths et pour bien d’autres choses, en particulier les belles courbes.
Pour une fois, vous pouvez laisser votre imagination aller loin, voire très loin. tongue
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jicehel

avatar

Nombre de messages : 5858
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Equation d’un œuf   Mar 3 Mai 2016 - 21:41

C'est très bien fait comme d'hab Papydall.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Equation d’un œuf   Mar 3 Mai 2016 - 23:22

Hé oui. L'habitude est une seconde nature.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
papydall

avatar

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

MessageSujet: Re: Equation d’un œuf   Mer 4 Mai 2016 - 0:23

Un autre œuf dont l’équation est beaucoup plus simple.


Code:

rem ============================================================================
rem         Quartique ovoïde proposée par Massimo Vaglieco
rem                       Par Papydall
rem Ref : http://www.mathcurve.com/courbes2d/oeuf/oeufgranville.shtml
rem ============================================================================

Oeuf_De_Massimo_Vaglieco(300,250,3,2,0.25,60)

end
rem ============================================================================
SUB Oeuf_De_Massimo_Vaglieco(xc,yc,a,b,c,z)
    dim_local x,y,t
    2d_pen_color 200,150,100
    degrees
    2d_poly_from xc,yc-(a+c)*z
    for t = 0 to 360
      x = b*sin(t) : y = a*cos(t) + c*cos(2*t)
      2d_poly_to xc+x*z,yc-y*z
    next t
    2d_flood xc,yc,200,150,100
END_SUB
rem ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
jjn4

avatar

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

MessageSujet: +++   Mer 4 Mai 2016 - 18:38

Et en attendant de trouver l'équation de l'omelette,
l'imbattable papydall peut toujours trouver l'équation
de la poule qui a pondu l'œuf qui, en éclosant, a donné
la poule qui... etc...
lol! alien lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Yannick

avatar

Nombre de messages : 7994
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Mer 4 Mai 2016 - 19:02

Moi je les aime que brouillés les oeufs...
...elles est où l' équation ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 5953
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Equation d’un œuf   Mer 4 Mai 2016 - 19:16

C'est simple, tu prends le programme de papydall, tu mélanges bien les lignes, ça commence par brouiller les yeux, et puis ça devrait marcher.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
jjn4

avatar

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

MessageSujet: +++   Mer 4 Mai 2016 - 19:17

Ah oui, pour les œufs brouillés,
il faut construire une équation
faisant appel à la théorie du chaos !
Laughing Laughing Laughing alien Laughing Laughing Laughing
(papydall va nous faire ça
les doigts dans le nez)
lol! alien lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Jean Claude

avatar

Nombre de messages : 5040
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Equation d’un œuf   Mer 4 Mai 2016 - 19:20

Laisser l’œuf éclore, c'est bien, mais alors le poussin deviendra poulet, et bêtement il va traverser la route.
Cela nous fera donc une omelette de poulet.

lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Equation d’un œuf   Mer 4 Mai 2016 - 20:22

Spoiler:
 
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Yannick

avatar

Nombre de messages : 7994
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Mer 4 Mai 2016 - 20:48

Ca y est, c' est reparti en cacahuètes...
Mais peut on  appliquer cette équation pour ce fruit ?...
lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Equation d’un œuf   Jeu 5 Mai 2016 - 2:08

Des cacahuètes  en équation ?
Difficile pour moi.
En y réfléchissant un peu (beaucoup) …
Peut-être que l’ovale de Cassini  avec des paramètres appropriés fera-t-elle l’affaire.


Code:

rem ============================================================================

Ovale_De_Cassini(6.75,7)

end

rem ============================================================================
SUB Ovale_De_Cassini(a,k)
    dim_local r,r2,a2,a4,k4,radical,sradic,s,t,x,y,x0,y0
    degrees
    x0 = width(0)/2 : y0 = height(0)/2 : color 0,0,0,0 : 2d_pen_color 150,125,100
    a2 = a*a : a4 = a2*a2 : k4 = k*k*k*k : s = 20
    2d_poly_from x0+s*sqr(a2+k*k),y0
    for t = 0 to 360
        r2 = a2*cos(2*t) : radical = abs(k4-a4*sin(2*t)*sin(2*t))
        sradic = sqr(radical) : r = sqr(abs(r2 + sradic))
        x = x0+s*r*cos(t) : y = y0-s*r*sin(t)
        2d_poly_to x,y
    next t
    2d_flood x0,y0,150,125,100
END_SUB
rem ============================================================================
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
jjn4

avatar

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

MessageSujet: +++   Jeu 5 Mai 2016 - 17:20

Ah oui, c'est bien l'équation de la cacahuète !
Scotché, Ygeronimi !!!
Et 1 point à zéro pour papydall !
Laughing Laughing alien Laughing Laughing
(et pour les œufs brouillés, alors ?... Laughing )
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
Yannick

avatar

Nombre de messages : 7994
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Jeu 5 Mai 2016 - 19:15

Je vois que mes boutades font avancer le sujet.
cheers Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: Equation d’un œuf   Jeu 5 Mai 2016 - 20:45

Pour les œufs brouillés, il fallait demander ça à un chef-cuisinier.
Je connais au moins un sur ce forum qui prétend être le meilleur Pano-cuisinier maniant aussi bien les œufs que Panoramic.
Quant à moi, je me contente de présenter  «un flan aux œufs dans une assiette creuse avec une morille au centre.»

Code:

rem ============================================================================
rem      Flan aux œufs dans une assiette creuse avec une morille au centre
rem ============================================================================
width 0,700 : picture 10 : full_space 10 : 2d_target_is 10 : color 10,0,0,0
Assiette()
print_target_is 10 : font_bold 10 : font_name 10,"tahoma" : font_size 10,14
2d_fill_color 0,0,0 : font_color 10,200,100,50 : print_locate 20,20
print "Flan aux œufs dans une assiette creuse avec une morille au centre"
end
rem ============================================================================
SUB Assiette()
    dim_local x1,x2,x4,y1,y2,x,y,i,a,l,r,f,cr,cg,cb
    x1 = 330 : y1 = 300 : x2 = x1*x1 : y2 = 200
    For x = 0 to x1
        x4 = x*x : L = 0-y1 :  A = sqr(abs(x2 - x4))
        For I = 0-A to A
            cr = mod((abs(i/2)+x/2),255)
            cg = abs(255-abs(i/2))
            cb = mod(abs(a/2),255)
            2d_pen_color cr,cg,cb
            R = sqr(X4+I*I)/x1 : F = (1-R)*cos(12*R) : Y = I/5+F*y2
            If Y > L then L = y : y = y1-y : 2d_point x1-x,y : 2d_point x1+x,y
            display
        Next I
    Next x
END_SUB
rem ============================================================================

Bon appétit!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
jjn4

avatar

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

MessageSujet: +++   Ven 6 Mai 2016 - 18:38

Pas vraiment appétissant, ton flan aux œufs et aux morilles,
on dirait plutôt une gélatine anglaise à la mente verte, berk !
Laughing alien Laughing
Le match est à 1 partout...
Laughing Laughing Laughing alien Laughing Laughing Laughing
(notons cependant que c'est mathématiquement joli !)
cheers alien king
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
papydall

avatar

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

MessageSujet: Re: Equation d’un œuf   Ven 6 Mai 2016 - 19:24

jjn4 a écrit:
(notons cependant que c'est mathématiquement joli !)

Ha! Ha! king

+1
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Contenu sponsorisé




MessageSujet: Re: Equation d’un œuf   

Revenir en haut Aller en bas
 
Equation d’un œuf
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» AX^3 + BX^2 + CX + D = 0
» Les Bolygones
» Equation d’un œuf

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: