Re: Maping and Complex Addition
- To: mathgroup at smc.vnet.net
- Subject: [mg56124] Re: [mg56098] Maping and Complex Addition
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Sat, 16 Apr 2005 03:52:00 -0400 (EDT)
- Reply-to: hanlonr at cox.net
- Sender: owner-wri-mathgroup at wolfram.com
comp={a+b*I,a-b*I,c+d*I,c-d*I}; ConjPlus[x_List]:=Plus@@#&/@Partition[comp,2]; ConjPlus[comp] {2 a,2 c} Bob Hanlon > > From: Pratik Desai <pdesai1 at umbc.edu> To: mathgroup at smc.vnet.net > Date: 2005/04/15 Fri AM 04:47:47 EDT > To: mathgroup at smc.vnet.net > Subject: [mg56124] [mg56098] Maping and Complex Addition > > I have a list of complex conjugate numbers , appearing as > comp={a+b*I,a-b*I,c+d*I,c-d*I} > > I would like to create a function ConjPlus[{}] which gives me the real > values obtained by adding the first two complex conjugate numbers and so > on. I have been able to do it using table and plus, but it would be cool > to just have a function you can call > > Anyway, here is what I am using > Table[Plus@@Partition[comp,2][[q]],{q,1,j}] > > -- > Pratik Desai > Graduate Student > UMBC > Department of Mechanical Engineering > Phone: 410 455 8134 > / > Unlike my subject, I will make my song. It shall be witty, and it shan't be long-Philip/-Dormer-Stanhope, fourth-Earl-of-Chesterfield > >