Solutions des TPs
643
"somme"])
- sum(compte[compte$mode=="D´ ebit","somme"]),"euros.\n")
}
}
B- Organisation d’objets graphiques
6.1- Fen^ etre <- function(x=0,y=0,largeur=2,hauteur=2,log="") {
obj <- list(x=x,y=y,largeur=largeur,hauteur=hauteur,log=log)
class(obj) <- "Fen^ etre"
obj
}
6.2- Cercle <- function(x=0,y=0,rayon=0.5) {
cercle <- list(x=x,y=y,rayon=rayon)
class(cercle) <- "Cercle"
cercle
}
Rectangle <- function(x=0,y=0,largeur=1,hauteur=largeur) {
rectangle <- list(x=x,y=y,largeur=largeur,hauteur=hauteur)
class(rectangle) <- "Rectangle"
rectangle
}
6.3- plot.Fen^ etre <- function(obj) {
plot.new()
plot.window(xlim=obj$x+c(-1,1) * obj$largeur/2,
ylim=obj$y+c(-1,1) * obj$hauteur/2,obj$log,asp=1)
}
plot.Rectangle <- function(rectangle) {
rect(rectangle$x-rectangle$largeur/2,
rectangle$y-rectangle$hauteur/2,
rectangle$x+rectangle$largeur/2,
rectangle$y+rectangle$hauteur/2)
}
plot.Cercle <- function(cercle) {
symbols(cercle$x,cercle$y,circle=cercle$rayon,
inches=FALSE,add=TRUE)
}
6.4- fen^ etre <- Fen^ etre(0,0,2,2)
cercle <- Cercle(0,0,.5)