Question: Missing Shift+Enter

Hi

I read a lot of guides, forums and etc, i've been trying to add/remove shiftenters and i've got always the same error. Every parenthesis is checked. Please tell me, where is the mistake?

[code] restart:
gen:=proc(x0,a,b,M,n)
local i,x,r,d,j,f;
r:= Vector(n);
d:= Vector(n);
f:= Vector(n);
x:= x0;
for i to n do
x:=irem(a+x*b,M);
r[i]:=2*evalf(x/M);
f[i]:=evalf(x/M);
if r[i]>1 then
d[i]:=sqrt(2*evalf(Pi))*exp(-2*(r[i]-1))*2*exp(-(r[i]-2)^2/2);
else
d[i]:=2*sqrt(2/evalf(Pi))*exp(-r[i]^2/2);
end if;
for i to n do
if d[i]<2/3 then
for j to infinity
while d[i]<=exp(-f[j] ^2/2) do
d[i]:=f[j]
end do;
else for j to infinity
while d[i]<=exp(-(exp(-2*(f[j]-1))*2-2)^2/2) do
d[i]:=f[j]
end do;
end if;
end do;
return (d);
end;

Warning, premature end of input, use <Shift> + <Enter> to avoid this message.
[/code]
 

Please Wait...