Condense

From NARS2000
Revision as of 00:14, 12 April 2018 by WikiSysop (talk | contribs)
Jump to navigationJump to search
Z←<R    or    Z←<[X] R converts R to a Hypercomplex array if (⍴R)[X]∊2 4 8 or a Real array if (⍴R)[X]=1.
X is an optional numeric singleton axis with X∊⍳⍴⍴R. If X is omitted, it defaults to the last axis.
R is an arbitrary Real numeric array (BOOL, INT, FLT, APA, RAT, VFP — otherwise, DOMAIN ERROR) whose X-axis length (⍴R)[X] is 1, 2, 4, or 8 — otherwise, LENGTH ERROR.
Z is the corresponding Real or Hypercomplex array of shape (X≠⍳⍴⍴R)/⍴R using the items along the X-axis of R as the coefficients of the resulting Real or Hypercomplex array. If (⍴R)[X] is 1, the result is the Real array ((X≠⍳⍴⍴R)/⍴R)⍴R, if (⍴R)[X] is 2, the result is a Complex array, if (⍴R)[X] is 4, the result is a Quaternion array, and if (⍴R)[X] is 8, the result is an Octonion array.


For example,

      <23
23
      <10 20
10J20
      <2 4⍴⍳8
1i2j3k4 5i6j7k8
      <2 8⍴(⍳8),⌽⍳8
1i2j3k4l5ij6jk7kl8 8i7j6k5l4ij3jk2kl1
      <[1] 2 8⍴(⍳8),⌽⍳8
1J8 2J7 3J6 4J5 5J4 6J3 7J2 8J1
      ⍴⎕←<2 3 1⍴⍳6
1 2 3
4 5 6
2 3
      ⍴⎕←<2 3 2⍴(⍳6),⌽⍳6
1J2 3J4 5J6
6J5 4J3 2J1
2 3
      ⍴⎕←<2 3 4⍴(⍳12),⌽⍳12
1i2j3k4    5i6j7k8 9i10j11k12
12i11j10k9 8i7j6k5 4i3j2k1
2 3
      ⍴⎕←<2 3 8⍴(⍳24),⌽⍳24
 1i2j3k4l5ij6jk7kl8         9i10j11k12l13ij14jk15kl16 17i18j19k20l21ij22jk23kl24
24i23j22k21l20ij19jk18kl17 16i15j14k13l12ij11jk10kl9   8i7j6k5l4ij3jk2kl1
2 3

Identities

R ←→ <[X] >[X] R   for all R (see Dilate for the definition of monadic Right Caret)
R ←→ >[X] <[X] R   for all R with (⍴R)[X]∊1 2 4 8

Acknowledgements

This symbol and its name were suggested by David A. Rabenhorst.