In[]:=
fx[t_]=Piecewise[{{0,t<=0},{(8/3)*(6*t^3-6*t^2+1),t<1/2},{(8/3)*(-2*(t-1)^3),t<1},{0,t>=1}}]
Out[]=
|
In[]:=
fy[t_]=Piecewise[{{0,t<=0},{(16/9)*Sqrt[3]-(16/3)*t+(64/27)*t^3,t<Sqrt[3]/2},{0,t>Sqrt[3]/2}}]
Out[]=
|
In[]:=
xDist=ProbabilityDistribution[fx[t],{t,0,1}]
Out[]=
ProbabilityDistribution
,{x.,0,1}
|
In[]:=
yDist=ProbabilityDistribution[fy[t],{t,0,Sqrt[3]/2}]
Out[]=
ProbabilityDistribution
,x.,0,
|
3
2
In[]:=
de=TransformedDistribution[Sqrt[(u-v)^2+(u-v)^2],{uxDist,vyDist}]
Out[]=
TransformedDistribution,uProbabilityDistribution
,{x.,0,1},vProbabilityDistribution
,x.,0,
2
2
(u-v)
|
|
3
2
In[]:=
dE[t_]=Evaluate[PDF[de,t],Assumptions->t<=1]
Out[]=
Sequence
,Assumptionst≤1
|