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 2025-08-11 18:05:26 -07:00
parent 4d5544505c
commit 4924dd0264
3073 changed files with 55820 additions and 4408 deletions
Download patch file Download diff file Expand all files Collapse all files

31
Task/Vector/REXX/vector.rexx
View file

@ -1,4 +1,4 @@
-- 19 May 2025
-- 28 Jul 2025
include Settings
say 'VECTOR'
@ -6,26 +6,23 @@ say version
say
a = '1 2 3'; b = '3 2 1'; c = 3; d = '4 5'; e = '2 1'
say 'VALUES'
say 'A =' Vlst2Form(a)
say 'B =' Vlst2Form(b)
say 'A =' Lst2FormV(a)
say 'B =' Lst2FormV(b)
say 'C =' c
say 'D =' Vlst2Form(d)
say 'E =' Vlst2Form(e)
say 'D =' Lst2FormV(d)
say 'E =' Lst2FormV(e)
say
say 'BASICS'
say 'A+B =' Vlst2Form(Vadd(a,b))
say 'A-B =' Vlst2Form(Vsub(a,b))
say 'A*C =' Vlst2Form(Vmul(a,c))
say 'A/C =' Vlst2Form(Vdiv(a,c))
say 'A+B =' Lst2FormV(AddV(a,b))
say 'A-B =' Lst2FormV(SubV(a,b))
say 'A*C =' Lst2FormV(ScaleV(a,c))
say 'A/C =' Lst2FormV(ScaleV(a,1/c))
say
say 'BONUS'
say 'Length(D) =' Vlen(d)+0
say 'Angle(D) =' Vang(d)+0
say 'Polar(D) =' Vlst2Form(Vrec2Pol(d))
say 'Rect(E) =' Vlst2Form(Vpol2Rec(e))
say 'Length(D) =' LenV(d)+0
say 'Angle(D) =' AngV(d)+0
say 'Polar(D) =' Lst2FormV(Rec2PolV(d))
say 'Rect(E) =' Lst2FormV(Pol2RecV(e))
exit
include Vector
include Functions
include Constants
include Abend
include Math