Aliran kerja 5 langkah, dijalankan mengikut urutan dalam satu sesi. Setiap langkah dilaksanakan terhadap enjin dan output di bawah ialah apa yang dihasilkannya.

Langkah 1

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

Tiada output - langkah ini menyediakan sesuatu untuk langkah seterusnya.

Langkah 2

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

Output

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

Langkah 3

D[m /. breakEven, rent]

Output

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

Langkah 4

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

Output

200.

Langkah 5

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

Output

-Graphics-

Jalankan ini di Qurak Semua resipi

Rent or buy: a break-even model

Fungsi yang digunakan

Resipi berkaitan