ตัวอย่าง 2 ขั้นตอน รันตามลำดับในหนึ่งเซสชัน ทุกขั้นถูกรันกับเอนจินจริง และเอาต์พุตด้านล่างคือสิ่งที่มันให้
rot[x_, y_] = Curl[{Cos[x + y ^ 3], Sin[y + x ^ 3]}, {x, y}];ไม่มีเอาต์พุต - ขั้นนี้ตั้งค่าบางอย่างไว้ให้ขั้นถัดไป
StreamDensityPlot[{{Cos[x + y ^ 3], Sin[y + x ^ 3]}, Log[Abs[rot[x, y]] + 1]}, {x, -2, 2}, {y, -2, 2}, StreamPoints -> Fine, ColorFunction -> "RedBlueTones", MaxRecursion -> 4, LightingAngle -> Automatic, StreamStyle -> Black, StreamColorFunction -> None]-Graphics-สูตรงานทั้งหมด · เอกสารอ้างอิงฟังก์ชัน · ใช้สิ่งนี้จากไคลเอนต์ MCP