model:
sets:
wen/1..100/:x,y;
endsets
data:
a=-5;
a0=0.1;
enddata
[email=y1=@user(a]y1=@user(a[/email]);
calc:
@SET('TERSEO', 2);
@for(wen(i):
   x(i)=a;
   @solve();
   y(i)=y1;
   a=a+a0;   
   );
@ole('f:wen.xls',"y")=y;
@ole('f:wen.xls',"x")=x;
endcalc
end