The infamous Weierstrass function is an example of a function that is continuous but completely undifferentiable.

`(* runtime: 0.7 second *)`

Plot3D[Sum[Sin[Pi k^a x]/(Pi k^a), {k, 1, 50}], {x, 0, 1}, {a, 2, 3}, PlotPoints -> 100];

### Like this:

Like Loading...

*Related*

your blog is incredible! 😀

Great blog! What machine do you have?! For my Mathematica it took about 3 minutes… (Intel C2D 2,16GHz, 2.5GB RAM). I guess the MathGL3D gives you the speed up, am right?

I don’t know why it takes longer to run on your machine. I am using Mathematica 4.2 on a laptop with AMD Dual-Core, 2 GHz 512 K processor and 1GB memory, and it takes about 0.7 second. It used to be a little bit slower on my previous laptop, but not much slower:

Plot3D[Sum[Sin[Pi k^a x]/(Pi k^a), {k, 1, 50}], {x, 0, 1}, {a, 2, 3}, PlotPoints -> 100]

Uhm, I have no idea what you are talking about in your posts. You got pretty pictures though. (:D). I’m going to be an chemical engineer, so i guess this is what engineers do. It looks funnn!!! (even though I don’t understand any of it.) Too bad you don’t have an about page. I can’t keep reading, my brain will explode. But I’m subscribing.

Somehow i missed the point. Probably lost in translation 🙂 Anyway … nice blog to visit.

cheers, Senescence.

Mm very impressive math animations! I’m interested in fractal animations now, and all stuff in your blog are kind of it. Thanx for all infos, all the best 🙂

Just surfed in. Great blog Paul, a pleasure to have viewed it.

VERY NICE BLOG!!!!

i will recommend it to many of my friends 😀