User Portlet User Portlet

Discussions
Try: NMinimize[{ch[a1, x], 10^(-11)