Rent or buy: a break-even model

Робочий процес 5 кроків, що виконуються по порядку в одній сесії. Кожен крок було виконано на рушії, і вивід нижче — те, що він дав.

Крок 1

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

Немає виводу — цей крок готує щось для наступного.

Крок 2

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

Вивід

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

Крок 3

D[m /. breakEven, rent]

Вивід

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

Крок 4

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

Вивід

200.

Крок 5

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

Вивід

-Graphics-

Використані функції

Rent or buy: a break-even model