抛物线

悬崖之树

1. @echo off&setlocal enabledelayedexpansion
   
2. (
   
3. :loop
   
4. for %%i in (30 46 55 59 60 59 55 46 30 14 5 1 0 1 5 14) do (
   
5.    for /l %%j in (1 1 %%i) do (
   
6.       set "str=!str! "
   
7.    )
   
8.    echo         !str!#&set str=
   
9.    for /l %%i in (1 1 600) do qdj 2>nul
   
10. )
    
11. goto loop
    
12. )
    

复制代码

111

叫正弦曲线是不是更好呢？

bailong360

看起来好有趣

523066680

写过类似
http://bbs.bathome.net/viewthread.php?tid=4539

dengyuli

这是我的，根据悬崖之树的代码改造而成，可以说是真正的抛物线了。
函数解析式：f(x)=-x2-1

1. @echo off
   
2. mode con lines=40 cols=80
   
3. setlocal enabledelayedexpansion
   
4. set ctr=0
   
5. set "spc= "
   
6. for %%a in (65 33 17 9 5 3 2 3 5 9 17 33 65) do (
   
7. set /a ctr=ctr+4
   
8. set ln=%%a
   
9. for /l %%b in (1,1,!ln!) do (
   
10.   echo=
    
11. )
    
12. for /l %%b in (0,1,!ctr!) do (
    
13.   set "spc=!spc! "
    
14. )
    
15. echo !spc!O
    
16. ping 127.1 -n 1 >nul
    
17. ping 127.1 -n 1 >nul
    
18. ping 127.1 -n 1 >nul
    
19. set "spc= "
    
20. if !ctr! gtr 56 goto:f
    
21. cls
    
22. )
    
23. :f
    
24. pause>nul
    
25. exit

复制代码