I just purchased two tickets to see The Dark Knight Rises! TDKR 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!

Click here to watch a 13 minute featurette.

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])

Advertisements