ถ้าอยากรู้ว่าโปรแกรมที่เขียนมันคำนวณใกล้เสร็จแล้วยัง ลองประยุกต์ใช้ ProgressIndicator (สำหรับ Mathematica 6.0 ขึ้นไป) ดูครับ
รูปแบบคำสั่ง ProgressIndicator ที่จะแนะนำคือ
ProgressIndicator[ Dynamic[x], {xmin, xmax}]
โดย x คือตัวแปรที่เราใช้ควบคุมความยาวของแถบ indicator
xmin,xmax คือค่าเริ่มต้นกับค่าท้ายสุดของ x จากการรันโปรแกรมของเราครับ
การเอาไปใช้ เช่น ถ้าเรามีโปรแกรมที่คำนวณชื่อ LongLongRun[runsteps_Integer] ที่มีรูปแบบตามนี้
LongLongRun[runsteps_Integer]:=Module[{index,tmp},
For[index=1,index<=runsteps,index++,
Pause[1];
];
tmp=”Finished !”;
tmp
];
เราสามารถประยุกต์ใช้ ProgressIndicator ได้ด้วยการประกาศตัวแปรสำหรับควบคุมความยาวของแถบ indicator ขึ้นมา เช่นชื่อ progress = 0; แล้วให้ค่ามันเท่ากับ index ที่ใช้ใน for loop ดังนั้น โปรแกรม LongLongRun จะมีบรรทัด progress = index; เพิ่มเข้าไป
LongLongRun[runsteps_Integer]:=Module[{index,tmp},
For[index=1,index<=runsteps,index++,
progress=index;
Pause[1];
];
tmp=”Finished !”;
tmp
];
ทดลองrun
