You are currently browsing the tag archive for the ‘bat-insignia’ tag.

I just purchased two tickets to see The Dark Knight Rises! Considering my wife and I have not been to a movie theater since our daughter was born 16 months ago, we are both very excited to see this movie on the big screen!

Now for some fun math. Here is what you get when you type bat-insignia in WolframAlpha:

To generate the bat-insignia in Sage use the following code:
 x,y = var('x,y') f1 = ((x/7)^2*sqrt((abs(abs(x)-3))/(abs(x)-3))+(y/3)^2*sqrt((abs(y+3*sqrt(33)/7)/(y+3*sqrt(33)/7)))-1) f2 = abs(x/2)-(3*sqrt(33)-7)/112*x^2-3+sqrt(1-(abs(abs(x)-2)-1)^2)-y f3 = 9*sqrt(abs((abs(x)-1)*(abs(x)-0.75))/((1-abs(x))*(abs(x)-0.75)))-8*abs(x)-y f4 = -y+3*abs(x)+0.75*sqrt(abs((abs(x)-0.75)*(abs(x)-0.5))/(-(abs(x)-0.75)*(abs(x)-0.5))) f5 = 2.25*sqrt(abs((x-0.5)*(x+0.5))/(-(x-0.5)*(x+0.5)))-y f6 = 6*sqrt(10)/7+(1.5-0.5*abs(x))*sqrt(abs(abs(x)-1)/(abs(x)-1))-6*sqrt(10)/14*sqrt(4-(abs(x)-1)^2)-y f=[f1,f2,f3,f4,f5,f6] num = 2000 sum([implicit_plot(g,(x,-8,8),(y,-5,5),plot_points=num)for g in f])