Evoluce kvazidruhu za přítomnosti mutací 

`*`(Nahrání, `*`(potYebných, `*`(balí ko))); -1 

with(Statistics); -1; with(plots); -1 

Konstanty modelu: 

`assign`(mutationRate, 0.2e-1); 1; `assign`(numberOfGenotypes, 50); 1 

 

0.2e-1
50 (1)
 

Zdatnost: 

`assign`(f, proc (x) options operator, arrow; `+`(1, `-`(`*`(`^`(`+`(`/`(`*`(2, `*`(x)), `*`(numberOfGenotypes)), `-`(1)), 2)))) end proc); 1 

proc (x) options operator, arrow; `+`(1, `-`(`*`(`^`(`+`(`/`(`*`(2, `*`(x)), `*`(numberOfGenotypes)), `-`(1)), 2)))) end proc (2)
 

 

CodeEditor-ButtonVykreslit zdatnost

Plot_2dPopulace v procentech, celkově 100%: 

`assign`(population, Array(1 .. numberOfGenotypes, fill = 0)); -1; `assign`(population[3], 100); -1; population; 1; `assign`(V, `<,>`(seq(i, i = 1 .. numberOfGenotypes))); -1
`assign`(population, Array(1 .. numberOfGenotypes, fill = 0)); -1; `assign`(population[3], 100); -1; population; 1; `assign`(V, `<,>`(seq(i, i = 1 .. numberOfGenotypes))); -1
`assign`(population, Array(1 .. numberOfGenotypes, fill = 0)); -1; `assign`(population[3], 100); -1; population; 1; `assign`(V, `<,>`(seq(i, i = 1 .. numberOfGenotypes))); -1
`assign`(population, Array(1 .. numberOfGenotypes, fill = 0)); -1; `assign`(population[3], 100); -1; population; 1; `assign`(V, `<,>`(seq(i, i = 1 .. numberOfGenotypes))); -1 

Array(%id = 152489428) (3)
 

Archivace střední hodnoty a rozptylu: 

`assign`(statMean, {}); 1; `assign`(statVar, {}); 1 

 

(4)
 

 

 

CodeEditor-ButtonProcedura na vykreslení sloupc

proc () local m, var, sd; global population, V, statMean, statVar; `assign`(m, Statistics:-Mean(V, weights = population)); `assign`(sd, Statistics:-StandardDeviation(V, weights = population)); `assign...
proc () local m, var, sd; global population, V, statMean, statVar; `assign`(m, Statistics:-Mean(V, weights = population)); `assign`(sd, Statistics:-StandardDeviation(V, weights = population)); `assign...
proc () local m, var, sd; global population, V, statMean, statVar; `assign`(m, Statistics:-Mean(V, weights = population)); `assign`(sd, Statistics:-StandardDeviation(V, weights = population)); `assign...
proc () local m, var, sd; global population, V, statMean, statVar; `assign`(m, Statistics:-Mean(V, weights = population)); `assign`(sd, Statistics:-StandardDeviation(V, weights = population)); `assign...
proc () local m, var, sd; global population, V, statMean, statVar; `assign`(m, Statistics:-Mean(V, weights = population)); `assign`(sd, Statistics:-StandardDeviation(V, weights = population)); `assign...
proc () local m, var, sd; global population, V, statMean, statVar; `assign`(m, Statistics:-Mean(V, weights = population)); `assign`(sd, Statistics:-StandardDeviation(V, weights = population)); `assign...
proc () local m, var, sd; global population, V, statMean, statVar; `assign`(m, Statistics:-Mean(V, weights = population)); `assign`(sd, Statistics:-StandardDeviation(V, weights = population)); `assign...
proc () local m, var, sd; global population, V, statMean, statVar; `assign`(m, Statistics:-Mean(V, weights = population)); `assign`(sd, Statistics:-StandardDeviation(V, weights = population)); `assign...
proc () local m, var, sd; global population, V, statMean, statVar; `assign`(m, Statistics:-Mean(V, weights = population)); `assign`(sd, Statistics:-StandardDeviation(V, weights = population)); `assign...
proc () local m, var, sd; global population, V, statMean, statVar; `assign`(m, Statistics:-Mean(V, weights = population)); `assign`(sd, Statistics:-StandardDeviation(V, weights = population)); `assign...
proc () local m, var, sd; global population, V, statMean, statVar; `assign`(m, Statistics:-Mean(V, weights = population)); `assign`(sd, Statistics:-StandardDeviation(V, weights = population)); `assign...
proc () local m, var, sd; global population, V, statMean, statVar; `assign`(m, Statistics:-Mean(V, weights = population)); `assign`(sd, Statistics:-StandardDeviation(V, weights = population)); `assign... 

 

CodeEditor-ButtonProcedura pro vývoj v jednom č

proc () local p, i, j, s; global mutationRate, population, numberOfGenotypes, statMean, statVar; `assign`(p, Array(1 .. numberOfGenotypes)); `assign`(p[1], `+`(`*`(`+`(1, f(1)), `*`(population[1])), `...
proc () local p, i, j, s; global mutationRate, population, numberOfGenotypes, statMean, statVar; `assign`(p, Array(1 .. numberOfGenotypes)); `assign`(p[1], `+`(`*`(`+`(1, f(1)), `*`(population[1])), `...
proc () local p, i, j, s; global mutationRate, population, numberOfGenotypes, statMean, statVar; `assign`(p, Array(1 .. numberOfGenotypes)); `assign`(p[1], `+`(`*`(`+`(1, f(1)), `*`(population[1])), `...
proc () local p, i, j, s; global mutationRate, population, numberOfGenotypes, statMean, statVar; `assign`(p, Array(1 .. numberOfGenotypes)); `assign`(p[1], `+`(`*`(`+`(1, f(1)), `*`(population[1])), `...
proc () local p, i, j, s; global mutationRate, population, numberOfGenotypes, statMean, statVar; `assign`(p, Array(1 .. numberOfGenotypes)); `assign`(p[1], `+`(`*`(`+`(1, f(1)), `*`(population[1])), `...
proc () local p, i, j, s; global mutationRate, population, numberOfGenotypes, statMean, statVar; `assign`(p, Array(1 .. numberOfGenotypes)); `assign`(p[1], `+`(`*`(`+`(1, f(1)), `*`(population[1])), `...
proc () local p, i, j, s; global mutationRate, population, numberOfGenotypes, statMean, statVar; `assign`(p, Array(1 .. numberOfGenotypes)); `assign`(p[1], `+`(`*`(`+`(1, f(1)), `*`(population[1])), `...
proc () local p, i, j, s; global mutationRate, population, numberOfGenotypes, statMean, statVar; `assign`(p, Array(1 .. numberOfGenotypes)); `assign`(p[1], `+`(`*`(`+`(1, f(1)), `*`(population[1])), `...
proc () local p, i, j, s; global mutationRate, population, numberOfGenotypes, statMean, statVar; `assign`(p, Array(1 .. numberOfGenotypes)); `assign`(p[1], `+`(`*`(`+`(1, f(1)), `*`(population[1])), `...
proc () local p, i, j, s; global mutationRate, population, numberOfGenotypes, statMean, statVar; `assign`(p, Array(1 .. numberOfGenotypes)); `assign`(p[1], `+`(`*`(`+`(1, f(1)), `*`(population[1])), `...
proc () local p, i, j, s; global mutationRate, population, numberOfGenotypes, statMean, statVar; `assign`(p, Array(1 .. numberOfGenotypes)); `assign`(p[1], `+`(`*`(`+`(1, f(1)), `*`(population[1])), `...
proc () local p, i, j, s; global mutationRate, population, numberOfGenotypes, statMean, statVar; `assign`(p, Array(1 .. numberOfGenotypes)); `assign`(p[1], `+`(`*`(`+`(1, f(1)), `*`(population[1])), `...
proc () local p, i, j, s; global mutationRate, population, numberOfGenotypes, statMean, statVar; `assign`(p, Array(1 .. numberOfGenotypes)); `assign`(p[1], `+`(`*`(`+`(1, f(1)), `*`(population[1])), `...
proc () local p, i, j, s; global mutationRate, population, numberOfGenotypes, statMean, statVar; `assign`(p, Array(1 .. numberOfGenotypes)); `assign`(p[1], `+`(`*`(`+`(1, f(1)), `*`(population[1])), `...
proc () local p, i, j, s; global mutationRate, population, numberOfGenotypes, statMean, statVar; `assign`(p, Array(1 .. numberOfGenotypes)); `assign`(p[1], `+`(`*`(`+`(1, f(1)), `*`(population[1])), `...
proc () local p, i, j, s; global mutationRate, population, numberOfGenotypes, statMean, statVar; `assign`(p, Array(1 .. numberOfGenotypes)); `assign`(p[1], `+`(`*`(`+`(1, f(1)), `*`(population[1])), `... 

animate(evolve, [], t = [seq(i, i = 1 .. 500)]); 1 

Plot_2d
 

 

CodeEditor-Buttondisplay(

Plot_2d 

 

CodeEditor-ButtonKontrolní součet

100.0000001