分形图:希尔伯特曲线(Hilbert curve)

a20150604

1. @echo off & setlocal enableDelayedExpansion
   
2. 
   
3. REM 方向运算
   
4. set "D=y+=bw2" & set "U=y-=bw2" & set "L=x-=bw2" & set "R=x+=bw2"
   
5. 
   
6. for /L %%T in (1 1 6) do (
   
7.     REM 向量总长: 4 * ( 1<<(iterations-1)*2 ) - 1
   
8.     REM set /a "iterations=4, basewid=6, bw2=basewid*2, hei=wid=basewid*4*(1<<iterations-1), x=xs=wid*1/(4*(1<<iterations-1)), y=ys=wid-xs, imax = 4 * ( 1<<(iterations-1)*2 ) - 1 - 1"
   
9.     set /a "hei=wid=256*2, iterations=%%T"
   
10.     set /a "basewid=wid/(4*(1<<iterations-1)), bw2=basewid*2, x=xs=wid*1/(4*(1<<iterations-1)), y=ys=wid-xs, imax = 4 * ( 1<<(iterations-1)*2 ) - 1 - 1"
    
11. 
    
12.     set "C="
    
13.     set "R_C="
    
14. 
    
15.     echo;C=!C!
    
16.     echo;R_C=!R_C!
    
17. 
    
18.     for /L %%i in (1 1 !iterations!) do (
    
19. 
    
20.         set "CW=!C!"
    
21.         set "AC=!C!"
    
22. 
    
23.         set "R_CW=!R_C!"
    
24.         set "R_AC=!R_C!"
    
25. 
    
26.         if "!C!" neq "" (
    
27. 
    
28.             REM 顺旋:
    
29.             REM R->T, U->R, L->U, D->L, T->D
    
30.             set "CW=!CW:R=T!"
    
31.             set "CW=!CW:U=R!"
    
32.             set "CW=!CW:L=U!"
    
33.             set "CW=!CW:D=L!"
    
34.             set "CW=!CW:T=D!"
    
35. 
    
36.             REM 逆旋:
    
37.             REM L->T, U->L, R->U, D->R, T->D
    
38.             set "AC=!AC:L=T!"
    
39.             set "AC=!AC:U=L!"
    
40.             set "AC=!AC:R=U!"
    
41.             set "AC=!AC:D=R!"
    
42.             set "AC=!AC:T=D!"
    
43. 
    
44. 
    
45.             REM 顺旋:
    
46.             REM R->T, U->R, L->U, D->L, T->D
    
47.             set "R_CW=!R_CW:R=T!"
    
48.             set "R_CW=!R_CW:U=R!"
    
49.             set "R_CW=!R_CW:L=U!"
    
50.             set "R_CW=!R_CW:D=L!"
    
51.             set "R_CW=!R_CW:T=D!"
    
52. 
    
53.             REM 逆旋:
    
54.             REM L->T, U->L, R->U, D->R, T->D
    
55.             set "R_AC=!R_AC:L=T!"
    
56.             set "R_AC=!R_AC:U=L!"
    
57.             set "R_AC=!R_AC:R=U!"
    
58.             set "R_AC=!R_AC:D=R!"
    
59.             set "R_AC=!R_AC:T=D!"
    
60.         )
    
61. 
    
62.         set "C=!R_CW!U!C!R!C!D!R_AC!"
    
63. 
    
64.         REM 逆时针90度正行 + 上 + 逆行 + 左 + 逆行 + 下 + 顺时针90度正行
    
65.         set "R_C=!AC!U!R_C!L!R_C!D!CW!"
    
66. 
    
67.         echo;C=!C!
    
68.     )
    
69. 
    
70.     <nul >Hilbert_curve%%T.htm (
    
71.         echo;^<svg height="!hei!" width="!wid!"^>
    
72.                 set /p "=<polyline points=""
    
73.                 set /p "=!x!,!y! "
    
74.                 for /L %%i in (0 1 !imax!) do (
    
75.                     for %%m in ("!C:~%%i,1!") do (
    
76.                         set /a "!%%~m!"
    
77.                         set /p "=!x!,!y! "
    
78.                     )
    
79.                 )
    
80.                 echo;"
    
81.                 set /p "=style="fill:none;stroke:red;stroke-width:1"/>"
    
82.                 echo;Sorry, your browser does not support inline SVG.
    
83.         echo;^</svg^>
    
84.     )
    
85. 
    
86.     start "" Hilbert_curve%%T.htm
    
87. 
    
88. )
    
89. 
    
90. title any key to exit...
    
91. >nul pause
    
92. 
    
93. exit /b
    
94. 
    

复制代码

codegay

你直接写HTML不好吗