c7c2452b-9c85-461e-a2e2-1aa52d8e47c0 15 6 5 auto

&[DATE] &[TIME] - &[FILENAME]

z c f z c^:

c 51 i * - :

a 4 :

N 100 :

N c a biomorph d 2 a * N 1 -^* : r a N * : j 1 N range k 1 N range z j d * a - k d * a - (1 - sqrt * + (: n 0 : n 10 ≤ Z z c f : Z abs r ≥ break Z Re abs a Z Im abs + ≤ a ≤ p j k el Z abs : p j k el 0 : if if n n 1 + : 31 line while 31 line for for 1012 -^1 - (1 p Max (1 -^p * + (* 41 line :

B N c a biomorph :

B #

The 'j,k' is a diagonal scan that will eventually fill each position with a particular value found from the while loop. The coding is 1/1 Mathcad 8. The "B" is willing to calculate but refuses result. I guess I'm mising something in there. It will not reproduce the nice Mathcad/Mathsoft "Picture tool" but we should see something interesting. Line (10^{-12}-1)*(1+(Max(p))^{-1}*p) is simply a user output scaling factor over the "p" matrix. This expression can be simplified.

Sanity check loop construct

r 1 :

a 0.5 :

M Min Max Scale Max Min - (M M min - M max M min - 106 -^+ / (* Min + :

x f x 0.95^1 x / sin * :

t0 1 time :

Diagonal Nested Conditional While .
error "p does not exists" means the f(x)
can't be treated or  "r, a" invalid test. M sanity loop existance. j 120 range k 120 range z j k 1 - sqrt * + : n 0 : n 10 ≤ Z z f : Z abs r ≥ break Z Re abs a Z Im abs + ≤ a ≤ p j k el Z abs : p j k el 0 : if if n n 1 + : 31 line while 31 line for for p 31 line :

M M 0255 Scale :

iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAIAAAAC64paAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAAAvFJREFUOE9tksdKo2EUhr9gbLGXaIwae4u9xBZjb7EralSwIViCgiiKgmDBlQt1H4J4B5IL8C7cu83GhSSoM0HmmTkzPyJzVoF8D2/7dZ+fnx8fH09PT8/Pz36//+Xl5fX1NRAIBIPBt7e39/d3/uV+/Lmf/y4UCvFTPTw8PD4++ny+u7u76+vr09PTvb299fX1xcXF6enpkZGRvr6+9vb25ubmurq6ysrK0tLSwsLCnJyczMxM5fV67+/vPR7P7e3t5eXl0dHRzs7O2trawsLC5OTk0NBQT0+Pw+Foamqqra2tqKgoKSkpKCj4C9/c3CB4dXV1cXFxfHy8u7u7sbGxtLQ0Ozs7NjY2MDDQ1dVlt9ttNltNTU15eXlxcXF+fr7FYjGbzer8/Pzs7Ozk5OTw8BByc3NzdXV1fn5+ampqeHgYzx0dHS0tLQ0NDVVVVVartaioKC8vLzs7OyMjQx0cHOzv74Ntb2+jubKygmHSjo6OimxbW1tjYyOetcC5ublZWVkmk0m53e6trS0aIidu0YTEsNPpJC1ViWx1dfU3z+np6QqTy8vLdIsgOXErZG9vL4ZbW1v/K4tno9Go5ubmXC7XzMwM2Pj4ONsMDg6iCUlPkCwkabWqGAnZ1NRUNTExAUNC6gGjoe7ubtyiyTz19fViWBaStMimpaUlJycrHML09/fjEwxBViWnaAopH4aUzEIim5SUpACotLOzEzWKFUFWFbdCyjxsi2FKJi2yCQkJCoBsMKhpGN8Dw5ATt5B8FXxSmuGUlJTExMS4uDiFPXQYg3iogSHIZ1hWVgYpbtH8SmI4Pj4+JiZG8ZojGwxq+BQMQWlI3EpJEhUyNjY2Ojpa8ZrDIQzxNAxBrNKQ5ITELSRRIQ0GQ2RkpOI1A3JIYZJ4golV6ZaGvpFRUVHh4eGK1wJwYhI1wUQQq3RLQ+IWTciIiIiwsDDFawGEkXiCfRX8Rur1ep1Op1DgAITBpIZpgqxCtzRETtyi+ZtU6hdBGRcyhIxzfQAAAABJRU5ErkJggg== M

1 time t0 - 118.5 sec *