绘制三角函数曲线.docVIP

  1. 1、本文档共13页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  5. 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  6. 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  7. 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  8. 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
绘制三角函数曲线

沈 阳 航 空 航 天 大 学 课程设计 学 号 2009040302090 班 级 姓 名 孟 凡 余 指导教师 王 晓 岩 2011 年 3 月 15 日 课程设计任务书 学院:航空宇航工程 专业:飞行器制造工程 班级学号:2009040302090 题目:绘制三角函数曲线 一、课程设计时间 2011年3月7~11日(第1周),共计1周,20学时。 二、课程设计内容 根据菜单的选取,在给定的区间内绘制正弦函数或余弦函数。菜单按照下图制作。其中“选取三角函数”菜单有2个子项,其余3个没有子项。 图1 三、课程设计要求 程序质量: 贯彻事件驱动的程序设计思想。 用户界面友好,功能明确,操作方便。 代码应适当缩进,并给出必要的注释,以增强程序的可读性。 课程设计说明书: 课程结束后,上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。 四、指导教师和学生签字 指导教师:________ 学生签名:________ 五、成绩 六、教师评语 目 录 需求分析 4 设计分析 4 技术要点 5 主要界面截图 9 总结 10 完整的源程序 10 参考文献 13 需求分析 根据菜单的选取,在给定的区间内绘制正弦函数或余弦函数。菜单按照下图制作。其中“选取三角函数”菜单有2个子项,其余3个没有子项。 设计分析 概述: 题设需求要用到菜单,画图,复选框等内容。 根据题设建立下拉式菜单,根据程序运行先后顺序建立各菜单项之间的先后联系,利用复选框控制菜单项子菜单的选择,设计画图程序。 (2)总体设计: 图2 总体设计 (3)详细设计: 图 3 详细设计 技术要点 1关于菜单的建立 根据题设需求,我们需要一个下拉式菜单,步骤如下: 1.在设计状态,选择“工具” “菜单编辑器”命令,打开 “菜单编辑器”对话框。 2.在标题栏输入各菜单项的标题文本和该菜单项的名称。 3.点击下一个,建立下一个菜单项。 4.点击“确定”按钮,退出编辑。 2函数的应用及图像的绘制 定义窗体坐标系 Form1.Scale (-8, 2)-(8, -2) 设置坐标线宽并画坐标轴 DrawWidth=1 Line (-7.8, 0)-(7.8, 0): Line (0, 1.9)-(0, -1.9) 将坐标轴标记名称 CurrentX = 7.7: CurrentY = 0.2: Print X CurrentX = 0.2: CurrentY = 1.9: Print Y 将坐标轴标刻度 For i = -2 To 2 Step 4 Line (i * a, 0)-(i * a, 0.05) CurrentX = i * a: CurrentY = -0.1: Print i π Next i For i = -1 To 1 Step 2 Line (i * a, 0)-(i * a, 0.05) CurrentX = i * a: CurrentY = -0.1: Print i π Next i CurrentX = 0.1: CurrentY = -0.1: Print 0 设置函数图像线宽 DrawWidth = 2 计算Sin(x)和Cos(x)并画正余弦曲线 If 正弦.Checked = True And 余弦.Checked = True Then For x = b To c Step 0.01 y = Sin(x) y = Cos(x) PSet (x, y) Next x End If If 正弦.Checked = True Then For x = b To c Step 0.01 y = Sin(x) PSet (x, y) Next x Else If 余弦.Checked = True Then For x = b To c Step 0.01 y = Cos(x)

文档评论(0)

hf916589 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档