On m'a envoyé cette fonction mathématique (polynômes de Lagrange), je
n'y comprends rien, ce qui 'nest pas grave, mais par contre, ce qui est
grave, c'est que VB refuse de l'exécuter, ça reste en rouge...
C'estr sensé lisser les courbes d'un graphique, alors s'il y a des bons en
maths, ben, si vous pouvez me remettre ça en forme pour que VB l'avale ???
Voici:
Dim x
dim i as long
dim j as long
dim data1(2, 33, 3) as long
j=3
PRINCIPE D'UTILISATION DES NEWSGROUPS MICROSOFT
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
********************************************************
On m'a envoyé cette fonction mathématique (polynômes de Lagrange), je n'y comprends rien, ce qui 'nest pas grave, mais par contre, ce qui est grave, c'est que VB refuse de l'exécuter, ça reste en rouge... C'estr sensé lisser les courbes d'un graphique, alors s'il y a des bons en maths, ben, si vous pouvez me remettre ça en forme pour que VB l'avale ??? Voici:
Dim x dim i as long dim j as long dim data1(2, 33, 3) as long j=3
PRINCIPE D'UTILISATION DES NEWSGROUPS MICROSOFT http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm ********************************************************
Tu peux remplacer la virgule par un point :)
X avait soumis l'idée :
Bonjour,
On m'a envoyé cette fonction mathématique (polynômes de Lagrange), je
n'y comprends rien, ce qui 'nest pas grave, mais par contre, ce qui est
grave, c'est que VB refuse de l'exécuter, ça reste en rouge...
C'estr sensé lisser les courbes d'un graphique, alors s'il y a des bons en
maths, ben, si vous pouvez me remettre ça en forme pour que VB l'avale ???
Voici:
Dim x
dim i as long
dim j as long
dim data1(2, 33, 3) as long
j=3
PRINCIPE D'UTILISATION DES NEWSGROUPS MICROSOFT
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
********************************************************
On m'a envoyé cette fonction mathématique (polynômes de Lagrange), je n'y comprends rien, ce qui 'nest pas grave, mais par contre, ce qui est grave, c'est que VB refuse de l'exécuter, ça reste en rouge... C'estr sensé lisser les courbes d'un graphique, alors s'il y a des bons en maths, ben, si vous pouvez me remettre ça en forme pour que VB l'avale ??? Voici:
Dim x dim i as long dim j as long dim data1(2, 33, 3) as long j=3
PRINCIPE D'UTILISATION DES NEWSGROUPS MICROSOFT http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm ********************************************************
Tu peux remplacer la virgule par un point :)
Loïc Carrère
X a émis l'idée suivante :
Bonjour,
On m'a envoyé cette fonction mathématique (polynômes de Lagrange), je n'y comprends rien, ce qui 'nest pas grave, mais par contre, ce qui est grave, c'est que VB refuse de l'exécuter, ça reste en rouge... C'estr sensé lisser les courbes d'un graphique, alors s'il y a des bons en maths, ben, si vous pouvez me remettre ça en forme pour que VB l'avale ??? Voici:
Dim x dim i as long dim j as long dim data1(2, 33, 3) as long j=3
PRINCIPE D'UTILISATION DES NEWSGROUPS MICROSOFT http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm ********************************************************
7.5 et non 7,5
X a émis l'idée suivante :
Bonjour,
On m'a envoyé cette fonction mathématique (polynômes de Lagrange), je
n'y comprends rien, ce qui 'nest pas grave, mais par contre, ce qui est
grave, c'est que VB refuse de l'exécuter, ça reste en rouge...
C'estr sensé lisser les courbes d'un graphique, alors s'il y a des bons en
maths, ben, si vous pouvez me remettre ça en forme pour que VB l'avale ???
Voici:
Dim x
dim i as long
dim j as long
dim data1(2, 33, 3) as long
j=3
PRINCIPE D'UTILISATION DES NEWSGROUPS MICROSOFT
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
********************************************************
On m'a envoyé cette fonction mathématique (polynômes de Lagrange), je n'y comprends rien, ce qui 'nest pas grave, mais par contre, ce qui est grave, c'est que VB refuse de l'exécuter, ça reste en rouge... C'estr sensé lisser les courbes d'un graphique, alors s'il y a des bons en maths, ben, si vous pouvez me remettre ça en forme pour que VB l'avale ??? Voici:
Dim x dim i as long dim j as long dim data1(2, 33, 3) as long j=3
PRINCIPE D'UTILISATION DES NEWSGROUPS MICROSOFT http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm ********************************************************
7.5 et non 7,5
Jacques93
Bonjour X, X a écrit :
Bonjour,
On m'a envoyé cette fonction mathématique (polynômes de Lagrange), je n'y comprends rien, ce qui 'nest pas grave, mais par contre, ce qui est grave, c'est que VB refuse de l'exécuter, ça reste en rouge... C'estr sensé lisser les courbes d'un graphique, alors s'il y a des bons en maths, ben, si vous pouvez me remettre ça en forme pour que VB l'avale ??? Voici:
Dim x dim i as long dim j as long dim data1(2, 33, 3) as long j=3
' la donnée à lisser est ma variable tridimensionnelle data1(2, i + 1, j)
Comme l'a indiqué Loïc Carrère, remplace 7,5 par 7.5 Et à ma connaissance la fonction PI() n'existe pas en VB, donc ajoutes par exemple :
Private Function PI() As Double PI = 3.14159265358979 End Function
-- Cordialement,
Jacques.
Bonjour X,
X a écrit :
Bonjour,
On m'a envoyé cette fonction mathématique (polynômes de Lagrange), je
n'y comprends rien, ce qui 'nest pas grave, mais par contre, ce qui est
grave, c'est que VB refuse de l'exécuter, ça reste en rouge...
C'estr sensé lisser les courbes d'un graphique, alors s'il y a des bons en
maths, ben, si vous pouvez me remettre ça en forme pour que VB l'avale ???
Voici:
Dim x
dim i as long
dim j as long
dim data1(2, 33, 3) as long
j=3
On m'a envoyé cette fonction mathématique (polynômes de Lagrange), je n'y comprends rien, ce qui 'nest pas grave, mais par contre, ce qui est grave, c'est que VB refuse de l'exécuter, ça reste en rouge... C'estr sensé lisser les courbes d'un graphique, alors s'il y a des bons en maths, ben, si vous pouvez me remettre ça en forme pour que VB l'avale ??? Voici:
Dim x dim i as long dim j as long dim data1(2, 33, 3) as long j=3
' la donnée à lisser est ma variable tridimensionnelle data1(2, i + 1, j)
Comme l'a indiqué Loïc Carrère, remplace 7,5 par 7.5 Et à ma connaissance la fonction PI() n'existe pas en VB, donc ajoutes par exemple :
Private Function PI() As Double PI = 3.14159265358979 End Function
-- Cordialement,
Jacques.
Aski
"Loïc Carrère" a écrit dans le message de news:
X a émis l'idée suivante :
Bonjour,
On m'a envoyé cette fonction mathématique (polynômes de Lagrange), je n'y comprends rien, ce qui 'nest pas grave, mais par contre, ce qui est grave, c'est que VB refuse de l'exécuter, ça reste en rouge... C'estr sensé lisser les courbes d'un graphique, alors s'il y a des bons en maths, ben, si vous pouvez me remettre ça en forme pour que VB l'avale ??? Voici:
Dim x dim i as long dim j as long dim data1(2, 33, 3) as long j=3
PRINCIPE D'UTILISATION DES NEWSGROUPS MICROSOFT http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm ********************************************************
7.5 et non 7,5
Par ailleurs, la fonction pi() n'existe pas à ma connaissance. Remplace par 3.14159 pour voir.
Aski
AntiSpamEdit - Version 1.6.4 du 12/08/05 Aide de K9 en français http://h.charlier.de.chily.perso.cegetel.net/ ou http://h.dechily.free.fr/
"Loïc Carrère" <loic.carrere@asi-concept.fr> a écrit dans le message de
news: mn.2b777d5a96f8afd1.20273@asi-concept.fr...
X a émis l'idée suivante :
Bonjour,
On m'a envoyé cette fonction mathématique (polynômes de Lagrange), je
n'y comprends rien, ce qui 'nest pas grave, mais par contre, ce qui est
grave, c'est que VB refuse de l'exécuter, ça reste en rouge...
C'estr sensé lisser les courbes d'un graphique, alors s'il y a des bons
en maths, ben, si vous pouvez me remettre ça en forme pour que VB l'avale
???
Voici:
Dim x
dim i as long
dim j as long
dim data1(2, 33, 3) as long
j=3
PRINCIPE D'UTILISATION DES NEWSGROUPS MICROSOFT
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
********************************************************
7.5 et non 7,5
Par ailleurs, la fonction pi() n'existe pas à ma connaissance.
Remplace par 3.14159 pour voir.
Aski
AntiSpamEdit - Version 1.6.4 du 12/08/05
Aide de K9 en français
http://h.charlier.de.chily.perso.cegetel.net/
ou
http://h.dechily.free.fr/
On m'a envoyé cette fonction mathématique (polynômes de Lagrange), je n'y comprends rien, ce qui 'nest pas grave, mais par contre, ce qui est grave, c'est que VB refuse de l'exécuter, ça reste en rouge... C'estr sensé lisser les courbes d'un graphique, alors s'il y a des bons en maths, ben, si vous pouvez me remettre ça en forme pour que VB l'avale ??? Voici:
Dim x dim i as long dim j as long dim data1(2, 33, 3) as long j=3
PRINCIPE D'UTILISATION DES NEWSGROUPS MICROSOFT http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm ********************************************************
7.5 et non 7,5
Par ailleurs, la fonction pi() n'existe pas à ma connaissance. Remplace par 3.14159 pour voir.
Aski
AntiSpamEdit - Version 1.6.4 du 12/08/05 Aide de K9 en français http://h.charlier.de.chily.perso.cegetel.net/ ou http://h.dechily.free.fr/
Aski
"Jacques93" a écrit dans le message de news:
Bonjour X, X a écrit :
Bonjour,
On m'a envoyé cette fonction mathématique (polynômes de Lagrange), je n'y comprends rien, ce qui 'nest pas grave, mais par contre, ce qui est grave, c'est que VB refuse de l'exécuter, ça reste en rouge... C'estr sensé lisser les courbes d'un graphique, alors s'il y a des bons en maths, ben, si vous pouvez me remettre ça en forme pour que VB l'avale ??? Voici:
Dim x dim i as long dim j as long dim data1(2, 33, 3) as long j=3
' la donnée à lisser est ma variable tridimensionnelle data1(2, i + 1, j)
Comme l'a indiqué Loïc Carrère, remplace 7,5 par 7.5 Et à ma connaissance la fonction PI() n'existe pas en VB, donc ajoutes par exemple :
Private Function PI() As Double PI = 3.14159265358979 End Function
-- Cordialement,
Jacques.
Copié dans MSDN Dim pi pi = 4 * Atn(1) ' Calcule la valeur de pi.Aski
"Jacques93" <jacques@NoSpam> a écrit dans le message de news:
OeN2LxayFHA.908@tk2msftngp13.phx.gbl...
Bonjour X,
X a écrit :
Bonjour,
On m'a envoyé cette fonction mathématique (polynômes de Lagrange), je
n'y comprends rien, ce qui 'nest pas grave, mais par contre, ce qui est
grave, c'est que VB refuse de l'exécuter, ça reste en rouge...
C'estr sensé lisser les courbes d'un graphique, alors s'il y a des bons
en maths, ben, si vous pouvez me remettre ça en forme pour que VB l'avale
???
Voici:
Dim x
dim i as long
dim j as long
dim data1(2, 33, 3) as long
j=3
On m'a envoyé cette fonction mathématique (polynômes de Lagrange), je n'y comprends rien, ce qui 'nest pas grave, mais par contre, ce qui est grave, c'est que VB refuse de l'exécuter, ça reste en rouge... C'estr sensé lisser les courbes d'un graphique, alors s'il y a des bons en maths, ben, si vous pouvez me remettre ça en forme pour que VB l'avale ??? Voici:
Dim x dim i as long dim j as long dim data1(2, 33, 3) as long j=3
' la donnée à lisser est ma variable tridimensionnelle data1(2, i + 1, j)
Comme l'a indiqué Loïc Carrère, remplace 7,5 par 7.5 Et à ma connaissance la fonction PI() n'existe pas en VB, donc ajoutes par exemple :
Private Function PI() As Double PI = 3.14159265358979 End Function
-- Cordialement,
Jacques.
Copié dans MSDN Dim pi pi = 4 * Atn(1) ' Calcule la valeur de pi.Aski
X
Merci, oui, je n'avais pas vu la virgule... Ok, j'ai fait pour PI... Ça marche, enfin, reste à voir si ça lisse comme prévu...
"Jacques93" a écrit dans le message de news:
| Bonjour X, | X a écrit : | > Bonjour, | > | > On m'a envoyé cette fonction mathématique (polynômes de Lagrange), je | > n'y comprends rien, ce qui 'nest pas grave, mais par contre, ce qui est | > grave, c'est que VB refuse de l'exécuter, ça reste en rouge... | > C'estr sensé lisser les courbes d'un graphique, alors s'il y a des bons en | > maths, ben, si vous pouvez me remettre ça en forme pour que VB l'avale ??? | > Voici: | > | > Dim x | > dim i as long | > dim j as long | > dim data1(2, 33, 3) as long | > j=3 | > | > x = 15 - 7,5 * (COS (2 * PI() * data1(2, i+1, j) / 33) + 1) | > | > ' la donnée à lisser est ma variable tridimensionnelle data1(2, i + 1, j) | > | | Comme l'a indiqué Loïc Carrère, remplace 7,5 par 7.5 | Et à ma connaissance la fonction PI() n'existe pas en VB, donc ajoutes | par exemple : | | Private Function PI() As Double | PI = 3.14159265358979 | End Function | | -- | Cordialement, | | Jacques.
Merci, oui, je n'avais pas vu la virgule... Ok, j'ai fait pour PI... Ça
marche, enfin, reste à voir si ça lisse comme prévu...
"Jacques93" <jacques@NoSpam> a écrit dans le message de news:
OeN2LxayFHA.908@tk2msftngp13.phx.gbl...
| Bonjour X,
| X a écrit :
| > Bonjour,
| >
| > On m'a envoyé cette fonction mathématique (polynômes de Lagrange),
je
| > n'y comprends rien, ce qui 'nest pas grave, mais par contre, ce qui est
| > grave, c'est que VB refuse de l'exécuter, ça reste en rouge...
| > C'estr sensé lisser les courbes d'un graphique, alors s'il y a des bons
en
| > maths, ben, si vous pouvez me remettre ça en forme pour que VB l'avale
???
| > Voici:
| >
| > Dim x
| > dim i as long
| > dim j as long
| > dim data1(2, 33, 3) as long
| > j=3
| >
| > x = 15 - 7,5 * (COS (2 * PI() * data1(2, i+1, j) / 33) + 1)
| >
| > ' la donnée à lisser est ma variable tridimensionnelle data1(2, i + 1,
j)
| >
|
| Comme l'a indiqué Loïc Carrère, remplace 7,5 par 7.5
| Et à ma connaissance la fonction PI() n'existe pas en VB, donc ajoutes
| par exemple :
|
| Private Function PI() As Double
| PI = 3.14159265358979
| End Function
|
| --
| Cordialement,
|
| Jacques.
Merci, oui, je n'avais pas vu la virgule... Ok, j'ai fait pour PI... Ça marche, enfin, reste à voir si ça lisse comme prévu...
"Jacques93" a écrit dans le message de news:
| Bonjour X, | X a écrit : | > Bonjour, | > | > On m'a envoyé cette fonction mathématique (polynômes de Lagrange), je | > n'y comprends rien, ce qui 'nest pas grave, mais par contre, ce qui est | > grave, c'est que VB refuse de l'exécuter, ça reste en rouge... | > C'estr sensé lisser les courbes d'un graphique, alors s'il y a des bons en | > maths, ben, si vous pouvez me remettre ça en forme pour que VB l'avale ??? | > Voici: | > | > Dim x | > dim i as long | > dim j as long | > dim data1(2, 33, 3) as long | > j=3 | > | > x = 15 - 7,5 * (COS (2 * PI() * data1(2, i+1, j) / 33) + 1) | > | > ' la donnée à lisser est ma variable tridimensionnelle data1(2, i + 1, j) | > | | Comme l'a indiqué Loïc Carrère, remplace 7,5 par 7.5 | Et à ma connaissance la fonction PI() n'existe pas en VB, donc ajoutes | par exemple : | | Private Function PI() As Double | PI = 3.14159265358979 | End Function | | -- | Cordialement, | | Jacques.
Y a pas quelqu'un qui pourrait me donner la formule pour lisser un courbe, soit:
pointCible(L,C) = pointOrigine(L,C) <--- lissé
Merci :o) -----------
"X" <.> a écrit dans le message de news:
| Bonjour, | | On m'a envoyé cette fonction mathématique (polynômes de Lagrange), je | n'y comprends rien, ce qui 'nest pas grave, mais par contre, ce qui est | grave, c'est que VB refuse de l'exécuter, ça reste en rouge... | C'estr sensé lisser les courbes d'un graphique, alors s'il y a des bons en | maths, ben, si vous pouvez me remettre ça en forme pour que VB l'avale ??? | Voici: | | Dim x | dim i as long | dim j as long | dim data1(2, 33, 3) as long | j=3 | | x = 15 - 7,5 * (COS (2 * PI() * data1(2, i+1, j) / 33) + 1) | | ' la donnée à lisser est ma variable tridimensionnelle data1(2, i + 1, j) | | | Merci. | -- | ECRIRE | http://irolog.free.fr/ecrire/index.htm | | LOGICIELS | http://irolog.free.fr | | SITE | http://irolog.free.fr/joe/index.htm | | FAQ VB | http://faq.vb.free.fr | | PRINCIPE D'UTILISATION DES NEWSGROUPS MICROSOFT | http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm | ******************************************************** | | | | |
Y a pas quelqu'un qui pourrait me donner la formule pour lisser un
courbe, soit:
pointCible(L,C) = pointOrigine(L,C) <--- lissé
Merci :o)
-----------
"X" <.> a écrit dans le message de news:
eDV8fnayFHA.464@TK2MSFTNGP15.phx.gbl...
| Bonjour,
|
| On m'a envoyé cette fonction mathématique (polynômes de Lagrange), je
| n'y comprends rien, ce qui 'nest pas grave, mais par contre, ce qui est
| grave, c'est que VB refuse de l'exécuter, ça reste en rouge...
| C'estr sensé lisser les courbes d'un graphique, alors s'il y a des bons en
| maths, ben, si vous pouvez me remettre ça en forme pour que VB l'avale ???
| Voici:
|
| Dim x
| dim i as long
| dim j as long
| dim data1(2, 33, 3) as long
| j=3
|
| x = 15 - 7,5 * (COS (2 * PI() * data1(2, i+1, j) / 33) + 1)
|
| ' la donnée à lisser est ma variable tridimensionnelle data1(2, i + 1,
j)
|
|
| Merci.
| --
| ECRIRE
| http://irolog.free.fr/ecrire/index.htm
|
| LOGICIELS
| http://irolog.free.fr
|
| SITE
| http://irolog.free.fr/joe/index.htm
|
| FAQ VB
| http://faq.vb.free.fr
|
| PRINCIPE D'UTILISATION DES NEWSGROUPS MICROSOFT
| http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
| ********************************************************
|
|
|
|
|
Y a pas quelqu'un qui pourrait me donner la formule pour lisser un courbe, soit:
pointCible(L,C) = pointOrigine(L,C) <--- lissé
Merci :o) -----------
"X" <.> a écrit dans le message de news:
| Bonjour, | | On m'a envoyé cette fonction mathématique (polynômes de Lagrange), je | n'y comprends rien, ce qui 'nest pas grave, mais par contre, ce qui est | grave, c'est que VB refuse de l'exécuter, ça reste en rouge... | C'estr sensé lisser les courbes d'un graphique, alors s'il y a des bons en | maths, ben, si vous pouvez me remettre ça en forme pour que VB l'avale ??? | Voici: | | Dim x | dim i as long | dim j as long | dim data1(2, 33, 3) as long | j=3 | | x = 15 - 7,5 * (COS (2 * PI() * data1(2, i+1, j) / 33) + 1) | | ' la donnée à lisser est ma variable tridimensionnelle data1(2, i + 1, j) | | | Merci. | -- | ECRIRE | http://irolog.free.fr/ecrire/index.htm | | LOGICIELS | http://irolog.free.fr | | SITE | http://irolog.free.fr/joe/index.htm | | FAQ VB | http://faq.vb.free.fr | | PRINCIPE D'UTILISATION DES NEWSGROUPS MICROSOFT | http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm | ******************************************************** | | | | |
X
J'ai remplacé pi par (22/7), mais ça ne marche pas
L'origine est à 300 x 7000 twips Le pas horizontal est de +300 L'espace vertical est de 7000 à 3500 = 3500 twips (selon besoin variables)
"Aski" a écrit dans le message de news: % | "Loïc Carrère" a écrit dans le message de | news: | >X a émis l'idée suivante : | >> Bonjour, | >> | >> On m'a envoyé cette fonction mathématique (polynômes de Lagrange), je | >> n'y comprends rien, ce qui 'nest pas grave, mais par contre, ce qui est | >> grave, c'est que VB refuse de l'exécuter, ça reste en rouge... | >> C'estr sensé lisser les courbes d'un graphique, alors s'il y a des bons | >> en maths, ben, si vous pouvez me remettre ça en forme pour que VB l'avale | >> ??? | >> Voici: | >> | >> Dim x | >> dim i as long | >> dim j as long | >> dim data1(2, 33, 3) as long | >> j=3 | >> | >> x = 15 - 7,5 * (COS (2 * PI() * data1(2, i+1, j) / 33) + 1) | >> | >> ' la donnée à lisser est ma variable tridimensionnelle data1(2, i + 1, | >> j) | >> | >> | >> Merci. | >> -- | >> ECRIRE | >> http://irolog.free.fr/ecrire/index.htm | >> | >> LOGICIELS | >> http://irolog.free.fr | >> | >> SITE | >> http://irolog.free.fr/joe/index.htm | >> | >> FAQ VB | >> http://faq.vb.free.fr | >> | >> PRINCIPE D'UTILISATION DES NEWSGROUPS MICROSOFT | >> http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm | >> ******************************************************** | > | > 7.5 et non 7,5 | > | > | | Par ailleurs, la fonction pi() n'existe pas à ma connaissance. | Remplace par 3.14159 pour voir. | | Aski | | AntiSpamEdit - Version 1.6.4 du 12/08/05 | Aide de K9 en français | http://h.charlier.de.chily.perso.cegetel.net/ | ou | http://h.dechily.free.fr/ | |
J'ai remplacé pi par (22/7), mais ça ne marche pas
L'origine est à 300 x 7000 twips
Le pas horizontal est de +300
L'espace vertical est de 7000 à 3500 = 3500 twips (selon besoin variables)
"Aski" <xxx@xxx.com> a écrit dans le message de news:
%239WqjzayFHA.1168@TK2MSFTNGP10.phx.gbl...
| "Loïc Carrère" <loic.carrere@asi-concept.fr> a écrit dans le message de
| news: mn.2b777d5a96f8afd1.20273@asi-concept.fr...
| >X a émis l'idée suivante :
| >> Bonjour,
| >>
| >> On m'a envoyé cette fonction mathématique (polynômes de Lagrange),
je
| >> n'y comprends rien, ce qui 'nest pas grave, mais par contre, ce qui est
| >> grave, c'est que VB refuse de l'exécuter, ça reste en rouge...
| >> C'estr sensé lisser les courbes d'un graphique, alors s'il y a des bons
| >> en maths, ben, si vous pouvez me remettre ça en forme pour que VB
l'avale
| >> ???
| >> Voici:
| >>
| >> Dim x
| >> dim i as long
| >> dim j as long
| >> dim data1(2, 33, 3) as long
| >> j=3
| >>
| >> x = 15 - 7,5 * (COS (2 * PI() * data1(2, i+1, j) / 33) + 1)
| >>
| >> ' la donnée à lisser est ma variable tridimensionnelle data1(2, i + 1,
| >> j)
| >>
| >>
| >> Merci.
| >> --
| >> ECRIRE
| >> http://irolog.free.fr/ecrire/index.htm
| >>
| >> LOGICIELS
| >> http://irolog.free.fr
| >>
| >> SITE
| >> http://irolog.free.fr/joe/index.htm
| >>
| >> FAQ VB
| >> http://faq.vb.free.fr
| >>
| >> PRINCIPE D'UTILISATION DES NEWSGROUPS MICROSOFT
| >>
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
| >> ********************************************************
| >
| > 7.5 et non 7,5
| >
| >
|
| Par ailleurs, la fonction pi() n'existe pas à ma connaissance.
| Remplace par 3.14159 pour voir.
|
| Aski
|
| AntiSpamEdit - Version 1.6.4 du 12/08/05
| Aide de K9 en français
| http://h.charlier.de.chily.perso.cegetel.net/
| ou
| http://h.dechily.free.fr/
|
|
"Aski" a écrit dans le message de news: % | "Loïc Carrère" a écrit dans le message de | news: | >X a émis l'idée suivante : | >> Bonjour, | >> | >> On m'a envoyé cette fonction mathématique (polynômes de Lagrange), je | >> n'y comprends rien, ce qui 'nest pas grave, mais par contre, ce qui est | >> grave, c'est que VB refuse de l'exécuter, ça reste en rouge... | >> C'estr sensé lisser les courbes d'un graphique, alors s'il y a des bons | >> en maths, ben, si vous pouvez me remettre ça en forme pour que VB l'avale | >> ??? | >> Voici: | >> | >> Dim x | >> dim i as long | >> dim j as long | >> dim data1(2, 33, 3) as long | >> j=3 | >> | >> x = 15 - 7,5 * (COS (2 * PI() * data1(2, i+1, j) / 33) + 1) | >> | >> ' la donnée à lisser est ma variable tridimensionnelle data1(2, i + 1, | >> j) | >> | >> | >> Merci. | >> -- | >> ECRIRE | >> http://irolog.free.fr/ecrire/index.htm | >> | >> LOGICIELS | >> http://irolog.free.fr | >> | >> SITE | >> http://irolog.free.fr/joe/index.htm | >> | >> FAQ VB | >> http://faq.vb.free.fr | >> | >> PRINCIPE D'UTILISATION DES NEWSGROUPS MICROSOFT | >> http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm | >> ******************************************************** | > | > 7.5 et non 7,5 | > | > | | Par ailleurs, la fonction pi() n'existe pas à ma connaissance. | Remplace par 3.14159 pour voir. | | Aski | | AntiSpamEdit - Version 1.6.4 du 12/08/05 | Aide de K9 en français | http://h.charlier.de.chily.perso.cegetel.net/ | ou | http://h.dechily.free.fr/ | |
Jacques93
Aski a écrit :
"Jacques93" a écrit dans le message de news:
Private Function PI() As Double PI = 3.14159265358979 End Function
Copié dans MSDN Dim pi pi = 4 * Atn(1) ' Calcule la valeur de pi.Aski
Dim pi As Double pi = 4 * Atn(1) Debug.Print pi
Résultat : 3,14159265358979 ;-)
-- Cordialement,
Jacques.
Aski a écrit :
"Jacques93" <jacques@NoSpam> a écrit dans le message de news:
Private Function PI() As Double
PI = 3.14159265358979
End Function
Copié dans MSDN
Dim pi
pi = 4 * Atn(1) ' Calcule la valeur de pi.Aski
