% Sitzung S. 230
format long;

function y=f2(t)
   global alfa
   z=t+i*t.*(2-t); dz=1+2i*(1-t);
   y=real(-i*exp(alfa*(log(z)+i./(2-z))).*dz);
end
global alfa; alfa=pi/4;
quad_options('abs',1e-10); quad_options('rel',0);
[ans,ierr,neval,error]=quad('f2',0,2)