weierstrassP(x_,0,g_):=6/x^2;