Rosetta Code

Quaternion type: Difference between revisions

Page Discussion

Quaternion type (view source)

Revision as of 18:15, 21 September 2019

138 bytes added ,  4 years ago
→‎{{header|Red}}
(Added example of Red language)
Line 5,780:
=={{header|Red}}==
<lang Red>
quatquaternion: context [
quaternion!: make typeset! [block! hash! vector!]
multiply: function [q [integer! float! quaternion!] p [integer! float! quaternion!]][
Line 5,814:
print [{
1. The norm of a quaternion:
`quatquaternion/norm q` =>} quatquaternion/norm q {
 
2. The negative of a quaternion:
`quatquaternion/negate q` =>} mold quatquaternion/negate q {
 
3. The conjugate of a quaternion:
<code>quatquaternion/conjugate q</code> =>} mold quatquaternion/conjugate q {
 
4. Addition of a real number `r` and a quaternion `q`:
`quatquaternion/add r q` =>} mold quatquaternion/add r q {
`quatquaternion/add q r` =>} mold quatquaternion/add q r {
 
5. Addition of two quaternions:
`quatquaternion/add q1 q2` =>} mold quatquaternion/add q1 q2 {
 
6. Multiplication of a real number and a quaternion:
`quatquaternion/multiply q r` =>} mold quatquaternion/multiply q r {
`quatquaternion/multiply r q` =>} mold quatquaternion/multiply r q {
 
7. Multiplication of two quaternions `q1` and `q2` is given by:
`quatquaternion/multiply q1 q2` =>} mold quatquaternion/multiply q1 q2 {
 
8. Show that, for the two quaternions `q1` and `q2`:
`equal? quatquaternion/multiply q1 q2 mold quatquaternion/multiply q2 q1` =>} equal? quatquaternion/multiply q1 q2 quatquaternion/multiply q2 q1]
</lang>
 
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/154152"