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

Just another update

Browse source
This commit is contained in:
Ingy döt Net 2015-02-20 00:35:01 -05:00
parent a25938f123
commit 00a190b0a6
6591 changed files with 94363 additions and 23227 deletions
Download patch file Download diff file Expand all files Collapse all files

42
Task/Arithmetic-Complex/REXX/arithmetic-complex.rexx
View file

@ -1,25 +1,23 @@
/*REXX program to show how to support math functions for complex numbers*/
x = '(5,3i)' /*this little piggy uses "I" (or "i") ···*/
y = '( .5, 6j)' /*this little piggy uses "J" (or "j") ···*/
x = '(5,3i)' /*this little piggy uses "I" (or "i") ... */
y = '( .5, 6j)' /*this little piggy uses "J" (or "j") ... */
sum = Cadd(x,y); say ' addition: ' x " + " y ' = ' sum
dif = Csub(x,y); say ' subtration: ' x " + " y ' = ' dif
prod = Cmul(x,y); say 'multiplication: ' x " * " y ' = ' prod
quot = Cdiv(x,y); say ' division: ' x " ÷ " y ' = ' quot
inv = Cinv(x); say ' inverse: ' x " = " inv
cnjX = Ccnj(x); say ' conjugate of: ' x " = " cnjX
negX = Cneg(x); say ' negation of: ' x " = " negX
sum = Cadd(x,y) ; say ' addition: ' x " + " y ' = ' sum
dif = Csub(x,y) ; say ' subtraction: ' x " + " y ' = ' dif
prod = Cmul(x,y) ; say 'multiplication: ' x " * " y ' = ' prod
quot = Cdiv(x,y) ; say ' division: ' x " ÷ " y ' = ' quot
inv = Cinv(x) ; say ' inverse: ' x " = " inv
cnjX = Ccnj(x) ; say ' conjugate of: ' x " = " cnjX
negX = Cneg(x) ; say ' negation of: ' x " = " negX
exit /*stick a fork in it, we're done.*/
/*─────────────────────────────────────one─liners───────────────────────*/
Ccnj: procedure;arg a ',' b,c ',' d;call Cg;r1=a;r2=-b;return Cr()
Cadd: procedure;arg a ',' b,c ',' d;call Cg;r1=a+c;r2=b+d;return Cr()
Csub: procedure;arg a ',' b,c ',' d;call Cg;r1=a-c;r2=b-d;return Cr()
Cmul: procedure;arg a ',' b,c ',' d;call Cg;r1=a*c-b*d; r2=b*c+a*d;return Cr()
Cdiv: procedure;arg a ',' b,c ',' d;call Cg;_=c*c+d*d;r1=(a*c+b*d)/_;r2=(b*c-a*d)/_;return Cr()
Cg: a=Cdej(a); b=Cdej(b); c=Cdej(c); d=Cdej(d); return
Cr: _='['r1; if r2\=0 then _=_','r2"j"; return _']'
Cdej: return word(translate(arg(1),,'{[(JI)]}') 0,1)
Cneg: return Cmul(arg(1),-1)
Cinv: return Cdiv(1,arg(1))
/*─────────────────────────────────────one─liners──────────────────────────────────────────────*/
Ccnj: procedure; arg a ',' b,c ',' d; call Cg; r1=a; r2=-b; return Cr()
Cadd: procedure; arg a ',' b,c ',' d; call Cg; r1=a+c; r2=b+d; return Cr()
Csub: procedure; arg a ',' b,c ',' d; call Cg; r1=a-c; r2=b-d; return Cr()
Cmul: procedure; arg a ',' b,c ',' d; call Cg; r1=a*c-b*d; r2=b*c+a*d; return Cr()
Cdiv: procedure; arg a ',' b,c ',' d; call Cg;_=c*c+d*d;r1=(a*c+b*d)/_;r2=(b*c-a*d)/_;return Cr()
Cdej: return word(translate(arg(1), , '{[(JI)]}') 0, 1)
Cg: a=Cdej(a); b=Cdej(b); c=Cdej(c); d=Cdej(d); return
Cinv: return Cdiv(1, arg(1))
Cneg: return Cmul(arg(1), -1)
Cr: _='['r1; if r2\=0 then _=_','r2"j"; return _']'