for just tacit versions:
d2y =: (] * _1&|.)%+/
or with fewer parens,
+/ %~ ] * _1&|.
y2d =: (2 0 1&{ %~ ] +/@:* _1&|.)
________________________________
From: Don Kelly <[email protected]>
To: [email protected]
Sent: Friday, October 25, 2013 11:36:35 PM
Subject: [Jprogramming] making this tacit
I have written a couple of explicit verbs for Y-delta network transforms
and would like advice on how to express them in a tacit form.
This is for my learning benefit as the use of these comes up only
occasionally and input and output are always only 3 numbers.
deltoy=:3 : '(y*_1|.y)%+/y' from Delta to Wye
ytodel =:3 : '(+/(y*_1|.y))% 2 0 1{y' Wye to Delta
input and output are of the form zij =: a b c where a bc may be real or
complex
my problem is getting around the multiple use of y I suspect that a
train of forks might work but haven't got it yet.
In addition is there an easier way to obtain pairs a*b b*c and c*a than
what I have used?
--
Thanks
Don Kelly
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
