function [val,abl] = poly4_fnc(x)

%val = 5*x^4+x^3+3*x^2-5*x-2;

b = 5;
c = 5;
b = 1 + b*x;
c = b + c*x;
b = 3 + b*x;
c = b + c*x;
b = -5 +b*x;
abl = b + c*x;
val = -2 +b*x;

