Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2003
*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 2003

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

Search the Archive

Re: Help with module please

  • To: mathgroup at smc.vnet.net
  • Subject: [mg39927] Re: Help with module please
  • From: "flip" <flip_alpha at safebunch.com>
  • Date: Wed, 12 Mar 2003 02:28:22 -0500 (EST)
  • References: <b4k46h$8im$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

A slight correction below, sorry ... Flip

Hello,

Another list request for help.

I have three variables q, a, and b.

My list format is some set consisting of vectors of the form: {{{pi, expi},
{rval0, rval1, rval2, ..., rvaln}}}

where:
 pi = prime factor,
expi = exponent of prime factor,
and an rval vector corresponding to each {pi, expi} pair.

What I would like is a list manipulator that returns an

x = x0 + x1pi + ... + xn pi^(expi-1) (note that this sum contains expi
values)

x0 = position in rval vector which contains the value PowerMod[a,
(q-1)/pi^(1)), q]

x1 = position in rval vector which contains the value
PowerMod[((PowerMod[a, - 1, q])^x0)*b, (q-1)/pi^(2), q]

x2 = position in rval vector which contains the value
PowerMod[((PowerMod[a, - 1, q])^(xo + x1*pi)*b, (q-1)/pi^(4), q]

x3 = position in rval vector which contains the value
PowerMod[((PowerMod[a, - 1, q])^(xo + x1*pi + x2*pi^2)*b, (q-1)/pi^(8), q]


  • Prev by Date: Re: GraphicsArray question
  • Next by Date: Calling Install[] from packages
  • Previous by thread: Help with module please
  • Next by thread: trouble solving partial DE