数值计算编程20个

1、1、P11、第一题私有子窗体_单击()将a、b、x、s调成双精度a=1b=2s=0.001做x=(a b)/2如果(x 3 - x - 1) * (a 3 - a - 1) 0b=x其他a=x结束条件循环直到Abs(x 3 - x - 1) s打印x打印x 3 - x - 1末端接头结果：1.324707031252、P12，第五题私有子窗体_单击()将a、x、s调暗为双倍a=8s=0.001x=a做p=xx=(p a/p)/2循环直到Abs(x - p) s打印x末端接头结果：2.828427125049863、程序：私有子窗体_单击()将i调至整数尺寸t，a(0至3)，p为双精度t=2i=

2、0至3a(i)=InputBox(x( i )=)接下来我p=a(3)对于i=2至0步骤1p=p * t a(i)接下来我打印p末端接头结果：494、程序：私有子窗体_单击()将a、b、s调成双份a=0.2b=1.34s=(a b)/2做如果a * (1 - a) * s * (1 - s) 0则b=s其他a=s结束条件s=(a b)/2循环直到b - a 0.01打印s末端接头结果：0.9971093755、程序：私有子窗体_单击()将x、s、p减为双精度将i调至整数x=101s=10p=1/2/10i=1做s=s pp=p/2 *(1)/100 *(2 * I-1)i=i 1循环直到p 0

3、.01打印s末端接头结果：10.056、拉格朗日：私有子窗体_单击()将I、j、n减为整数尺寸x(1至100)，y(1至100)，p，s，t为双精度t=2.5n=3i=1至nx(i)=InputBox(x( i )=)y(i)=InputBox(y( i )=)接下来我s=0i=1至np=1对于j=1至n如果是的话p=p * (t - x(j)/(x(i) - x(j)结束条件下js=s p * y(i)接下来我打印s末端接头结果：67 、课堂埃尔米特插值程序：私有子窗体_激活()Dim x0，y0，x1，y1，g0，g1作为双精度x0=0y0=0x1=1y1=1g0=0g1=2x=0.5a0

4、=-2/(x0 - x1) 3b0=1/(x0 - x1) 2 2 * x0/(x0 - x1) 3a1=-2/(x1 - x0) 3b1=2 * x1/(x1 - x0) 3 1/(x1 - x0) 2k0=1/(x0 - x1) 2k1=1/(x1 - x0) 2l0=(x - x1) 2 * (a0 * x b0)l1=(x - x0) 2 * (a1 * x b1)gg0=k0 * (x - x0) * (x - x1) 2gg1=k1 * (x - x0) 2 * (x - x1)y=l0 * y0 l1 * y1 gg0 * g0 gg1 * g1打印y末端接头结果：0.258、第

5、一个：样条函数：私有子窗体_激活()Dim x(3)、y(3)、m0、m1、m2作为双精度将i调至整数i=0至2x(i)=iy(i)=i * i接下来我m0=0m2=4h0=x(1) - x(0)h1=x(2) - x(1)a=2/h0b=4/h0 4/h1c=2/h1d=(-6 * y(1)6 * y(2)/h1 2-(6 * y(0)-6 * y(1)/h0 2m1=(d - a * m0 - c * m2)/b打印货币供应量末端接头结果：29、牛顿插值：将k减为整数私有子组合1 _单击()将i调至整数k=CInt(Combo1 .文本)i=0至9文本1(2 * i).可见=假文本1(2

6、* i 1).可见=假标签.可见=假接下来我i=0至k - 1带标签（一)。可见=真。顶部=1560 400 * i。标题=第 i 1 点：。左=120以.结束带文本1(2 * i)。可见=真。左=800。顶部=1500 400 * i以.结束带文本1(2 * i 1)。可见=真。左侧=1500。顶部=1500 400 * i以.结束接下来我末端接头私有子命令1 _单击()将i调至整数双重模糊s=0i=0至k - 1s=s ff(i) * f1(Text3 .文本(一)接下来我文本2 .Text=s末端接头私有子命令2 _单击()目标末端接头私有子窗体_加载()将i调至整数i=2至10组合1

7、.附件一接下来我末端接头函数ff(单位为整数)将i调至整数双重模糊s=0如果n=0，则ff=文本1(1 ).文本退出功能结束条件i=0至ns=s Text1(2 * i 1).文本/f(i，n)接下来我ff=s结束功能函数f(以p为整数，以n为整数)将i调至整数双重模糊s=1i=0至n如果我同意的话s=s *(文本1(2 * p).文本-文本1(2 * i).文本)结束条件接下来我f=s结束功能函数f1(ByVal x为双精度，ByVal n为整数)将i调至整数双重模糊如果n=0，则f1=1退出功能结束条件s=1i=0至n - 1s=s * (x - Text1(2 * i).文本)接下来我f

8、1=s结束功能结果：带入(1，1)、(2，4)、(3，7)、(4，8)、(5，6)得到变量为3.5时，插值结果为7.835937510、复化辛普生算法：私有子命令1 _单击()将I、n减为整数将s、h、x减为双精度a=InputBox(请输入左端点a:)b=InputBox(请输入右端点b:)n=InputBox(请输入分段数n:)h=(b - a)/ns=f(b) - f(a)x=ai=1至nx=x h/2s=s 4 * f(x)x=x h/2s=s 2 * f(x)接下来我s=h/6 * s文本1 .Text=s末端接头函数f(双精度x双精度)如果x=0，则f=1退出功能结束条件f=正弦(

9、x)/x结束功能结果：当输入区间为(0，1)，分8段，运行结果是0.939470975194311、p153第6题私有子窗体_加载()将s、t、e减为双精度模糊我，k为整数t=0k=0s=(t 2) 0.5e=0.001i=0至20如果是，那么k=1退出结束条件t=ss=(t 2) 0.5接下来我文本1 .Text=s末端接头结果：1.9998494036782912、p154第18题双份调暗私有子窗体_加载()Dim x0，x，e作为双精度将i调至整数x=5e=0.000001a=InputBox(a=)i=0至20x0=x文本1 .文本=文本1 .文本vbCrLf f1(x0)如果f1(x

10、0)=0，则退出结束条件x=x0 - f(x0)/f1(x0)如果Abs(x - x0) e，则退出结束条件接下来我如果我=20，那么 MsgBox 迭代失败！目标结束条件文本1 .文本=x末端接头函数f(双精度x双精度)f=x 3 - a结束功能函数f1(双精度x双精度)f1=3 * x 2结束功能结果：2.1544346900318813、p155第24题牛顿法私有子窗体_加载()Dim x0，e作为双精度将i调至整数x0=0e=0.000001n=20如果f1(x0)=0，则 MsgBox 奇异目标结束条件I=0至20x0=x如果f1(x)=0，则 MsgBox 奇异目标结束条件x=x0 - f(x0)/f1(x0)如果Abs(x - x0) e，则退出结束条件接下来我如果我=20，那么 MsgBox 迭代失败！