Commit: 93e904e0c512de5fb83a29684987abed670ba955 - myprojects-hg-reborn (hg)

Commit MetaInfo

• Revision: 93e904e0c512de5fb83a29684987abed670ba955 (tree)
• Zeit: 2008-06-16 21:47:03
• Autor: iselllo
• Commiter: iselllo

Log Message

Now the code is able to initialize its own random number generator, so I
do not need any longer any input file with the initial particle
positions.

Ändern Zusammenfassung

• modified: TCL-codes/restart_aggregates.tcl

Diff

diff -r b43c673201d0 -r 93e904e0c512 TCL-codes/restart_aggregates.tcl
--- a/TCL-codes/restart_aggregates.tcl	Sun Jun 15 00:27:26 2008 +0000
+++ b/TCL-codes/restart_aggregates.tcl	Mon Jun 16 12:47:03 2008 +0000
@@ -2,11 +2,11 @@
 
 # number of monomers in each cluster
 
-set n_part 5
+set n_part 50
 
 #number of clusters
 
-set type_of_part 10
+set type_of_part 200
 
 #total number of monomers
 
@@ -17,7 +17,7 @@
 #Now the situation is different: the box size is chosen and density is not relevant.
 
 
-set box_l 200.
+set box_l 10000.
 
 # set density 0.03
 
@@ -47,7 +47,7 @@
 
 # Now I am going to read a simple text file, NOT a block file
 #set filename "clusters_ini_$j"
-set filename "initial_state_folded_and_shifted" 
+set filename "copy_of_cluster50_200" 
 #set filename "initial_state_folded" 
 
 set fp [open $filename "r"]
@@ -105,7 +105,7 @@
 #parameters of the simulation
 
 
-set tot_time 300.
+set tot_time 400.
 
 
 set my_step 0.00125
@@ -120,7 +120,7 @@
 
 # number of configurations I want to save
 
-set N_save 150
+set N_save 4000
 #I save a configuration every time steps
 
 set every [expr $N_step/$N_save]
@@ -176,6 +176,15 @@
 set obs5 [open "time.dat" "w"] 
 
 
+#initialization random numbers
+
+expr srand(200)
+set l ""; for {set i 0} {$i < [setmd n_nodes]} {incr i} {
+ lappend l [expr int(32768*rand())]
+}
+eval t_random seed $l
+
+
 
 
 #puts "the simulation time now is, [setmd time]"