工作流 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

用到的函数