[特效代码] 【挑战】用批处理画出正方形和抛物线

myzwd

题1******
要求：1---以圆点“.”，全屏模式，在cmd的中央显示正方形
           2--在程序运行时，要求顺时针，逐渐的显示点运动的轨迹
题2******
要求：1---画出函数y=x^2(x>0) 的图像。
           2--程序运行时，以点的形式，逐渐的显示画图轨迹。
-------------------------------------------------------------------------------------
     此题确实很有难度，不适合新手来完成，因此移至本版块，并修改
了标题，事先未来得及和楼主商量，还请楼主谅解。
                                                                      ----------batman----------
-------------------------------------------------------------------------------------

 
@echo off&setlocal enabledelayedexpansion&color 0A &cls 
rem by myzwd 2009 -3 -10
rem  逆时针描点正方形
:main
set "sp=        "
set "sp1=       "
set "sp2=             "

call:1
goto:eof 
:1 向上运动
for /l %%i in (1 1 8) do (
set /a n+=1
set /a m=8-!n!
for /l %%i in (1 1 7) do echo.
for /l %%i in (!m! -1 1) do (echo. !sp!)
for /l %%i in (1 1 !n!) do (echo !sp!a)
echo.
echo ----------------------------
for /l %%1 in (1 1 200) do (call echo.>nul)
cls
)
:2 向左运动
for /l %%i in (1 1 8) do (
   for /l %%i in (1 1 7) do echo.
   set aa=!aa! a
   set /p "=!sp1!!aa!"<nul
   echo.
   for /l %%i in (1 1 7) do (echo !SP!a)
echo.
echo ----------------------------
for /l %%1 in (1 1 200) do (call echo.>nul)
cls
)
:3  向下运动
set n=
set m=
for /l %%i in (1 1 8) do (set cc=!cc!a )
for /l %%i in (1 1 7) do (
  for /l %%i in (1 1 7) do echo.
  echo !sp!!cc!
  set /a n+=1
  set /a m=7-!n! 
  for /l %%i in (1 1 !n!) do (echo !sp!a!sp2!a) 
  for /l %%i in  (1 1 !m!) do (echo !sp!a)
  echo.
echo ----------------------------
for /l %%1 in (1 1 200) do (call echo.>nul)
cls
)
:4 向右运动
set "sp=          "
set "sp2=             "
set "sp5=        "
set n=
set cc=
for /l %%i in (1 1 8) do (set cc=!cc!a )
for /l %%i in (1 1 16) do (set "sp3=   !sp2!")
for /l %%i in (1 1 8) do (
  for /l %%i in (1 1 7) do echo.
  set /a n+=2&set /a "n1=!n!>>1"
  echo !sp5!!cc!
  for /l %%i in (1 1 6) do (set "sp4=!sp5!a   !sp!a"&echo !sp4!)
  call set /p "=!sp5!%%sp3:~0,-!n!%%"<nul
  for /l %%i in (1 1 !n1!) do (set /p=a<nul )
  echo.&echo.
echo ----------------------------
for /l %%1 in (1 1 180) do (call echo.>nul)
cls
)
:The End
for /l %%i in (1 1 7) do echo.
echo !sp1! !cc!
for /l %%i in (1 1 6) do (set "sp4= !sp1!a   !sp!a" &echo !sp4!)
echo !sp1! !cc!
echo ----------------------------
复制代码

@echo off &setlocal enabledelayedexpansion &cls &color 1a
for /l %%1 in (1 1 80) do set "space= !space!"
mode con cols=80 lines=35
rem 抛物线方程为--(y-16)*(y-16)=x edited by myzwd
for /l %%i in (8 -1 1) do (
  set y=%%i
  set /a "x=y*y"
  call echo %%space:~-!x!%%●
  echo.
  for /l %%1 in (1 1 30) do call echo.>nul
)
for /l %%i in (1 1 8) do (
  set y=%%i
  set /a "x=y*y"
  call echo %%space:~-!x!%%●
  echo.
  for /l %%1 in (1 1 30) do call echo.>nul
)
pause
复制代码

说明：抛物线的画法主要是计算y坐标的增量。不是计算y坐标。

[ 本帖最后由 myzwd 于 2009-3-18 23:45 编辑 ]

myzwd

我运行了，没成功
报告是：此时不因有‘do’
现在可以了 ok。

因为我不知道批处理能否办到，所以出了这个题目。没想到还真可以。我也学习学习。呵呵

[ 本帖最后由 myzwd 于 2009-3-3 23:08 编辑 ]

myzwd

不错收藏了。挺好的，学习学习

myzwd

我真弄不出来。我都说了，我以为批处理做不出来。我是看了随风的那个小球后，才知道批处理可以做这些。
其实我学习批处理，就是一种业余爱好。还得多象你们学习。呵呵

myzwd

我好好学习学习这段代码。看看是怎么编辑的。