Board logo

标题: 批处理脚本实现C语言趣味编程百例001:余弦曲线 [打印本页]

作者: HAT    时间: 2012-2-18 21:17     标题: 批处理脚本实现C语言趣味编程百例001:余弦曲线

要求用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)的对应关系。
使用这种方法编出的程序短小精炼,体现了一定的技巧。

*程序说明与注释
  1. #include<stdio.h>
  2. #include<math.h>
  3. int main()
  4. {
  5. double y;
  6. int x,m;
  7. for(y=1;y>=-1;y-=0.1) /*y为列方向,值从1到-1,步长为0.1*/
  8. {
  9. m=acos(y)*10; /*计算出y对应的弧度m,乘以10为图形放大倍数*/
  10. for(x=1;x<m;x++) printf(" ");
  11. printf("*"); /*控制打印左侧的 * 号*/
  12. for(;x<62-m;x++)printf(" ");
  13. printf("*\n"); /*控制打印同一行中对称的右侧*号*/
  14. }
  15. return 0;
  16. }
复制代码
*思考题
如何实现用“*”显示0~360度的sin(x)曲线。

在屏幕上显示0~360度的cos(x)曲线与直线f(x)=45*(y-1)+31的迭加图形。其中cos(x)图形用“*”表示,f(x)用“+”表示,在两个图形相交的点上则用f(x)图形的符号。
作者: 523066680    时间: 2012-2-18 21:33

那个…… cos(x) 函数功能要自己实现吗……
作者: HAT    时间: 2012-2-18 21:41

修改一下CMD窗口的字体设置,也许出来的图形效果会有所不同。
作者: canyuexiaolang    时间: 2012-2-19 15:16

本帖最后由 canyuexiaolang 于 2012-2-19 15:25 编辑
  1. @echo off & setlocal enabledelayedexpansion
  2. set "x=1" & set "y=21" & set "z=0" & set "ax=1"
  3. set "12=4 18 19 6 7 8 9 10 11 12 13 14 15 16" & set "24=3 5 17 20"
  4. for /l %%i in (2 1 22) do (set /p=*<nul & call :cos "%%i")
  5. pause>nul
  6. exit
  7. :cos
  8. set /a ax=62-x & for /l %%j in (1 1 !ax!) do set /p= <nul
  9. for %%x in (!12!) do if %~1 equ %%x set /a z+=1 & set /a x+=2
  10. for %%x in (!24!) do if %~1 equ %%x set /a z+=2 & set /a x+=4
  11. if %~1 equ 2 set /a z+=3 & set /a x+=6
  12. if %~1 equ 21 set /a z+=4 & set /a x+=8
  13. set /p=*<nul & echo.
  14. if %~1 equ 22 goto :eof
  15. for /l %%i in (1 1 !z!) do set /p= <nul
  16. 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下的
  1. @echo off & setlocal enabledelayedexpansion
  2. set "x=1" & set "y=21" & set "z=0" & set "ax=1"
  3. set "12=4 18 19 6 7 8 9 10 11 12 13 14 15 16" & set "24=3 5 17 20"
  4. for /l %%i in (2 1 22) do (set /p=*<nul & call :cos "%%i")
  5. pause>nul
  6. exit
  7. :cos
  8. set /a ax=62-x & for /l %%j in (1 1 !ax!) do set /p=.<nul
  9. for %%x in (!12!) do if %~1 equ %%x set /a z+=1 & set /a x+=2
  10. for %%x in (!24!) do if %~1 equ %%x set /a z+=2 & set /a x+=4
  11. if %~1 equ 2 set /a z+=3 & set /a x+=6
  12. if %~1 equ 21 set /a z+=4 & set /a x+=8
  13. set /p=*<nul & echo.
  14. if %~1 equ 22 goto :eof
  15. for /l %%i in (1 1 !z!) do set /p=.<nul
  16. goto :eof
复制代码





欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2