Des sommes infinies et une petite question

2 réponses

garnote

02/08/2003 à 17:26

Bonsoir à tous,

Viens de découvrir que je peux utiliser des
commandes Maple dans Excel.
Un exemple :
Sachant que :
Pi = 8 * ( 1 / (1x3) + 1 / (5X7) + 1 / (9*11) + . ),
je peux obtenir cette somme infinie en :
écrivant 8/((4*n-3)*(4*n-1)) en A1
et =maple("sum(&1,n=1..infinity)";A1) en B1.
Le résultat apparaissant en B1 est Pi.

Un code de Daniel M. :
Sub somme()
s = Evaluate("SUM(" & Replace([A1], "n", "(ROW(1:5000))") & ")")
MsgBox s
End Sub
permet de faire la somme des 5 000 premiers termes.

Question :
Comment faire pour remplacer 5 000 par une valeur de k
entrée dans un InputBox ?
Je ne sais plus trop où mettre les & !!!

Serge

2 réponses

Daniel.M

02/08/2003 à 17:47

Salut Serge,

Soit k un entier (integer)

i = "(ROW(1:" & k & "))"
s = Evaluate("SUM(" & Replace([A1], "n", i) & ")")

Salutations,

Daniel M.

Question :
Comment faire pour remplacer 5 000 par une valeur de k
entrée dans un InputBox ?
Je ne sais plus trop où mettre les & !!!

Serge

garnote

02/08/2003 à 18:14

Et une macro pour inspirer le respect à mes étudiants :

Sub Somme_n_Premiers_Termes()
On Error Resume Next
MsgBox Evaluate("SUM(" & Replace([A1], "n", _
"(ROW(1:" & InputBox("Combien de termes ? ", _
"Somme de " & [A1]) & "))") & ")"), _
vbInformation, "Somme partielle :"
End Sub

:-)))

Serge

"Daniel.M" a écrit dans le message de
news:

Salut Serge,

Soit k un entier (integer)

i = "(ROW(1:" & k & "))"
s = Evaluate("SUM(" & Replace([A1], "n", i) & ")")

Salutations,

Daniel M.

Question :
Comment faire pour remplacer 5 000 par une valeur de k
entrée dans un InputBox ?
Je ne sais plus trop où mettre les & !!!

Serge

Des sommes infinies et une petite question

2 réponses

Veuillez sélectionner un problème