米雪陛下 发表于 2009-5-31 11:55:40

[求助]把这段语言翻译成C语言

本帖最后由 米雪陛下 于 2009-5-31 11:57 编辑

如题，麻烦哪位大人帮忙把这个程序翻译成C语言，并保证通过。非常感谢:loveliness:


! Levy distribution,p(x)~x^^(-lamda),==> P 1(x)
! p2(x)= 1/(2*3.1415926)/0.25*exp(-(x-0.5)**2/(2*0.25*0.25))
!integer
!real
parameter(N=1000)
real x1(N),x2(N),px1,px2,x
lam=3.
open(1,file='linxue.dat')
do i=1,N
11 x=rand()
px1=2.E-6*x**(-lam)
if (rand().Lt.px1) then
x1(i)=x
else
goto 11
endif

12 x=rand()
px2=1/(2*3.1415926)/0.25*exp(-(x-0.5)**2/(2*0.25*0.25))
if (rand().Lt.px2) then
x2(i)=x
else
goto 12
endif
enddo
do i=1,N
write(1,*) i,int(1000*x1(i))+1,int(1000*x2(i))+1
enddo
pause
end

熊熊 发表于 2009-5-31 12:31:34

无能为力~~

米雪陛下 发表于 2009-5-31 12:35:16

无能为力滴都顶贴。。。

Pao龙Tao 发表于 2009-5-31 12:54:04

你这是VB?...这段的功能是干啥的。..

Pao龙Tao 发表于 2009-5-31 13:01:36

好怪的语言.看不懂..:Q

米雪陛下 发表于 2009-5-31 14:19:38

是形成两个满足各自方程的随机数列。。

诚毅第一帅哥 发表于 2009-5-31 15:00:22

this is vfp language...;P

米雪陛下 发表于 2009-5-31 16:57:45

楼上滴强人会这个语言不。。。

ruanjt17 发表于 2009-5-31 18:15:04

- - 不懂. 虽然见得多但是一点都不懂

SUN 发表于 2009-5-31 22:36:32

天书 - -

hyp 发表于 2009-5-31 23:40:06

虽然不知道是什么语言 大体看得出来是打开'linxue.dat'然后通过EXP跟rand之类的函数算个什么毛东西出来然后在写进去?

米雪陛下 发表于 2009-6-1 11:12:08

ls答对了。。。。

AK47 发表于 2009-6-1 16:13:16

500都不够塞牙缝。。怎么有力气来做。

hyp 发表于 2009-6-1 20:51:49

的确啊 500块 我编译器都懒得开了...
如果是编译型语言的话 把bin给我 我可以直接帮楼主逆向

米雪陛下 发表于 2009-6-1 20:54:29

两个大财主。。。
页: [1] 2
查看完整版本: [求助]把这段语言翻译成C语言