how replace inf too 1

10001^(1/2)*Inf*(100/10001 - 1i/10001)

[rodrigo figueiredo]

10*dirac(w - 120)/(100+i)

[rodrigo figueiredo]

10001^(1/2)*1*(100/10001 - 1i/10001)

[rodrigo figueiredo]

f(x)=10001^(1/2)*dirac(x-10)*(100/10001 - 1i/10001)

f(10)=10001^(1/2)*Inf*(100/10001 - 1i/10001)

but i want

10001^(1/2)*1*(100/10001 - 1i/10001)

[rodrigo figueiredo]

function p=dirac(x)

end
if x == 0
    p=1
else
    p=0
end

[rodrigo figueiredo]

int(dirac(x - a)*sin(x), x, -Inf, Inf)

[rodrigo figueiredo]

syms a x
Q=dirac(x - 10.5*pi)*sin(x)*(10+i)
int(real(Q), x, -Inf, Inf)