Message Boards Message Boards

0
|
2005 Views
|
4 Replies
|
5 Total Likes
View groups...
Share
Share this post:

Exponential Quaternions not working

John Henke
Posted 1 year ago

I can successfully add and multiply quaternions, but I can't figure out how to raise to the power of a quaternion? Advice?

In my case, this works:

Needs["Quaternions`"]
Needs["Quaternions`"]
NumberForm[
 N[(Quaternion[0, 0, 0, 1] + 
       Quaternion[0, 0, 0, -1/(n + t)])^(n + t), 5]

But this does not work:

Needs["Quaternions`"]
NumberForm[
 N[(Quaternion[0, 0, 0, 1] + 
       Quaternion[0, 0, 0, -1/(n + t)])^(Quaternion[0, 0, 0, 1]**(n + t)), 5]

Suggestions?
POSTED BY: John Henke
4 Replies
Sort By:
Hans Milton
Hans Milton
Posted 1 year ago

The Wolfram Quaternions package supports raising a quaternion to a real number, but not to another quaternion.

Needs@"Quaternions`"

In[2]:= Quaternion[1, 2, 3, 4]^5
Out[2]= Quaternion[3916, 1112, 1668, 2224]

In[3]:= Quaternion[1, 2, 3, 4]^Quaternion[5, 6, 7, 8]
Out[3]= Quaternion[1, 2, 3, 4]^Quaternion[5, 6, 7, 8]
POSTED BY: Hans Milton
John Henke
John Henke
Posted 1 year ago

I see. That's too bad. Do you know of any alternative program I could use?

Thanks for the reply.
POSTED BY: John Henke
Hans Milton
Hans Milton
Posted 1 year ago

I have not come across any program where this can be done.

And, if it could be done, what is achieved? What would be the meaning of $\text{quaternion}^{\text{quaternion}}$ ?
POSTED BY: Hans Milton

Maybe:

Needs["Quaternions`"]

n = 1; t = 2;
(Quaternion[0, 0, 0, 1] + Quaternion[0, 0, 0, -1/(n + t)])^(n + t)

(*Quaternion[0, 0, 0, -(8/27)]*)
POSTED BY: Mariusz Iwaniuk
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Tag limit exceeded
Note: Only the first five people you tag will receive an email notification; the other tagged names will appear as links to their profiles.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract