批处理之家 - Powered by Discuz! Board

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

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

@echo off&setlocal enabledelayedexpansion
(
:loop
for %%i in (30 46 55 59 60 59 55 46 30 14 5 1 0 1 5 14) do (
   for /l %%j in (1 1 %%i) do (
      set "str=!str! "
   )
   echo         !str!#&set str=
   for /l %%i in (1 1 600) do qdj 2>nul
)
goto loop
)
复制代码

作者: 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

@echo off
mode con lines=40 cols=80
setlocal enabledelayedexpansion
set ctr=0
set "spc= "
for %%a in (65 33 17 9 5 3 2 3 5 9 17 33 65) do (
 set /a ctr=ctr+4
 set ln=%%a
 for /l %%b in (1,1,!ln!) do (
  echo=
 )
 for /l %%b in (0,1,!ctr!) do (
  set "spc=!spc! "
 )
 echo !spc!O
 ping 127.1 -n 1 >nul
 ping 127.1 -n 1 >nul
 ping 127.1 -n 1 >nul
 set "spc= "
 if !ctr! gtr 56 goto:f
 cls
)
:f
pause>nul
exit
复制代码

欢迎光临批处理之家 (http://bbs.bathome.net/)