(* Hier die 4 Integranden ohne Variabelnsubstitution*)
    '1': f:= x*exp(-x)/(1+exp(-x));                      (* a=0 b=unedl.*)
    '2': f:= arctan(x)/sqr(x+1);                         (* a=0 b=unedl.*)
    '3': f:= (x*x*x+1)/(1+sqr(x)*(1+x*x*x));             (* a=0 b=unedl.*)
    '4': f := exp(-x/2)/x;                               (* a=1 b=unedl.*)

(* Integrand a) nach der Substitution t = exp(-x) : *)
    'a': IF x=0 THEN f:=0 ELSE f:=-ln(x)/(1+x);            (* a=0 b=1 *)

(* Integrand b) nach Substitution t = 1/(x+1) :     *)
    'b': IF x=0 THEN f:=0 ELSE f:= arctan(1/x-1);          (* a=0 b=1 *)

(* Integrand c) nach der Substitution t = exp(-x) : *)
    'c': BEGIN
            h1 := 1-x; h2 := sqr(h1); h3 := h1*h2;
            f := (h3+x*x*x)/(sqr(sqr(x))*x+h2*x*x*x+h2*h3) (* a=0 b=1 *)
         END;

 (* Integrand d) mittels Substitution t = 1/x *)
    'd': IF (x=0) OR (1/160>x) THEN f:=0 ELSE f:=exp(-1/2/x)/x;            (* a=0 b=1 *)