SOLVE for Function Vectors

[roadrunner]

Will something like this work:

Code:

EXPORT PUMP1(X)
BEGIN
 LOCAL h,a;
 h:=2.89237307957ᴇ−8*X^4-2.24570549144ᴇ−5*X^3+4.67273696234ᴇ−3*X^2-0.311626877884*X+175;
 LOCAL Eff;
 Eff:=8.58164056499ᴇ−8*X^3-1.00216261706ᴇ−3*X^2+0.480844232375*X-0.029541916438;
 LOCAL PWR;
 PWR:=0.25415412597*X+68.328377716;
 a:={"h(m)",h,"Eff(%)",Eff,"SHP(kW)",PWR};
 RECT();
 TEXTOUT(a(1),−10,10);
 TEXTOUT(a(2),0,10);
 TEXTOUT(a(3),−10,8);
 TEXTOUT(a(4),0,8);
 TEXTOUT(a(5),−10,6);
 TEXTOUT(a(6),0,6);
 WAIT(0);
 RETURN a;
END;