分形图:莱维C形曲线(Lévy C curve)

a20150604

1. @echo off & setlocal enableDelayedExpansion
   
2. 
   
3. REM 方向运算
   
4. set "D0=x+=BL" & set "D1=x+=BL,y+=BL" & set "D2=y+=BL" & set "D3=x-=BL,y+=BL"
   
5. set "D4=x-=BL" & set "D5=x-=BL,y-=BL" & set "D6=y-=BL" & set "D7=x+=BL,y-=BL"
   
6. 
   
7. set /a "margin=10, BL=6, xs=196, ys=100, hei=488, wid=776"
   
8. 
   
9. set "C=0"
   
10. echo;C=!C!
    
11. 
    
12. set /a "iterations=12, imax=(1<<iterations)-1, y=ys, x=xs"
    
13. 
    
14. for /L %%i in (1 1 !iterations!) do (
    
15. 
    
16.     for %%a in ( A:0 B:1 C:2 D:3 E:4 F:5 G:6 H:7
    
17.     ) do for /f "tokens=1,2 delims=:" %%b in ("%%a") do set "C=!C:%%c=%%b!"
    
18. 
    
19.     for %%a in ( A:17 B:20 C:31 D:42 E:53 F:64 G:75 H:06
    
20.     ) do for /f "tokens=1,2 delims=:" %%b in ("%%a") do set "C=!C:%%b=%%c!"
    
21. 
    
22.     echo;C=!C!
    
23. )
    
24. 
    
25. <nul >Lévy_C_curve.htm (
    
26.     echo;^<svg height="!hei!" width="!wid!"^>
    
27.             set /p "=<polyline points=""
    
28.             set /p "=!x!,!y! "
    
29.             for /L %%i in (0 1 !imax!) do (
    
30.                 for %%m in ("!C:~%%i,1!") do (
    
31.                     set /a "!D%%~m!"
    
32.                     set /p "=!x!,!y! "
    
33.                 )
    
34.             )
    
35.             echo;"
    
36.             set /p "=style="fill:none;stroke:red;stroke-width:1"/>"
    
37.             echo;Sorry, your browser does not support inline SVG.
    
38.     echo;^</svg^>
    
39. )
    
40. 
    
41. start "" Lévy_C_curve.htm
    
42. 
    
43. title any key to exit...
    
44. >nul pause
    
45. 
    
46. exit /b
    
47. 
    

复制代码