那位高手能用Authorware7.0把它的流程图作出来

来源:百度知道 编辑:UC知道 时间:2024/05/09 10:01:07
质点做正弦运动
质点做正弦曲线运动的有关图标说明如下:
(1)变量初始化
有关变量赋初值,程序如下:
i:=0
cx:=50 --圆心坐标
cy:=240
ls:=100 --振幅
xxflag:=1 -条件控制变量
(2)画坐标轴
画X轴和Y轴,内容如下:
SetLine(2)
Line(1, 30, 240, 600, 240) --x
Line(1, 50, 450, 50, 40) --y
(3)改变i值
设为条件交互,交互条件为xxflag=1,删除反馈设为“下一次输入之后”。本图标完成改变i值并控制画四个周期的正弦波,程序如下:
i:=i+1
if i>360*4 then
i:=0
xxflag:=0
end if
(4)画动点
设为条件交互,交互条件为xxflag=1删除反馈设为“下一次输入之后”。本图标完成计算动点位置并画出动点。程序如下:
SetFrame(1 , RGB(250,0,0))
SetFill(1 , RGB(250,0,0))
angle1:=Pi*i/180
x:=cx+Pi/20*i*2
y:=cy-ls*SIN(angle1)
Circle(1, x-10,y-10, x+10, y+10)
(5)画轨迹
设为条件交互,交互条件为xxflag=1,删除反馈设为“不删除”。本图标完成画出轨迹,程序如下:
SetFrame(1 , RGB(0,0,0))
SetFill(1 , RGB(0,0,0))
Circle(1, x-1,y-1, x+1, y+1)

质点做正弦运动
质点做正弦曲线运动的有关图标说明如下:
(1)变量初始化
有关变量赋初值,程序如下:
i:=0
cx:=50 --圆心坐标
cy:=240
ls:=100 --振幅
xxflag:=1 -条件控制变量
(2)画坐标轴
画X轴和Y轴,内容如下:
SetLine(2)
Line(1, 30, 240, 600, 240) --x
Line(1, 50, 450, 50, 40) --y
(3)改变i值
设为条件交互,交互条件为xxflag=1,删除反馈设为“下一次输入之后”。本图标完成改变i值并控制画四个周期的正弦波,程序如下:
i:=i+1
if i>360*4 then
i:=0
xxflag:=0
end if
(4)画动点
设为条件交互,交互条件为xxflag=1删除反馈设为“下一次输入之后”。本图标完成计算动点位置并画出动点。程序如下:
SetFrame(1 , RGB(250,0,0))
SetFill(1 , RGB(250,0,0))
angle1:=Pi*i/180
x:=cx+Pi/20*i*2
y:=cy-ls*SIN(angle1)
Circle(1, x-10,y-10, x+10, y+10)
(5)画轨迹
设为条件交互,交互条件为xxflag=1,删除反馈设为“不删除”。本图标完成画出轨迹,程序如下:
SetFrame(1 , RGB(0,0,0))
SetFill(1 , RGB(0,0,0))
Circle(1, x-1,y-1, x+1, y+1)