Board logo

标题: [游戏娱乐] 抛物线 [打印本页]

作者: 悬崖之树    时间: 2014-7-23 23:00     标题: 抛物线

  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    时间: 2014-7-27 11:18

叫正弦曲线是不是更好呢?
作者: bailong360    时间: 2014-7-29 14:24

看起来好有趣
作者: 523066680    时间: 2014-7-29 18:00

写过类似
http://bbs.bathome.net/viewthread.php?tid=4539
作者: dengyuli    时间: 2014-8-1 10:05

这是我的,根据悬崖之树的代码改造而成,可以说是真正的抛物线了。
函数解析式: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
复制代码





欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2