[Date Index] [Thread Index] [Author Index]

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
>