p_unstable <- seq(0, 1, by=0.1)
plot(x = rep(1,length(p_unstable)), y = p_unstable,
col = getColoursStability(p_unstable), pch = 19, cex = 3)
critical_crack_length <- c(seq(0.2, 0.8, by=0.1), 1.5, 2.5)
plot(x = rep(1,length(critical_crack_length)), y = critical_crack_length, pch = 19, cex = 3,
col = getColoursStability(critical_crack_length, StabilityIndexThreshold = 0.4,
StabilityIndexRange = c(0, 3), invers = TRUE))
Run the code above in your browser using DataLab