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: [mg109567] Re: Table of Values
  • From: Albert Retey <awnl at gmx-topmail.de>
  • Date: Wed, 5 May 2010 06:07:29 -0400 (EDT)
  • References: <hrot0s$5te$1@smc.vnet.net>

Am 04.05.2010 12:30, schrieb Nicholas Kormanik:
> 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?

tradecomission = 9.99
feepercontract = .75
totalcost = 8484

results = Table[
  {pricepercontract, numbercontracts /. First[Solve[
      numbercontracts == (totalcost -
          tradecomission)/(pricepercontract*100 + feepercontract),
      numbercontracts]]},
  {pricepercontract, 0.71, 0.84, 0.01}
  ]


Grid[Prepend[results, {"price per contract", "number of contracts"}],
 Dividers -> All]

hth,

albert


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