Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.soft-sys.math.mathematica > #1818

Re: Demonstration Project Solution Desired

Show all headers | View raw

Is this what you mean?

Manipulate[With[{paperPricePerPage = 20/500,
   bindersPricePerBinder = 1,
   bindingPrice = 130,
   inkPricePerPage = 100/5000,
   printerPrice = 500,
   wholesaleDiscount = 0.7,
   libraryDiscount = 0.9,
   bulkDiscount = 0.9},
  Module[{wholesalePrice},
   nPages = Floor[nPages];
   nBooks = Floor[nBooks];
   wholesalePrice = profitMargin + nPages*paperPricePerPage +
     bindersPricePerBinder +
     inkPricePerPage + (bindingPrice + printerPrice)/nBooks;
   Grid[{{"Wholesale price", NumberForm[N[wholesalePrice], {10, 2}],
      "$"},
     {"Library/bulk price",
      NumberForm[
       libraryDiscount/wholesaleDiscount*wholesalePrice, {10, 2}],
      "$"},
     {"Retail price",
      NumberForm[wholesalePrice/wholesaleDiscount, {10, 2}], "$"}},
    Alignment -> {{Right, "."}}]]],
 {{nPages, 100, "Number of pages per book"}, Number},
 {{nBooks, 10, "Number of books"}, Number},
 {{profitMargin, 10, "Profit margin"}, Number}]

I've assumed that you also want the number of books being printed and that the profit margin is applied to the wholesale price.

Heike.

On 20 Apr 2011, at 09:30, BenT wrote:

> Say you have this problem:
>
> You want to sell a book with a $10 profit margin.
> Estimate the costs of materials:
> 1 ream = 500 sheets costing about $20);
> Plastic Coil Spiral Binder cost about $12 per dozen;
> One time cost of a binding machine of about $130;
> Ink cartridges cost about $100 per 5000 pages;
> One time Laser (b/w) Printer cost of about $500;
> Wholesale discount price should be 30% less than retail.
>   (i.e. for retailers, and distributors only)
> Library discount price should be 10% less than retail.
> A bulk-order discount of 10% is available for 10 or more copies.
>
> Solve set up the problem for the user to input the (1) number of pages
> of the book, and the desired (2) profit margin; and output the (1)
> wholesale trade discount 30%, the (2) library/bulk discount of 10%,
> and finally the needed (3) retail price to make the desired profit.
>
> Can anyone solve the problem in a Demonstration Project for version 7
> or >?
>
>

Back to comp.soft-sys.math.mathematica | Previous | Next | Find similar | Unroll thread

Thread

Re: Demonstration Project Solution Desired Heike Gramberg <heike.gramberg@gmail.com> - 2011-04-21 07:12 +0000

csiph-web