Correction of previous MAIL !

Hartwig Jeschke (jeschke@mst.uni-hannover.de)
Tue, 28 Apr 1998 18:00:03 +0200 (MET DST)

ow with the correct Function-Header:

function MemberShip(X: Real, A: FuzzyInterval) : Real;
Begin
Result := 0.0;

if (x > A.m1-A.a) and (x < A.m1) then

Result := (x - A.m1 + A.a)/ A.a;

if (x >= A.m1) and (x <= A.m2) then

Result := 1.0 ;

if (x > A.m2) and (x < A.m2 +A.b) then

Result := 1.0 + (A.m2 - x) / A.b;
End;N