flash脚本正弦.doc
上传人:qw****27 上传时间:2024-09-12 格式:DOC 页数:6 大小:31KB 金币:15 举报 版权申诉
预览加载中,请您耐心等待几秒...

flash脚本正弦.doc

flash脚本正弦.doc

预览

在线预览结束,喜欢就下载吧,查找使用更方便

15 金币

下载此文档

如果您无法下载资料,请参考说明:

1、部分资料下载需要金币,请确保您的账户上有足够的金币

2、已购买过的文档,再次下载不重复扣费

3、资料包下载后请先用软件解压,在使用对应软件打开

onClipEvent(Load){ball._x=0;ball._y=0;t=0;bc=20;for(i=1;i<=100;i++){//复制绳子质元形成绳duplicateMovieClip("ball","ball"+i,i);setProperty("ball"+i,_x,i*20);}}onClipEvent(EnterFrame){ball._y=200*Math.sin(t);for(i=1;i<=100;i++){if(i<=bc*t*0.0315*5){setProperty("ball"+i,_y,200*Math.sin(t-2*3.14159*i/bc));}}t=t+0.1;}onClipEvent(load){_root.aa=0//动画标志,=0表示复位,=1表示动画播放,//=2表示动画停止_root.bb=0;//=0绳和球分开,=1绳与球连接_root.zf=50;_root.f=1;setProperty("shen",_visible,false);for(i=1;i<=200;i++){//复制绳子质元形成绳duplicateMovieClip("shen","shen"+i,i);setProperty("shen"+i,_x,20+i*2);setProperty("shen"+i,_y,-15);}}onClipEvent(enterFrame){if(_root.aa==0&&_root.bb==0){_root.pauseb._visible=true;_root.resetb._visible=true;_root.startb._visible=true;ball._x=0;ball._y=0;_root.zb.clear();//初始化作图工具moveTo(20,0);//移动绘画起点到座标原点lineStyle(3,0xFF0000,100);//设定线条的宽度为3,颜色为红色,透明度为100t=0;for(i=1;i<=200;i++){//复制绳子质元形成绳setProperty("shen"+i,_x,i*2+20);setProperty("shen"+i,_y,-15);}}if(_root.aa==0&&_root.bb==1){_root.pauseb._visible=true;_root.resetb._visible=true;_root.startb._visible=true;ball._x=0;ball._y=0;_root.zb.clear();//初始化作图工具t=0;for(i=1;i<=200;i++){//复制绳子质元形成绳setProperty("shen"+i,_x,i*2);setProperty("shen"+i,_y,-15);}}if(_root.aa==1&&_root.bb==0){x=0;y=-_root.zf*Math.sin(t);//竖直方面上所发生的位移的坐标ball._x=x;ball._y=y;//lineTo(15*t/_root.f,y);//作出时间间隔内小球的运动位移t+=0.05*_root.f;if(15*t/_root.f>425){_root.resetb._visible=true;_root.pauseb._visible=false;_root.aa=2;}}if(_root.aa==1&&_root.bb==1){x=0;y=-_root.zf*Math.sin(t);//竖直方面上所发生的位移的坐标ball._x=x;ball._y=y;t+=0.1*_root.f;if(15*t/_root.f>425){_root.resetb._visible=true;_root.pauseb._visible=false;_root.aa=2;}for(l=1;l<=200;l++){//删除removeMovieClip("shen"+l);}for(i=1;i<=200;i++){//复制绳子质元形成绳duplicateMovieClip("shen","shen"+i,i);setProperty("shen"+i,_x,i*2);setProperty("shen"+i,_y,-15);}bc=100;//波长bs=bc*_root.f;//波速for(i=1;i<=200;i++){if(i<=bc*t*0.08){setProperty("