#Mathematica 127
Mathematica 127
k=12;
r=#2/.{x__Real}:>.1{{7,-#},{#,7}}.{x}+y&;
f@n_:={f@1=N@Polygon@{y={0,.7^k},0y,x={.002,0},x+y},r[-4,p=f[n-1]],4~r~p}
Graphics@f@k
enter image description here
Value .002 adjusted to produce 1 pixel width of the final branches.
#Mathematica 127
k=12;
r=#2/.{x__Real}:>.1{{7,-#},{#,7}}.{x}+y&;
f@n_:={f@1=N@Polygon@{y={0,.7^k},0y,x={.002,0},x+y},r[-4,p=f[n-1]],4~r~p}
Graphics@f@k
enter image description here
Value .002 adjusted to produce 1 pixel width of the final branches.
Mathematica 127
k=12;
r=#2/.{x__Real}:>.1{{7,-#},{#,7}}.{x}+y&;
f@n_:={f@1=N@Polygon@{y={0,.7^k},0y,x={.002,0},x+y},r[-4,p=f[n-1]],4~r~p}
Graphics@f@k
enter image description here
Value .002 adjusted to produce 1 pixel width of the final branches.
#Mathematica 122127
k=12;
r=#2/.{x__Real}:>.1{{7,-#},{#,7}}.{x}+y&;
f@n_:={f@1=N@Polygon@{y={0,9.7^k},0y,x={.4002,0},x+y},r[-4,p=f[n-1]],4~r~p}
Graphics@f@9Graphics@f@k
enter image description hereenter image description here
Value .002 adjusted to produce 1 pixel width of the final branches.
#Mathematica 122
r=#2/.{x__Real}:>.1{{7,-#},{#,7}}.{x}+y&;
f@n_:={f@1=N@Polygon@{y={0,9},0y,x={.4,0},x+y},r[-4,p=f[n-1]],4~r~p}
Graphics@f@9
enter image description here
#Mathematica 127
k=12;
r=#2/.{x__Real}:>.1{{7,-#},{#,7}}.{x}+y&;
f@n_:={f@1=N@Polygon@{y={0,.7^k},0y,x={.002,0},x+y},r[-4,p=f[n-1]],4~r~p}
Graphics@f@k
enter image description here
Value .002 adjusted to produce 1 pixel width of the final branches.