discretedata.tcl

来自「关于自组织神经网络的一种新结构程序,并包含了其它几种神经网络的程序比较」· TCL 代码 · 共 31 行

#!/opt/tcl/bin/tclsh
######################################################################
global DISKRETE_DATA_FILE

######################################################################

#set DISCRETE_DATA_FILE "~/tmp/LBG-U.dat"
set DISCRETE_DATA_FILE "/home/ftp/pub/data/LBG-U.dat"


set fd [open $DISCRETE_DATA_FILE]
set i 0
set nr 0

while {[gets $fd line] != -1} {

	set found [scan $line "%f %f" x_value y_value]
	if { $found != 2 } {
		#puts stderr "No Match in line $i + 1: >$line<"
		;
	} else {
		#puts "$i: x1 = $x_value, y1 = $y_value"
		puts "\t\tdSX\[$nr\]=(int)(kx+l*$x_value); dSY\[$nr\]=(int)(ky+l*(1.0-$y_value));"
		incr nr
	}
	incr i
}
    
close $fd