Commit 1bf4e834 authored by POTTIER Francois's avatar POTTIER Francois
Browse files

One more plot.

parent 13fc6ce1
...@@ -7,11 +7,11 @@ mydata <- read.csv("data.csv") ...@@ -7,11 +7,11 @@ mydata <- read.csv("data.csv")
# ------------------------------------------------------------------------------ # ------------------------------------------------------------------------------
# Plot the LR(1) construction time. # Plot LR(1) construction time as a function of the number of LR(1) states.
myplot <- myplot <-
ggplot( ggplot(
subset(mydata, lr1time >= 0.1), subset(mydata, lr1time >= 0.05),
aes(x=lr1states, y=lr1time) aes(x=lr1states, y=lr1time)
) + ) +
geom_point(size=2) + geom_point(size=2) +
...@@ -24,6 +24,23 @@ ggsave("lr1states-lr1time.pdf", myplot, width=12, height=8, units="cm") ...@@ -24,6 +24,23 @@ ggsave("lr1states-lr1time.pdf", myplot, width=12, height=8, units="cm")
# ------------------------------------------------------------------------------ # ------------------------------------------------------------------------------
# Plot LR(1) construction time as a function of the number of terminal symbols.
myplot <-
ggplot(
subset(mydata, lr1time >= 0.05),
aes(x=terminals, y=lr1time)
) +
geom_point(size=2) +
# scale_x_log10() +
# scale_y_log10() +
xlab("# terminals") +
ylab("LR(1) construction time (seconds)")
ggsave("terminals-lr1time.pdf", myplot, width=12, height=8, units="cm")
# ------------------------------------------------------------------------------
# Plot the numbers of terminal and nonterminal symbols. # Plot the numbers of terminal and nonterminal symbols.
myplot <- myplot <-
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment