# Fonction générique dessinant un graphe
plot_normal_law <- function(min,max,mu,sigma,color)
{
x <- seq(min,max, length=1000)
fx <- dnorm(x,mean=mu,sd=sigma)
plot(fx~x, type='l',col=color)
}
# Plot en k frames de k lois Normales
nblaws=3
par(mfrow=c(1,nblaws))
plot_normal_law(0,6,3.4,0.5,"blue")
plot_normal_law(0,6,3.2,0.5,"red")
plot_normal_law(-2,2,0.2,0.5,"green")