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.