(!******************************************************
Mosel graph examples
====================
file schedule.mos
`````````````````
Produces a Gantt chart with rectangles per task,
colored per job.
- Using SVG animation -
(only visible with browsers supporting SVG animation)
Uses functions from the mmsvg library to draw
a "User graph" in SVG format.
(c) 2008 Fair Isaac Corporation
Creation: 2002, rev. Sep. 2017
*******************************************************!)
model schedule
options noimplicit
uses "mmsystem","mmsvg"
declarations
NUMM=6
NUMJ=6
MACHINES=1..NUMM
JOBS=1..NUMJ
job: array(JOBS) of string
curmachine, curjobs, curt: integer ! Iterators
n1,n2,n3,mint,maxt: integer
DURANIM=10 ! Duration of animation in sec
SCALE=10 ! Display scaling factor
DFACT: real
axml: text
end-declarations
! svgsetgraphviewbox(0,0,60,7)
! Define graph colours
forall(j in JOBS) do
job(j):="J"+j
svgaddgroup(job(j), "Job "+j)
svgsetstyle(SVG_STROKE,SVG_GRAY)
svgsetstyle(SVG_FILL,SVG_CURRENT)
svgsetstyle(SVG_FILLOPACITY,0.8)
end-do
! Read data from file and draw a Gantt chart
fopen("schedule.dat",F_INPUT)
readln(mint,maxt)
DFACT:=DURANIM/(maxt-mint)
forall(i in MACHINES) do
readln(n1,n2) ! Read the machine number and number of jobs per machine
writeln("Machine ",n1," Jobs:",n2)
curmachine:=n1
curjobs:=n2
forall(j in 1..curjobs) do
readln(n1,n2,n3) ! Read the job number, start time, finish time
writeln("On machine ", curmachine," job ",n1," starts at ",n2,
" and finishes at ",n3)
svgaddrectangle(job(n1),n2,curmachine*10,n3-n2,0.5*10)
curt:=svggetlastobj
svgsetstyle(curt, SVG_VISIBILITY, "visible")
! Adding SVG animation changing the transparency level over time
axml:='<set attributeName="visibility" attributeType="CSS" to="hidden" begin="0s" dur="'+(n2-mint)*DFACT+'s"/>'+
'<set attributeName="visibility" attributeType="CSS" to="visible" begin="'+(n2-mint)*DFACT+'s" dur="'+(n3-n2)*DFACT+'s" fill="freeze"/>'+
if(n3<maxt,'<set attributeName="fill-opacity" attributeType="CSS" to="0.4" begin="'+(n3-mint)*DFACT+'s" dur="'+(DURANIM-(n3-mint)*DFACT)+'s"/>',"")
svgsetstyle(curt, SVG_ANIMATE, axml)
svgaddtext(job(n1),(3*n2+n3)/4,curmachine*10+1,"Job "+n1)
svgsetstyle(svggetlastobj,SVG_COLOR,SVG_BLACK)
end-do
end-do
fclose(F_INPUT)
! Draw a line indicating the makespan (=termination of the schedule)
svgaddgroup("Makespan", "Makespan", SVG_GREY)
svgaddtext(maxt, 6, "Makespan="+maxt)
svgsetstyle(svggetlastobj, SVG_TEXTANCHOR, "end")
svgaddline(maxt, 9, maxt, (NUMM+0.5)*10+1)
! Animate the line to move from 0 to the end of the schedule
svgsetstyle(svggetlastobj, SVG_ANIMATE, '<animate attributeName="x1" attributeType="XML" from="0" to="'+maxt*SCALE+'" begin="0s" dur="'+DURANIM+'s"/><animate attributeName="x2" attributeType="XML" from="0" to="'+maxt*SCALE+'" begin="0s" dur="'+DURANIM+'s"/>')
(! Equivalent:
svgsetstyle(svggetlastobj, SVG_ANIMATE, '<animateMotion path="M -'+maxt*SCALE+' 0 0 0" begin="0s" dur="'+DURANIM+'s" fill="freeze"/>')
!)
svgsetgraphscale(SCALE)
svgsetgraphlabels("Time", "Machines")
svgsave("schedule.svg")
svgrefresh
svgwaitclose("Close browser window to terminate model execution.", 1)
end-model
|
