function y = wbridgefun(x, pR, pT, pC)

% Function to accompany wbridgeopt.m

rR = (polyval(pR,x)-1)/(2-1);
rT = (4-polyval(pT,x))/(4-1);
rC = (polyval(pC,x)-125)/(520-125);
y = [rR, rT, rC];