Hello Noli, another fancy plot of transp.mod can be generated by adding the following lines to the model:
solve;
printf '' > 'transp.dat';
for { i in I } {
for { j in J } {
printf '%i "%s"', sum{k in I: k < i} 1, i >> 'transp.dat';
printf ' %i "%s"', sum{l in J: l < j} 1, j >> 'transp.dat';
printf ' %f', x[i,j] >> 'transp.dat';
printf '\n' >> 'transp.dat';
printf '%i "%s"', sum{k in I: k < i} 1, i >> 'transp.dat';
printf ' %i "%s"', sum{l in J: l <= j} 1, '' >> 'transp.dat';
printf ' %f', x[i,j] >> 'transp.dat';
printf '\n' >> 'transp.dat';
}
printf '\n' >> 'transp.dat';
for { j in J } {
printf '%i "%s"', sum{k in I: k <= i} 1, '' >> 'transp.dat';
printf ' %i "%s"', sum{l in J: l < j} 1, j >> 'transp.dat';
printf ' %f', x[i,j] >> 'transp.dat';
printf '\n' >> 'transp.dat';
printf '%i "%s"', sum{k in I: k <= i} 1, '' >> 'transp.dat';
printf ' %i "%s"', sum{l in J: l <= j} 1, '' >> 'transp.dat';
printf ' %f', x[i,j] >> 'transp.dat';
printf '\n' >> 'transp.dat';
}
printf '\n' >> 'transp.dat';
}
data;
set I := San-Diego Seattle;
set J := Chicago New-York Topeka;
And calling gnuplot with
reset
set terminal png font "Arial, 16" transparent size 800,800
set output "transp.png"
set title 'Result of transp.mod'
set xtic offset first .5, first -.25, first 0 mirror
set ytic offset first .25, first .5, first 0 mirror
set nokey
set pm3d
set palette gray
set grid x y z
splot 'transp.dat' using 1:3:5:xtic(2):ytic(4) with pm3d
exit
Resulting in the appended image.
Best regards
Xypron
--
GRATIS für alle GMX-Mitglieder: Die maxdome Movie-FLAT!
Jetzt freischalten unter http://portal.gmx.net/de/go/maxdome
<<attachment: transp.png>>
_______________________________________________ Help-glpk mailing list [email protected] http://lists.gnu.org/mailman/listinfo/help-glpk
