（*代码由Jim Conant编写，2019年10月12日*）
n=4；
尺寸=2^n；
V=表格[0，{size+1}，{size+1}]；
H=表格[0，{size+1}，{size+1}]；
标志=垂直；
vcol=2^（n-1）；
盐酸=2^（n-1）；
向下=1；
向上=2；
(*************************************************)
当[hcol>.9时，
如果[Flag==vert，Flag=horiz；
Do[Pen=向下；
做[If[Pen==up，If[H[[i，j]]！=0，笔=下]，V[[i，j]]=1/n；
如果[H[[i，j]]！=0，笔=up]]，{j，1，大小，1}]，{i，vcol，
尺寸-1,2*vcol}]；
vcol=vcol/2]；
如果[Flag==水平，Flag=vert；
Do[Pen=向下；
Do[If[Pen==向上，If[V[[i，j]]！=0，笔=下]，H[[i，j]]=1/n；
如果[V[[i，j]]！=0，笔=up]]，{i，1，大小，1}]，{j，hcol，
尺寸-1,2*hcol}]；
hcol=hcol/2]；
n=n-1]；
（**显示包含V和H数据的图形******）
G={}；
做[Do[If[V[[i，j]]！=0，G=追加[G，行[{{i，j-1}，{i，j}}]]；
如果[H[[i，j]]！=0，G=追加[G，行[{{i-1，j}，{i，j}}]]，{i，
大小}]，{j，大小}]；
G=连接[G，{Line[{0,0}，{0,size}}]，Line[[{0,1}，}size，0}}]，
行[{{大小，0}，{大小、大小}}]，行[{大小}，大小}]}]；
显示[图形[G]，纵横比->自动]
