自己尝试编写了程序，可是无法运行~希望高手帮忙，万分感谢！
Title "mine";
Parameters t1[0.01,0.03],t2[0.03,0.1],t3[0.1,0.4],p1,p2,p3,p4,p5,p6,p7,p8;
Variable x,y[Output];
StartProgram;
var i:integer;
begin
for i:=0 to DataLength-1 do begin
if 0<=x[i]<t1 then y[i]:=p1+p2*x[i]
elseif t1<=x[i]<t2 then y[i]:=p3+p4*x[i]
elseif t2<=x[i]<t3 then y[i]:=p5+p6*x[i]
else p7+p8*x[i];
End;
end;
EndProgram;
Data;
0        3.826666667
0.01        2.440748663
0.017        1.878161616
0.022        1.602740741
0.055        0.834962963
0.062        0.748995293
0.121        0.458316669
0.196        0.329026006
0.261        0.242852162
0.344        0.188457624
0.642        0.071180651
0.81        0.038463303
1.068        0