code 41751;
real procedure UNIFORMDENS(X, A, B);
value X, A, B; real X,A,B;
begin
    if B ≤ A
    then STATAL3ERROR(“UNIFORMDENS”, 2, B);
    UNIFORMDENS:= if X ≤ A ∨ X > B
    then 0 else 1 / (B - A)
end UNIFORMDENS;
eop