aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-04-30 12:34:36 -04:00
parent 4bb20c9b71
commit cbaf4c4b64
12390 changed files with 318560 additions and 27248 deletions
Download patch file Download diff file Expand all files Collapse all files

19
Task/Vector-products/REXX/vector-products.rexx
View file

@ -1,4 +1,4 @@
-- 24 Aug 2025
-- 4 Mar 2026
include Setting
say 'VECTOR PRODUCTS'
@ -6,20 +6,21 @@ say version
say
a = '3 4 5'; b = '4 3 5'; c = '-5 -12 -13'; d = '1 2 3'
say 'VALUES'
say 'A =' Lst2FormV(a)
say 'B =' Lst2FormV(b)
say 'C =' Lst2FormV(c)
say 'D =' Lst2FormV(d)
say 'A =' Vect2form(a)
say 'B =' Vect2form(b)
say 'C =' Vect2form(c)
say 'D =' Vect2form(d)
say
say 'BASICS'
say 'BASIC'
say 'A . B =' DotV(a,b)/1 '= dot product'
say 'A x B =' Lst2FormV(CrossV(a,b)) '= cross product'
say 'A x B =' Vect2form(CrossV(a,b)) '= cross product'
say
say 'BONUS'
say 'A . (BxC) =' ScalTripV(a,b,c)/1 '= scalar triple product'
say 'A x (BxC) =' Lst2FormV(VectTripV(a,b,c)) '= vector triple product'
say 'A x (BxC) =' Vect2form(VectTripV(a,b,c)) '= vector triple product'
say '(AxB) . (CxD) =' ScalQuadV(a,b,c,d)/1 '= scalar quadruple product'
say '(AxB) x (CxD) =' Lst2FormV(VectQuadV(a,b,c,d)) '= vector quadruple product'
say '(AxB) x (CxD) =' Vect2form(VectQuadV(a,b,c,d)) '= vector quadruple product'
exit
-- Vect2form; XxxV
include Math