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/Mathematica/quaternion-type.math
+++ b/Task/Quaternion-type/Mathematica/quaternion-type.math
@ -0,0 +1,26 @@
+<<Quaternions`
+q=Quaternion[1,2,3,4]
+q1=Quaternion[2,3,4,5]
+q2=Quaternion[3,4,5,6]
+r=7
+->Quaternion[1,2,3,4]
+->Quaternion[2,3,4,5]
+->Quaternion[3,4,5,6]
+->7
+
+Norm[q]
+->30
+-q
+->Quaternion[-1,-2,-3,-4]
+Conjugate[q]
+->Quaternion[1,-2,-3,-4]
+q1+q2
+->Quaternion[5,7,9,11]
+q*r
+->Quaternion[7,14,21,28]
+r*q
+->Quaternion[7,14,21,28]
+q1**q2
+->Quaternion[-56,16,24,26]
+q2**q1
+->Quaternion[-56,18,20,28]