📄 discretedata.tcl
字号:
#!/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 0set nr 0while {[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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -