deltoy=:13 : '(y*_1|.y)%+/y'
ytodel =:13 : '(+/(y*_1|.y))% 2 0 1{y'
lr'deltoy'
(] * _1 |. ]) % +/
lr'ytodel'
([: +/ ] * _1 |. ]) % 2 0 1 { ]
lr'lr'
5!:5@<
R.E. Boss
(Add your info to http://www.jsoftware.com/jwiki/Community/Demographics )
> -----Original Message-----
> From: [email protected] [mailto:programming-
> [email protected]] On Behalf Of Don Kelly
> Sent: zaterdag 26 oktober 2013 5:37
> To: [email protected]
> 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
