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.