And here's my version tailored at unix geeks (in R):
CODE
level <- function(max_level, base_cost, level_cost, exponent) {
vec <- seq(0, max_level-1)
round((vec*level_cost + base_cost)**(1 + exponent*vec))
}
costs <-
list(misc_posting = c( 20, 5000, 100, 0.0280232009 ) ,
adept_learner = c( 300, 100, 50, 0.000417446 ) ,
assimilator = c( 10, 50000, 50000, 0.0058690916 ) ,
ability_boost = c( 500, 100, 100, 0.0005548607 ) ,
power_tank = c( 20, 2000, 1000, 0 ) ,
scavenger = c( 50, 500, 500, 0.0088310825 ) ,
luck_of_the_draw = c( 25, 2000, 2000, 0.0168750623 ) ,
quartermaster = c( 20, 5000, 5000, 0.017883894 ) ,
archeologist = c( 10, 25000, 25000, 0.030981982 ) ,
set_collector = c( 4, 12500, 12500, 0 ) ,
pack_rat = c( 5, 20000, 20000, 0 ) ,
refined_aura = c( 4, 25000, 25000, 0 ) )
prices <- lapply(costs, function(x){ level(x[1], x[2], x[3], x[4]) })
Then
QUOTE
Adept Learner from Level 11 to level 200
is:
CODE
sum(prices$adept_learner[12:200])
And
QUOTE
Ability Boost from 80 to 175
is:
CODE
sum(prices$ability_boost[81:175])
(if anyone can be arsed to dump the script to the wiki next to the excel spreadsheet that's there, feel free (IMG:[
invalid]
style_emoticons/default/tongue.gif))