![Board logo](images/default/logo.gif)
标题: [游戏娱乐] 抛物线 [打印本页]
作者: 悬崖之树 时间: 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://bathome.net./) |
Powered by Discuz! 7.2 |