load("dynamics")$

# Barnsleyeva paprat

## Splenium adiantum-nigrum (black spleenwort)

a1: matrix([0.85,0.04],[-0.04,0.85])$
a2: matrix([0.2,-0.26],[0.23,0.22])$
a3: matrix([-0.15,0.28],[0.26,0.24])$
a4: matrix([0,0],[0,0.16])$
p1: [0,1.6]$
p2: [0,1.6]$
p3: [0,0.44]$
p4: [0,0]$
w: [85,92,99,100]$
ifs(w, [a1,a2,a3,a4], [p1,p2,p3,p4], [10,0], 250000, [style,dots]);

## Mutant Splenium adiantum-nigrum

A1: matrix([0.845,0.035],[-0.035,0.82])$
A2: matrix([0.2,-0.31],[0.255,0.245])$
A3: matrix([-0.15,0.24],[0.25,0.2])$
A4: matrix([0,0],[0,0.2])$
P1: [0,1.6]$
P2: [0,0.29]$
P3: [0,0.68]$
P4: [0,-0.12]$
w: [85,92,99,100]$
ifs(w, [A1,A2,A3,A4], [P1,P2,P3,P4], [10,0], 250000, [style,dots]);

# Druge vrste

## Cyclosorus sp

a11: matrix([0.95,0.005],[-0.005,0.93])$
a21: matrix([0.035,-0.2],[0.16,0.04])$
a31: matrix([-0.04,0.2],[0.16,0.04])$
a41: matrix([0,0],[0,0.25])$
p11: [-0.002,0.5]$
p21: [-0.09,0.02]$
p31: [0.083,0.12]$
p41: [0,-0.4]$
w: [85,92,99,100]$
ifs(w, [a11,a21,a31,a41], [p11,p21,p31,p41], [10,0], 250000, [style,dots]);

## Nephrolepis cordifolia

a12: matrix([0.95,0.002],[-0.002,0.93])$
a22: matrix([0.035,-0.11],[0.27,0.01])$
a32: matrix([-0.04,0.11],[0.27,0.01])$
a42: matrix([0,0],[0,0.25])$
p12: [-0.002,0.5]$
p22: [-0.05,0.005]$
p32: [0.047,0.06]$
p42: [0,-0.4]$
w: [85,92,99,100]$
ifs(w, [a12,a22,a32,a42], [p12,p22,p32,p42], [10,0], 250000, [style,dots]);

## Calochlaena dubia

a13: matrix([0.85,0.02],[-0.02,0.83])$
a23: matrix([0.09,-0.28],[0.3,0.11])$
a33: matrix([-0.09,0.28],[0.3,0.09])$
a43: matrix([0,0],[0,0.25])$
p13: [0,1]$
p23: [0,0.6]$
p33: [0,0.7]$
p43: [0,-0.14]$
w: [85,92,99,100]$
ifs(w, [a13,a23,a33,a43], [p13,p23,p33,p43], [10,0], 250000, [style,dots]);