```
logLogRegionPlot(rplot_) :=
Module({pts, pgon},
pts = Cases(Normal@rplot, Line(a__) :> a, Infinity);
pgon = {EdgeForm(),
Directive(RGBColor(0.368417, 0.506779, 0.709798),
AbsoluteThickness(1.6), Opacity(0.3)),
Cases(Normal@rplot, Polygon(_), Infinity)};
ListLogLogPlot(pts,
Joined -> True,
Frame -> True,
PlotRange -> All,
AspectRatio -> 1,
Axes -> False,
PlotStyle -> ColorData(1)(1),
Epilog -> (pgon /. {x_, y_?NumericQ} :> Log@{x, y}))
)
logLogRegionPlot@RegionPlot({y > 8*(10^-10)
(x)^(1/2)*HeavisideTheta((x)^(-1) - (y)) &&
x > 6*(10^4) && x < 6*(10^10) &&
y < (8*(10^-10))^-1 x^(-5/2)*HeavisideTheta(-(x)^(-1) +
(y)) &&
y > 0.6*x^(-3/2)}, {x, 10^2, 10^14}, {y, 10^-16, 10^0},
PlotPoints -> 100)
```

How can I produce an log region plot satisfying those inequalities, I have tried to produce it with the above code an exclusion region is coming, but I need a large plot range (xaxis€(10^0,10^14),yaxis€(10^-17,10^0))for which it is giving a wrong plot.

This was already asked in Wolfram community

Wolfram community asked question