loncom/interface/statistics/lonproblemanalysis.pm - diff

Return to lonproblemanalysis.pm CVS log

Up to [LON-CAPA] / loncom / interface / statistics

version 1.92, 2004/10/04 19:49:41	version 1.93, 2004/10/05 14:03:45
Line 619 sub OR_tries_analysis {	Line 619 sub OR_tries_analysis {
foreach my $foilid (@{$concept->{'foils'}}) {	foreach my $foilid (@{$concept->{'foils'}}) {
for (my $try=$mintries;$try<=$maxtries;$try++) {	for (my $try=$mintries;$try<=$maxtries;$try++) {
# concept analysis data	# concept analysis data
$concept_data[$j]->{'_correct'} +=	$concept_data[$j]->[$try]->{'_correct'} +=
$response_data{$foilid}->[$try]->{'_correct'};	$response_data{$foilid}->[$try]->{'_correct'};
$concept_data[$j]->{'_total'} +=	$concept_data[$j]->[$try]->{'_total'} +=
$response_data{$foilid}->[$try]->{'_total'};	$response_data{$foilid}->[$try]->{'_total'};
#	#
# foil analysis data	# foil analysis data
Line 681 sub OR_tries_analysis {	Line 681 sub OR_tries_analysis {
# Create concept plot	# Create concept plot
my @concept_plot_data;	my @concept_plot_data;
for (my $j=0;$j<=$#concept_data;$j++) {	for (my $j=0;$j<=$#concept_data;$j++) {
my $total = $concept_data[$j]->{'_total'};	my $total = $concept_data[$j]->[$try]->{'_total'};
if ($total == 0) {	if ($total == 0) {
$concept_plot_data[$j] = 0;	$concept_plot_data[$j] = 0;
} else {	} else {
$concept_plot_data[$j] = 100 *	$concept_plot_data[$j] = 100 *
sprintf('%0.3f',	sprintf('%0.3f',
$concept_data[$j]->{'_correct'} / $total);	$concept_data[$j]->[$try]->{'_correct'} /
	$total);
}	}
}	}
#	#