loncom/homework/default_homework.lcpm - diff

Return to default_homework.lcpm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.176, 2019/04/03 21:37:11	version 1.177, 2019/11/06 16:20:06
Line 29	Line 29

#init some globals	#init some globals
$hidden::RANDOMINIT=0;	$hidden::RANDOMINIT=0;
	$hidden::RANDOMINITTRYPART='';
$pi=atan2(1,1)*4;	$pi=atan2(1,1)*4;
$rad2deg=180.0/$pi;	$rad2deg=180.0/$pi;
$deg2rad=$pi/180.0;	$deg2rad=$pi/180.0;
Line 655 sub hinton {	Line 656 sub hinton {

sub random {	sub random {
my ($start,$end,$step)=@_;	my ($start,$end,$step)=@_;
if ( ! $hidden::RANDOMINIT ) {	if (( ! $hidden::RANDOMINIT ) \|\|
	(($external::randomizetrypart ne '') &&
	($hidden::RANDOMINITTRYPART ne $external::randomizetrypart))) {
if ($external::randomseed == 0) { $external::randomseed=1; }	if ($external::randomseed == 0) { $external::randomseed=1; }
if ($external::randomseed =~/,/) {	if ($external::randomseed =~/,/) {
my ($num1,$num2) = map { abs($_); } split(/,/,$external::randomseed);	my ($num1,$num2) = map { abs($_); } split(/,/,$external::randomseed);
Line 681 sub random {	Line 684 sub random {
}	}
&math_random_uniform();	&math_random_uniform();
$hidden::RANDOMINIT=1;	$hidden::RANDOMINIT=1;
	$hidden::RANDOMINITTRYPART=$external::randomizetrypart;
}	}
if (!defined($step)) { $step=1; }	if (!defined($step)) { $step=1; }
my $num=1+int(($end-$start)/$step);	my $num=1+int(($end-$start)/$step);