author | Mathieu Lacage <mathieu.lacage@sophia.inria.fr> |
Tue, 06 Nov 2007 15:11:22 +0100 | |
changeset 2082 | d041fc198aad |
parent 2080 | 3e7ccbe1815c |
permissions | -rw-r--r-- |
2076
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
1 |
/* -*- Mode:C++; c-file-style:"gnu"; indent-tabs-mode:nil; -*- */ |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
2 |
/* |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
3 |
* Copyright (c) 2007 INRIA |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
4 |
* |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
5 |
* This program is free software; you can redistribute it and/or modify |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
6 |
* it under the terms of the GNU General Public License version 2 as |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
7 |
* published by the Free Software Foundation; |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
8 |
* |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
9 |
* This program is distributed in the hope that it will be useful, |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
10 |
* but WITHOUT ANY WARRANTY; without even the implied warranty of |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
11 |
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
12 |
* GNU General Public License for more details. |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
13 |
* |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
14 |
* You should have received a copy of the GNU General Public License |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
15 |
* along with this program; if not, write to the Free Software |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
16 |
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
17 |
* |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
18 |
* Author: Mathieu Lacage <mathieu.lacage@sophia.inria.fr> |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
19 |
*/ |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
20 |
#include "gnuplot.h" |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
21 |
#include <ostream> |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
22 |
|
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
23 |
namespace ns3 { |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
24 |
|
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
25 |
GnuplotDataset::GnuplotDataset (std::string title) |
2080
3e7ccbe1815c
add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
2078
diff
changeset
|
26 |
: m_title (title), |
3e7ccbe1815c
add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
2078
diff
changeset
|
27 |
m_style (LINES) |
2076
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
28 |
{} |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
29 |
void |
2080
3e7ccbe1815c
add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
2078
diff
changeset
|
30 |
GnuplotDataset::SetStyle (enum Style style) |
3e7ccbe1815c
add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
2078
diff
changeset
|
31 |
{ |
3e7ccbe1815c
add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
2078
diff
changeset
|
32 |
m_style = style; |
3e7ccbe1815c
add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
2078
diff
changeset
|
33 |
} |
3e7ccbe1815c
add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
2078
diff
changeset
|
34 |
void |
2076
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
35 |
GnuplotDataset::Add (double x, double y) |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
36 |
{ |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
37 |
m_dataset.push_back (std::make_pair (x,y)); |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
38 |
} |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
39 |
|
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
40 |
Gnuplot::Gnuplot (std::string pngFilename) |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
41 |
: m_pngFilename (pngFilename) |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
42 |
{} |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
43 |
|
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
44 |
Gnuplot::~Gnuplot () |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
45 |
{ |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
46 |
for (Datasets::const_iterator i = m_datasets.begin (); i != m_datasets.end (); i++) |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
47 |
{ |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
48 |
delete *i; |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
49 |
} |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
50 |
m_datasets.clear (); |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
51 |
} |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
52 |
|
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
53 |
void |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
54 |
Gnuplot::AddDataset (const GnuplotDataset &dataset) |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
55 |
{ |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
56 |
m_datasets.push_back (new GnuplotDataset (dataset)); |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
57 |
} |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
58 |
|
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
59 |
void |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
60 |
Gnuplot::GenerateOutput (std::ostream &os) |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
61 |
{ |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
62 |
os << "set terminal png" << std::endl; |
2078
4c8e0469448d
generate correct output. avoid infinite loop.
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
2076
diff
changeset
|
63 |
os << "set output '" << m_pngFilename << "'" << std::endl; |
2076
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
64 |
os << "plot "; |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
65 |
for (Datasets::const_iterator i = m_datasets.begin (); i != m_datasets.end ();) |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
66 |
{ |
2078
4c8e0469448d
generate correct output. avoid infinite loop.
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
2076
diff
changeset
|
67 |
os << "'-' title '" << (*i)->m_title << "'"; |
2080
3e7ccbe1815c
add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
2078
diff
changeset
|
68 |
switch ((*i)->m_style) { |
3e7ccbe1815c
add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
2078
diff
changeset
|
69 |
case GnuplotDataset::LINES: |
3e7ccbe1815c
add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
2078
diff
changeset
|
70 |
os << " with lines"; |
3e7ccbe1815c
add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
2078
diff
changeset
|
71 |
break; |
3e7ccbe1815c
add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
2078
diff
changeset
|
72 |
case GnuplotDataset::POINTS: |
3e7ccbe1815c
add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
2078
diff
changeset
|
73 |
os << " with points"; |
3e7ccbe1815c
add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
2078
diff
changeset
|
74 |
break; |
3e7ccbe1815c
add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
2078
diff
changeset
|
75 |
case GnuplotDataset::LINES_POINTS: |
3e7ccbe1815c
add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
2078
diff
changeset
|
76 |
os << " with linespoints"; |
3e7ccbe1815c
add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
2078
diff
changeset
|
77 |
break; |
3e7ccbe1815c
add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
2078
diff
changeset
|
78 |
case GnuplotDataset::DOTS: |
3e7ccbe1815c
add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
2078
diff
changeset
|
79 |
os << " with dots"; |
3e7ccbe1815c
add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
2078
diff
changeset
|
80 |
break; |
3e7ccbe1815c
add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
2078
diff
changeset
|
81 |
case GnuplotDataset::IMPULSES: |
3e7ccbe1815c
add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
2078
diff
changeset
|
82 |
os << " with impulses"; |
3e7ccbe1815c
add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
2078
diff
changeset
|
83 |
break; |
3e7ccbe1815c
add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
2078
diff
changeset
|
84 |
case GnuplotDataset::STEPS: |
3e7ccbe1815c
add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
2078
diff
changeset
|
85 |
os << " with steps"; |
3e7ccbe1815c
add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
2078
diff
changeset
|
86 |
break; |
3e7ccbe1815c
add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
2078
diff
changeset
|
87 |
case GnuplotDataset::FSTEPS: |
3e7ccbe1815c
add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
2078
diff
changeset
|
88 |
os << " with fsteps"; |
3e7ccbe1815c
add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
2078
diff
changeset
|
89 |
break; |
3e7ccbe1815c
add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
2078
diff
changeset
|
90 |
case GnuplotDataset::HISTEPS: |
3e7ccbe1815c
add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
2078
diff
changeset
|
91 |
os << " with histeps"; |
3e7ccbe1815c
add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
2078
diff
changeset
|
92 |
break; |
3e7ccbe1815c
add style support
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
2078
diff
changeset
|
93 |
} |
2076
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
94 |
i++; |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
95 |
if (i != m_datasets.end ()) |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
96 |
{ |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
97 |
os << ", "; |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
98 |
} |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
99 |
} |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
100 |
os << std::endl; |
2078
4c8e0469448d
generate correct output. avoid infinite loop.
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
2076
diff
changeset
|
101 |
for (Datasets::const_iterator i = m_datasets.begin (); i != m_datasets.end (); i++) |
2076
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
102 |
{ |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
103 |
for (GnuplotDataset::Dataset::const_iterator j = (*i)->m_dataset.begin (); |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
104 |
j != (*i)->m_dataset.end (); j++) |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
105 |
{ |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
106 |
os << j->first << " " << j->second << std::endl; |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
107 |
} |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
108 |
os << "e" << std::endl; |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
109 |
} |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
110 |
} |
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
111 |
|
e95e6a0130cb
generate gnuplot-compatible data script files
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
112 |
} // namespace ns3 |