Utjecaj ρ u kompeticiji (jedna vrsta izumire)

a12: 1.3$
a21: 1.3$
u10: 0.45$
u20: 0.55$
ρ: 0.1$
rj1: rk([ u1*(1 − u1 - a12*u2),ρ*u2*(1 − u2 - a21*u1)],[u1,u2],[u10,u20],[t,0,50,0.01])$
rju1: makelist([g[1],g[2]],g,rj1)$
rju2: makelist([g[1],g[3]],g,rj1)$
wxplot2d([[discrete,rju1],[discrete,rju2]],[y,0,1],[legend,"u1","u2"]);

Utjecaj ρ u kompeticiji (obje vrste preživljavaju)

a12: 0.7$
a21: 0.9$
u10: 0.05$
u20: 0.60$
ρ: 02$
rj1: rk([ u1*(1 − u1 - a12*u2),ρ*u2*(1 − u2 - a21*u1)],[u1,u2],[u10,u20],[t,0,300,0.01])$
rju1: makelist([g[1],g[2]],g,rj1)$
rju2: makelist([g[1],g[3]],g,rj1)$
wxplot2d([[discrete,rju1],[discrete,rju2]],[y,0,1],[legend,"u1","u2"]);

Utjecaj ρ u mutualizmu

a12: 0.2$
a21: 0.7$
u10: 0.65$
u20: 0.15$
ρ: 1.7$
rj1: rk([ u1*(1 − u1 + a12*u2),ρ*u2*(1 − u2 + a21*u1)],[u1,u2],[u10,u20],[t,0,15,0.01])$
rju1: makelist([g[1],g[2]],g,rj1)$
rju2: makelist([g[1],g[3]],g,rj1)$
wxplot2d([[discrete,rju1],[discrete,rju2]],[legend,"Lasius productus","Stomaphis hirukawai"]);