Foro de debate

PROGRESION GEOMETRICA EN R

PROGRESION GEOMETRICA EN R

de JOSE ZUÑIGA -
Número de respuestas: 2

Hola como puedo crear una funcion que entregue la suma de de una progresion geometrica con a , r , y el numero de sumandos n

ejemplo 

a

a+ar

a+ar+ar*r


En respuesta a JOSE ZUÑIGA

Re: PROGRESION GEOMETRICA EN R

de Manuel Muñoz Márquez -

Hola:

Aplicando las fórmulas

psum <- function(a, r, n) {
    if (n == Inf) {
        if (abs(r) < 1) {
            s = a/(1-r)
        } else {
            s = "No tiene suma finita"
            }
    } else {
        s = (a*r^n-a)/(r-1)
    }
    s
}
> psum(1, 1/2, 3)
[1] 1.75
> psum(1, 2, 5)
[1] 31
> psum(1, 1/2, Inf)
[1] 2
> psum(1, 2, Inf)
[1] "No tiene suma finita"

Un saludo.