コミット: 5cf65824a9b1c972c6ea91cf9c80d4b2de02052a - myprojects-hg-reborn (hg)

コミットメタ情報

• リビジョン: 5cf65824a9b1c972c6ea91cf9c80d4b2de02052a (tree)
• 日時: 2008-01-14 02:52:46
• 作者: iselllo
• コミッター: iselllo

ログメッセージ

Now read_test.tcl is able to read configurations from a selected one to
a final one (specified by the user) and with a given spacing.

変更サマリ

• modified: TCL-codes/read_test.tcl

差分

diff -r 24b6b3211e19 -r 5cf65824a9b1 TCL-codes/read_test.tcl
--- a/TCL-codes/read_test.tcl	Sun Jan 13 03:18:18 2008 +0000
+++ b/TCL-codes/read_test.tcl	Sun Jan 13 17:52:46 2008 +0000
@@ -27,20 +27,41 @@
 
 
 
-
+#Now I start reading the configurations
 
 #The following 2 parameters are needed to read the saved configurations
 
-set my_increase 1
 
 # number of snapshots of the system
-set tot_config 10
+set tot_config 1000
+
+
+#my_increase tells me how often I want to read the saved configurations
+#in the system
+
+set my_increase 100 
+
+
+#The parameters I set above mean that I will read one configuration every my_increase
+#out of the tot_config configurations saved
+
+set ini_conf 0 
+
+#I set the value of the initial configuration I want to start reading
+
 
 # number of particles
 
-set n_part 10
+set n_part 5000
 
-set new_iter [expr $n_part*$tot_config]
+#set new_iter [expr $n_part*$tot_config]
+
+
+set new_iter [expr $n_part*($tot_config-$ini_conf)/$my_increase]
+
+puts "new_iter is, $new_iter"
+
+
 
 #counter
 set cnt 0
@@ -51,7 +72,7 @@
 set Mvel {}
 
 
-set j 0
+set j $ini_conf
 while {$j< $tot_config} {
 puts "j is $j"
 set f [open "config_vel_$j" "r"]
@@ -109,7 +130,9 @@
 lappend wlist [lindex $value ]
 
 }
-incr j $my_increase
+#incr j $my_increase
+incr j
+
 }
 
 
@@ -136,7 +159,8 @@
 lappend wlist2 [lindex $value ]
 
 }
-incr j $my_increase
+#incr j $my_increase
+incr j 
 }