用Authorware解数学题
在解析几何中大家经常遇到作图难的问题,比如我们遇到这样一个题目,已知方程是X2+Y2cosα=1,当α从0度到180度变化时,该方程分别表示什么曲线?这个进行抽象思维不就可以了。尽管你自己理解,但是有人请教你,那该怎么把抽象变具体呢?呵呵,咱可以用Authorware把各个角度的曲线画出来,那就没有抽象可言了!
准备工作
1、首先在流程线上拖一个计算图标,命名为“初始化”,双击打开其输入窗口,输入如下的内容:
angle:=0
h:=300
k:=200
Line(1,h,k-300,h,k+300)
Line(1,h-300,k,h+300,k)
Line(1,h-100,k-100,h+100,k-100)
Line(1,h-100,k+100,h+100,k+100)
Line(1,h-100,k-100,h-100,k+100)
Line(1,h+100,k-100,h+100,k+100)
2、拖第二个计算图标到流程线上,命名为“角度转换”,双击打开其输入窗口,输入如下的内容:
jiaodu:=Pi*angle/180
x:=-100
x1:=100
3、再拖一个显示图标放到流程线上,双击打开其演示窗口,在适当的位置输入“当前角度为{angle}值”。(要注意那对花括号哟,必须是在英文状态下输入。)然后点击菜单“Modify→Icon→Properties”,在打开的显示图标属性对话框中,选中“Update Display Variables”复选项。
好了,准备工作先做到这里,保存一下,好东西还在后头呢!
画曲线过程
1、先拖一个交互图标到流程线上,然后在其右侧放一个组图标,在弹出的“Response Type”对话框中,选择“Conditional”,并将该组图标命名为“angle=90”(也要在英文状态下输入)。双击组图标,在其流程线上放一个计算图标,命名为“画线”,双击打开,在其窗口中输入如下内容:
Line(2,h-100,k-200,h-100,k+200)
Line(2,h+100,k-200,h+100,k+200)
放一个等待图标在它的下方,双击,设置其属性为“限时1秒”。最后放一个计算图标,命名为“转回”,双击打开,在其窗口中输入如下内容:
if angle=90 then
angle:=angle+10
GoTo(IconID@"角度转换")
end if
现在双击组图标上方的小等号,打开“Properties:Response” 对话框,将“Automatic”的值选择为“When Ture”,并将“Response”标签中的“Erase”的值选择为“Don’t Erase”
(图1)。
2、再拖两个组图标到组图标“angle=90”的右侧,这样,这两个组图标的交互属性设置就与“angle=90”完全相同了,不需要您再动手了。新拖过来的组图标分别命名为“angle<90”、“angle>90”。这样,整个程序的框架基本上就搭建起来了(图2)。
3、打开“angle<90”组图标,在其流程线上拖放一个决策图标,在其右侧,放两个计算图标,分别命名为“画图象”和“频率”。双击“画图象”计算图标,在其输入窗口内输入如下内容:
y:=SQRT((1-(x/100)**2)/COS(jiaodu))*100+k
Circle(2,x+h-2,y-2,x+h+2,y+2)
y:=-SQRT((1-(x/100)**2)/COS(jiaodu))*100+k
Circle(2,x+h-2,y-2,x+h+2,y+2)
双击“频率”计算图标,在其输入窗口内输入如下内容:
x:=x+1
此外,双击决策图标,在打开的“Properties:Decision Icon”对话框中,将“Repeat”的值选为“Until True”,并在其下方的输入框中输入:x>=100。 对了,别忘了,还要双击“画图象”计算图标上方的小菱形,打开分支属性对话框,将“Erase Contents”的值选为“Don’t Erase”。
现在您可以在决策图标的下方加一个等待图标,双击打开,设置其属性为“限时1秒”。其下再放一个计算图标,双击,在其输入窗口内输入如下内容:
if angle<=180 then
angle:=angle+10
GoTo(IconID@"角度转换")
end if Quit()
好了,现在这个“angle<90”组图标内的设置就算是全部完成了。完成后的流程图如图3所示。
4、“angle>90”组图标内的程序设计与“angle<90”组图标完全相同。所不同的就是“画图象”和“频率”计算图标里的内容。
双击“画图象”计算图标,在其输入窗口内输入如下内容:
y:=
相关新闻>>
- 发表评论
-
- 最新评论 更多>>