Malditos anarquistas

Ae, acabou o semestre, agora deve sobrar mais tempo para voltar a postar algumas coisas por aqui. Por enquanto eu não escrevi nada, mas vi essa imagem na internet hoje.

anarquia

Ai eu fiquei meio intrigado, e foi ver do que se tratava, já que ninguém tomava a liberdade.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
lx<-function(x){
    2+sqrt(-(x-2)^2+1)
}
gx<-function(x){
    2-sqrt(-(x-2)^2+1)
}
hx<-function(x){
    3*x-3
}
ix<-function(x) {
    -3*x+9
}
jx<-function(x){
    0.2*x+1.7
}

Criando as equações no R, podemos resolver elas e colocar o resultado em um gráfico.

1
2
3
x<-seq(0.5,3.5,0.1)
y<-data.frame(l=lx(x),g=gx(x),h=hx(x),i=ix(x),j=jx(x))
matplot(x,y,type="l",lty=1,lwd=4,col="red")

E vemos o seguinte.

anarquiaplot

Realmente, é uma pichação de anarquistas hehe.