somma progressiva

somma progressiva
di marty (utente non iscritto) data: 08/12/2012 10:23:39
Ciao a tutti...devo scrivere su VBA una formula di questo tipo:
Q=1/(sommatoria per j che va da 1 a N di pigreco^j)
dove j però varia all'interno di un ciclo For. In Q ho quindi una somma progressiva variabile...non riesco a scriverla...qualche aiutino?grazie mille
di HarryBosch data: 08/12/2012 11:38:41
Ciao Marty
puoi utilizzare la funzione Pi greco già esistente.
All'interno di un ciclo che va da 1 a j (nell'esempio sotto fino a 10) sommiamo ogni volta il Pi elevato al valore del ciclo.
Al termine esegui la divisione.

Se però questo j "varia all'interno del ciclo", dobbiamo sapere in che modo varia... elevi il Pi ai soli numeri pari? solo i dispari? altro?
Sub Pi_Greco() Dim j As Integer Dim tot As Double, Q As Double For j = 1 To 10 tot = tot + WorksheetFunction.Pi ^ j Next j Q = 1 / tot MsgBox "Q = " & Q End Sub
di marty (utente non iscritto) data: 08/12/2012 12:12:04
ti ringrazio molto :) ho risolto perfettamente
di Vecchio Frac data: 08/12/2012 13:24:34
Al posto di
WorksheetFunction.Pi

potete utilizzare
[PI()]

scritto proprio così, con le quadre e le tonde al posto giusto ^_^

tot = tot + [PI()] ^ j