مثال 2 خطوات تُشغَّل بالترتيب في جلسة واحدة. كل خطوة نُفِّذت على المحرك والمخرج أدناه هو ما أنتجته.
div[x_, y_] = Div[{Cos[x + y ^ 3], Sin[y + x ^ 3]}, {x, y}];لا مخرجات - هذه الخطوة تجهّز شيئًا للخطوة التالية.
StreamDensityPlot[{{Cos[x + y ^ 3], Sin[y + x ^ 3]}, div[x, y]}, {x, -2, 2}, {y, 0, 2}, StreamPoints -> Fine, ColorFunction -> "MintColors", MaxRecursion -> 2, StreamStyle -> Black, StreamColorFunction -> None]-Graphics-