Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2010

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

Search the Archive

Re: Table of Values

  • To: mathgroup at smc.vnet.net
  • Subject: [mg109565] Re: Table of Values
  • From: Alexei Boulbitch <alexei.boulbitch at iee.lu>
  • Date: Wed, 5 May 2010 06:07:07 -0400 (EDT)

Nikolas,
it is not much to add to your code. Try the following:

tradecomission = 9.99;
feepercontract = 0.75;
totalcost = 8484;

tab = Table[{0.72 + 0.01*i, 
    Solve[x == (totalcost - tradecomission)/((0.72 + 0.01*i)*100 + 
          feepercontract), x][[1, 1, 2]]
    }, {i, 1, 12}];
Grid[Prepend[
  tab, {Style["price per contract", 14], 
   Style["number of contracts", 14]}], 
 Dividers -> Directive[Blue, Thickness[2]], ItemSize -> Automatic]

If you do not need the table dividers you should omit options in Grid[]. 
Have fun. Alexei


The Mathematica mini-program below has been useful for solving for x,
given the other inputs.  It is analogous to a single-shot rifle:


x =.

tradecomission := 9.99
feepercontract := .75

pricepercontract := .73
numbercontracts := x

totalcost := 8484

Solve[numbercontracts == (totalcost -
     tradecomission)/(pricepercontract*100 + feepercontract), x]



What I'd like to somehow obtain now, however, is a rifle with a clip
or magazine --- in other words, a TABLE of values.  Below would be an
example of such a table:

pricepercontract	numbercontracts
.73				114
.74				113
.75				111
.76				110
.77				108
.78				107
.79				106
.80				104
.81				103
.82				102
.83				101
.84				 99


Does anyone know if there is a fairly easy and straightforward way of
setting this up?

Thanks,

Nicholas



  • Prev by Date: Re: Table of Values
  • Next by Date: Re: Table of Values
  • Previous by thread: Re: Table of Values
  • Next by thread: Re: Table of Values