523066680

做的并不严密~  发出来了

@echo off &setlocal enabledelayedexpansion
set /p inp="1~46内的偶数: "
set /a lx=inp/2,la=0,hx=lx,left=(80-inp)/2
for /l %%a in (1,1,80) do (set k= !k!)
set left=!k:~0,%left%!
set "do=" &set "do2=::"
:la
set /a la+=1,lb=0
if %la% gtr 1 (set "do=::" &set h%la%=!k:~-%inp%,-1!.)
if %la% equ %lx% (set "do=")
%do2% set /a lx-=1
%do2% set h%lx%=.!h%lx%:~1!
     :lb
%do% set /a lb+=1
%do% set h%la%=!h%la%!.
%do% set h%la%=!h%la%:~-%inp%!
     ping -n 1 127.1>nul
     cls
     for /l %%a in (1,1,%hx%) do echo,%left%!h%%a!
%do% if %lb% lss %inp% (goto :lb) else (set lb=0)
%do% if %la% equ %lx% (set "do=::" &set "do2=")
if %lx% neq 0 goto :la
pause
复制代码

我觉得改成+号会方一些~

[ 本帖最后由 523066680 于 2009-3-8 14:35 编辑 ]

523066680

刚刚有想做y=x^2 的  不过想想又停止了
因为 x=5 的时候就飙到25行了~

如果是col=line^2 的话可能有看头。

哈哈 改来了， x=y^2的  感觉挺漂亮的

@echo off
setlocal enabledelayedexpansion
mode con cols=102 lines=25
for /l %%a in (1,1,100) do (set k= !k!)
for /l %%a in (-10,1,10) do (set h%%a=%k%)
set la=-11
:la
set /a la+=1,lb=la*la,tlb=100-lb
set h%la%=!h%la%:~%tlb%!.
ping -n 1 127.1>nul
cls
for /l %%a in (-10,1,10) do echo,!h%%a!
if %la% lss 10 goto :la
pause
复制代码

[ 本帖最后由 523066680 于 2009-3-8 14:57 编辑 ]

523066680

我突然觉得调用函数可能会使代码短一些 果然如此

@echo off &setlocal enabledelayedexpansion
for /l %%a in (1,1,79) do (set k= !k!)
for /l %%a in (1,1,23) do (set h%%a=%k%)
set /p inp="输入高[2-23]: "
set /a c=0,h=1,i2=inp*2,na=40-inp
set stra=!k:~-%na%!
for %%a in ("c + %i2%" "h + %inp%" "c - 1" "h - 1") do (call :func %%~a)
pause>nul &exit
:func
set /a %1 %2 = 1,cf=c-1
set h%h%=!h%h%:~0,%cf%!.!h%h%:~%c%!
ping -n 1 127.1>nul &cls
for /l %%a in (1,1,%inp%) do (echo,%stra%!h%%a:~0,-%na%!)
if !%1! neq %3 goto :func
复制代码

[ 本帖最后由 523066680 于 2009-3-10 17:27 编辑 ]

523066680

1.上面那位同学的用户名~。。。。。。

师傅嘛~    有一句话，师傅领进门，修行在个人~， 需要一个人引导罢了。



2.Yes!  在这里再次收集到 pusofalse  wxcute  batman  more 的加分了  我没有遗憾了！！！心情舒畅啊~

[ 本帖最后由 523066680 于 2009-3-15 12:04 编辑 ]

523066680

大概以前想到这个的，因为曾经写过
随机游动粒子 http://www.cn-dos.net/forum/viewthread.php?tid=43059
所以对描点的效果，应该算比较熟悉了。

另外，我觉得在特效的流畅方面，可以跟随风取经。
我嘛，作品全在签名的链接里了，感兴趣的话可以看看。

[ 本帖最后由 523066680 于 2009-3-22 14:45 编辑 ]