Discussion :

[LeForestier]

Bonjour tou(te)s,

clemouille, je t'ai donnée le principe d'un des algos les plus simple mais qui reste efficace en permettant d'avoir une erreur facile a maitriser. essaye de le mettre en oeuvre si tu bloque montre nous ou tu en ai et on t'expliquera la suite
Sinon tu peux toujours prendre un stylo et résoudre ca si j'ai bien suivit les parenthèse c'est jouable

Je crois que nous ne somme pas du tout sur les même rails..
Nous somme dans le forum VBA d'excel et pas dans un forum "Mathématique", donc il m'a semblé tout à fait plausible que la question était COMMENT CODER et pas COMMENT CALCULER, d'où mon intervention dans ce topic.
Est-ce plus clair maintenant ?.
A+

[kokoVBA]

Bonjour à tous,
effectivement j'avais oublié le B.
Dans ce cas la méthode de résolution par dichotomie devrait marcher.
Dans mon topic intitulé "fonction à plusieurs variables" Krovax a proposé une solution qui devrait bien marcher ici, sachant qu'on n'aura qu'une variable (il est donc possible de tester un très grand nombre de solutions).
Je vous laisse regarder et adapter le code, sinon je le ferai quand j'aurai un peu de temps.
A+

[clemouille]

bonjour,

merci à tous pour vos reponses.
J'ai essayé l'algorithme de dichotomie hier mais il ne marche pas (j'obtiebns des valeurs qui "bloquent" le calcul de ArcCos).
A la base je cherchais juste un moyen de coder un solveur juste dans la macro (et non pas à reosudre cette equation). LA j'essaie avec la fonction Goalseek...

[kokoVBA]

Re,
je vous mets en PJ un fichier qui marche.
Ci-dessous le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub testacos()
Dim nbvalteste As Double
Dim borninf As Double
Dim bornsup As Double
Dim i As Double
Dim resmin As Double
 
'tu déclares ce que tu veux
borninf = InputBox("Rentre ici la borne inf de ton intervalle d'étude de x")
bornsup = InputBox("Rentre ici la borne sup de ton intervalle d'étude de x")
nbvalteste = InputBox("Combien de valeurs veux-tu tester?")
 
'tu initialises x à une valeur en dehors de ton intervalle de définition, la boucle se chargera de mettre les bonnes valeurs
Cells(6, 2).Value = 100
Cells(16, 2).Value = 100
resmin = Cells(10, 3).Value
 
'tu commences la boucle
For i = 1 To nbvalteste
    Cells(6, 2).Value = borninf + i * (bornsup - borninf) / nbvalteste
    'tu testes les valeurs au fur et à mesure et tu retiens la meilleure
    If Cells(10, 3).Value < resmin Then
    resmin = Cells(10, 3).Value
    Cells(16, 2).Value = Cells(6, 2).Value
    End If
Next
 
 
End Sub

J'espère que ça répond à ta question Clemouille!
A+

[ilank]

Bonjour à tous,

juste en passant; pour résoudre cette équation les valeurs à tester ne sont-elles pas limitées par Arcos((A-2x)/A)

ArCos((A-2x)/A) suppose qu'il existe un angle ø pour lequel Cos(ø)=(A-2x)/A
or -1<=cos(ø)<=1
=> -1<=(A-2x)/A<=1
et x doit varier entre [0;A] et [A;0] selon le signe de A.

non ?

[clemouille]

Merci beaucoup kokoVBA, c'est ce qu'il me faut!