We need to generate 5 numbers $\alpha,\beta,p,q,k$ so that they meet the following conditions:
- $\alpha,\beta,p,q,k>0$
- $k \cdot p <1$
- $k \cdot q >1$
Edit:
I think, that this code may be solution:
region = ImplicitRegion[\[Alpha] > 0 && \[Beta] > 0 && p > 0 && q > 0 && k > 0 && k p < 1 && k q > 1, {\[Alpha], \[Beta], p, q, k}];
RandomPoint[region]
But this still very slowly!
While[True,{a,b,p,q,k}=RandomReal[{0,2},5];If[k*p<1&&k*q>1,Break[]]];{a,b,p,q,k}completes almost instantly – Bill Feb 04 '21 at 06:17