Re: Table of Values
- To: mathgroup at smc.vnet.net
- Subject: [mg109563] Re: Table of Values
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Wed, 5 May 2010 06:06:45 -0400 (EDT)
numbercontracts[
totalcost_,
tradecomission_,
pricepercontract_,
feepercontract_] = Floor[
(totalcost - tradecomission)/
(pricepercontract*100 + feepercontract)];
With[{
tradecomission = 9.99,
feepercontract = .75,
totalcost = 8484},
Join[{{"pricepercontract", "numbercontracts"}},
Table[{pricepercontract, numbercontracts[
totalcost, tradecomission,
pricepercontract, feepercontract]},
{pricepercontract, .73, .84, .01}]] // Grid]
Bob Hanlon
---- Nicholas Kormanik <nkormanik at gmail.com> wrote:
=============
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