par(mfrow=c(1,2), mar=c(.1,.1,.1,.1))
plot(c(1,2,3,3), c(2,2,3,1), cex=5,
xlim=c(0,5), ylim=c(0,4), axes=F, asp=1)
segments(c(.5,1.3,2.3, 2.3, 3.3,3.3,4),
c(2, 2, 2, 2,2.9, .9,2),
c(.7, 1.7, 2.7, 2.7, 4, 4,4.5),
c(2,2,2.9,.9,2,2,2))
text(c(1,2,3,3), c(2,2,3,1), LETTERS[1:4])
plot(c(3,5,3,5), c(3,3,1,1), cex=5,
xlim=c(1.5,6.5), ylim=c(0,4), axes=F, asp=1)
segments(c(1.5, 2, 2, 3.3, 3.3, 5.3, 5.3, 6),
c(2,2,2, 3,1, 3,1, 2),
c(2, 2.7,2.7, 4.7,4.7, 6,6,6.5),
c(2,3,1,3,1,2,2,2))
text(c(3,5,3,5), c(3,3,1,1), LETTERS[1:4])
A probabilidade de falha de cada componente (A, B, C e D) é a, b, c e d, respectivamente.