Rent or buy: a break-even model

Flujo de trabajo 5 pasos, ejecutados en orden en una sola sesión. Cada paso se ejecutó contra el motor y la salida de abajo es lo que produjo.

Paso 1

rentCost[m_] := rent m
buyCost[m_] := closing + (payment + maintenance) m

Sin salida - este paso prepara algo para el siguiente.

Paso 2

breakEven = First[Solve[rentCost[m] == buyCost[m], m]]

Salida

{m -> closing/(-maintenance - payment + rent)}

Paso 3

D[m /. breakEven, rent]

Salida

-(closing/(-maintenance - payment + rent)^2)

Paso 4

assumptions = {closing -> 40000, maintenance -> 500, rent -> 2600, payment -> 1900};
monthsToBreakEven = N[m /. breakEven /. assumptions]

Salida

200.

Paso 5

Plot[{rentCost[m] /. assumptions, buyCost[m] /. assumptions}, {m, 0, 300}]

Salida

-Graphics-

Rent or buy: a break-even model

Funciones usadas