Konkurence 

Dva druhy se skalárními strategiemi u[i] si vzájemně konkurují (překáží). 

[viz T. L. Vincent, J. S. Brown: Evolutionary Game Theory, Natural Selection and Darwiian Dynamics, Cambridge University Press, New York (2005), str.126-130.]. 

Inicializace 

`assign`(sigma, 4); 1; `assign`(tau, 2); 1; `assign`(beta, 2); 1; `assign`(r, .25); 1; `assign`(k, 100); 1; `assign`(K, proc (v) options operator, arrow; `*`(k, `*`(exp(`+`(`-`(`/`(`*`(`/`(1, 2), `*`(...
`assign`(sigma, 4); 1; `assign`(tau, 2); 1; `assign`(beta, 2); 1; `assign`(r, .25); 1; `assign`(k, 100); 1; `assign`(K, proc (v) options operator, arrow; `*`(k, `*`(exp(`+`(`-`(`/`(`*`(`/`(1, 2), `*`(...
`assign`(sigma, 4); 1; `assign`(tau, 2); 1; `assign`(beta, 2); 1; `assign`(r, .25); 1; `assign`(k, 100); 1; `assign`(K, proc (v) options operator, arrow; `*`(k, `*`(exp(`+`(`-`(`/`(`*`(`/`(1, 2), `*`(...
`assign`(sigma, 4); 1; `assign`(tau, 2); 1; `assign`(beta, 2); 1; `assign`(r, .25); 1; `assign`(k, 100); 1; `assign`(K, proc (v) options operator, arrow; `*`(k, `*`(exp(`+`(`-`(`/`(`*`(`/`(1, 2), `*`(...
`assign`(sigma, 4); 1; `assign`(tau, 2); 1; `assign`(beta, 2); 1; `assign`(r, .25); 1; `assign`(k, 100); 1; `assign`(K, proc (v) options operator, arrow; `*`(k, `*`(exp(`+`(`-`(`/`(`*`(`/`(1, 2), `*`(...
`assign`(sigma, 4); 1; `assign`(tau, 2); 1; `assign`(beta, 2); 1; `assign`(r, .25); 1; `assign`(k, 100); 1; `assign`(K, proc (v) options operator, arrow; `*`(k, `*`(exp(`+`(`-`(`/`(`*`(`/`(1, 2), `*`(...
`assign`(sigma, 4); 1; `assign`(tau, 2); 1; `assign`(beta, 2); 1; `assign`(r, .25); 1; `assign`(k, 100); 1; `assign`(K, proc (v) options operator, arrow; `*`(k, `*`(exp(`+`(`-`(`/`(`*`(`/`(1, 2), `*`(...
`assign`(sigma, 4); 1; `assign`(tau, 2); 1; `assign`(beta, 2); 1; `assign`(r, .25); 1; `assign`(k, 100); 1; `assign`(K, proc (v) options operator, arrow; `*`(k, `*`(exp(`+`(`-`(`/`(`*`(`/`(1, 2), `*`(... 

 

 

 

 

 

 

 

4
2
2
.25
100
proc (v) options operator, arrow; `*`(k, `*`(exp(`+`(`-`(`/`(`*`(`/`(1, 2), `*`(`^`(v, 2))), `*`(`^`(sigma, 2)))))))) end proc
proc (v, u) options operator, arrow; `+`(1, exp(`+`(`-`(`/`(`*`(`/`(1, 2), `*`(`^`(`+`(v, `-`(u), beta), 2))), `*`(tau))))), `-`(exp(`+`(`-`(`/`(`*`(`/`(1, 2), `*`(`^`(beta, 2))), `*`(tau))))))) end p...
proc (v) options operator, arrow; `+`(r, `-`(`/`(`*`(`+`(`*`(a(v, u[1]), `*`(x[1])), `*`(a(v, u[2]), `*`(x[2])))), `*`(K(v))))) end proc (1)
 

plot3d(a(v, w), v = -10 .. 10, w = -10 .. 10, axes = boxed, title =  

Plot_2d
 

plot(K(v), v = -10 .. 10); 1 

Plot_2d
 

Přítomné strategie u[i] a jejích poměrné zastoupení x[i] v populaci: 

 

CodeEditor-Buttongraf := proc ()

proc () plots:-display([plot(G(v), v = -10 .. 10, view = [-10 .. 10, `*`(-1, `*`(.1)) .. .2]), plots:-pointplot([u[1], G(u[1])], thickness = 10, symbol = solidcircle, symbolsize = 20, color = blue), p...
proc () plots:-display([plot(G(v), v = -10 .. 10, view = [-10 .. 10, `*`(-1, `*`(.1)) .. .2]), plots:-pointplot([u[1], G(u[1])], thickness = 10, symbol = solidcircle, symbolsize = 20, color = blue), p...
proc () plots:-display([plot(G(v), v = -10 .. 10, view = [-10 .. 10, `*`(-1, `*`(.1)) .. .2]), plots:-pointplot([u[1], G(u[1])], thickness = 10, symbol = solidcircle, symbolsize = 20, color = blue), p...
proc () plots:-display([plot(G(v), v = -10 .. 10, view = [-10 .. 10, `*`(-1, `*`(.1)) .. .2]), plots:-pointplot([u[1], G(u[1])], thickness = 10, symbol = solidcircle, symbolsize = 20, color = blue), p...
proc () plots:-display([plot(G(v), v = -10 .. 10, view = [-10 .. 10, `*`(-1, `*`(.1)) .. .2]), plots:-pointplot([u[1], G(u[1])], thickness = 10, symbol = solidcircle, symbolsize = 20, color = blue), p...
proc () plots:-display([plot(G(v), v = -10 .. 10, view = [-10 .. 10, `*`(-1, `*`(.1)) .. .2]), plots:-pointplot([u[1], G(u[1])], thickness = 10, symbol = solidcircle, symbolsize = 20, color = blue), p...
proc () plots:-display([plot(G(v), v = -10 .. 10, view = [-10 .. 10, `*`(-1, `*`(.1)) .. .2]), plots:-pointplot([u[1], G(u[1])], thickness = 10, symbol = solidcircle, symbolsize = 20, color = blue), p... 

`*`(`číslo`, `*`(strategie, `*`(i))) 

1 

2 

`*`(strategie, `*`(u[i])) 

Embedded component 

 

Embedded component 

`*`(populace, `*`(x[i])) 

Embedded component 

 

Embedded component 

 

 

Embedded component