mathematica的高手进来帮帮忙把这个c程序翻译过来

来源:百度知道 编辑:UC知道 时间:2024/06/06 19:05:20
j=0;
y=0;
for(n=0;n<=1000;n++)
{for(m=0,k=0;m>1||n>1;)
{a=Radom[Integer];
if(a=0)
m++;
else
n++;
}
if(m=2)
j+=1000;
else
y+=1000;}
也就是把上面的程序翻译成mathematica语言的

你的c程序本身是无限循环,我改了一个条件,注意%%%%%%行。
j = 0;
y = 0;
For[n = 0, n <= 1000, n++,
For[m = 0; k = 0, m < 1 || n < 1, %%%%%%%%%%%%%%%%%%%%
a = Random[Integer];
If[a == 0,
m++,
n++;
];
];
If[m == 2,
j += 1000,
y += 1000;
];
]

你这个C程序也写的太不专业了,搞不懂你要它干什么,写简明一点还行。