预览加载中,请您耐心等待几秒...
1/2
2/2

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

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

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

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

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

指数分布、双参数指数分布随机数的产生 四眼北极熊 下面的VB程序用来产生服从指数分布以及双参数指数分布的随机数。 指数分布以及双参数指数分布的概率密度函数分别为: λe−λx,x≥0 X~Exp(λ),p()x= 0,x<0,λ>0˗ −λ−µ λe()x,x≥µ X~Exp(λ,μ),p()x= 0,x<µ,λ>0,μ≠0(μ=0时, 双参数指数分布Exp(λ,μ)退化为指数分布Exp(λ))。 实际使用时,不必在窗体上添加任何控件,只要在代码窗口里粘贴上下面的 代码,运行时单击窗体,在弹出的对话框中输入参数后即可在窗体上显示出服从 指数分布或双参数指数分布的随机数了。该程序在VB6.0环境下运行通过。 该程序算法简单,可以很轻松地转换为Java、C、C++或其它语言。 1.产生服从指数分布的随机数的VB程序代码: PrivateSubForm_Click() FontSize=10 Dimi%,n%,j%,λ#,x#'n是产生的随机数个数,λ是指数分布的参数 n=InputBox("请输入所需产生随机数的个数") λ=InputBox("请输入指数分布的参数") Fori=1To(n\5) Forj=1To5 Randomize x=(-1/λ*Log(Rnd)) PrintFormat(x,"0.0000"),Spc(3); Nextj Print Nexti Fori=1To(nMod5) Randomize x=(-1/λ*Log(Rnd)) PrintFormat(x,"0.0000"),Spc(3); Nexti EndSub 1 2.产生服从双参数指数分布的随机数的VB程序代码: PrivateSubForm_Click() FontSize=10 Dimi%,n%,j%,λ#,μ#,x# 'n是需要产生的随机数个数,λ是双参数指数分布的尺度参数 'μ是双参数指数分布的位置参数 n=InputBox("请输入所需产生随机数的个数") λ=InputBox("请输入双参数指数分布的尺度参数") μ=InputBox("请输入双参数指数分布的位置参数") Fori=1To(n\10) Forj=1To10 Randomize x=(-1/λ*Log(Rnd)+μ) PrintFormat(x,"0"),Spc(3); Nextj Print Nexti Fori=1To(nMod10) Randomize x=(-1/λ*Log(Rnd)+μ) PrintFormat(x,"0"),Spc(3); Nexti EndSub 2