皮皮网

1.用perl如何实现四舍五入运算
2.求一个flash loading源代码
3.急求MATLAB编程源代码用四阶龙格库塔法解如下微分方程 y'=y-2x/y(0<x<1),y(0)=1,步长为h=0.2

用perl如何实现四舍五入运算

       å–æ•´int

       å››èˆäº”å…¥round

       å‘上取整POSIX::ceil

       å‘下取整就是int或者POSIX::floor

       å…¶ä¸­ceil和floor，要使用库POSIX，在perl源代码里加入

       #!/usr/bin/perluse strict;use warnings;use POSIX;

求一个flash loading源代码

       公式是：

       影片剪辑.gotoAndStop(Math.floor(已下载字节/总帧数)*);

       已下载字节、总帧数 也是友邻源码，你自己获取

       然后加上条件语句判断

       最后模式下载测试一下

急求MATLAB编程源代码用四阶龙格库塔法解如下微分方程 y'=y-2x/y(0<x<1),flash赛车游戏源码y(0)=1,步长为h=0.2

       % 以下另存为文件 myrk4.m

       function [x,y]=myrk4(ufunc,y0,h,a,b)

       %参数: 函数名称，初始值向量，迪士尼彩票源码步长，台球碰撞算法源码时间起点，古墓推金币源码时间终点

       n=floor((b-a)/h);%求步数 

       x(1)=a;%时间起点  

       y(:,1)=y0;%赋初值

       %按龙格库塔方法进行求解 

       for ii=1:n   

        x(ii+1)=x(ii)+h;   

        k1=ufunc(x(ii),y(:,ii));   

        k2=ufunc(x(ii)+h/2,y(:,ii)+h*k1/2);   

        k3=ufunc(x(ii)+h/2,y(:,ii)+h*k2/2); 

        k4=ufunc(x(ii)+h,y(:,ii)+h*k3);

        y(:,ii+1)=y(:,ii)+h*(k1+2*k2+2*k3+k4)/6; 

       end

       以下是主程序

% y'=y-2x/y  (0<x<1),y(0)=1,步长为h=0.2

       fun = inline('y-2*x/y');

       [t1,f1]=myrk4(fun,1,0.2,0,1);%测试时改变test_fun的函数维数，别忘记改变初始值的维数 

       subplot(); plot(t1,f1)  %自编函数 

       title('自编函数求解结果') 

       %用系统自带函数ode进行比较

       [t,f] = ode(fun,[0 1],1); 

       subplot(); plot(t,f);title('ode求解结果')