(*** dobject 0 ***)
r0s={x0s,y0s,z0s}={0,0,0}(* air *)
r0e={x0e,y0e,z0e}={29.2,10.8,50}(* air *)

(*** object 1 ***)
r1s={x1s,y1s,z1s}={2.9,2.8+0.035,0} (* substrate *)
r1e={x1e,y1e,z1e}={2.9+23.4,2.8+0.035+1.6,50}(* substrate *)

(*** object 2 ***)
r2s={x2s,y2s,z2s}={2.9,2.8,0}(* ground *)
r2e={x2e,y2e,z2e}={2.9+23.4,2.8+0.035,50}(* ground *)

(*** dobject 3 ***)
r3s={x3s,y3s,z3s}={29.2/2-1.1,2.8+0.035+1.6,0}(* signal line *)
r3e={x3e,y3e,z3e}={29.2/2+1.1,2.8+0.035+1.6,50}(* signal line *)

(*** dobject 4 ***)
r4s={x4s,y4s,z4s}={29.2/2-1.1,2.8+0.035,50/2-1.3}(* dielectric rod A *)
r4e={x4e,y4e,z4e}={29.2/2+1.1,2.8+0.035+1.6,50/2+1.3}(* dielectric rod A *)

(*** dobject 5 ***)
r5s={x5s,y5s,z5s}={29.2/2-1.1,2.8+0.035,50/2-1.3-8.4}(* dielectric rod B *)
r5e={x5e,y5e,z5e}={29.2/2+1.1,2.8+0.035+1.6,50/2+1.3-8.4}(* dielectric rod B *)

(*** dobject 6 ***)
r6s={x6s,y6s,z6s}={29.2/2-1.1,2.8+0.035,50/2-1.3-2*8.4}(* dielectric rod C *)
r6e={x6e,y6e,z6e}={29.2/2+1.1,2.8+0.035+1.6,50/2+1.3-2*8.4}(* dielectric rod C *)

(*** dobject 7 ***)
r7s={x7s,y7s,z7s}={29.2/2-1.1,2.8+0.035,50/2-1.3+8.4}(* dielectric rod D *)
r7e={x7e,y7e,z7e}={29.2/2+1.1,2.8+0.035+1.6,50/2+1.3+8.4}(* dielectric rod D *)

(*** dobject 8 ***)
r8s={x8s,y8s,z8s}={29.2/2-1.1,2.8+0.035,50/2-1.3+2*8.4}(* dielectric rod E *)
r8e={x8e,y8e,z8e}={29.2/2+1.1,2.8+0.035+1.6,50/2+1.3+2*8.4}(* dielectric rod E *)

(*** ABC ***)
p1={xp1,yp1,zp1}={0,0,0}
p2={xp2,yp2,zp2}={29.2,0,0}
p3={xp3,yp3,zp3}={29.2,10.8+0.035,0}
p4={xp4,yp4,zp4}={0,10.8+0.035,0}
p5={xp1,yp1,zp1}={0,0,50}
p6={xp2,yp2,zp2}={29.2,0,50}
p7={xp3,yp3,zp3}={29.2,10.8+0.035,50}
p8={xp4,yp4,zp4}={0,10.8+0.035,50}

(*** Source ***)
s1={xs1,ys1,zs1}={29.2/2-1.1, 2.8+0.035, 10*0.2}
s2={xs2,ys2,zs2}={29.2/2+1.1, 2.8+0.035+1.6, 10*0.2}
s3={xs3,ys3,zs3}={29.2/2, 2.8+0.035, 10*0.2}
s4={xs4,ys4,zs4}={29.2/2, 2.8+0.035+1.6, 10*0.2}

(*** Observation ***)
o1={xo1,yo1,zo1}={29.2/2, 2.8+0.035+1.6/2, 20*0.2}
o2={xo2,yo2,zo2}={29.2/2, 2.8+0.035+1.6/2, 50-20*0.2}

(*** Mesh data ***)
m[i_,j_,k_]:={0.2*(i-1),0.2*(j-1),0.2*(k-1)}

mesh=147*55*250

Graphics3D[
{
(*** draw axial arrows ***)
Red,Cone[{{2,0,0},{4,0,0}},1/2],  Text[x,{3,0,-1}],
Green,Cone[{{0,2,0},{0,4,0}},1/2], Text[y,{-1,3,-1}],
Blue,Cone[{{0,0,2},{0,0,4}},1/2],Text[z,{-1,0,3}],
Red, Cylinder[{{0,0,0},{2,0,0}},1/5],(* arrow x *)
Green, Cylinder[{{0,0,0},{0,2,0}},1/5],(* arrow y *)
Blue, Cylinder[{{0,0,0},{0,0,2}},1/5],(* arrow z *)
(*** draw objects ***)
Green,Opacity[0.5],Cuboid[r1s,r1e], (* substrate *)
Yellow, Opacity[0.5],Cuboid[r2s,r2e],(* ground *)
Yellow,Opacity[0.5],Cuboid[r3s,r3e],(* signal line *)
RGBColor[0,1,1,0.1],Cuboid[r0s,r0e],(* air *)
Blue,Opacity[0.5],Cuboid[r4s,r4e],(* dielectric rod B *)
Blue,Opacity[0.5],Cuboid[r5s,r5e],(* dielectric rod B *)
Blue,Opacity[0.5],Cuboid[r6s,r6e],(* dielectric rod C *)
Blue,Opacity[0.5],Cuboid[r7s,r7e],(* dielectric rod D *)
Blue,Opacity[0.5],Cuboid[r8s,r8e],(* dielectric rod D *)

(*(*** draw boundary condition ***)
Purple,Opacity[0.5],Cuboid[p1,p3], Text[ABC xy1,(p1+p3)/2],
Purple,Opacity[0.5],Cuboid[p5,p7], Text[ABC xy2,(p5+p7)/2],*)

(*** source condition ***)
Red,Opacity[1],Cuboid[s1,s2], Text[Source,s2*1.1],
Red,Arrowheads[Small],Arrow[{s3,s4}],

(*** observation condition ***)
Red,Sphere[o1,0.3],Text[P1,o1+1],
Red,Sphere[o2,0.3],Text[P2,o2+1],

(*** x,y,z mesh ***)
Red,Point[Table[m[x,1,1],{x,1,147}]],Text[147,p2*1.05],
Green,Point[Table[m[1,y,1],{y,1,55}]],Text[55,p4*1.25-1],
Blue,Point[Table[m[1,1,z],{z,1,250}]],Text[250,p5*1.05],

(*** RAM ***)
Black,Text[mesh,p1-4],

},
Boxed->False
]