The following would work if the first axis of X and F was not there. But
even in the 2 axis case there might be a more elegant expression without
having to do so many tranposes
X=.|:(|:O){"1 |:Fcheers Roelof Roelof K. Brouwer PhD PEng Temporary while visiting Department of Mechanical Engineering Stellenbosch University PO Box X1 Matieland 7602 South Africa www.picasaweb.google.com/rkbrouwer/ land line 27 (0) 21 808 3606 cell 27 (0) 73 973 1858 skype roelofbrouwer email [EMAIL PROTECTED] www.tru.ca/advtech/compsci/faculty/rbrouwer Permanent Contact information Professor Department of Computing Science School of Advanced Technologies and Mathematics Thompson Rivers University 900 McGill Road, PO Box 3010 Kamloops, BC, Canada,V2C 5N3 telephone numbers 1-250 828 5219 work 1-250-374-5874 home 1-250-377-6133 fax home page www.tru.ca/advtech/compsci/faculty/rbrouwer email [EMAIL PROTECTED] -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Henry Rich Sent: November 10, 2006 12:12 PM To: 'General forum' Subject: RE: [Jgeneral] selection expression in J x =: ((<s,((<p,a){O),a) { F) (<s,p,a)} x is a direct translation of what you wrote. Is that what you want? Henry Rich > -----Original Message----- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] On Behalf Of Brouwer, > Roelof <[EMAIL PROTECTED]> > Sent: Friday, November 10, 2006 4:27 AM > To: General forum > Subject: [Jgeneral] selection expression in J > > If I want > > > > X(s,p,a)<- F(s,O(p,a),a) s=0..ns-1 p=0..np-1 a=0..na-1 > O is np > by na and O 's components have values 0..nv-1 ; F is ns > by nv by na > ; and X is ns by np by na > > > > What is an elegant J expression that will do the trick > > > > cheers > > > > Roelof > > > > > > Roelof K. Brouwer PhD PEng > > Professor > > Department of Computing Science > > School of Advanced Technologies and Mathematics > > Thompson Rivers University > > 900 McGill Road, PO Box 3010 > > Kamloops, BC, Canada,V2C 5N3 > > > > > > telephone numbers > > 1-250 828 5219 work > > 1-250-374-5874 home > > 1-250-377-6133 fax > > home page www.tru.ca/advtech/compsci/faculty/rbrouwer > > email [EMAIL PROTECTED] > > > > ---------------------------------------------------------------------- > For information about J forums see > http://www.jsoftware.com/forums.htm ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
