Diffing "PPath II" and "m,"

Title: PPath II m,
Author: Per Rutquist Imre Polik
Submitted: 2003-11-06 12:13:13 UTC 2003-11-06 12:17:47 UTC
Status: Failed Failed
Score:
Result:
CPU Time:
Code:
d = b*[1;i];
p = ~~b(:,1);
f = abs(p*d.'-d*p');
h = p'/0;
h(1) = 0;
for j=h
    [h, r] = min((p*h+f./a+~f)');
end
[x,c]=max(h);
[x c]=max(h);
while(c(1)>1)
  c=[r(c(1)) c];
end