tasks a-s

2013-04-10 23:57:08 -07:00 · 2013-04-10 23:57:08 -07:00 · b83f433714
commit b83f433714
parent 47bf37c096
12433 changed files with 156208 additions and 123 deletions
--- a/Task/Quaternion-type/J/quaternion-type-1.j
+++ b/Task/Quaternion-type/J/quaternion-type-1.j
@ -0,0 +1,11 @@
+   NB. utilities
+   ip=:   +/ .*             NB. inner product
+   t4=. (_1^#:0 10 9 12)*0 7 16 23 A.=i.4
+   toQ=:  4&{."1 :[:        NB. real scalars -> quaternion
+
+   NB. task
+   norm=: %:@ip~@toQ        NB. | y
+   neg=:  -&toQ             NB. - y  and  x - y
+   conj=: 1 _1 _1 _1 * toQ  NB. + y
+   add=:  +&toQ             NB. x + y
+   mul=:  (ip t4 ip ])&toQ  NB. x * y
--- a/Task/Quaternion-type/J/quaternion-type-2.j
+++ b/Task/Quaternion-type/J/quaternion-type-2.j
@ -0,0 +1,21 @@
+   q=: 1 2 3 4
+   q1=: 2 3 4 5
+   q2=: 3 4 5 6
+   r=: 7
+
+   norm q
+5.47723
+   neg q
+_1 _2 _3 _4
+   conj q
+1 _2 _3 _4
+   r add q
+8 2 3 4
+   q1 add q2
+5 7 9 11
+   r mul q
+7 14 21 28
+   q1 mul q2
+_56 16 24 26
+   q2 mul q1
+_56 18 20 28