#justforfun
NB. День пятый.
makegrid =: 3 : 0
'LL UR delta' =. y
'xmin ymin' =. +. LL
'xmax ymax' =. +. UR
xn =. <. (xmax-xmin) % delta
yn =. <. (ymax-ymin) % delta
(|.(ymin + delta * i. yn)) (j. ~/) (xmin + delta * i. xn)
)
GRID =: makegrid _2.5j_1 1j1 0.005
mfn1 =: 3 : 0
NB. y is one pixel-position
v =. 0j0
n =. 0
while. (2 > | v) *. (n < MAXITER) do.
v =. y + *: v
n =. n+1
end.
n
)
MAXITER =: 64
image1 =: mfn1 " 0 GRID
require 'viewmat'
viewmat image1
NB. День пятый.
makegrid =: 3 : 0
'LL UR delta' =. y
'xmin ymin' =. +. LL
'xmax ymax' =. +. UR
xn =. <. (xmax-xmin) % delta
yn =. <. (ymax-ymin) % delta
(|.(ymin + delta * i. yn)) (j. ~/) (xmin + delta * i. xn)
)
GRID =: makegrid _2.5j_1 1j1 0.005
mfn1 =: 3 : 0
NB. y is one pixel-position
v =. 0j0
n =. 0
while. (2 > | v) *. (n < MAXITER) do.
v =. y + *: v
n =. n+1
end.
n
)
MAXITER =: 64
image1 =: mfn1 " 0 GRID
require 'viewmat'
viewmat image1
#justforfun
NB. День пятый.
makegrid =: 3: 0
'LL UR delta' =. Y
'xmin ymin' =. +. LL
'xmax ymax' =. +. UR
xn =. <. (xmax-xmin)% дельта
yn =. <. (ymax-ymin)% дельта
(|. (ymin + delta * i. yn)) (j. ~ /) (xmin + delta * i. xn)
)
GRID =: makegrid _2.5j_1 1j1 0,005
mfn1 =: 3: 0
NB. у - одна позиция пикселя
v =. 0j0
п = 0
пока. (2> | v) *. (n <MAXITER) сделать.
v =. у + *: в
п = п + 1
конец.
N
)
MAXITER =: 64
image1 =: mfn1 "0 GRID
требует 'viewmat'
viewmat image1
NB. День пятый.
makegrid =: 3: 0
'LL UR delta' =. Y
'xmin ymin' =. +. LL
'xmax ymax' =. +. UR
xn =. <. (xmax-xmin)% дельта
yn =. <. (ymax-ymin)% дельта
(|. (ymin + delta * i. yn)) (j. ~ /) (xmin + delta * i. xn)
)
GRID =: makegrid _2.5j_1 1j1 0,005
mfn1 =: 3: 0
NB. у - одна позиция пикселя
v =. 0j0
п = 0
пока. (2> | v) *. (n <MAXITER) сделать.
v =. у + *: в
п = п + 1
конец.
N
)
MAXITER =: 64
image1 =: mfn1 "0 GRID
требует 'viewmat'
viewmat image1
У записи 2 лайков,
0 репостов.
0 репостов.
Эту запись оставил(а) на своей стене Андрей Прокопенко
