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.
PLM N10 - Page 2 Emptypar Pedro Aujourd'hui à 10:37

» Un autre pense-bête...
PLM N10 - Page 2 Emptypar Froggy One Jeu 21 Nov 2024 - 15:54

» Récupération du contenu d'une page html.
PLM N10 - Page 2 Emptypar Pedro Sam 16 Nov 2024 - 14:04

» Décompilation
PLM N10 - Page 2 Emptypar JL35 Mar 12 Nov 2024 - 19:57

» Un album photos comme du temps des grands-mères
PLM N10 - Page 2 Emptypar jjn4 Mar 12 Nov 2024 - 17:23

» traitement d'une feuille excel
PLM N10 - Page 2 Emptypar jjn4 Jeu 7 Nov 2024 - 3:52

» Aide-mémoire mensuel
PLM N10 - Page 2 Emptypar jjn4 Lun 4 Nov 2024 - 18:56

» Des incomprèhension avec Timer
PLM N10 - Page 2 Emptypar Klaus Mer 30 Oct 2024 - 18:26

» KGF_dll - nouvelles versions
PLM N10 - Page 2 Emptypar Klaus Mar 29 Oct 2024 - 17:58

» instructions panoramic
PLM N10 - Page 2 Emptypar maelilou Lun 28 Oct 2024 - 19:51

» Figures fractales
PLM N10 - Page 2 Emptypar Marc Ven 25 Oct 2024 - 12:18

» Panoramic et Scanette
PLM N10 - Page 2 Emptypar Yannick Mer 25 Sep 2024 - 22:16

» Editeur d étiquette avec QR évolutif
PLM N10 - Page 2 Emptypar JL35 Lun 23 Sep 2024 - 22:40

» BUG QR Code DelphiZXingQRCode
PLM N10 - Page 2 Emptypar Yannick Dim 22 Sep 2024 - 11:40

» fichier.exe
PLM N10 - Page 2 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

 

 PLM N10

Aller en bas 
+5
bignono
papydall
Jicehel
Jack
Yannick
9 participants
Aller à la page : Précédent  1, 2
AuteurMessage
jean_debord

jean_debord


Nombre de messages : 1266
Age : 70
Localisation : Limoges
Date d'inscription : 21/09/2008

PLM N10 - Page 2 Empty
MessageSujet: Re: PLM N10   PLM N10 - Page 2 EmptyDim 1 Juin 2014 - 10:43

Jicehel a écrit:
Juste pour savoir. Est-ce qu'il y a d'autres articles en cours d'écriture actuellement ?

Je prépare un article sur les fractales de Newton, basé sur le programme que j'ai proposé récemment.

Toutefois je n'avance pas vite, en partie du fait mes démêlées avec le compilateur ...

Je devrais tout de même être prêt à temps.
Revenir en haut Aller en bas
http://www.unilim.fr/pages_perso/jean.debord/index.htm
JL35




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

PLM N10 - Page 2 Empty
MessageSujet: Re: PLM N10   PLM N10 - Page 2 EmptyDim 1 Juin 2014 - 11:13

@Jicehel
j'ai regardé ton article d'un peu plus près, très intéressant.
Quelques petites corrections supplémentaires (certaines peut-être déjà vues par papydall),
et c'est d'après la version PDF (pour les numéros de pages):
Spoiler:
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

PLM N10 - Page 2 Empty
MessageSujet: Re: PLM N10   PLM N10 - Page 2 EmptyDim 1 Juin 2014 - 11:34

Bonjour tout le monde.

J’ai de la famille chez moi et mes petits anges (petits-fils et petites-filles) m’ont « réquisitionné » pour quelque temps et j’en suis ravi !
J’ai jeté un quart d’œil (impossible de jeter plus !) sur le Forum et je vois que JL35 a pris la relève de la lecture/correction de l’article de Jicehel :  c’est bien !

A demain si ça serait possible !
Revenir en haut Aller en bas
http://papydall-panoramic.forumarabia.com/
JL35




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

PLM N10 - Page 2 Empty
MessageSujet: Re: PLM N10   PLM N10 - Page 2 EmptyDim 1 Juin 2014 - 11:58

C'était juste pour ne pas priver tes petits-enfants de ta présence constante...  Very Happy 
Revenir en haut Aller en bas
sergeauze

sergeauze


Nombre de messages : 391
Age : 72
Localisation : Hautes Alpes France
Date d'inscription : 09/01/2010

PLM N10 - Page 2 Empty
MessageSujet: Re: PLM N10   PLM N10 - Page 2 EmptyDim 1 Juin 2014 - 13:19

Salut à tous
@papydall
"A demain si ça serait possible !"
La formulation m'interpelle!
Est_elle correcte  ou pas?
Revenir en haut Aller en bas
http://sergeauze.blog-video.tv/
Klaus

Klaus


Nombre de messages : 12331
Age : 75
Localisation : Ile de France
Date d'inscription : 29/12/2009

PLM N10 - Page 2 Empty
MessageSujet: Re: PLM N10   PLM N10 - Page 2 EmptyDim 1 Juin 2014 - 14:22

Bien sûr que non ! Papydall veut juste voir s'il y en a qui suivent .. Ca ne fait rien, il a les noms... (pour les fans de Coluche).

Correctement, il faut dire: "A demain, si c'est possible", car après "si" dans le sens conditionnel il n'y a jamais le conditionnel. Soit le présent comme ici, car la possibilité réelle existe, soit l'imparfait si la possibilité réelle est douteuse ou improblable. Ou alors, les temps correspondants du passé si l'action principale se situe dans le passé.

Exemples:

Je passerai demain si je peux.
Je serais passé aujourd'hui, si j'avais pu.
Je passerais volontiers si je pouvais.

etc.

N'est-ce pas, Froggy One ?
Revenir en haut Aller en bas
http://klauspanoramic.comxa.com/index.html
papydall

papydall


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

PLM N10 - Page 2 Empty
MessageSujet: Re: PLM N10   PLM N10 - Page 2 EmptyDim 1 Juin 2014 - 21:40

Sergeauze a écrit:
@papydall
"A demain si ça serait possible !"
La formulation m'interpelle!
Est_elle correcte  ou pas?

Bien sûr que NON !  Et Klaus a répondu à la question.
Klaus a écrit:
…  Papydall veut juste voir s'il y en a qui suivent ..

Sincèrement, ce n’était pas mon intention !
J’ai écrit sans réfléchir, c’est tout.
Et quand je ne réfléchis pas, je fais des belles perles !  Laughing
Revenir en haut Aller en bas
http://papydall-panoramic.forumarabia.com/
Jicehel

Jicehel


Nombre de messages : 5947
Age : 52
Localisation : 77500
Date d'inscription : 18/04/2011

PLM N10 - Page 2 Empty
MessageSujet: Re: PLM N10   PLM N10 - Page 2 EmptyDim 1 Juin 2014 - 22:52

cheers    Sinon, je corrige JL35  merci je mettrais la version corrigée. Donc on a 3 articles pour le prochain numéro. Personne n'est chaud pour un autre thème ?
Revenir en haut Aller en bas
Yannick




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

PLM N10 - Page 2 Empty
MessageSujet: re   PLM N10 - Page 2 EmptyMer 4 Juin 2014 - 8:22

heu...j' en compte deux sur webdav...

Panoramic et les API Windows
Créons de la 3D
Revenir en haut Aller en bas
jean_debord

jean_debord


Nombre de messages : 1266
Age : 70
Localisation : Limoges
Date d'inscription : 21/09/2008

PLM N10 - Page 2 Empty
MessageSujet: Re: PLM N10   PLM N10 - Page 2 EmptyMer 4 Juin 2014 - 8:58

Je soumettrai le mien en fin de semaine. Cela fera 3 Smile

Et 4 avec celui de Cosmos Smile
Revenir en haut Aller en bas
http://www.unilim.fr/pages_perso/jean.debord/index.htm
papydall

papydall


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

PLM N10 - Page 2 Empty
MessageSujet: Re: PLM N10   PLM N10 - Page 2 EmptyMer 4 Juin 2014 - 17:33

Je compte faire, dans les jours suivants, un article sur la   *** récursivité ***   Laughing  Dévinez sur quoi  Question  Question 
Ça sera sans doute pour le prochain Mag.
Revenir en haut Aller en bas
http://papydall-panoramic.forumarabia.com/
Jicehel

Jicehel


Nombre de messages : 5947
Age : 52
Localisation : 77500
Date d'inscription : 18/04/2011

PLM N10 - Page 2 Empty
MessageSujet: Re: PLM N10   PLM N10 - Page 2 EmptyMer 4 Juin 2014 - 18:19

Si c'est dans les jours qui viennent on peut attendre quelques jours, je pense, mais il faudra valider avec Ygeronimi. Un sujet comme la récursivité dans Panoramic, ça vaut bien un peu de retard. Ça sert à tellement de choses en informatique, la récursivité et comme ce n'est pas natif dans Panoramic, tes trucs et astuces intéresseront sans doute du monde (moi en tout cas). Un exemple: pour calculer les solutions et les meilleurs coups à jouer au dames, mais c'est valable pour l'IA de presque tous les jeux. Ca sert aussi en graphisme, en math, etc ...
Revenir en haut Aller en bas
jean_debord

jean_debord


Nombre de messages : 1266
Age : 70
Localisation : Limoges
Date d'inscription : 21/09/2008

PLM N10 - Page 2 Empty
MessageSujet: Re: PLM N10   PLM N10 - Page 2 EmptyJeu 5 Juin 2014 - 8:57

J'aurais moi aussi besoin de transposer un algorithme récursif pour l'une de mes fonctions de variables complexes (la fonction Gamma, en fait) donc je lirai l'article de Papydall avec beaucoup d'intérêt ... en espérant qu'il sera compatible avec le compilateur !
Revenir en haut Aller en bas
http://www.unilim.fr/pages_perso/jean.debord/index.htm
papydall

papydall


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

PLM N10 - Page 2 Empty
MessageSujet: Re: PLM N10   PLM N10 - Page 2 EmptyVen 6 Juin 2014 - 1:38

Merci à vous pour l’intérêt que vous formulez pour mon prochain article sur la récursivité.
J’ai commencé l’article en question et je confectionne des petits codes pour l’illustration.
Jusqu’ici ça marche dans le bon sens et il me faut encore un peu de temps avant de vous soumettre ma prose.

Jean_Debord a écrit:
J'aurais moi aussi besoin de transposer un algorithme récursif pour l'une de mes fonctions de variables complexes (la fonction Gamma, en fait) donc je lirai l'article de Papydall avec beaucoup d'intérêt ... en espérant qu'il sera compatible avec le compilateur !

Dans l’état actuel de Panoramic, la récursivité n’est possible qu’avec le compilateur.
J’ai fais beaucoup de tests et je peux affirmer qu’avec le compilateur, la récursivité fonctionne comme il se doit :
Récursivité simple, multiple, croisée, imbriquée ; bref tout ce que j’ai pu testé fonctionne correctement.

A propos du calcul de la fonction Gamma,  la formule de Stirling qui ne demande pas la récursivité) ne peut-elle pas faire l’affaire ?
Voici un code pour le calcul de la fonction gamma utilisant la formule asymptotique de Stirling.
Je pense que ça marche, mais Jean_Debord a peut-être une autre vision.
Code:

rem ======================================================================
rem        Calcul de la Fonction Gamma(x)
rem       par la formule asymptotique de Stirling
rem ======================================================================
dim F_gamma,i,n$
height 0,500
 list 10 : top 10,50 : left 10,50  : height 10,400 : width 10, 250
 list 20 : top 20,50 : left 20,300 : height 20,400 : width 20, 250

for i = 0.5 to 30   step .5
    Fonction_Gamma(i)
    if i = int(i) then n$ = str$(i)+".0" : else : n$ = str$(i)
    if i <= 15
       item_add 10,"Gamma("+ n$ +") = " +str$(F_gamma)
    else
       item_add 20,"Gamma("+ n$ +") = " +str$(F_gamma)
    end_if
 next i
 print_locate 150,10 : print "Valeurs de la fonction Gamma(X)"
end
rem ============================================================================
' Formule asyptotique de Stirling
' Gamma(z) = z^(z-1/2) * exp^(-z) * sqr(2*pi) * (1 + 1/12z + 1/288z^2 - 139/51840z^3 - 571/2488320z^4)
SUB Fonction_Gamma(x)
    dim_local pi,e,i,c(4)
    pi = acos(-1) : e = exp(1) : F_gamma = 0
    c(0) = 1 : c(1) = 1/12 : c(2) = 1/288
    c(3) = -139/51840 : c(4) = -571/2488320
    for i = 0 to 4
        F_gamma = F_gamma +  c(i) / power(x,i)
    next i
        F_gamma = F_gamma * power(x,x-.5) * power(e,0-x) * sqr(2*pi)

END_SUB
rem ======================================================================

Remarque : Le code peut être exécuté par l’interpréteur et par le compilateur.
Le code calcule les valeurs de la fonction Gamma pour les paramètres de 0.5 à 30 par pas de 0.5.
Alors que l’interpréteur affiche les valeurs sans broncher, le compilateur, lui, considère qu’à partir de 27.5, le résultat de la fonction Gamma(27.5) est infini et affiche 1.#INF comme valeur.
L'interpréteur affiche Gamma(27.5) = 2.08588519265825E27

EDIT :

Voici un deuxième code pour le calcul de la fonction Gamma en utilisant la définition de l’intégrale

Code:

rem ============================================================================
'    Calcul de la fonction Gamma avec la définition de l'intégrale
rem ============================================================================
dim F_gamma,x
x = 4.5 : Fonction_Gamma(x)  : message "Gamma("+ str$(x) + ") = " + str$(f_gamma)

end
rem ============================================================================

SUB Fonction_Gamma(x)
    dim_local xx,dt,tt,a,b,c,g,t
    xx = x-1 : dt = 0.01 : g = 0
    for tt = 0 to 10000
        t = tt/100 : a = exp(0-t) : b = power(t,xx) : c = a*b*dt : g = g + c
    next tt
    F_Gamma = g
END_SUB
rem ===========================================================================
Revenir en haut Aller en bas
http://papydall-panoramic.forumarabia.com/
Jicehel

Jicehel


Nombre de messages : 5947
Age : 52
Localisation : 77500
Date d'inscription : 18/04/2011

PLM N10 - Page 2 Empty
MessageSujet: Re: PLM N10   PLM N10 - Page 2 EmptyVen 6 Juin 2014 - 8:03

Excellente nouvelle
Revenir en haut Aller en bas
jean_debord

jean_debord


Nombre de messages : 1266
Age : 70
Localisation : Limoges
Date d'inscription : 21/09/2008

PLM N10 - Page 2 Empty
MessageSujet: Re: PLM N10   PLM N10 - Page 2 EmptyVen 6 Juin 2014 - 9:17

Je suis heureux d'apprendre que le compilateur accepte la récursivité ! C'est logique puisque FreeBASIC l'accepte.

Voici le bout de code en FreeBASIC pour la fonction Gamma avec argument complexe. Le module complet se trouve ici :

http://sourceforge.net/p/fbmath/code/HEAD/tree/modules/complex/complex.bas

Code:

FUNCTION CApproxLnGamma(BYREF Z AS Complex) AS Complex
'  This is the approximation used in the National Bureau of
'  Standards "Table of the Gamma Function for Complex Arguments,"
'  Applied Mathematics Series 34, 1954. The NBS table was created
'  using this approximation over the area 9 < Re(z) < 10 and
'  0 < Im(z) < 10. Other table values were computed using the
'  relationship:
'        _                  _
'    ln | (z+1) = ln z + ln | (z)

  DIM AS DOUBLE C(1 TO 8) = _
    {8.33333333333333E-02, -2.77777777777778E-03, _
    7.93650793650794E-04, -5.95238095238095E-04, _
    8.41750841750842E-04, -1.91752691752692E-03, _
    6.41025641025641E-03, -2.95506535947712E-02}
 
  DIM AS Complex Powers(1 TO 8), Temp, Sum
 
  DIM AS INTEGER I
 
  Powers(1) = 1 / Z
 
  Temp = Powers(1) * Powers(1)
 
  FOR I = 2 TO 8
    Powers(I) = Powers(I - 1) * Temp
  NEXT I 
 
  Sum = (Z - 0.5) * CLog(Z) - Z + Ln2PiDiv2
 
  FOR I = 8 TO 1 STEP -1
    Sum = Sum + C(i) * Powers(i)
  NEXT I
 
  RETURN Sum
END FUNCTION

FUNCTION CLnGamma(BYREF Z AS Complex) AS Complex
 
  ErrCode = FOk
 
  ' Negative integer
  IF Z.X <= 0 AND FRAC(Z.X) = 0 AND Z.Y = 0 THEN 
    ErrCode = FSing
    RETURN C_MaxNum
  END IF
 
  ' 3rd or 4th quadrant
  IF Z.Y < 0 THEN                   
    RETURN CConj(CLnGamma(CConj(Z)))
  END IF 

  ' "left" of NBS table range
  IF Z.X < 9 THEN 
    RETURN CLnGamma(Z + 1) - CLog(Z)
  END IF

  ' NBS table range: 9 < Re(z) < 10
  RETURN CApproxLnGamma(Z) 
END FUNCTION   
Revenir en haut Aller en bas
http://www.unilim.fr/pages_perso/jean.debord/index.htm
Yannick




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

PLM N10 - Page 2 Empty
MessageSujet: re   PLM N10 - Page 2 EmptyMar 10 Juin 2014 - 11:24

La patience a du bon.
Je viens de récupérer 5 articles sur le webdav

Bravo les gars !!!

Je mets en page et je publie dès que possible.
Revenir en haut Aller en bas
Yannick




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

PLM N10 - Page 2 Empty
MessageSujet: re   PLM N10 - Page 2 EmptyMer 11 Juin 2014 - 14:30

Les articles du N10 sont en ligne !

( J' ai un peu de retard pour l' historique... Wink )
Revenir en haut Aller en bas
Jicehel

Jicehel


Nombre de messages : 5947
Age : 52
Localisation : 77500
Date d'inscription : 18/04/2011

PLM N10 - Page 2 Empty
MessageSujet: Re: PLM N10   PLM N10 - Page 2 EmptyMer 11 Juin 2014 - 18:00

Tu as un bug d'affichage en haut: ca marque prochain Mag le 9 juin soit moins 3 jours Smile
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

PLM N10 - Page 2 Empty
MessageSujet: Re: PLM N10   PLM N10 - Page 2 EmptyMer 11 Juin 2014 - 21:01

Na ! Il n'y a pas de bug.
Vide ton cache ou rafraîchis ta page.
Revenir en haut Aller en bas
http://papydall-panoramic.forumarabia.com/
Jicehel

Jicehel


Nombre de messages : 5947
Age : 52
Localisation : 77500
Date d'inscription : 18/04/2011

PLM N10 - Page 2 Empty
MessageSujet: Re: PLM N10   PLM N10 - Page 2 EmptyMer 11 Juin 2014 - 22:36

Non, non, ce n'était pas un problème de cache, mais un problème de mise à jour que notre rédacteur en chef a réglé depuis  Wink

Il bosse notre rédacteur en chef, il bosse... L'index et l'historique ont été mis à jour aussi...

Bravo Ygeronimi Very Happy
Revenir en haut Aller en bas
Yannick




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

PLM N10 - Page 2 Empty
MessageSujet: re   PLM N10 - Page 2 EmptyJeu 12 Juin 2014 - 9:41

Pas de bug que des erreurs humaines... Laughing
Revenir en haut Aller en bas
Contenu sponsorisé





PLM N10 - Page 2 Empty
MessageSujet: Re: PLM N10   PLM N10 - Page 2 Empty

Revenir en haut Aller en bas
 
PLM N10
Revenir en haut 
Page 2 sur 2Aller à la page : Précédent  1, 2

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Panoramic - Le Mag-
Sauter vers: