Re: Re: Maping and Complex Addition

• To: mathgroup at smc.vnet.net
• Subject: [mg56156] Re: [mg56124] Re: [mg56098] Maping and Complex Addition
• From: Bob Hanlon <hanlonr at cox.net>
• Date: Sun, 17 Apr 2005 03:07:00 -0400 (EDT)
• Sender: owner-wri-mathgroup at wolfram.com

```Oops.  That should have read

ConjPlus[x_List]:=Plus@@#&/@Partition[x,2];

Bob Hanlon

>
> From: Bob Hanlon <hanlonr at cox.net>
To: mathgroup at smc.vnet.net
> Date: 2005/04/16 Sat AM 03:52:00 EDT
> To: mathgroup at smc.vnet.net
> Subject: [mg56156] [mg56124] Re: [mg56098] Maping and Complex Addition
>
> 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
> > Subject: [mg56156] [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
> > 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
> >
> >
>
>

```

• Prev by Date: Typesetting Mathematica code
• Next by Date: Re: Trouble with Limit[I ... k]/k, k-> Infinity]