Rent or buy: a break-even model

ワークフロー 5 ステップを1つのセッション内で順に実行します。各ステップはエンジンで実行済みで、以下の出力は実際に生成されたものです。

ステップ 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

使用する関数