Question

Maple产生随机数问题求大神修改代码

我需要Maple产生一个数列，其中有随机的一半是1一半是-1。比如说一个十位的数列， 其中随机五位是1其余五位是-1。我现在有一个code但是生成的结果很奇怪，求帮忙改正。

v := Vector(100);
for i from 1 to 100 do v[i] := 1 end:
cnt := 0;
while cnt < 50 do
k := rand() mod 100 + 1;
if v[k] = 1 then
v[k] := -1;
cnt := cnt + 1;
end;
end;

Answer 1

没什么问题
v := Vector(1..100,1):
cnt := 0:
while cnt < 50 do
k := rand() mod 100 + 1:
if v[k] = 1 then
v[k] := -1:
cnt := cnt + 1:
end:
end:
也可以这样
randomize():
temp:= Vector(100):
v:= Vector(100):
for i from 1 to 100 do
if i<=50 then temp[i]:=1 else temp[i]:=-1 end if;
end;
for i from 100 by -1 to 1 do
r:=rand(1..i)();
v[101-i]:=temp[r];
temp[r]:=temp[i];
end: