version 1.48, 2002/12/12 18:00:24
|
version 1.50, 2003/02/21 23:01:48
|
Line 40
|
Line 40
|
# 11/1,11/2,11/14,11/16,11/22,12/28, |
# 11/1,11/2,11/14,11/16,11/22,12/28, |
# YEAR=2001 |
# YEAR=2001 |
# 07/05/01,08/30,08/31 Gerd Kortemeyer |
# 07/05/01,08/30,08/31 Gerd Kortemeyer |
# 12/16 Scott Harrison |
|
# |
# |
### |
### |
|
|
Line 418 sub pickrandom {
|
Line 417 sub pickrandom {
|
my $mpc=$hash{'map_pc_'.$hash{'src_'.$rid}}; |
my $mpc=$hash{'map_pc_'.$hash{'src_'.$rid}}; |
# ------------------------------------------- put existing resources into array |
# ------------------------------------------- put existing resources into array |
my @currentrids=(); |
my @currentrids=(); |
foreach (keys %hash) { |
foreach (sort(keys(%hash))) { |
if ($_=~/^src_($mpc\.\d+)/) { |
if ($_=~/^src_($mpc\.\d+)/) { |
if ($hash{'src_'.$1}) { push @currentrids, $1; } |
if ($hash{'src_'.$1}) { push @currentrids, $1; } |
} |
} |
} |
} |
|
# rids are number.number and we want to numercially sort on |
|
# the second number |
|
@currentrids=sort { |
|
my (undef,$aid)=split(/\./,$a); |
|
my (undef,$bid)=split(/\./,$b); |
|
$aid <=> $bid; |
|
} @currentrids; |
next if ($#currentrids<$rndpick); |
next if ($#currentrids<$rndpick); |
# -------------------------------- randomly eliminate the ones that should stay |
# -------------------------------- randomly eliminate the ones that should stay |
srand(&Apache::lonnet::rndseed($rid)); # use rid instead of symb |
my (undef,$id)=split(/\./,$rid); |
for (my $i=1;$i<=$rndpick;$i++) { |
my $rndseed=&Apache::lonnet::rndseed($id); # use id instead of symb |
while (1) { |
&Math::Random::random_set_seed_from_phrase($rndseed); |
my $randomidx=int(rand($#currentrids+1)); |
my @whichids=&Math::Random::random_permuted_index($#currentrids+1); |
if ($currentrids[$randomidx]) { |
for (my $i=1;$i<=$rndpick;$i++) { $currentrids[$whichids[$i]]=''; } |
$currentrids[$randomidx]=''; |
#&Apache::lonnet::logthis("$id,$rndseed,".join(':',@whichids)); |
last; |
|
} |
|
} |
|
} |
|
# -------------------------------------------------------- delete the leftovers |
# -------------------------------------------------------- delete the leftovers |
for (my $k=0; $k<=$#currentrids; $k++) { |
for (my $k=0; $k<=$#currentrids; $k++) { |
if ($currentrids[$k]) { |
if ($currentrids[$k]) { |