Terrain8

3D Model

a = 10; k = 1; freq = Table[2 RandomReal[], 15]; f[x_, y_, z_] = Sum[Sin[x freq[[i]]] + Sin[y freq[[i + 1]]] + Sin[z freq[[i + 2]]], {i, 1, Length[freq] - 2}] - z^1.4;