In[]:=
NExpectation[tr>p>(1/2*t^2+1/2*s^2)^(1/2),{tUniformDistribution[{0,1}],rUniformDistribution[{0,1}],pUniformDistribution[{0,1}],sUniformDistribution[{0,1}]}]
NExpectation
:Invalid input.
Out[]=
0.346539
In[]:=
NExpectation[tr>(1/2*t^2+1/2*s^2)^(1/2),{tUniformDistribution[{0,1}],rUniformDistribution[{0,1}],pUniformDistribution[{0,1}],sUniformDistribution[{0,1}]}]
Out[]=
0.412607