MathGroup Archive 2010

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

Search the Archive

Re: Table of Values

  • To: mathgroup at smc.vnet.net
  • Subject: [mg109561] Re: Table of Values
  • From: Bill Rowe <readnews at sbcglobal.net>
  • Date: Wed, 5 May 2010 06:06:24 -0400 (EDT)

On 5/4/10 at 6:30 AM, nkormanik at gmail.com (Nicholas Kormanik) 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

Since all of the above are constants, it really would be better
to use Set rather than SetDelayed. That is doing:

tradecomission = 9.99;
feepercontract = .75;

pricepercontract = .73;
totalcost = 8484;

Note, I omitted numbercontracts:=x since this isn't needed. In
fact, Solve isn't needed since you've already done the work
Solve would do, i.e.,

In[32]:= Floor[(totalcost -
tradecomission)/(pricepercontract*100 +
     feepercontract)]

Out[32]= 114

Here, I've used the Floor function since your table suggest you
only want the integer portion of the solution.

To create your table use Table. That is:

TableForm[
  Table[{pricepercontract,
    Floor[(totalcost - tradecomission)/(pricepercontract*100 +
        feepercontract)]}, {pricepercontract, .73, .84, .01}],
  TableHeadings -> {None, {"Price/Contract", "No Contracts"}}]

will create a nicely formatted table. The function Table does
the actual computations. The function TableForm simply formats
the output in a nice fashion.



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