《信息的编程加工》 导 学案 一 、y=sin(x) 函数图形 代码 解释 :
Private Sub Command1_Click()
"定义 x,y,z 三个整型变量
Dim x, y, z As Single
"定义坐标系
picture1.Scale (-10, 10)-(10, -10)
"画横坐标轴,颜色为蓝色
picture1.Line (-10, 0)-(10, 0), RGB(0, 0, 255)
"画纵坐标轴,颜色为蓝色
picture1.Line (0, 10)-(0, -10), RGB(0, 0, 255)
"用循环语句描点画函数图像,x 值从-10 变化到 10,每次增量为0.0001
For x = -10 To 10 Step 0.001
"根据表达式 y=sin(x)来计算 y 值
y = Sin(x)
"根据 x,y 的值用红色描点
picture1.PSet (x, y), RGB(255, 0, 0)
"取下一个增量后的 x 值
Next x End Sub
二 、 分组 尝试并熟悉代码 1、把 FOR……NEXT 的步长 Step 后面的值由 0.001 改为 0.1 运行试一试; 2、把 FOR 循环中 x 的取值范围由-10 到 10 修改为 0 到 10 运行试一试; 3、把 FOR 循环中 x 的取值范围由-10 到 10 修改为-3.14 到 3.14 运行试一试; 4、把 picture1.Pset(x,y),RGB(255,0,0)中的 RGB(255,0,0)改为 RGB(0,255,0)或者 RGB(0,0,255)运行试一试。
5、把 picture1.Pset(x,y),RGB(255,0,0)中的坐标(x,y)改为(4*x,4*y)运行试一试。
三 、 由正弦曲线到花瓣
第一阶段 如何由正弦曲线到花瓣?
第二阶段 如何由一朵花到其他复杂的图形?
代码提示:
第三阶段 尝试画出不同的图形
在 现 有 代 码 中 把 函 数 式 y=sin(x) 改 为 y=sin(3*x) 、 y=sin(5*x) 、y=sin(1/4*x)和 y=sin(3/2*x)将由原图形变为以上四种图形。
你还能画出哪些不同的图形呢?提示:函数式改为 cos(x),tan(x)? 你会把红色的图形改为其他的颜色吗? 大胆地试一试吧。
四 、 思考 :如何 画出以下图案 ? 在时间允许的情况下,每组选择一个函数图形来完成,在完成自己组的图形后可以尝试其他图形。(如果本节课时间不够可以作为下一节课的问题思考。)
提示:
1 1 、 极坐标转换为直角坐标的公式为:
设极坐标的极轴为 R R ,角度为 t t ,则直角坐标系中 y x,y 为:
x=R*cos(t)
y=R*sin(t)
2 2 、注意 sin() 函数的周期为- -4 3.14 到 到 3.14
3 3 、不需要考虑图形的对称,以上图形都是单函数图形。
课堂小结:
1、算法是指解决问题的方法和步骤。
2、信息编程加工的步骤:
信息分析->设计方法->编写代码->调试运行 极坐标函数式 R=a*sin(3*t) 极坐标函数式 R=a*sin(2*t) 极坐标函数式 R=a*sin(4*t) 极坐标函数式 R=a*sin(5/9*t)