Rotation in 3D with 4D digits (digits by digits)
(- it is only the first introduction -)
Confugure: "Arial Unicode MS" 16
The quaternion digits NB. 3^4=81 chars
o̠A̠B̠C̠...X̠Y̠Z̠o̥ḀB̥C̥...X̥Y̥Z̥o̟A̟B̟C̟...X̟Y̟Z̟
o̠A̠B̠C̠...X̠Y̠Z̠ NB. 27 chars
o̥ḀB̥C̥...X̥Y̥Z̥ NB. 27 chars
o̟A̟B̟C̟...X̟Y̟Z̟ NB. 27 chars
A micromodel
4&u:111 800 65 800 66 800 67 800 88 800 89 800 90 800
o̠A̠B̠C̠X̠Y̠Z̠
4&u:111 805 65 805 66 805 67 805 88 805 89 805 90 805
o̥ḀB̥C̥X̥Y̥Z̥
4&u:111 799 65 799 66 799 67 799 88 799 89 799 90 799
o̟A̟B̟C̟X̟Y̟Z̟
neg=.'o̠A̠B̠C̠X̠Y̠Z̠'
null=.'o̥ḀB̥C̥X̥Y̥Z̥'
pos=:'o̟A̟B̟C̟X̟Y̟Z̟'
NB. not right!
#neg NB. tally
21
2 4 6{neg NB. from
B
neg i. 'B̠X̠Z̠' NB. index of
6 1 2 12 1 2 18 1 2
NB. all right!
NEG =.7 3$neg
NULL=.7 3$null
POS =.7 3$pos
#NEG NB. tally
7
2 4 6{NEG NB. from
B̠
X̠
Z̠
]q=.3 3$'B̠X̠Z̠'
B̠
X̠
Z̠
NEG i. q NB. index of
2 4 6
What about the other verbs?
Istvan Kadar
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
