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
>
>