Re: Maping and Complex Addition
- To: mathgroup at smc.vnet.net
- Subject: [mg56117] Re: Maping and Complex Addition
- From: "Jens-Peer Kuska" <kuska at informatik.uni-leipzig.de>
- Date: Sat, 16 Apr 2005 03:51:50 -0400 (EDT)
- Organization: Uni Leipzig
- References: <d3o0aq$bmi$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hi, ConjPlus[lst_List] /; EvenQ[Length[lst]] := Plus @@@ Partition[lst, 2]/2 ?? Regards Jens "Pratik Desai" <pdesai1 at umbc.edu> schrieb im Newsbeitrag news:d3o0aq$bmi$1 at smc.vnet.net... >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 >