The luckiest Wolfram Language code by Chinese numerology ​
​By Shenghui Yang
According to wiki, eight in Chinese sounds like 發 (to prosper/be rich). It is widely used during lunar new year to wish your family and close friends good fortune. It is also closely associated with 招财进宝 ligature (literally means attract fortune and collect treasure) The wolfram notebook supports this feature on windows if you have proper font installed and I have mentioned in this blog.
@CHARTMANq has posted a nice example on twitter only using number 8.
I slightly modify some parameter and use RegionPlot to plot a solid version of number 8. Similarly, the following code use only number 8. In total 32 eights, which a nice multiple of 8.
In[]:=
RegionPlotAbsLog[8.8]*x^Log[
8
,8]+
Log[
8
,8]
Abs[y]-
8

-8<=
8.8
,{x,-8,8},{y,-8,8},​​GridLinesAll,​​AspectRatio.8*.8,​​ImagePadding
8
88888888888
,FrameTicks{{-8,8},{-8,8}}​​//Framed
Out[]=
If you want the hollow version, use ContourPlot and equation instead of inequality for the first expression.
In[]:=
ContourPlotAbsLog[8.8]*x^Log[
8
,8]+
Log[
8
,8]
Abs[y]-
8

-8==
8.8
,{x,-8,8},{y,-8,8},​​GridLinesAll,​​AspectRatio.8*.8,​​ImagePadding
8
88888888888
,FrameTicks{{-8,8},{-8,8}}​​//Framed
Out[]=