Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2005
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2005

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

Search the Archive

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


  • Prev by Date: Re: Approximating the function from its plot
  • Next by Date: Re: Why can't I call Random[NormalDistribution[10.0,0.0]]?
  • Previous by thread: Re: Maping and Complex Addition
  • Next by thread: Re: Re: Maping and Complex Addition