Update dielectrics.tcl

Added check of variable n_circles to ensure, that the value is not zero
If round($n_half_equator*sin($theta)) in procedure "dielectric_sphere" is zero the subsequent setting of variable incr_phi leaded to a division by zero.