Commit 39090c32 authored by MIJIEUX Thomas's avatar MIJIEUX Thomas

Add function to plot time spent in ortho,MVP, and LeastSquare

parent b98831fb
......@@ -30,12 +30,24 @@ plot_fabulous <- function(df) {
p <- ggplot(df, aes(nb_mvp)) +
geom_line(aes(y=minRes, color=ID1)) +
geom_line(aes(y=maxRes, color=ID2)) #+
geom_line(aes(y=maxRes, color=ID2)) +
geom_hline(aes(yintercept=1e-7, color="threshold"))
##geom_line(aes(y=minRealRes, color=ID3)) +
##geom_line(aes(y=maxRealRes, color=ID4))
pl = p + scale_y_log10()
return (pl);
}
pl <- plot_fabulous(df) +ggtitle("nbRHS=100")
pl
plot_time <- function(df) {
p <- ggplot(df, aes(global_iteration)) +
geom_line(aes(y=time, color="time")) +
geom_line(aes(y=least_square_time, color="least_square_time")) +
geom_line(aes(y=mvp_spent, color="mvp_time")) +
geom_line(aes(y=ortho_spent, color="ortho_time"))
}
## pl <- plot_fabulous(df) + ggtitle("Matcone (dim=1320, nbRHS=26)")
## pl
pl <- plot_time(df)
pl + ggtitle("Arnoldi std")
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