Browse files

small fix to dielectrics

  • Loading branch information...
1 parent 5895c02 commit 706627224f252a55df097d75e19614cd9bcadc0c Stefan Kesselheim committed Apr 2, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 scripts/dielectrics.tcl
View
4 scripts/dielectrics.tcl
@@ -200,7 +200,7 @@ proc dielectric_sphere { args } {
}
if { [ lindex $args $argno ] == "type" } {
incr argno
- set type [ expr 1.* [ lindex $args $argno ] ]
+ set type [ expr 1 * [ lindex $args $argno ] ]
incr argno
continue
}
@@ -222,7 +222,7 @@ proc dielectric_sphere { args } {
set y [ expr $radius*sin($phi)*sin($theta) ]
set z [ expr $radius*cos($theta) ]
set phi [ expr $phi+$incr_phi ]
- part [ expr $n_induced_charges ] pos [expr $cx+$x] [expr $cy+$y] [expr $cy+$z] q [ expr $sigma*$res*$res +0.1*([ t_random ]-0.5) ] type $type fix 1 1 1
+ part [ expr $n_induced_charges ] pos [expr $cx+$x] [expr $cy+$y] [expr $cz+$z] q [ expr $sigma*$res*$res +0.0*([ t_random ]-0.5) ] type $type fix 1 1 1
incr n_induced_charges
incr ic_counter
lappend icc_normals [ list [ expr $direction*$x/$radius ] [ expr $direction* $y/$radius ] [ expr $direction* $z/$radius ] ]

0 comments on commit 7066272

Please sign in to comment.