close all

dexppdf = @(x, b) 1/2 .* exppdf(abs(x),b);
dexpcdf = @(x, b) 1/2 + sign(x)/2 .* expcdf(abs(x), b);
dexpinv = @(p, b) sign(2*p-1) .* expinv(abs(2 * p - 1), b);

scale= 1
x = -5:0.05:5;
figure(1)
subplot(211)
 plot(x, dexppdf(x, scale));
 subplot(212)
 plot(x, dexpcdf(x,scale));
 figure(2)
 p = 0:0.001:1;
 plot(p, dexpinv(p, scale));
 