capa/capa51/GUITools/capastats.tcl - diff

Return to capastats.tcl CVS log

Up to [LON-CAPA] / capa / capa51 / GUITools

version 1.3, 1999/10/18 20:58:33	version 1.4, 1999/10/28 16:32:07
Line 1511 proc CTitemCorrelation { num classpath s	Line 1511 proc CTitemCorrelation { num classpath s
updateStatusBar [expr {$line_cnt/double($maxLine)}] $num	updateStatusBar [expr {$line_cnt/double($maxLine)}] $num
}	}
if { $line_cnt == 2 } {	if { $line_cnt == 2 } {
set aline [string trim $aline]	set aline [string trimright $aline]
set weights [split $aline {}]	set weights [split $aline {}]
}	}
if { $line_cnt > 3} {	if { $line_cnt > 3} {
set aline [string trim $aline]	set aline [string trimright $aline]
set data [string range $aline 10 end]	set data [string range $aline 10 end]
set ans_str [lindex [split $data ","] 0]	set ans_str [lindex [split $data ","] 0]
set ans_char_list [split $ans_str {} ]	set ans_char_list [split $ans_str {} ]
Line 1576 proc CTitemCorrelation { num classpath s	Line 1576 proc CTitemCorrelation { num classpath s
close $fileId	close $fileId
removeStatus $num	removeStatus $num
# print out the correlation matrix	# print out the correlation matrix
# parray sum_x	#parray sum_x
# parray sum_y	#parray sum_y
# parray prod_xy	#parray prod_xy
	#puts $question_cnt
CTputs $num " "	CTputs $num " "
for { set ii 1 } { $ii < $question_cnt } { incr ii } {	for { set ii 1 } { $ii < $question_cnt } { incr ii } {
CTputs $num [format " %2d" [expr {$ii+1}] ]	CTputs $num [format " %2d" [expr {$ii+1}] ]