批处理脚本实现C语言趣味编程百例001：余弦曲线

HAT

要求用BAT脚本实现：在屏幕上用星号（也就是*）显示0~360度的余弦函数cos(x)曲线

加分：1个技术分或者10个PB

*问题分析与算法设计
如果在程序中使用数组，这个问题十分简单。但若规定不能使用数组，问题就变得不容易了。
关键在于余弦曲线在0~360度的区间内，一行中要显示两个点，而对一般的显示器来说，只能按行输出，即：输出第一行信息后，只能向下一行输出，不能再返回到上一行。为了获得本文要求的图形就必须在一行中一次输出两个“*”。
为了同时得到余弦函数cos(x)图形在一行上的两个点，考虑利用cos(x)的左右对称性。将屏幕的行方向定义为x，列方向定义为y，则0~180度的图形与180~360度的图形是左右对称的，若定义图形的总宽度为62列，计算出x行0~180度时y点的坐标m，那么在同一行与之对称的180~360度的y点的坐标就 应为62-m。程序中利用反余弦函数acos计算坐标(x,y)的对应关系。
使用这种方法编出的程序短小精炼，体现了一定的技巧。

*程序说明与注释

#include<stdio.h>
#include<math.h>
int main()
{
double y;
int x,m;
for(y=1;y>=-1;y-=0.1) /*y为列方向，值从1到-1，步长为0.1*/
{
m=acos(y)*10; /*计算出y对应的弧度m，乘以10为图形放大倍数*/
for(x=1;x<m;x++) printf(" ");
printf("*"); /*控制打印左侧的 * 号*/
for(;x<62-m;x++)printf(" ");
printf("*\n"); /*控制打印同一行中对称的右侧*号*/
}

return 0;
}
复制代码

*思考题
如何实现用“*”显示0~360度的sin(x)曲线。

在屏幕上显示0~360度的cos(x)曲线与直线f(x)=45*(y-1)+31的迭加图形。其中cos(x)图形用“*”表示，f(x)用“+”表示，在两个图形相交的点上则用f(x)图形的符号。

canyuexiaolang

@echo off & setlocal enabledelayedexpansion
set "x=1" & set "y=21" & set "z=0" & set "ax=1"
set "12=4 18 19 6 7 8 9 10 11 12 13 14 15 16" & set "24=3 5 17 20"
for /l %%i in (2 1 22) do (set /p=*<nul & call :cos "%%i")
pause>nul
exit

:cos
set /a ax=62-x & for /l %%j in (1 1 !ax!) do set /p= <nul
for %%x in (!12!) do if %~1 equ %%x set /a z+=1 & set /a x+=2
for %%x in (!24!) do if %~1 equ %%x set /a z+=2 & set /a x+=4
if %~1 equ 2 set /a z+=3 & set /a x+=6
if %~1 equ 21 set /a z+=4 & set /a x+=8
set /p=*<nul & echo.
if %~1 equ 22 goto :eof

for /l %%i in (1 1 !z!) do set /p= <nul
goto :eof
复制代码

我的代码NC到可笑。。不知道acos的作用。数坐标。。。大家别笑话~
Win7下跑不了。（主要是set/p= <nul）数出不了空格。不过把空格换成.还是可以显示的

坐标：
(1,1)    (1,62)
(2,4)    (2,59)
(3,6)    (3,57)
(4,7)    (4,56)
(5,9)    (5,54)
(6,10)   (6,53)
(7,11)   (7,52)
(8,12)   (7,51)
(9,13)   (9,50)
(10,14) (10,49)
(11,15) (11,48)
(12,16) (12,47)
(13,17) (13,46)
(14,18) (14,45)
(15,19) (15,44)
(16,20) (16,43)
(17,22) (17,41)
(18,23) (18,40)
(19,24) (19,39)
(20,26) (20,37)
(21,31) (21,32)
===================
*                                                            *
   *                                                      *
     *                                                  *
      *                                                *
        *                                            *
         *                                          *
          *                                        *
           *                                      *
            *                                    *
             *                                  *
              *                                *
               *                              *
                *                            *
                 *                          *
                  *                        *
                   *                      *
                     *                  *
                      *                *
                       *              *
                         *          *
                              **

额。供大家参考。


Win7下的

@echo off & setlocal enabledelayedexpansion
set "x=1" & set "y=21" & set "z=0" & set "ax=1"
set "12=4 18 19 6 7 8 9 10 11 12 13 14 15 16" & set "24=3 5 17 20"
for /l %%i in (2 1 22) do (set /p=*<nul & call :cos "%%i")
pause>nul
exit

:cos
set /a ax=62-x & for /l %%j in (1 1 !ax!) do set /p=.<nul
for %%x in (!12!) do if %~1 equ %%x set /a z+=1 & set /a x+=2
for %%x in (!24!) do if %~1 equ %%x set /a z+=2 & set /a x+=4
if %~1 equ 2 set /a z+=3 & set /a x+=6
if %~1 equ 21 set /a z+=4 & set /a x+=8
set /p=*<nul & echo.
if %~1 equ 22 goto :eof
for /l %%i in (1 1 !z!) do set /p=.<nul
goto :eof
复制代码

HAT

修改一下CMD窗口的字体设置，也许出来的图形效果会有所不同。

523066680

那个…… cos(x) 函数功能要自己实现吗……