Question: How to plot density graph and distribution graph for this distribution function

with(Statistics):

F := ((1/6)*z+(1/3)*z^2)/(1+(1/6)*z+(1/3)*z^2);

Dist := subs(z=t,F);

RealDist := Distribution(CDF = unapply(Dist(t-1),t)); # using this Distribution for Maple DistributionX:=RandomVariable(RealDist); # Random Variable

Pgraph := DensityPlot(X, range = -1 .. 1);

A := Sample(X, 1):

when i look help example, it has a very high range 3500,

when i want to change the range to small , it run very long time at Sample function like endless

Please Wait...