【
程序名称： 动态正弦波
程序功能： 动态绘制正弦波。
作者： 花心胡萝卜 翻译
时间： 2018年5月
备注：
】
＃包含 “习语言系统.接口”
＃包含 “习语言视窗.接口”
＃定义 曲线起点横坐标 0
＃定义 曲线起点纵坐标 200
＃定义 横坐标轴长度 800
＃定义 纵坐标轴长度 300
＃定义 横坐标数据 300
双精度类型 曲线纵坐标数组［横坐标数据］；
整数类型 绘制次数 ＝ 0；
整数类型 主函数（ ）
｛
图形开始2（宽：横坐标轴长度，高：纵坐标轴长度*1.4，0）；
图形关闭控制台（ ）；
图形设置显示器标题(“习语言动态正弦波 - 花心胡萝卜 翻译”）；
图形设置刷新频率（120）；//频率
当（是图形状态()）
｛
图形清屏（）；
图形设置画刷色(YS黑色)；
图形画矩形(0, 0, 800, 800 * 1.4)；
图形设置画笔色（YS绿色）；
图形设置当前位置（曲线起点横坐标，曲线起点纵坐标，【坐标类型 *原位置指针】空指针）；
步进循环（整数类型 甲 ＝ 0；甲 小于 横坐标数据；甲++）
｛
曲线纵坐标数组［甲］＝ 正弦（0.03 * 甲 加 绘制次数）；//数字控制频率宽度
｝
步进循环（整数类型 甲 ＝ 0；甲 小于 横坐标数据； 甲++ ）// 第一次坐标 2.6, 278.0516 第二次 5.3, 277.6888
｛
图形画到（横坐标轴长度 * 甲 除 横坐标数据 加 曲线起点横坐标，【整数类型 纵坐标】0.5 * 纵坐标轴长度 * 曲线纵坐标数组［甲］ 加 曲线起点纵坐标）；//数字控制频率高度
｝
绘制次数 = 绘制次数+1 ；// 用--是从左边到右边，用++是右边到左边。数字越高速度越快.
图形设置画笔色（YS白色）；
图形设置当前位置（曲线起点横坐标，曲线起点纵坐标，【坐标类型 *原位置指针】空指针）；
图形画到（曲线起点横坐标 加 横坐标轴长度，曲线起点纵坐标）；
图形等待（100）；//延时毫秒数
如果（有按键（））
｛
如果（获取按键（） 等于 0x1B）
｛
跳出；
｝
｝
｝
图形结束（）；
返回 0；
｝
程序名称： 动态正弦波
程序功能： 动态绘制正弦波。
作者： 花心胡萝卜 翻译
时间： 2018年5月
备注：
】
＃包含 “习语言系统.接口”
＃包含 “习语言视窗.接口”
＃定义 曲线起点横坐标 0
＃定义 曲线起点纵坐标 200
＃定义 横坐标轴长度 800
＃定义 纵坐标轴长度 300
＃定义 横坐标数据 300
双精度类型 曲线纵坐标数组［横坐标数据］；
整数类型 绘制次数 ＝ 0；
整数类型 主函数（ ）
｛
图形开始2（宽：横坐标轴长度，高：纵坐标轴长度*1.4，0）；
图形关闭控制台（ ）；
图形设置显示器标题(“习语言动态正弦波 - 花心胡萝卜 翻译”）；
图形设置刷新频率（120）；//频率
当（是图形状态()）
｛
图形清屏（）；
图形设置画刷色(YS黑色)；
图形画矩形(0, 0, 800, 800 * 1.4)；
图形设置画笔色（YS绿色）；
图形设置当前位置（曲线起点横坐标，曲线起点纵坐标，【坐标类型 *原位置指针】空指针）；
步进循环（整数类型 甲 ＝ 0；甲 小于 横坐标数据；甲++）
｛
曲线纵坐标数组［甲］＝ 正弦（0.03 * 甲 加 绘制次数）；//数字控制频率宽度
｝
步进循环（整数类型 甲 ＝ 0；甲 小于 横坐标数据； 甲++ ）// 第一次坐标 2.6, 278.0516 第二次 5.3, 277.6888
｛
图形画到（横坐标轴长度 * 甲 除 横坐标数据 加 曲线起点横坐标，【整数类型 纵坐标】0.5 * 纵坐标轴长度 * 曲线纵坐标数组［甲］ 加 曲线起点纵坐标）；//数字控制频率高度
｝
绘制次数 = 绘制次数+1 ；// 用--是从左边到右边，用++是右边到左边。数字越高速度越快.
图形设置画笔色（YS白色）；
图形设置当前位置（曲线起点横坐标，曲线起点纵坐标，【坐标类型 *原位置指针】空指针）；
图形画到（曲线起点横坐标 加 横坐标轴长度，曲线起点纵坐标）；
图形等待（100）；//延时毫秒数
如果（有按键（））
｛
如果（获取按键（） 等于 0x1B）
｛
跳出；
｝
｝
｝
图形结束（）；
返回 0；
｝
