Alur kerja 5 langkah, dijalankan berurutan dalam satu sesi. Setiap langkah dieksekusi pada mesin dan keluaran di bawah adalah apa yang dihasilkannya.
payment[principal_, rate_, months_] := principal (rate/12)/(1 - (1 + rate/12)^(-months))Tanpa keluaran - langkah ini menyiapkan sesuatu untuk langkah berikutnya.
current = N[payment[400000, 0.065, 360]]2528.272093971862N[payment[400000, 0.08, 360]] - current406.7862015456485perPercentagePoint = N[D[payment[400000, r, 360], r] /. r -> 0.065]/100263.0602719400421Plot[payment[400000, r, 360], {r, 0.03, 0.10}]-Graphics-