OVH Cloud OVH Cloud

Problème de mathématique ???

13 réponses
Avatar
X
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
********************************************************

3 réponses

1 2
Avatar
jerome crevecoeur
Jacques93 wrote:
X a écrit :

Marche pas, lol !

x = (topO + 3500) - (topO + 1750) * (Cos(2 * (22 / 7) * data(2, i + 1,
j) / 33) + 1)

J'ai mis pi en (22/7)...

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)




Là je ne sais pas. Peut être une recherche 'lissage de courbe' sur
Google. Par exemple :

http://www.sciences.univ-nantes.fr/physique/perso/aloui/m_numeri/41appr ox/41approx.htm


mais pour moi, c'est du chinois.

Bonne chance ;-)




Il vaudrait mieux utiliser l'API PolyBezier pour dessiner des lignes
incurvées:

Documentation:
http://www.mentalis.org/apilist/PolyBezier.shtml

(Lien Exemple en fin de page)
Avatar
X
Merci, oh, trop compliqué pour moi, et en anglais en prime, tant
pis...
D'autant qu'il y a des contraintes particulières (les données des courbes
n'ont pas la même valeur, mais doivent occuper toutes le même espace
vertical, mais pas horizontal)...
Je préfère en plus faire du code, c'est inaltérable...
Je verrais ce soir, je suis en liaison avec un ingénieur matheux (math sup,
spé), mais là il bosse en ce moment...
Merci encore :o)
-----------------


"jerome crevecoeur"
a écrit dans le message de news:
Jacques93 wrote:
X a écrit :

Marche pas, lol !

x = (topO + 3500) - (topO + 1750) * (Cos(2 * (22 / 7) * data(2, i + 1,
j) / 33) + 1)

J'ai mis pi en (22/7)...

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)




Là je ne sais pas. Peut être une recherche 'lissage de courbe' sur
Google. Par exemple :

http://www.sciences.univ-nantes.fr/physique/perso/aloui/m_numeri/41approx/41approx.htm


mais pour moi, c'est du chinois.

Bonne chance ;-)




Il vaudrait mieux utiliser l'API PolyBezier pour dessiner des lignes
incurvées:

Documentation:
http://www.mentalis.org/apilist/PolyBezier.shtml

(Lien Exemple en fin de page)
Avatar
X
Ben si pour toi c'est du Chinois, pour moi c'est du Japonais :o)
Merci néanmoins, je verrais ce soir (je suis en liaison avec un ingénieur
qui a fait math sup et spé), mais là il bosse, je voulais tenter d'avancer,
ben j'attendrais, merci encore :o)
-------------------



"Jacques93" a écrit dans le message de news:
%
|X a écrit :
| > Marche pas, lol !
| >
| > x = (topO + 3500) - (topO + 1750) * (Cos(2 * (22 / 7) * data(2, i + 1,
j) /
| > 33) + 1)
| >
| > J'ai mis pi en (22/7)...
| >
| > 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)
|
| Là je ne sais pas. Peut être une recherche 'lissage de courbe' sur
| Google. Par exemple :
|
|
http://www.sciences.univ-nantes.fr/physique/perso/aloui/m_numeri/41approx/41approx.htm
|
| mais pour moi, c'est du chinois.
|
| Bonne chance ;-)
|
| --
| Cordialement,
|
| Jacques.
1 2