Hilbert's 13th Problem

Pensieve Header: Hilbert's 13th problem - Step 1 (2014 Branch).

SetDirectory["C:/drorbn/AcademicPensieve/2014-11/H13/"];
<< "../../2009-11/Hilbert13th-Program.m"

phi5:= Phi[phi0, 5, 0.1, 0.8];
g=G[f, phi5];

Timing[
Step1Cascade=Rasterize[
Plot3D[phi5[x]+λ*phi5[y], {x,0,1}, {y,0,1},
PlotPoints -> 51, Mesh -> 14, Exclusions -> None, ViewPoint -> {-2,-2,1}, AxesLabel ->Automatic,  ColorFunction -> Automatic, ColorFunctionScaling->True
]
]
]

Export[
"Step1Cascade.png",
ImageCrop[Step1Cascade]
]