Alur kerja 5 langkah, dijalankan berurutan dalam satu sesi. Setiap langkah dieksekusi pada mesin dan keluaran di bawah adalah apa yang dihasilkannya.
balance[principal_, monthly_, rate_, months_] := principal (1 + rate)^months + monthly ((1 + rate)^months - 1)/rateTanpa keluaran - langkah ini menyiapkan sesuatu untuk langkah berikutnya.
after30years = N[balance[20000, 500, 0.07/12, 360]]772315.4473951627doublingYears = N[Log[2]/(12 Log[1 + 0.07/12])]9.930955714667654N[D[balance[20000, 500, r/12, 360], r] /. r -> 0.07]1.687752907426951*^7Plot[balance[20000, 500, r/12, 360], {r, 0.02, 0.10}]-Graphics-