作者kinwind ()
看板Visual_Basic
标题Re: [.NET] 请教程式问题
时间Sat Mar 1 21:07:56 2008
看不大懂你的方程式在写啥，所以只能跟你说递回的方式，如下
Sub Main()
MsgBox(Fz(5))
End Sub
Function Fz(ByVal i As Integer) As Double
If i = 0 Then
Fz = 1
Else
Fz = i * Fz(i - 1)
End If
End Function
※ 引述《masto (momo)》之铭言：
: 请输入专案类型(网站专案或者应用程式专案)：
: fz(i)=fz0+0.5*0.01*(((1./sqrt(2.*pi))*exp(-(z(i+1)**2./2.)))+((1./sqrt(2.*pi))*exp(-(z(I+2)**2./2.))))
: fz(I+1)=fz(i)+0.5*0.01*(((1./sqrt(2.*pi))*exp(-(z(i+2)**2./2.)))+((1./sqrt(2.*pi))*exp(-(z(I+3)**2./2.))))
: fz(I+2)=fz(i+1)+0.5*0.01*(((1./sqrt(2.*pi))*exp(-(z(i+3)**2./2.)))+((1./sqrt(2.*pi))*exp(-(z(I+4)**2./2.))))
: 接下来要怎麽接要跑个两百次
: 最後回到3.49
: 请帮忙集思广益 多谢
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 203.73.7.173