Liczby w postępie geometrycznym

Question

Jak wygenerować sekwencję liczb w postępie geometrycznym w R? na przykład potrzebuję wygenerować sekwencję: 1, 2,4,8,16,32 i tak dalej ... aż powiesz skończoną wartość?

Answer 1

Oto co zrobię:

geomSeries <- function(base, max) { 
    base^(0:floor(log(max, base))) 
} 

geomSeries(base=2, max=2000) 
# [1] 1 2 4 8 16 32 64 128 256 512 1024 

geomSeries(3, 100) 
# [1] 1 3 9 27 81 

Answer 2

Dlaczego nie wystarczy wpisać 2^(0: n)? Na przykład. 2^(0: 5) spowoduje przejście od 1 do 32 i tak dalej. Capture the vector poprzez przypisanie do zmiennej tak: x < - 2^(0: 5)

Answer 3

Można znaleźć żadnego warunku w geometryczny sekwencji tej funkcji matematycznej:

okresie = początek * stosunek ** (n-1)

Gdzie:

termin = termin w sekwencji, którą chcesz
start = pierwszy termin w sekwencji
stosunek = wspólna proporcja (tj. wielokrotność, która definiuje sekwencję) n = numer terminu w sekwencji, którą chcesz

Zapisanie funkcji w R, która zapewnia dowolny podzbiór sekwencji geometrycznej dla dowolnego początku i proporcji:

#begin = beginning of subset 
#end = end of subset 

geomSeq <- function(start,ratio,begin,end){ 
    begin=begin-1 
    end=end-1 
    start*ratio**(begin:end) 
} 

geomSeq(1, 2, 1, 10) 
# [1] 1 2 4 8 16 32 64 128 256 512 

geomSeq(10,3,1,8) 
# [1] 10 30 90 270 810 2430 7290 21870 

geomSeq(10,3,4,8) 
# [1] 270 810 2430 7290 21870 

More on geometric sequences