API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jun 25th, 2018
69
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VisualBasic 52.00 KB | None | 0 0
raw download clone embed print report
  1. ' Sierpinsky
  2.  
  3. Sub Main ()
  4.  
  5. Dim h(it-1) As Double
  6. Dim side As Double
  7. Dim x_r(3) As Double
  8. Dim y_r(3) As Double
  9. Dim x_l(3) As Double
  10. Dim y_l(3) As Double
  11. Dim x_t(3) As Double
  12. Dim y_t(3) As Double
  13. Dim coor(3,14) As Double
  14.  
  15.  
  16. side = W_seir/2
  17. h(0) = Sqr(3*(side^2)/4)
  18.  Component.Delete "component1"
  19.  'Solid.Delete "component1:Electrode1"
  20. 'Solid.Delete "component1:Electrode2"
  21. 'Solid.Delete "component1:Electrode3"
  22. ' Principal brick
  23. With Extrude
  24.         .Reset
  25.         .Name "Electrode_principal"
  26.         .Component "component1"
  27.         .Material "PEC"
  28.         .Mode "Pointlist"
  29.         .Height 0
  30.         .Origin "0.0", "0.0", h_substrate
  31.         .Uvector "1.0", "0.0", "0.0"
  32.         .Vvector "0.0", "1.0", "0.0"
  33.         .Point 0, 2*h(0)
  34.         .LineTo -side, 0
  35.         .LineTo side, 0
  36.         .LineTo 0, 2*h(0)
  37.         .Create
  38.     End With
  39. ' Brick construction
  40.     With Extrude
  41.         .Reset
  42.         .Name "Electrode"
  43.         .Component "component1"
  44.         .Material "PEC"
  45.         .Mode "Pointlist"
  46.         .Height 0
  47.         .Origin "0.0", "0.0", h_substrate
  48.         .Uvector "1.0", "0.0", "0.0"
  49.         .Vvector "0.0", "1.0", "0.0"
  50.         .Point 0, 0
  51.         .LineTo -side/2, h(0)
  52.         .LineTo side/2, h(0)
  53.         .LineTo 0, 0
  54.         .Create
  55.     End With
  56.     x_t(0)=-side/2
  57.     x_t(1)=0
  58.     x_t(2)=side/2
  59.     y_t(0)=h(0)
  60.     y_t(1)=0
  61.     y_t(2)=0
  62.     x_r(0) = x_t(0)
  63.     x_r(1) = x_t(1)
  64.     x_r(2) = x_t(2)
  65.     x_l(0) = x_t(0)
  66.     x_l(1) = x_t(1)
  67.     x_l(2) = x_t(2)
  68.     y_r(0) = y_t(0)
  69.     y_r(1) = y_t(1)
  70.     y_r(2) = y_t(2)
  71.     y_l(0) = y_t(0)
  72.     y_l(1) = y_t(1)
  73.     y_l(2) = y_t(2)
  74.  
  75. 'For i = 1 To it-1
  76.      side=side/(2)
  77.      h(1) = Sqr(3*(side^2)/4)
  78.  
  79.     ' Arriba del triangulo central
  80.     With Extrude
  81.         .Reset
  82.         .Name "Electrode2"
  83.         .Component "component1"
  84.         .Material "PEC"
  85.         .Mode "Pointlist"
  86.         .Height 0
  87.         .Origin "0.0", "0.0", h_substrate
  88.         .Uvector "1.0", "0.0", "0.0"
  89.         .Vvector "0.0", "1.0", "0.0"
  90.         .Point 0, h(0)
  91.         .LineTo -side/2, h(0)+h(1)
  92.         .LineTo side/2, h(0)+h(1)
  93.         .Create
  94.     End With
  95.     ' Izquierda del triangulo central
  96.     With Extrude
  97.         .Reset
  98.         .Name "Electrode3"
  99.         .Component "component1"
  100.         .Material "PEC"
  101.         .Mode "Pointlist"
  102.         .Height 0
  103.         .Origin "0.0", "0.0", h_substrate
  104.         .Uvector "1.0", "0.0", "0.0"
  105.         .Vvector "0.0", "1.0", "0.0"
  106.         .Point side, 0
  107.         .LineTo 3*side/2, h(1)
  108.         .LineTo side/2, h(1)
  109.         .Create
  110.     End With
  111.     ' Derecha del triangulo central
  112.     With Extrude
  113.         .Reset
  114.         .Name "Electrode1"
  115.         .Component "component1"
  116.         .Material "PEC"
  117.         .Mode "Pointlist"
  118.         .Height 0
  119.         .Origin "0.0", "0.0", h_substrate
  120.         .Uvector "1.0", "0.0", "0.0"
  121.         .Vvector "0.0", "1.0", "0.0"
  122.         .Point -side, 0
  123.         .LineTo -3*side/2, h(1)
  124.         .LineTo -side/2, h(1)
  125.         .Create
  126.     End With
  127.     ' 3 interaction
  128.     side=side/(2)
  129.      h(2) = Sqr(3*(side^2)/4)
  130.  
  131.     ' Arriba del triangulo central
  132.     With Extrude
  133.         .Reset
  134.         .Name "Electrode4"
  135.         .Component "component1"
  136.         .Material "PEC"
  137.         .Mode "Pointlist"
  138.         .Height 0
  139.         .Origin "0.0", "0.0", h_substrate
  140.         .Uvector "1.0", "0.0", "0.0"
  141.         .Vvector "0.0", "1.0", "0.0"
  142.         .Point 0, h(0)+h(1)
  143.         .LineTo -side/2, h(0)+h(1)+h(2)
  144.         .LineTo side/2, h(0)+h(1)+h(2)
  145.         .Create
  146.     End With
  147.  
  148.     With Extrude
  149.         .Reset
  150.         .Name "Electrode5"
  151.         .Component "component1"
  152.         .Material "PEC"
  153.         .Mode "Pointlist"
  154.         .Height 0
  155.         .Origin "0.0", "0.0", h_substrate
  156.         .Uvector "1.0", "0.0", "0.0"
  157.         .Vvector "0.0", "1.0", "0.0"
  158.         .Point side, h(0)
  159.         .LineTo 3*side/2, h(0)+h(2)
  160.         .LineTo side/2, h(0)+h(2)
  161.         .Create
  162.     End With
  163.  
  164.     With Extrude
  165.         .Reset
  166.         .Name "Electrode6"
  167.         .Component "component1"
  168.         .Material "PEC"
  169.         .Mode "Pointlist"
  170.         .Height 0
  171.         .Origin "0.0", "0.0", h_substrate
  172.         .Uvector "1.0", "0.0", "0.0"
  173.         .Vvector "0.0", "1.0", "0.0"
  174.         .Point -side, h(0)
  175.         .LineTo -3*side/2, h(0)+h(2)
  176.         .LineTo -side/2, h(0)+h(2)
  177.         .Create
  178.     End With
  179.     ' Izquierda del triangulo central
  180.         With Extrude
  181.         .Reset
  182.         .Name "Electrode7"
  183.         .Component "component1"
  184.         .Material "PEC"
  185.         .Mode "Pointlist"
  186.         .Height 0
  187.         .Origin "0.0", "0.0", h_substrate
  188.         .Uvector "1.0", "0.0", "0.0"
  189.         .Vvector "0.0", "1.0", "0.0"
  190.         .Point -2*side, h(1)
  191.         .LineTo -2*side-side/2, h(1)+h(2)
  192.         .LineTo -2*side+side/2, h(1)+h(2)
  193.         .Create
  194.     End With
  195.  
  196.     With Extrude
  197.         .Reset
  198.         .Name "Electrode8"
  199.         .Component "component1"
  200.         .Material "PEC"
  201.         .Mode "Pointlist"
  202.         .Height 0
  203.         .Origin "0.0", "0.0", h_substrate
  204.         .Uvector "1.0", "0.0", "0.0"
  205.         .Vvector "0.0", "1.0", "0.0"
  206.         .Point -3*side, 0
  207.         .LineTo -3*side-side/2, h(2)
  208.         .LineTo -3*side+side/2, h(2)
  209.         .Create
  210.     End With
  211.  
  212.     With Extrude
  213.         .Reset
  214.         .Name "Electrode9"
  215.         .Component "component1"
  216.         .Material "PEC"
  217.         .Mode "Pointlist"
  218.         .Height 0
  219.         .Origin "0.0", "0.0", h_substrate
  220.         .Uvector "1.0", "0.0", "0.0"
  221.         .Vvector "0.0", "1.0", "0.0"
  222.         .Point -side, 0
  223.         .LineTo -side-side/2, h(2)
  224.         .LineTo -side+side/2, h(2)
  225.         .Create
  226.     End With
  227.     ' Derecha del triangulo central
  228.     With Extrude
  229.         .Reset
  230.         .Name "Electrode10"
  231.         .Component "component1"
  232.         .Material "PEC"
  233.         .Mode "Pointlist"
  234.         .Height 0
  235.         .Origin "0.0", "0.0", h_substrate
  236.         .Uvector "1.0", "0.0", "0.0"
  237.         .Vvector "0.0", "1.0", "0.0"
  238.         .Point 2*side, h(1)
  239.         .LineTo 2*side-side/2, h(1)+h(2)
  240.         .LineTo 2*side+side/2, h(1)+h(2)
  241.         .Create
  242.     End With
  243.  
  244.     With Extrude
  245.         .Reset
  246.         .Name "Electrode11"
  247.         .Component "component1"
  248.         .Material "PEC"
  249.         .Mode "Pointlist"
  250.         .Height 0
  251.         .Origin "0.0", "0.0", h_substrate
  252.         .Uvector "1.0", "0.0", "0.0"
  253.         .Vvector "0.0", "1.0", "0.0"
  254.         .Point 3*side, 0
  255.         .LineTo 3*side-side/2, h(2)
  256.         .LineTo 3*side+side/2, h(2)
  257.         .Create
  258.     End With
  259.  
  260.     With Extrude
  261.         .Reset
  262.         .Name "Electrode12"
  263.         .Component "component1"
  264.         .Material "PEC"
  265.         .Mode "Pointlist"
  266.         .Height 0
  267.         .Origin "0.0", "0.0", h_substrate
  268.         .Uvector "1.0", "0.0", "0.0"
  269.         .Vvector "0.0", "1.0", "0.0"
  270.         .Point side, 0
  271.         .LineTo side-side/2, h(2)
  272.         .LineTo side+side/2, h(2)
  273.         .Create
  274.     End With
  275.  
  276.  
  277.  
  278.  
  279.  
  280.  
  281.     side=side/(2)
  282.      h(3) = Sqr(3*(side^2)/4)
  283.  
  284.  
  285.  
  286.  
  287.  
  288.  
  289.  
  290.     With Extrude
  291.         .Reset
  292.         .Name "Electrode13"
  293.         .Component "component1"
  294.         .Material "PEC"
  295.         .Mode "Pointlist"
  296.         .Height 0
  297.         .Origin "0.0", "0.0", h_substrate
  298.         .Uvector "1.0", "0.0", "0.0"
  299.         .Vvector "0.0", "1.0", "0.0"
  300.         .Point 2*side, h(2)
  301.         .LineTo 2*side-side/2, h(2)+h(3)
  302.         .LineTo 2*side+side/2, h(2)+h(3)
  303.         .Create
  304.     End With
  305.  
  306.     With Extrude
  307.         .Reset
  308.         .Name "Electrode14"
  309.         .Component "component1"
  310.         .Material "PEC"
  311.         .Mode "Pointlist"
  312.         .Height 0
  313.         .Origin "0.0", "0.0", h_substrate
  314.         .Uvector "1.0", "0.0", "0.0"
  315.         .Vvector "0.0", "1.0", "0.0"
  316.         .Point 3*side, 0
  317.         .LineTo 3*side-side/2, h(3)
  318.         .LineTo 3*side+side/2, h(3)
  319.         .Create
  320.     End With
  321.  
  322.     With Extrude
  323.         .Reset
  324.         .Name "Electrode15"
  325.         .Component "component1"
  326.         .Material "PEC"
  327.         .Mode "Pointlist"
  328.         .Height 0
  329.         .Origin "0.0", "0.0", h_substrate
  330.         .Uvector "1.0", "0.0", "0.0"
  331.         .Vvector "0.0", "1.0", "0.0"
  332.         .Point side, 0
  333.         .LineTo side-side/2, h(3)
  334.         .LineTo side+side/2, h(3)
  335.         .Create
  336.     End With
  337.  
  338.         With Extrude
  339.         .Reset
  340.         .Name "Electrode16"
  341.         .Component "component1"
  342.         .Material "PEC"
  343.         .Mode "Pointlist"
  344.         .Height 0
  345.         .Origin "0.0", "0.0", h_substrate
  346.         .Uvector "1.0", "0.0", "0.0"
  347.         .Vvector "0.0", "1.0", "0.0"
  348.         .Point -2*side, h(2)
  349.         .LineTo -2*side-side/2, h(2)+h(3)
  350.         .LineTo -2*side+side/2, h(2)+h(3)
  351.         .Create
  352.     End With
  353.  
  354.     With Extrude
  355.         .Reset
  356.         .Name "Electrode17"
  357.         .Component "component1"
  358.         .Material "PEC"
  359.         .Mode "Pointlist"
  360.         .Height 0
  361.         .Origin "0.0", "0.0", h_substrate
  362.         .Uvector "1.0", "0.0", "0.0"
  363.         .Vvector "0.0", "1.0", "0.0"
  364.         .Point -3*side, 0
  365.         .LineTo -3*side-side/2, h(3)
  366.         .LineTo -3*side+side/2, h(3)
  367.         .Create
  368.     End With
  369.  
  370.     With Extrude
  371.         .Reset
  372.         .Name "Electrode18"
  373.         .Component "component1"
  374.         .Material "PEC"
  375.         .Mode "Pointlist"
  376.         .Height 0
  377.         .Origin "0.0", "0.0", h_substrate
  378.         .Uvector "1.0", "0.0", "0.0"
  379.         .Vvector "0.0", "1.0", "0.0"
  380.         .Point -side, 0
  381.         .LineTo -side-side/2, h(3)
  382.         .LineTo -side+side/2, h(3)
  383.         .Create
  384.     End With
  385.  
  386.     With Extrude
  387.         .Reset
  388.         .Name "Electrode19"
  389.         .Component "component1"
  390.         .Material "PEC"
  391.         .Mode "Pointlist"
  392.         .Height 0
  393.         .Origin "0.0", "0.0", h_substrate
  394.         .Uvector "1.0", "0.0", "0.0"
  395.         .Vvector "0.0", "1.0", "0.0"
  396.         .Point 5*side, 0
  397.         .LineTo 5*side-side/2, h(3)
  398.         .LineTo 5*side+side/2, h(3)
  399.         .Create
  400.     End With
  401.  
  402.     With Extrude
  403.         .Reset
  404.         .Name "Electrode20"
  405.         .Component "component1"
  406.         .Material "PEC"
  407.         .Mode "Pointlist"
  408.         .Height 0
  409.         .Origin "0.0", "0.0", h_substrate
  410.         .Uvector "1.0", "0.0", "0.0"
  411.         .Vvector "0.0", "1.0", "0.0"
  412.         .Point 7*side, 0
  413.         .LineTo 7*side-side/2, h(3)
  414.         .LineTo 7*side+side/2, h(3)
  415.         .Create
  416.     End With
  417.  
  418.         With Extrude
  419.         .Reset
  420.         .Name "Electrode21"
  421.         .Component "component1"
  422.         .Material "PEC"
  423.         .Mode "Pointlist"
  424.         .Height 0
  425.         .Origin "0.0", "0.0", h_substrate
  426.         .Uvector "1.0", "0.0", "0.0"
  427.         .Vvector "0.0", "1.0", "0.0"
  428.         .Point 6*side, h(2)
  429.         .LineTo 6*side-side/2, h(2)+h(3)
  430.         .LineTo 6*side+side/2, h(2)+h(3)
  431.         .Create
  432.     End With
  433.  
  434.         With Extrude
  435.         .Reset
  436.         .Name "Electrode22"
  437.         .Component "component1"
  438.         .Material "PEC"
  439.         .Mode "Pointlist"
  440.         .Height 0
  441.         .Origin "0.0", "0.0", h_substrate
  442.         .Uvector "1.0", "0.0", "0.0"
  443.         .Vvector "0.0", "1.0", "0.0"
  444.         .Point -5*side, 0
  445.         .LineTo -5*side-side/2, h(3)
  446.         .LineTo -5*side+side/2, h(3)
  447.         .Create
  448.     End With
  449.  
  450.     With Extrude
  451.         .Reset
  452.         .Name "Electrode23"
  453.         .Component "component1"
  454.         .Material "PEC"
  455.         .Mode "Pointlist"
  456.         .Height 0
  457.         .Origin "0.0", "0.0", h_substrate
  458.         .Uvector "1.0", "0.0", "0.0"
  459.         .Vvector "0.0", "1.0", "0.0"
  460.         .Point -7*side, 0
  461.         .LineTo -7*side-side/2, h(3)
  462.         .LineTo -7*side+side/2, h(3)
  463.         .Create
  464.     End With
  465.  
  466.         With Extrude
  467.         .Reset
  468.         .Name "Electrode24"
  469.         .Component "component1"
  470.         .Material "PEC"
  471.         .Mode "Pointlist"
  472.         .Height 0
  473.         .Origin "0.0", "0.0", h_substrate
  474.         .Uvector "1.0", "0.0", "0.0"
  475.         .Vvector "0.0", "1.0", "0.0"
  476.         .Point -6*side, h(2)
  477.         .LineTo -6*side-side/2, h(2)+h(3)
  478.         .LineTo -6*side+side/2, h(2)+h(3)
  479.         .Create
  480.     End With
  481.  
  482.     With Extrude
  483.         .Reset
  484.         .Name "Electrode25"
  485.         .Component "component1"
  486.         .Material "PEC"
  487.         .Mode "Pointlist"
  488.         .Height 0
  489.         .Origin "0.0", "0.0", h_substrate
  490.         .Uvector "1.0", "0.0", "0.0"
  491.         .Vvector "0.0", "1.0", "0.0"
  492.         .Point 3*side, h(1)
  493.         .LineTo 3*side-side/2, h(1)+h(3)
  494.         .LineTo 3*side+side/2, h(1)+h(3)
  495.         .Create
  496.     End With
  497.     With Extrude
  498.         .Reset
  499.         .Name "Electrode26"
  500.         .Component "component1"
  501.         .Material "PEC"
  502.         .Mode "Pointlist"
  503.         .Height 0
  504.         .Origin "0.0", "0.0", h_substrate
  505.         .Uvector "1.0", "0.0", "0.0"
  506.         .Vvector "0.0", "1.0", "0.0"
  507.         .Point 4*side, h(1)+h(2)
  508.         .LineTo 4*side-side/2, h(1)+h(2)+h(3)
  509.         .LineTo 4*side+side/2, h(1)+h(2)+h(3)
  510.         .Create
  511.     End With
  512.     With Extrude
  513.         .Reset
  514.         .Name "Electrode27"
  515.         .Component "component1"
  516.         .Material "PEC"
  517.         .Mode "Pointlist"
  518.         .Height 0
  519.         .Origin "0.0", "0.0", h_substrate
  520.         .Uvector "1.0", "0.0", "0.0"
  521.         .Vvector "0.0", "1.0", "0.0"
  522.         .Point 5*side, h(1)
  523.         .LineTo 5*side-side/2, h(1)+h(3)
  524.         .LineTo 5*side+side/2, h(1)+h(3)
  525.         .Create
  526.     End With
  527.         With Extrude
  528.         .Reset
  529.         .Name "Electrode28"
  530.         .Component "component1"
  531.         .Material "PEC"
  532.         .Mode "Pointlist"
  533.         .Height 0
  534.         .Origin "0.0", "0.0", h_substrate
  535.         .Uvector "1.0", "0.0", "0.0"
  536.         .Vvector "0.0", "1.0", "0.0"
  537.         .Point -3*side, h(1)
  538.         .LineTo -3*side-side/2, h(1)+h(3)
  539.         .LineTo -3*side+side/2, h(1)+h(3)
  540.         .Create
  541.     End With
  542.     With Extrude
  543.         .Reset
  544.         .Name "Electrode29"
  545.         .Component "component1"
  546.         .Material "PEC"
  547.         .Mode "Pointlist"
  548.         .Height 0
  549.         .Origin "0.0", "0.0", h_substrate
  550.         .Uvector "1.0", "0.0", "0.0"
  551.         .Vvector "0.0", "1.0", "0.0"
  552.         .Point -4*side, h(1)+h(2)
  553.         .LineTo -4*side-side/2, h(1)+h(2)+h(3)
  554.         .LineTo -4*side+side/2, h(1)+h(2)+h(3)
  555.         .Create
  556.     End With
  557.     With Extrude
  558.         .Reset
  559.         .Name "Electrode30"
  560.         .Component "component1"
  561.         .Material "PEC"
  562.         .Mode "Pointlist"
  563.         .Height 0
  564.         .Origin "0.0", "0.0", h_substrate
  565.         .Uvector "1.0", "0.0", "0.0"
  566.         .Vvector "0.0", "1.0", "0.0"
  567.         .Point -5*side, h(1)
  568.         .LineTo -5*side-side/2, h(1)+h(3)
  569.         .LineTo -5*side+side/2, h(1)+h(3)
  570.         .Create
  571.     End With
  572.  
  573.     With Extrude
  574.         .Reset
  575.         .Name "Electrode31"
  576.         .Component "component1"
  577.         .Material "PEC"
  578.         .Mode "Pointlist"
  579.         .Height 0
  580.         .Origin "0.0", "0.0", h_substrate
  581.         .Uvector "1.0", "0.0", "0.0"
  582.         .Vvector "0.0", "1.0", "0.0"
  583.         .Point side, h(0)
  584.         .LineTo side-side/2, h(0)+h(3)
  585.         .LineTo side+side/2, h(0)+h(3)
  586.         .Create
  587.     End With
  588.     With Extrude
  589.         .Reset
  590.         .Name "Electrode32"
  591.         .Component "component1"
  592.         .Material "PEC"
  593.         .Mode "Pointlist"
  594.         .Height 0
  595.         .Origin "0.0", "0.0", h_substrate
  596.         .Uvector "1.0", "0.0", "0.0"
  597.         .Vvector "0.0", "1.0", "0.0"
  598.         .Point 2*side, h(0)+h(2)
  599.         .LineTo 2*side-side/2, h(0)+h(2)+h(3)
  600.         .LineTo 2*side+side/2, h(0)+h(2)+h(3)
  601.         .Create
  602.     End With
  603.         With Extrude
  604.         .Reset
  605.         .Name "Electrode33"
  606.         .Component "component1"
  607.         .Material "PEC"
  608.         .Mode "Pointlist"
  609.         .Height 0
  610.         .Origin "0.0", "0.0", h_substrate
  611.         .Uvector "1.0", "0.0", "0.0"
  612.         .Vvector "0.0", "1.0", "0.0"
  613.         .Point 3*side, h(0)
  614.         .LineTo 3*side-side/2, h(0)+h(3)
  615.         .LineTo 3*side+side/2, h(0)+h(3)
  616.         .Create
  617.     End With
  618.         With Extrude
  619.         .Reset
  620.         .Name "Electrode34"
  621.         .Component "component1"
  622.         .Material "PEC"
  623.         .Mode "Pointlist"
  624.         .Height 0
  625.         .Origin "0.0", "0.0", h_substrate
  626.         .Uvector "1.0", "0.0", "0.0"
  627.         .Vvector "0.0", "1.0", "0.0"
  628.         .Point -side, h(0)
  629.         .LineTo -side-side/2, h(0)+h(3)
  630.         .LineTo -side+side/2, h(0)+h(3)
  631.         .Create
  632.     End With
  633.     With Extrude
  634.         .Reset
  635.         .Name "Electrode35"
  636.         .Component "component1"
  637.         .Material "PEC"
  638.         .Mode "Pointlist"
  639.         .Height 0
  640.         .Origin "0.0", "0.0", h_substrate
  641.         .Uvector "1.0", "0.0", "0.0"
  642.         .Vvector "0.0", "1.0", "0.0"
  643.         .Point -2*side, h(0)+h(2)
  644.         .LineTo -2*side-side/2, h(0)+h(2)+h(3)
  645.         .LineTo -2*side+side/2, h(0)+h(2)+h(3)
  646.         .Create
  647.     End With
  648.         With Extrude
  649.         .Reset
  650.         .Name "Electrode36"
  651.         .Component "component1"
  652.         .Material "PEC"
  653.         .Mode "Pointlist"
  654.         .Height 0
  655.         .Origin "0.0", "0.0", h_substrate
  656.         .Uvector "1.0", "0.0", "0.0"
  657.         .Vvector "0.0", "1.0", "0.0"
  658.         .Point -3*side, h(0)
  659.         .LineTo -3*side-side/2, h(0)+h(3)
  660.         .LineTo -3*side+side/2, h(0)+h(3)
  661.         .Create
  662.     End With
  663.  
  664.     With Extrude
  665.         .Reset
  666.         .Name "Electrode37"
  667.         .Component "component1"
  668.         .Material "PEC"
  669.         .Mode "Pointlist"
  670.         .Height 0
  671.         .Origin "0.0", "0.0", h_substrate
  672.         .Uvector "1.0", "0.0", "0.0"
  673.         .Vvector "0.0", "1.0", "0.0"
  674.         .Point side, h(0)+h(1)
  675.         .LineTo side-side/2, h(0)+h(1)+h(3)
  676.         .LineTo side+side/2, h(0)+h(1)+h(3)
  677.         .Create
  678.     End With
  679.     With Extrude
  680.         .Reset
  681.         .Name "Electrode38"
  682.         .Component "component1"
  683.         .Material "PEC"
  684.         .Mode "Pointlist"
  685.         .Height 0
  686.         .Origin "0.0", "0.0", h_substrate
  687.         .Uvector "1.0", "0.0", "0.0"
  688.         .Vvector "0.0", "1.0", "0.0"
  689.         .Point 0, h(0)+h(1)+h(2)
  690.         .LineTo -side/2, h(0)+h(1)+h(3)+h(2)
  691.         .LineTo side/2, h(0)+h(1)+h(3)+h(2)
  692.         .Create
  693.     End With
  694.     With Extrude
  695.         .Reset
  696.         .Name "Electrode39"
  697.         .Component "component1"
  698.         .Material "PEC"
  699.         .Mode "Pointlist"
  700.         .Height 0
  701.         .Origin "0.0", "0.0", h_substrate
  702.         .Uvector "1.0", "0.0", "0.0"
  703.         .Vvector "0.0", "1.0", "0.0"
  704.         .Point -side, h(0)+h(1)
  705.         .LineTo -side-side/2, h(0)+h(1)+h(3)
  706.         .LineTo -side+side/2, h(0)+h(1)+h(3)
  707.         .Create
  708.     End With
  709.  
  710.  
  711.  
  712.  
  713.     side=side/(2)
  714.     h(4) = Sqr(3*(side^2)/4)
  715.  
  716.  
  717.  
  718.     With Extrude
  719.         .Reset
  720.         .Name "Electrode40"
  721.         .Component "component1"
  722.         .Material "PEC"
  723.         .Mode "Pointlist"
  724.         .Height 0
  725.         .Origin "0.0", "0.0", h_substrate
  726.         .Uvector "1.0", "0.0", "0.0"
  727.         .Vvector "0.0", "1.0", "0.0"
  728.         .Point 15*side, 0
  729.         .LineTo 15*side-side/2, h(4)
  730.         .LineTo 15*side+side/2, h(4)
  731.         .Create
  732.     End With
  733.     With Extrude
  734.         .Reset
  735.         .Name "Electrode41"
  736.         .Component "component1"
  737.         .Material "PEC"
  738.         .Mode "Pointlist"
  739.         .Height 0
  740.         .Origin "0.0", "0.0", h_substrate
  741.         .Uvector "1.0", "0.0", "0.0"
  742.         .Vvector "0.0", "1.0", "0.0"
  743.         .Point 13*side, 0
  744.         .LineTo 13*side-side/2, h(4)
  745.         .LineTo 13*side+side/2, h(4)
  746.         .Create
  747.     End With
  748.     With Extrude
  749.         .Reset
  750.         .Name "Electrode42"
  751.         .Component "component1"
  752.         .Material "PEC"
  753.         .Mode "Pointlist"
  754.         .Height 0
  755.         .Origin "0.0", "0.0", h_substrate
  756.         .Uvector "1.0", "0.0", "0.0"
  757.         .Vvector "0.0", "1.0", "0.0"
  758.         .Point 11*side, 0
  759.         .LineTo 11*side-side/2, h(4)
  760.         .LineTo 11*side+side/2, h(4)
  761.         .Create
  762.     End With
  763.     With Extrude
  764.         .Reset
  765.         .Name "Electrode43"
  766.         .Component "component1"
  767.         .Material "PEC"
  768.         .Mode "Pointlist"
  769.         .Height 0
  770.         .Origin "0.0", "0.0", h_substrate
  771.         .Uvector "1.0", "0.0", "0.0"
  772.         .Vvector "0.0", "1.0", "0.0"
  773.         .Point 9*side, 0
  774.         .LineTo 9*side-side/2, h(4)
  775.         .LineTo 9*side+side/2, h(4)
  776.         .Create
  777.     End With
  778.     With Extrude
  779.         .Reset
  780.         .Name "Electrode44"
  781.         .Component "component1"
  782.         .Material "PEC"
  783.         .Mode "Pointlist"
  784.         .Height 0
  785.         .Origin "0.0", "0.0", h_substrate
  786.         .Uvector "1.0", "0.0", "0.0"
  787.         .Vvector "0.0", "1.0", "0.0"
  788.         .Point 7*side, 0
  789.         .LineTo 7*side-side/2, h(4)
  790.         .LineTo 7*side+side/2, h(4)
  791.         .Create
  792.     End With
  793.     With Extrude
  794.         .Reset
  795.         .Name "Electrode45"
  796.         .Component "component1"
  797.         .Material "PEC"
  798.         .Mode "Pointlist"
  799.         .Height 0
  800.         .Origin "0.0", "0.0", h_substrate
  801.         .Uvector "1.0", "0.0", "0.0"
  802.         .Vvector "0.0", "1.0", "0.0"
  803.         .Point 5*side, 0
  804.         .LineTo 5*side-side/2, h(4)
  805.         .LineTo 5*side+side/2, h(4)
  806.         .Create
  807.     End With
  808.     With Extrude
  809.         .Reset
  810.         .Name "Electrode46"
  811.         .Component "component1"
  812.         .Material "PEC"
  813.         .Mode "Pointlist"
  814.         .Height 0
  815.         .Origin "0.0", "0.0", h_substrate
  816.         .Uvector "1.0", "0.0", "0.0"
  817.         .Vvector "0.0", "1.0", "0.0"
  818.         .Point 3*side, 0
  819.         .LineTo 3*side-side/2, h(4)
  820.         .LineTo 3*side+side/2, h(4)
  821.         .Create
  822.     End With
  823.     With Extrude
  824.         .Reset
  825.         .Name "Electrode47"
  826.         .Component "component1"
  827.         .Material "PEC"
  828.         .Mode "Pointlist"
  829.         .Height 0
  830.         .Origin "0.0", "0.0", h_substrate
  831.         .Uvector "1.0", "0.0", "0.0"
  832.         .Vvector "0.0", "1.0", "0.0"
  833.         .Point 1*side, 0
  834.         .LineTo 1*side-side/2, h(4)
  835.         .LineTo 1*side+side/2, h(4)
  836.         .Create
  837.     End With
  838.     With Extrude
  839.         .Reset
  840.         .Name "Electrode48"
  841.         .Component "component1"
  842.         .Material "PEC"
  843.         .Mode "Pointlist"
  844.         .Height 0
  845.         .Origin "0.0", "0.0", h_substrate
  846.         .Uvector "1.0", "0.0", "0.0"
  847.         .Vvector "0.0", "1.0", "0.0"
  848.         .Point -1*side, 0
  849.         .LineTo -1*side-side/2, h(4)
  850.         .LineTo -1*side+side/2, h(4)
  851.         .Create
  852.     End With
  853.         With Extrude
  854.         .Reset
  855.         .Name "Electrode49"
  856.         .Component "component1"
  857.         .Material "PEC"
  858.         .Mode "Pointlist"
  859.         .Height 0
  860.         .Origin "0.0", "0.0", h_substrate
  861.         .Uvector "1.0", "0.0", "0.0"
  862.         .Vvector "0.0", "1.0", "0.0"
  863.         .Point -15*side, 0
  864.         .LineTo -15*side-side/2, h(4)
  865.         .LineTo -15*side+side/2, h(4)
  866.         .Create
  867.     End With
  868.     With Extrude
  869.         .Reset
  870.         .Name "Electrode50"
  871.         .Component "component1"
  872.         .Material "PEC"
  873.         .Mode "Pointlist"
  874.         .Height 0
  875.         .Origin "0.0", "0.0", h_substrate
  876.         .Uvector "1.0", "0.0", "0.0"
  877.         .Vvector "0.0", "1.0", "0.0"
  878.         .Point -13*side, 0
  879.         .LineTo -13*side-side/2, h(4)
  880.         .LineTo -13*side+side/2, h(4)
  881.         .Create
  882.     End With
  883.     With Extrude
  884.         .Reset
  885.         .Name "Electrode51"
  886.         .Component "component1"
  887.         .Material "PEC"
  888.         .Mode "Pointlist"
  889.         .Height 0
  890.         .Origin "0.0", "0.0", h_substrate
  891.         .Uvector "1.0", "0.0", "0.0"
  892.         .Vvector "0.0", "1.0", "0.0"
  893.         .Point -11*side, 0
  894.         .LineTo -11*side-side/2, h(4)
  895.         .LineTo -11*side+side/2, h(4)
  896.         .Create
  897.     End With
  898.     With Extrude
  899.         .Reset
  900.         .Name "Electrode52"
  901.         .Component "component1"
  902.         .Material "PEC"
  903.         .Mode "Pointlist"
  904.         .Height 0
  905.         .Origin "0.0", "0.0", h_substrate
  906.         .Uvector "1.0", "0.0", "0.0"
  907.         .Vvector "0.0", "1.0", "0.0"
  908.         .Point -9*side, 0
  909.         .LineTo -9*side-side/2, h(4)
  910.         .LineTo -9*side+side/2, h(4)
  911.         .Create
  912.     End With
  913.     With Extrude
  914.         .Reset
  915.         .Name "Electrode53"
  916.         .Component "component1"
  917.         .Material "PEC"
  918.         .Mode "Pointlist"
  919.         .Height 0
  920.         .Origin "0.0", "0.0", h_substrate
  921.         .Uvector "1.0", "0.0", "0.0"
  922.         .Vvector "0.0", "1.0", "0.0"
  923.         .Point -7*side, 0
  924.         .LineTo -7*side-side/2, h(4)
  925.         .LineTo -7*side+side/2, h(4)
  926.         .Create
  927.     End With
  928.     With Extrude
  929.         .Reset
  930.         .Name "Electrode54"
  931.         .Component "component1"
  932.         .Material "PEC"
  933.         .Mode "Pointlist"
  934.         .Height 0
  935.         .Origin "0.0", "0.0", h_substrate
  936.         .Uvector "1.0", "0.0", "0.0"
  937.         .Vvector "0.0", "1.0", "0.0"
  938.         .Point -5*side, 0
  939.         .LineTo -5*side-side/2, h(4)
  940.         .LineTo -5*side+side/2, h(4)
  941.         .Create
  942.     End With
  943.     With Extrude
  944.         .Reset
  945.         .Name "Electrode55"
  946.         .Component "component1"
  947.         .Material "PEC"
  948.         .Mode "Pointlist"
  949.         .Height 0
  950.         .Origin "0.0", "0.0", h_substrate
  951.         .Uvector "1.0", "0.0", "0.0"
  952.         .Vvector "0.0", "1.0", "0.0"
  953.         .Point -3*side, 0
  954.         .LineTo -3*side-side/2, h(4)
  955.         .LineTo -3*side+side/2, h(4)
  956.         .Create
  957.     End With
  958.  
  959.  
  960.  
  961.  
  962.  
  963.  
  964.  
  965.     With Extrude
  966.         .Reset
  967.         .Name "Electrode56"
  968.         .Component "component1"
  969.         .Material "PEC"
  970.         .Mode "Pointlist"
  971.         .Height 0
  972.         .Origin "0.0", "0.0", h_substrate
  973.         .Uvector "1.0", "0.0", "0.0"
  974.         .Vvector "0.0", "1.0", "0.0"
  975.         .Point 14*side, h(3)
  976.         .LineTo 14*side-side/2, h(3)+h(4)
  977.         .LineTo 14*side+side/2, h(3)+h(4)
  978.         .Create
  979.     End With
  980.     With Extrude
  981.         .Reset
  982.         .Name "Electrode58"
  983.         .Component "component1"
  984.         .Material "PEC"
  985.         .Mode "Pointlist"
  986.         .Height 0
  987.         .Origin "0.0", "0.0", h_substrate
  988.         .Uvector "1.0", "0.0", "0.0"
  989.         .Vvector "0.0", "1.0", "0.0"
  990.         .Point 10*side, h(3)
  991.         .LineTo 10*side-side/2, h(4)+h(3)
  992.         .LineTo 10*side+side/2, h(4)+h(3)
  993.         .Create
  994.     End With
  995.     With Extrude
  996.         .Reset
  997.         .Name "Electrode60"
  998.         .Component "component1"
  999.         .Material "PEC"
  1000.         .Mode "Pointlist"
  1001.         .Height 0
  1002.         .Origin "0.0", "0.0", h_substrate
  1003.         .Uvector "1.0", "0.0", "0.0"
  1004.         .Vvector "0.0", "1.0", "0.0"
  1005.         .Point 6*side, h(3)
  1006.         .LineTo 6*side-side/2, h(4)+h(3)
  1007.         .LineTo 6*side+side/2, h(4)+h(3)
  1008.         .Create
  1009.     End With
  1010.     With Extrude
  1011.         .Reset
  1012.         .Name "Electrode62"
  1013.         .Component "component1"
  1014.         .Material "PEC"
  1015.         .Mode "Pointlist"
  1016.         .Height 0
  1017.         .Origin "0.0", "0.0", h_substrate
  1018.         .Uvector "1.0", "0.0", "0.0"
  1019.         .Vvector "0.0", "1.0", "0.0"
  1020.         .Point 2*side, h(3)
  1021.         .LineTo 2*side-side/2, h(4)+h(3)
  1022.         .LineTo 2*side+side/2, h(4)+h(3)
  1023.         .Create
  1024.     End With
  1025.     With Extrude
  1026.         .Reset
  1027.         .Name "Electrode64"
  1028.         .Component "component1"
  1029.         .Material "PEC"
  1030.         .Mode "Pointlist"
  1031.         .Height 0
  1032.         .Origin "0.0", "0.0", h_substrate
  1033.         .Uvector "1.0", "0.0", "0.0"
  1034.         .Vvector "0.0", "1.0", "0.0"
  1035.         .Point -2*side, h(3)
  1036.         .LineTo -2*side-side/2, h(4)+h(3)
  1037.         .LineTo -2*side+side/2, h(4)+h(3)
  1038.         .Create
  1039.     End With
  1040.     With Extrude
  1041.         .Reset
  1042.         .Name "Electrode66"
  1043.         .Component "component1"
  1044.         .Material "PEC"
  1045.         .Mode "Pointlist"
  1046.         .Height 0
  1047.         .Origin "0.0", "0.0", h_substrate
  1048.         .Uvector "1.0", "0.0", "0.0"
  1049.         .Vvector "0.0", "1.0", "0.0"
  1050.         .Point -6*side, h(3)
  1051.         .LineTo -6*side-side/2, h(4)+h(3)
  1052.         .LineTo -6*side+side/2, h(4)+h(3)
  1053.         .Create
  1054.     End With
  1055.     With Extrude
  1056.         .Reset
  1057.         .Name "Electrode68"
  1058.         .Component "component1"
  1059.         .Material "PEC"
  1060.         .Mode "Pointlist"
  1061.         .Height 0
  1062.         .Origin "0.0", "0.0", h_substrate
  1063.         .Uvector "1.0", "0.0", "0.0"
  1064.         .Vvector "0.0", "1.0", "0.0"
  1065.         .Point -10*side, h(3)
  1066.         .LineTo -10*side-side/2, h(4)+h(3)
  1067.         .LineTo -10*side+side/2, h(4)+h(3)
  1068.         .Create
  1069.     End With
  1070.     With Extrude
  1071.         .Reset
  1072.         .Name "Electrode70"
  1073.         .Component "component1"
  1074.         .Material "PEC"
  1075.         .Mode "Pointlist"
  1076.         .Height 0
  1077.         .Origin "0.0", "0.0", h_substrate
  1078.         .Uvector "1.0", "0.0", "0.0"
  1079.         .Vvector "0.0", "1.0", "0.0"
  1080.         .Point -14*side, h(3)
  1081.         .LineTo -14*side-side/2, h(4)+h(3)
  1082.         .LineTo -14*side+side/2, h(4)+h(3)
  1083.         .Create
  1084.     End With
  1085.  
  1086.  
  1087.  
  1088.  
  1089.     With Extrude
  1090.         .Reset
  1091.         .Name "Electrode71"
  1092.         .Component "component1"
  1093.         .Material "PEC"
  1094.         .Mode "Pointlist"
  1095.         .Height 0
  1096.         .Origin "0.0", "0.0", h_substrate
  1097.         .Uvector "1.0", "0.0", "0.0"
  1098.         .Vvector "0.0", "1.0", "0.0"
  1099.         .Point 13*side, h(2)
  1100.         .LineTo 13*side-side/2, h(2)+h(4)
  1101.         .LineTo 13*side+side/2, h(2)+h(4)
  1102.         .Create
  1103.     End With
  1104.     With Extrude
  1105.         .Reset
  1106.         .Name "Electrode72"
  1107.         .Component "component1"
  1108.         .Material "PEC"
  1109.         .Mode "Pointlist"
  1110.         .Height 0
  1111.         .Origin "0.0", "0.0", h_substrate
  1112.         .Uvector "1.0", "0.0", "0.0"
  1113.         .Vvector "0.0", "1.0", "0.0"
  1114.         .Point 11*side, h(2)
  1115.         .LineTo 11*side-side/2, h(4)+h(2)
  1116.         .LineTo 11*side+side/2, h(4)+h(2)
  1117.         .Create
  1118.     End With
  1119.     With Extrude
  1120.         .Reset
  1121.         .Name "Electrode73"
  1122.         .Component "component1"
  1123.         .Material "PEC"
  1124.         .Mode "Pointlist"
  1125.         .Height 0
  1126.         .Origin "0.0", "0.0", h_substrate
  1127.         .Uvector "1.0", "0.0", "0.0"
  1128.         .Vvector "0.0", "1.0", "0.0"
  1129.         .Point 5*side, h(2)
  1130.         .LineTo 5*side-side/2, h(4)+h(2)
  1131.         .LineTo 5*side+side/2, h(4)+h(2)
  1132.         .Create
  1133.     End With
  1134.     With Extrude
  1135.         .Reset
  1136.         .Name "Electrode74"
  1137.         .Component "component1"
  1138.         .Material "PEC"
  1139.         .Mode "Pointlist"
  1140.         .Height 0
  1141.         .Origin "0.0", "0.0", h_substrate
  1142.         .Uvector "1.0", "0.0", "0.0"
  1143.         .Vvector "0.0", "1.0", "0.0"
  1144.         .Point 3*side, h(2)
  1145.         .LineTo 3*side-side/2, h(4)+h(2)
  1146.         .LineTo 3*side+side/2, h(4)+h(2)
  1147.         .Create
  1148.     End With
  1149.     With Extrude
  1150.         .Reset
  1151.         .Name "Electrode76"
  1152.         .Component "component1"
  1153.         .Material "PEC"
  1154.         .Mode "Pointlist"
  1155.         .Height 0
  1156.         .Origin "0.0", "0.0", h_substrate
  1157.         .Uvector "1.0", "0.0", "0.0"
  1158.         .Vvector "0.0", "1.0", "0.0"
  1159.         .Point -13*side, h(2)
  1160.         .LineTo -13*side-side/2, h(2)+h(4)
  1161.         .LineTo -13*side+side/2, h(2)+h(4)
  1162.         .Create
  1163.     End With
  1164.     With Extrude
  1165.         .Reset
  1166.         .Name "Electrode77"
  1167.         .Component "component1"
  1168.         .Material "PEC"
  1169.         .Mode "Pointlist"
  1170.         .Height 0
  1171.         .Origin "0.0", "0.0", h_substrate
  1172.         .Uvector "1.0", "0.0", "0.0"
  1173.         .Vvector "0.0", "1.0", "0.0"
  1174.         .Point -11*side, h(2)
  1175.         .LineTo -11*side-side/2, h(4)+h(2)
  1176.         .LineTo -11*side+side/2, h(4)+h(2)
  1177.         .Create
  1178.     End With
  1179.     With Extrude
  1180.         .Reset
  1181.         .Name "Electrode78"
  1182.         .Component "component1"
  1183.         .Material "PEC"
  1184.         .Mode "Pointlist"
  1185.         .Height 0
  1186.         .Origin "0.0", "0.0", h_substrate
  1187.         .Uvector "1.0", "0.0", "0.0"
  1188.         .Vvector "0.0", "1.0", "0.0"
  1189.         .Point -5*side, h(2)
  1190.         .LineTo -5*side-side/2, h(4)+h(2)
  1191.         .LineTo -5*side+side/2, h(4)+h(2)
  1192.         .Create
  1193.     End With
  1194.     With Extrude
  1195.         .Reset
  1196.         .Name "Electrode79"
  1197.         .Component "component1"
  1198.         .Material "PEC"
  1199.         .Mode "Pointlist"
  1200.         .Height 0
  1201.         .Origin "0.0", "0.0", h_substrate
  1202.         .Uvector "1.0", "0.0", "0.0"
  1203.         .Vvector "0.0", "1.0", "0.0"
  1204.         .Point -3*side, h(2)
  1205.         .LineTo -3*side-side/2, h(4)+h(2)
  1206.         .LineTo -3*side+side/2, h(4)+h(2)
  1207.         .Create
  1208.     End With
  1209.  
  1210.  
  1211.  
  1212.  
  1213.  
  1214.     With Extrude
  1215.         .Reset
  1216.         .Name "Electrode80"
  1217.         .Component "component1"
  1218.         .Material "PEC"
  1219.         .Mode "Pointlist"
  1220.         .Height 0
  1221.         .Origin "0.0", "0.0", h_substrate
  1222.         .Uvector "1.0", "0.0", "0.0"
  1223.         .Vvector "0.0", "1.0", "0.0"
  1224.         .Point 12*side, h(2)+h(3)
  1225.         .LineTo 12*side-side/2, h(2)+h(4)+h(3)
  1226.         .LineTo 12*side+side/2, h(2)+h(4)+h(3)
  1227.         .Create
  1228.     End With
  1229.     With Extrude
  1230.         .Reset
  1231.         .Name "Electrode81"
  1232.         .Component "component1"
  1233.         .Material "PEC"
  1234.         .Mode "Pointlist"
  1235.         .Height 0
  1236.         .Origin "0.0", "0.0", h_substrate
  1237.         .Uvector "1.0", "0.0", "0.0"
  1238.         .Vvector "0.0", "1.0", "0.0"
  1239.         .Point 4*side, h(2)+h(3)
  1240.         .LineTo 4*side-side/2, h(4)+h(2)+h(3)
  1241.         .LineTo 4*side+side/2, h(4)+h(2)+h(3)
  1242.         .Create
  1243.     End With
  1244.     With Extrude
  1245.         .Reset
  1246.         .Name "Electrode82"
  1247.         .Component "component1"
  1248.         .Material "PEC"
  1249.         .Mode "Pointlist"
  1250.         .Height 0
  1251.         .Origin "0.0", "0.0", h_substrate
  1252.         .Uvector "1.0", "0.0", "0.0"
  1253.         .Vvector "0.0", "1.0", "0.0"
  1254.         .Point -12*side, h(2)+h(3)
  1255.         .LineTo -12*side-side/2, h(2)+h(4)+h(3)
  1256.         .LineTo -12*side+side/2, h(2)+h(4)+h(3)
  1257.         .Create
  1258.     End With
  1259.     With Extrude
  1260.         .Reset
  1261.         .Name "Electrode83"
  1262.         .Component "component1"
  1263.         .Material "PEC"
  1264.         .Mode "Pointlist"
  1265.         .Height 0
  1266.         .Origin "0.0", "0.0", h_substrate
  1267.         .Uvector "1.0", "0.0", "0.0"
  1268.         .Vvector "0.0", "1.0", "0.0"
  1269.         .Point -4*side, h(2)+h(3)
  1270.         .LineTo -4*side-side/2, h(4)+h(2)+h(3)
  1271.         .LineTo -4*side+side/2, h(4)+h(2)+h(3)
  1272.         .Create
  1273.     End With
  1274.  
  1275.  
  1276.  
  1277.  
  1278.  
  1279.  
  1280.  
  1281.     With Extrude
  1282.         .Reset
  1283.         .Name "Electrode84"
  1284.         .Component "component1"
  1285.         .Material "PEC"
  1286.         .Mode "Pointlist"
  1287.         .Height 0
  1288.         .Origin "0.0", "0.0", h_substrate
  1289.         .Uvector "1.0", "0.0", "0.0"
  1290.         .Vvector "0.0", "1.0", "0.0"
  1291.         .Point 11*side, h(1)
  1292.         .LineTo 11*side-side/2, h(1)+h(4)
  1293.         .LineTo 11*side+side/2, h(1)+h(4)
  1294.         .Create
  1295.     End With
  1296.     With Extrude
  1297.         .Reset
  1298.         .Name "Electrode85"
  1299.         .Component "component1"
  1300.         .Material "PEC"
  1301.         .Mode "Pointlist"
  1302.         .Height 0
  1303.         .Origin "0.0", "0.0", h_substrate
  1304.         .Uvector "1.0", "0.0", "0.0"
  1305.         .Vvector "0.0", "1.0", "0.0"
  1306.         .Point 9*side, h(1)
  1307.         .LineTo 9*side-side/2, h(4)+h(1)
  1308.         .LineTo 9*side+side/2, h(4)+h(1)
  1309.         .Create
  1310.     End With
  1311.     With Extrude
  1312.         .Reset
  1313.         .Name "Electrode86"
  1314.         .Component "component1"
  1315.         .Material "PEC"
  1316.         .Mode "Pointlist"
  1317.         .Height 0
  1318.         .Origin "0.0", "0.0", h_substrate
  1319.         .Uvector "1.0", "0.0", "0.0"
  1320.         .Vvector "0.0", "1.0", "0.0"
  1321.         .Point 7*side, h(1)
  1322.         .LineTo 7*side-side/2, h(1)+h(4)
  1323.         .LineTo 7*side+side/2, h(1)+h(4)
  1324.         .Create
  1325.     End With
  1326.     With Extrude
  1327.         .Reset
  1328.         .Name "Electrode87"
  1329.         .Component "component1"
  1330.         .Material "PEC"
  1331.         .Mode "Pointlist"
  1332.         .Height 0
  1333.         .Origin "0.0", "0.0", h_substrate
  1334.         .Uvector "1.0", "0.0", "0.0"
  1335.         .Vvector "0.0", "1.0", "0.0"
  1336.         .Point 5*side, h(1)
  1337.         .LineTo 5*side-side/2, h(4)+h(1)
  1338.         .LineTo 5*side+side/2, h(4)+h(1)
  1339.         .Create
  1340.     End With
  1341.     With Extrude
  1342.         .Reset
  1343.         .Name "Electrode88"
  1344.         .Component "component1"
  1345.         .Material "PEC"
  1346.         .Mode "Pointlist"
  1347.         .Height 0
  1348.         .Origin "0.0", "0.0", h_substrate
  1349.         .Uvector "1.0", "0.0", "0.0"
  1350.         .Vvector "0.0", "1.0", "0.0"
  1351.         .Point -11*side, h(1)
  1352.         .LineTo -11*side-side/2, h(1)+h(4)
  1353.         .LineTo -11*side+side/2, h(1)+h(4)
  1354.         .Create
  1355.     End With
  1356.     With Extrude
  1357.         .Reset
  1358.         .Name "Electrode89"
  1359.         .Component "component1"
  1360.         .Material "PEC"
  1361.         .Mode "Pointlist"
  1362.         .Height 0
  1363.         .Origin "0.0", "0.0", h_substrate
  1364.         .Uvector "1.0", "0.0", "0.0"
  1365.         .Vvector "0.0", "1.0", "0.0"
  1366.         .Point -9*side, h(1)
  1367.         .LineTo -9*side-side/2, h(4)+h(1)
  1368.         .LineTo -9*side+side/2, h(4)+h(1)
  1369.         .Create
  1370.     End With
  1371.     With Extrude
  1372.         .Reset
  1373.         .Name "Electrode90"
  1374.         .Component "component1"
  1375.         .Material "PEC"
  1376.         .Mode "Pointlist"
  1377.         .Height 0
  1378.         .Origin "0.0", "0.0", h_substrate
  1379.         .Uvector "1.0", "0.0", "0.0"
  1380.         .Vvector "0.0", "1.0", "0.0"
  1381.         .Point -7*side, h(1)
  1382.         .LineTo -7*side-side/2, h(1)+h(4)
  1383.         .LineTo -7*side+side/2, h(1)+h(4)
  1384.         .Create
  1385.     End With
  1386.     With Extrude
  1387.         .Reset
  1388.         .Name "Electrode91"
  1389.         .Component "component1"
  1390.         .Material "PEC"
  1391.         .Mode "Pointlist"
  1392.         .Height 0
  1393.         .Origin "0.0", "0.0", h_substrate
  1394.         .Uvector "1.0", "0.0", "0.0"
  1395.         .Vvector "0.0", "1.0", "0.0"
  1396.         .Point -5*side, h(1)
  1397.         .LineTo -5*side-side/2, h(4)+h(1)
  1398.         .LineTo -5*side+side/2, h(4)+h(1)
  1399.         .Create
  1400.     End With
  1401.  
  1402.  
  1403.  
  1404.  
  1405.  
  1406.  
  1407.  
  1408. With Extrude
  1409.         .Reset
  1410.         .Name "Electrode92"
  1411.         .Component "component1"
  1412.         .Material "PEC"
  1413.         .Mode "Pointlist"
  1414.         .Height 0
  1415.         .Origin "0.0", "0.0", h_substrate
  1416.         .Uvector "1.0", "0.0", "0.0"
  1417.         .Vvector "0.0", "1.0", "0.0"
  1418.         .Point 10*side, h(1)+h(3)
  1419.         .LineTo 10*side-side/2, h(1)+h(4)+h(3)
  1420.         .LineTo 10*side+side/2, h(1)+h(4)+h(3)
  1421.         .Create
  1422.     End With
  1423.     With Extrude
  1424.         .Reset
  1425.         .Name "Electrode93"
  1426.         .Component "component1"
  1427.         .Material "PEC"
  1428.         .Mode "Pointlist"
  1429.         .Height 0
  1430.         .Origin "0.0", "0.0", h_substrate
  1431.         .Uvector "1.0", "0.0", "0.0"
  1432.         .Vvector "0.0", "1.0", "0.0"
  1433.         .Point 6*side, h(1)+h(3)
  1434.         .LineTo 6*side-side/2, h(4)+h(1)+h(3)
  1435.         .LineTo 6*side+side/2, h(4)+h(1)+h(3)
  1436.         .Create
  1437.     End With
  1438. With Extrude
  1439.         .Reset
  1440.         .Name "Electrode94"
  1441.         .Component "component1"
  1442.         .Material "PEC"
  1443.         .Mode "Pointlist"
  1444.         .Height 0
  1445.         .Origin "0.0", "0.0", h_substrate
  1446.         .Uvector "1.0", "0.0", "0.0"
  1447.         .Vvector "0.0", "1.0", "0.0"
  1448.         .Point -10*side, h(1)+h(3)
  1449.         .LineTo -10*side-side/2, h(1)+h(4)+h(3)
  1450.         .LineTo -10*side+side/2, h(1)+h(4)+h(3)
  1451.         .Create
  1452.     End With
  1453.     With Extrude
  1454.         .Reset
  1455.         .Name "Electrode95"
  1456.         .Component "component1"
  1457.         .Material "PEC"
  1458.         .Mode "Pointlist"
  1459.         .Height 0
  1460.         .Origin "0.0", "0.0", h_substrate
  1461.         .Uvector "1.0", "0.0", "0.0"
  1462.         .Vvector "0.0", "1.0", "0.0"
  1463.         .Point -6*side, h(1)+h(3)
  1464.         .LineTo -6*side-side/2, h(4)+h(1)+h(3)
  1465.         .LineTo -6*side+side/2, h(4)+h(1)+h(3)
  1466.         .Create
  1467.     End With
  1468.  
  1469.  
  1470.  
  1471.  
  1472.  
  1473.  
  1474.  
  1475.  
  1476.     With Extrude
  1477.         .Reset
  1478.         .Name "Electrode96"
  1479.         .Component "component1"
  1480.         .Material "PEC"
  1481.         .Mode "Pointlist"
  1482.         .Height 0
  1483.         .Origin "0.0", "0.0", h_substrate
  1484.         .Uvector "1.0", "0.0", "0.0"
  1485.         .Vvector "0.0", "1.0", "0.0"
  1486.         .Point 9*side, h(1)+h(2)
  1487.         .LineTo 9*side-side/2, h(1)+h(4)+h(2)
  1488.         .LineTo 9*side+side/2, h(1)+h(4)+h(2)
  1489.         .Create
  1490.     End With
  1491.     With Extrude
  1492.         .Reset
  1493.         .Name "Electrode97"
  1494.         .Component "component1"
  1495.         .Material "PEC"
  1496.         .Mode "Pointlist"
  1497.         .Height 0
  1498.         .Origin "0.0", "0.0", h_substrate
  1499.         .Uvector "1.0", "0.0", "0.0"
  1500.         .Vvector "0.0", "1.0", "0.0"
  1501.         .Point 7*side, h(1)+h(2)
  1502.         .LineTo 7*side-side/2, h(4)+h(1)+h(2)
  1503.         .LineTo 7*side+side/2, h(4)+h(1)+h(2)
  1504.         .Create
  1505.     End With
  1506.     With Extrude
  1507.         .Reset
  1508.         .Name "Electrode98"
  1509.         .Component "component1"
  1510.         .Material "PEC"
  1511.         .Mode "Pointlist"
  1512.         .Height 0
  1513.         .Origin "0.0", "0.0", h_substrate
  1514.         .Uvector "1.0", "0.0", "0.0"
  1515.         .Vvector "0.0", "1.0", "0.0"
  1516.         .Point -9*side, h(1)+h(2)
  1517.         .LineTo -9*side-side/2, h(1)+h(4)+h(2)
  1518.         .LineTo -9*side+side/2, h(1)+h(4)+h(2)
  1519.         .Create
  1520.     End With
  1521.     With Extrude
  1522.         .Reset
  1523.         .Name "Electrode99"
  1524.         .Component "component1"
  1525.         .Material "PEC"
  1526.         .Mode "Pointlist"
  1527.         .Height 0
  1528.         .Origin "0.0", "0.0", h_substrate
  1529.         .Uvector "1.0", "0.0", "0.0"
  1530.         .Vvector "0.0", "1.0", "0.0"
  1531.         .Point -7*side, h(1)+h(2)
  1532.         .LineTo -7*side-side/2, h(4)+h(1)+h(2)
  1533.         .LineTo -7*side+side/2, h(4)+h(1)+h(2)
  1534.         .Create
  1535.     End With
  1536.  
  1537.     With Extrude
  1538.         .Reset
  1539.         .Name "Electrode100"
  1540.         .Component "component1"
  1541.         .Material "PEC"
  1542.         .Mode "Pointlist"
  1543.         .Height 0
  1544.         .Origin "0.0", "0.0", h_substrate
  1545.         .Uvector "1.0", "0.0", "0.0"
  1546.         .Vvector "0.0", "1.0", "0.0"
  1547.         .Point 8*side, h(1)+h(2)+h(3)
  1548.         .LineTo 8*side-side/2, h(1)+h(4)+h(2)+h(3)
  1549.         .LineTo 8*side+side/2, h(1)+h(4)+h(2)+h(3)
  1550.         .Create
  1551.     End With
  1552.     With Extrude
  1553.         .Reset
  1554.         .Name "Electrode101"
  1555.         .Component "component1"
  1556.         .Material "PEC"
  1557.         .Mode "Pointlist"
  1558.         .Height 0
  1559.         .Origin "0.0", "0.0", h_substrate
  1560.         .Uvector "1.0", "0.0", "0.0"
  1561.         .Vvector "0.0", "1.0", "0.0"
  1562.         .Point -8*side, h(1)+h(2)+h(3)
  1563.         .LineTo -8*side-side/2, h(4)+h(1)+h(2)+h(3)
  1564.         .LineTo -8*side+side/2, h(4)+h(1)+h(2)+h(3)
  1565.         .Create
  1566.     End With
  1567.  
  1568.  
  1569.  
  1570.  
  1571.  
  1572.  
  1573.  
  1574.  
  1575.     With Extrude
  1576.         .Reset
  1577.         .Name "Electrode102"
  1578.         .Component "component1"
  1579.         .Material "PEC"
  1580.         .Mode "Pointlist"
  1581.         .Height 0
  1582.         .Origin "0.0", "0.0", h_substrate
  1583.         .Uvector "1.0", "0.0", "0.0"
  1584.         .Vvector "0.0", "1.0", "0.0"
  1585.         .Point 7*side, h(0)
  1586.         .LineTo 7*side-side/2, h(0)+h(4)
  1587.         .LineTo 7*side+side/2, h(0)+h(4)
  1588.         .Create
  1589.     End With
  1590.     With Extrude
  1591.         .Reset
  1592.         .Name "Electrode103"
  1593.         .Component "component1"
  1594.         .Material "PEC"
  1595.         .Mode "Pointlist"
  1596.         .Height 0
  1597.         .Origin "0.0", "0.0", h_substrate
  1598.         .Uvector "1.0", "0.0", "0.0"
  1599.         .Vvector "0.0", "1.0", "0.0"
  1600.         .Point 5*side, h(0)
  1601.         .LineTo 5*side-side/2, h(4)+h(0)
  1602.         .LineTo 5*side+side/2, h(4)+h(0)
  1603.         .Create
  1604.     End With
  1605.     With Extrude
  1606.         .Reset
  1607.         .Name "Electrode104"
  1608.         .Component "component1"
  1609.         .Material "PEC"
  1610.         .Mode "Pointlist"
  1611.         .Height 0
  1612.         .Origin "0.0", "0.0", h_substrate
  1613.         .Uvector "1.0", "0.0", "0.0"
  1614.         .Vvector "0.0", "1.0", "0.0"
  1615.         .Point 3*side, h(0)
  1616.         .LineTo 3*side-side/2, h(0)+h(4)
  1617.         .LineTo 3*side+side/2, h(0)+h(4)
  1618.         .Create
  1619.     End With
  1620.     With Extrude
  1621.         .Reset
  1622.         .Name "Electrode105"
  1623.         .Component "component1"
  1624.         .Material "PEC"
  1625.         .Mode "Pointlist"
  1626.         .Height 0
  1627.         .Origin "0.0", "0.0", h_substrate
  1628.         .Uvector "1.0", "0.0", "0.0"
  1629.         .Vvector "0.0", "1.0", "0.0"
  1630.         .Point 1*side, h(0)
  1631.         .LineTo 1*side-side/2, h(4)+h(0)
  1632.         .LineTo 1*side+side/2, h(4)+h(0)
  1633.         .Create
  1634.     End With
  1635.     With Extrude
  1636.         .Reset
  1637.         .Name "Electrode107"
  1638.         .Component "component1"
  1639.         .Material "PEC"
  1640.         .Mode "Pointlist"
  1641.         .Height 0
  1642.         .Origin "0.0", "0.0", h_substrate
  1643.         .Uvector "1.0", "0.0", "0.0"
  1644.         .Vvector "0.0", "1.0", "0.0"
  1645.         .Point -7*side, h(0)
  1646.         .LineTo -7*side-side/2, h(0)+h(4)
  1647.         .LineTo -7*side+side/2, h(0)+h(4)
  1648.         .Create
  1649.     End With
  1650.     With Extrude
  1651.         .Reset
  1652.         .Name "Electrode108"
  1653.         .Component "component1"
  1654.         .Material "PEC"
  1655.         .Mode "Pointlist"
  1656.         .Height 0
  1657.         .Origin "0.0", "0.0", h_substrate
  1658.         .Uvector "1.0", "0.0", "0.0"
  1659.         .Vvector "0.0", "1.0", "0.0"
  1660.         .Point -5*side, h(0)
  1661.         .LineTo -5*side-side/2, h(4)+h(0)
  1662.         .LineTo -5*side+side/2, h(4)+h(0)
  1663.         .Create
  1664.     End With
  1665.     With Extrude
  1666.         .Reset
  1667.         .Name "Electrode109"
  1668.         .Component "component1"
  1669.         .Material "PEC"
  1670.         .Mode "Pointlist"
  1671.         .Height 0
  1672.         .Origin "0.0", "0.0", h_substrate
  1673.         .Uvector "1.0", "0.0", "0.0"
  1674.         .Vvector "0.0", "1.0", "0.0"
  1675.         .Point -3*side, h(0)
  1676.         .LineTo -3*side-side/2, h(0)+h(4)
  1677.         .LineTo -3*side+side/2, h(0)+h(4)
  1678.         .Create
  1679.     End With
  1680.     With Extrude
  1681.         .Reset
  1682.         .Name "Electrode110"
  1683.         .Component "component1"
  1684.         .Material "PEC"
  1685.         .Mode "Pointlist"
  1686.         .Height 0
  1687.         .Origin "0.0", "0.0", h_substrate
  1688.         .Uvector "1.0", "0.0", "0.0"
  1689.         .Vvector "0.0", "1.0", "0.0"
  1690.         .Point -1*side, h(0)
  1691.         .LineTo -1*side-side/2, h(4)+h(0)
  1692.         .LineTo -1*side+side/2, h(4)+h(0)
  1693.         .Create
  1694.     End With
  1695.  
  1696.  
  1697.  
  1698.  
  1699.  
  1700.  
  1701.     With Extrude
  1702.         .Reset
  1703.         .Name "Electrode111"
  1704.         .Component "component1"
  1705.         .Material "PEC"
  1706.         .Mode "Pointlist"
  1707.         .Height 0
  1708.         .Origin "0.0", "0.0", h_substrate
  1709.         .Uvector "1.0", "0.0", "0.0"
  1710.         .Vvector "0.0", "1.0", "0.0"
  1711.         .Point 6*side, h(0)+h(3)
  1712.         .LineTo 6*side-side/2, h(0)+h(4)+h(3)
  1713.         .LineTo 6*side+side/2, h(0)+h(4)+h(3)
  1714.         .Create
  1715.     End With
  1716.     With Extrude
  1717.         .Reset
  1718.         .Name "Electrode112"
  1719.         .Component "component1"
  1720.         .Material "PEC"
  1721.         .Mode "Pointlist"
  1722.         .Height 0
  1723.         .Origin "0.0", "0.0", h_substrate
  1724.         .Uvector "1.0", "0.0", "0.0"
  1725.         .Vvector "0.0", "1.0", "0.0"
  1726.         .Point 2*side, h(0)+h(3)
  1727.         .LineTo 2*side-side/2, h(4)+h(0)+h(3)
  1728.         .LineTo 2*side+side/2, h(4)+h(0)+h(3)
  1729.         .Create
  1730.     End With
  1731.     With Extrude
  1732.         .Reset
  1733.         .Name "Electrode113"
  1734.         .Component "component1"
  1735.         .Material "PEC"
  1736.         .Mode "Pointlist"
  1737.         .Height 0
  1738.         .Origin "0.0", "0.0", h_substrate
  1739.         .Uvector "1.0", "0.0", "0.0"
  1740.         .Vvector "0.0", "1.0", "0.0"
  1741.         .Point -6*side, h(0)+h(3)
  1742.         .LineTo -6*side-side/2, h(0)+h(4)+h(3)
  1743.         .LineTo -6*side+side/2, h(0)+h(4)+h(3)
  1744.         .Create
  1745.     End With
  1746.     With Extrude
  1747.         .Reset
  1748.         .Name "Electrode114"
  1749.         .Component "component1"
  1750.         .Material "PEC"
  1751.         .Mode "Pointlist"
  1752.         .Height 0
  1753.         .Origin "0.0", "0.0", h_substrate
  1754.         .Uvector "1.0", "0.0", "0.0"
  1755.         .Vvector "0.0", "1.0", "0.0"
  1756.         .Point -2*side, h(0)+h(3)
  1757.         .LineTo -2*side-side/2, h(4)+h(0)+h(3)
  1758.         .LineTo -2*side+side/2, h(4)+h(0)+h(3)
  1759.         .Create
  1760.     End With
  1761.  
  1762.  
  1763.  
  1764.  
  1765.     With Extrude
  1766.         .Reset
  1767.         .Name "Electrode115"
  1768.         .Component "component1"
  1769.         .Material "PEC"
  1770.         .Mode "Pointlist"
  1771.         .Height 0
  1772.         .Origin "0.0", "0.0", h_substrate
  1773.         .Uvector "1.0", "0.0", "0.0"
  1774.         .Vvector "0.0", "1.0", "0.0"
  1775.         .Point 5*side, h(0)+h(2)
  1776.         .LineTo 5*side-side/2, h(0)+h(4)+h(2)
  1777.         .LineTo 5*side+side/2, h(0)+h(4)+h(2)
  1778.         .Create
  1779.     End With
  1780.     With Extrude
  1781.         .Reset
  1782.         .Name "Electrode116"
  1783.         .Component "component1"
  1784.         .Material "PEC"
  1785.         .Mode "Pointlist"
  1786.         .Height 0
  1787.         .Origin "0.0", "0.0", h_substrate
  1788.         .Uvector "1.0", "0.0", "0.0"
  1789.         .Vvector "0.0", "1.0", "0.0"
  1790.         .Point 3*side, h(0)+h(2)
  1791.         .LineTo 3*side-side/2, h(4)+h(0)+h(2)
  1792.         .LineTo 3*side+side/2, h(4)+h(0)+h(2)
  1793.         .Create
  1794.     End With
  1795.     With Extrude
  1796.         .Reset
  1797.         .Name "Electrode117"
  1798.         .Component "component1"
  1799.         .Material "PEC"
  1800.         .Mode "Pointlist"
  1801.         .Height 0
  1802.         .Origin "0.0", "0.0", h_substrate
  1803.         .Uvector "1.0", "0.0", "0.0"
  1804.         .Vvector "0.0", "1.0", "0.0"
  1805.         .Point -5*side, h(0)+h(2)
  1806.         .LineTo -5*side-side/2, h(0)+h(4)+h(2)
  1807.         .LineTo -5*side+side/2, h(0)+h(4)+h(2)
  1808.         .Create
  1809.     End With
  1810.     With Extrude
  1811.         .Reset
  1812.         .Name "Electrode118"
  1813.         .Component "component1"
  1814.         .Material "PEC"
  1815.         .Mode "Pointlist"
  1816.         .Height 0
  1817.         .Origin "0.0", "0.0", h_substrate
  1818.         .Uvector "1.0", "0.0", "0.0"
  1819.         .Vvector "0.0", "1.0", "0.0"
  1820.         .Point -3*side, h(0)+h(2)
  1821.         .LineTo -3*side-side/2, h(4)+h(0)+h(2)
  1822.         .LineTo -3*side+side/2, h(4)+h(0)+h(2)
  1823.         .Create
  1824.     End With
  1825.  
  1826.  
  1827.  
  1828.  
  1829.  
  1830.  
  1831. With Extrude
  1832.         .Reset
  1833.         .Name "Electrode119"
  1834.         .Component "component1"
  1835.         .Material "PEC"
  1836.         .Mode "Pointlist"
  1837.         .Height 0
  1838.         .Origin "0.0", "0.0", h_substrate
  1839.         .Uvector "1.0", "0.0", "0.0"
  1840.         .Vvector "0.0", "1.0", "0.0"
  1841.         .Point 4*side, h(0)+h(2)+h(3)
  1842.         .LineTo 4*side-side/2, h(0)+h(4)+h(2)+h(3)
  1843.         .LineTo 4*side+side/2, h(0)+h(4)+h(2)+h(3)
  1844.         .Create
  1845.     End With
  1846.     With Extrude
  1847.         .Reset
  1848.         .Name "Electrode120"
  1849.         .Component "component1"
  1850.         .Material "PEC"
  1851.         .Mode "Pointlist"
  1852.         .Height 0
  1853.         .Origin "0.0", "0.0", h_substrate
  1854.         .Uvector "1.0", "0.0", "0.0"
  1855.         .Vvector "0.0", "1.0", "0.0"
  1856.         .Point -4*side, h(0)+h(2)+h(3)
  1857.         .LineTo -4*side-side/2, h(0)+h(4)+h(2)+h(3)
  1858.         .LineTo -4*side+side/2, h(0)+h(4)+h(2)+h(3)
  1859.         .Create
  1860.     End With
  1861.  
  1862.  
  1863.  
  1864.  
  1865.  
  1866.  
  1867.  
  1868.  
  1869.     With Extrude
  1870.         .Reset
  1871.         .Name "Electrode121"
  1872.         .Component "component1"
  1873.         .Material "PEC"
  1874.         .Mode "Pointlist"
  1875.         .Height 0
  1876.         .Origin "0.0", "0.0", h_substrate
  1877.         .Uvector "1.0", "0.0", "0.0"
  1878.         .Vvector "0.0", "1.0", "0.0"
  1879.         .Point 3*side, h(0)+h(1)
  1880.         .LineTo 3*side-side/2, h(0)+h(4)+h(1)
  1881.         .LineTo 3*side+side/2, h(0)+h(4)+h(1)
  1882.         .Create
  1883.     End With
  1884.     With Extrude
  1885.         .Reset
  1886.         .Name "Electrode122"
  1887.         .Component "component1"
  1888.         .Material "PEC"
  1889.         .Mode "Pointlist"
  1890.         .Height 0
  1891.         .Origin "0.0", "0.0", h_substrate
  1892.         .Uvector "1.0", "0.0", "0.0"
  1893.         .Vvector "0.0", "1.0", "0.0"
  1894.         .Point 1*side, h(0)+h(1)
  1895.         .LineTo 1*side-side/2, h(0)+h(4)+h(1)
  1896.         .LineTo 1*side+side/2, h(0)+h(4)+h(1)
  1897.         .Create
  1898.     End With
  1899.     With Extrude
  1900.         .Reset
  1901.         .Name "Electrode123"
  1902.         .Component "component1"
  1903.         .Material "PEC"
  1904.         .Mode "Pointlist"
  1905.         .Height 0
  1906.         .Origin "0.0", "0.0", h_substrate
  1907.         .Uvector "1.0", "0.0", "0.0"
  1908.         .Vvector "0.0", "1.0", "0.0"
  1909.         .Point -3*side, h(0)+h(1)
  1910.         .LineTo -3*side-side/2, h(0)+h(4)+h(1)
  1911.         .LineTo -3*side+side/2, h(0)+h(4)+h(1)
  1912.         .Create
  1913.     End With
  1914.     With Extrude
  1915.         .Reset
  1916.         .Name "Electrode124"
  1917.         .Component "component1"
  1918.         .Material "PEC"
  1919.         .Mode "Pointlist"
  1920.         .Height 0
  1921.         .Origin "0.0", "0.0", h_substrate
  1922.         .Uvector "1.0", "0.0", "0.0"
  1923.         .Vvector "0.0", "1.0", "0.0"
  1924.         .Point -1*side, h(0)+h(1)
  1925.         .LineTo -1*side-side/2, h(0)+h(4)+h(1)
  1926.         .LineTo -1*side+side/2, h(0)+h(4)+h(1)
  1927.         .Create
  1928.     End With
  1929.  
  1930.  
  1931.  
  1932.  
  1933.  
  1934.  
  1935.  
  1936.  
  1937.     With Extrude
  1938.         .Reset
  1939.         .Name "Electrode125"
  1940.         .Component "component1"
  1941.         .Material "PEC"
  1942.         .Mode "Pointlist"
  1943.         .Height 0
  1944.         .Origin "0.0", "0.0", h_substrate
  1945.         .Uvector "1.0", "0.0", "0.0"
  1946.         .Vvector "0.0", "1.0", "0.0"
  1947.         .Point 2*side, h(0)+h(1)+h(3)
  1948.         .LineTo 2*side-side/2, h(0)+h(4)+h(1)+h(3)
  1949.         .LineTo 2*side+side/2, h(0)+h(4)+h(1)+h(3)
  1950.         .Create
  1951.     End With
  1952.     With Extrude
  1953.         .Reset
  1954.         .Name "Electrode126"
  1955.         .Component "component1"
  1956.         .Material "PEC"
  1957.         .Mode "Pointlist"
  1958.         .Height 0
  1959.         .Origin "0.0", "0.0", h_substrate
  1960.         .Uvector "1.0", "0.0", "0.0"
  1961.         .Vvector "0.0", "1.0", "0.0"
  1962.         .Point -2*side, h(0)+h(1)+h(3)
  1963.         .LineTo -2*side-side/2, h(0)+h(4)+h(1)+h(3)
  1964.         .LineTo -2*side+side/2, h(0)+h(4)+h(1)+h(3)
  1965.         .Create
  1966.     End With
  1967.  
  1968.  
  1969.  
  1970.  
  1971.  
  1972.     With Extrude
  1973.         .Reset
  1974.         .Name "Electrode127"
  1975.         .Component "component1"
  1976.         .Material "PEC"
  1977.         .Mode "Pointlist"
  1978.         .Height 0
  1979.         .Origin "0.0", "0.0", h_substrate
  1980.         .Uvector "1.0", "0.0", "0.0"
  1981.         .Vvector "0.0", "1.0", "0.0"
  1982.         .Point -1*side, h(0)+h(1)+h(2)
  1983.         .LineTo -1*side-side/2, h(0)+h(4)+h(1)+h(2)
  1984.         .LineTo -1*side+side/2, h(0)+h(4)+h(1)+h(2)
  1985.         .Create
  1986.     End With
  1987.     With Extrude
  1988.         .Reset
  1989.         .Name "Electrode128"
  1990.         .Component "component1"
  1991.         .Material "PEC"
  1992.         .Mode "Pointlist"
  1993.         .Height 0
  1994.         .Origin "0.0", "0.0", h_substrate
  1995.         .Uvector "1.0", "0.0", "0.0"
  1996.         .Vvector "0.0", "1.0", "0.0"
  1997.         .Point 1*side, h(0)+h(1)+h(2)
  1998.         .LineTo 1*side-side/2, h(0)+h(4)+h(1)+h(2)
  1999.         .LineTo 1*side+side/2, h(0)+h(4)+h(1)+h(2)
  2000.         .Create
  2001.     End With
  2002.  
  2003.  
  2004.  
  2005.  
  2006.  
  2007.  
  2008.  
  2009.  
  2010.     With Extrude
  2011.         .Reset
  2012.         .Name "Electrode129"
  2013.         .Component "component1"
  2014.         .Material "PEC"
  2015.         .Mode "Pointlist"
  2016.         .Height 0
  2017.         .Origin "0.0", "0.0", h_substrate
  2018.         .Uvector "1.0", "0.0", "0.0"
  2019.         .Vvector "0.0", "1.0", "0.0"
  2020.         .Point 0*side, h(0)+h(1)+h(2)+h(3)
  2021.         .LineTo 0*side-side/2, h(0)+h(4)+h(1)+h(2)+h(3)
  2022.         .LineTo 0*side+side/2, h(0)+h(4)+h(1)+h(2)+h(3)
  2023.         .Create
  2024.     End With
  2025.  
  2026. 'Next
  2027. Solid.Subtract "component1:Electrode_principal", "component1:Electrode"
  2028. Solid.Subtract "component1:Electrode_principal", "component1:Electrode1"
  2029. Solid.Subtract "component1:Electrode_principal", "component1:Electrode2"
  2030. Solid.Subtract "component1:Electrode_principal", "component1:Electrode3"
  2031. Solid.Subtract "component1:Electrode_principal", "component1:Electrode4"
  2032. Solid.Subtract "component1:Electrode_principal", "component1:Electrode5"
  2033. Solid.Subtract "component1:Electrode_principal", "component1:Electrode6"
  2034. Solid.Subtract "component1:Electrode_principal", "component1:Electrode7"
  2035. Solid.Subtract "component1:Electrode_principal", "component1:Electrode8"
  2036. Solid.Subtract "component1:Electrode_principal", "component1:Electrode9"
  2037. Solid.Subtract "component1:Electrode_principal", "component1:Electrode10"
  2038. Solid.Subtract "component1:Electrode_principal", "component1:Electrode11"
  2039. Solid.Subtract "component1:Electrode_principal", "component1:Electrode12"
  2040. Solid.Subtract "component1:Electrode_principal", "component1:Electrode13"
  2041. Solid.Subtract "component1:Electrode_principal", "component1:Electrode14"
  2042. Solid.Subtract "component1:Electrode_principal", "component1:Electrode15"
  2043. Solid.Subtract "component1:Electrode_principal", "component1:Electrode16"
  2044. Solid.Subtract "component1:Electrode_principal", "component1:Electrode17"
  2045. Solid.Subtract "component1:Electrode_principal", "component1:Electrode18"
  2046. Solid.Subtract "component1:Electrode_principal", "component1:Electrode19"
  2047. Solid.Subtract "component1:Electrode_principal", "component1:Electrode20"
  2048. Solid.Subtract "component1:Electrode_principal", "component1:Electrode21"
  2049. Solid.Subtract "component1:Electrode_principal", "component1:Electrode22"
  2050. Solid.Subtract "component1:Electrode_principal", "component1:Electrode23"
  2051. Solid.Subtract "component1:Electrode_principal", "component1:Electrode24"
  2052. Solid.Subtract "component1:Electrode_principal", "component1:Electrode25"
  2053. Solid.Subtract "component1:Electrode_principal", "component1:Electrode26"
  2054. Solid.Subtract "component1:Electrode_principal", "component1:Electrode27"
  2055. Solid.Subtract "component1:Electrode_principal", "component1:Electrode28"
  2056. Solid.Subtract "component1:Electrode_principal", "component1:Electrode29"
  2057. Solid.Subtract "component1:Electrode_principal", "component1:Electrode30"
  2058. Solid.Subtract "component1:Electrode_principal", "component1:Electrode31"
  2059. Solid.Subtract "component1:Electrode_principal", "component1:Electrode32"
  2060. Solid.Subtract "component1:Electrode_principal", "component1:Electrode33"
  2061. Solid.Subtract "component1:Electrode_principal", "component1:Electrode34"
  2062. Solid.Subtract "component1:Electrode_principal", "component1:Electrode35"
  2063. Solid.Subtract "component1:Electrode_principal", "component1:Electrode36"
  2064. Solid.Subtract "component1:Electrode_principal", "component1:Electrode37"
  2065. Solid.Subtract "component1:Electrode_principal", "component1:Electrode38"
  2066. Solid.Subtract "component1:Electrode_principal", "component1:Electrode39"
  2067. Solid.Subtract "component1:Electrode_principal", "component1:Electrode40"
  2068. Solid.Subtract "component1:Electrode_principal", "component1:Electrode41"
  2069. Solid.Subtract "component1:Electrode_principal", "component1:Electrode42"
  2070. Solid.Subtract "component1:Electrode_principal", "component1:Electrode43"
  2071. Solid.Subtract "component1:Electrode_principal", "component1:Electrode44"
  2072. Solid.Subtract "component1:Electrode_principal", "component1:Electrode45"
  2073. Solid.Subtract "component1:Electrode_principal", "component1:Electrode46"
  2074. Solid.Subtract "component1:Electrode_principal", "component1:Electrode47"
  2075. Solid.Subtract "component1:Electrode_principal", "component1:Electrode48"
  2076. Solid.Subtract "component1:Electrode_principal", "component1:Electrode49"
  2077. Solid.Subtract "component1:Electrode_principal", "component1:Electrode50"
  2078. Solid.Subtract "component1:Electrode_principal", "component1:Electrode51"
  2079. Solid.Subtract "component1:Electrode_principal", "component1:Electrode52"
  2080. Solid.Subtract "component1:Electrode_principal", "component1:Electrode53"
  2081. Solid.Subtract "component1:Electrode_principal", "component1:Electrode54"
  2082. Solid.Subtract "component1:Electrode_principal", "component1:Electrode55"
  2083. Solid.Subtract "component1:Electrode_principal", "component1:Electrode56"
  2084. Solid.Subtract "component1:Electrode_principal", "component1:Electrode58"
  2085. Solid.Subtract "component1:Electrode_principal", "component1:Electrode60"
  2086. Solid.Subtract "component1:Electrode_principal", "component1:Electrode62"
  2087. Solid.Subtract "component1:Electrode_principal", "component1:Electrode64"
  2088. Solid.Subtract "component1:Electrode_principal", "component1:Electrode66"
  2089. Solid.Subtract "component1:Electrode_principal", "component1:Electrode68"
  2090. Solid.Subtract "component1:Electrode_principal", "component1:Electrode70"
  2091. Solid.Subtract "component1:Electrode_principal", "component1:Electrode71"
  2092. Solid.Subtract "component1:Electrode_principal", "component1:Electrode72"
  2093. Solid.Subtract "component1:Electrode_principal", "component1:Electrode73"
  2094. Solid.Subtract "component1:Electrode_principal", "component1:Electrode74"
  2095. Solid.Subtract "component1:Electrode_principal", "component1:Electrode76"
  2096. Solid.Subtract "component1:Electrode_principal", "component1:Electrode77"
  2097. Solid.Subtract "component1:Electrode_principal", "component1:Electrode78"
  2098. Solid.Subtract "component1:Electrode_principal", "component1:Electrode79"
  2099. Solid.Subtract "component1:Electrode_principal", "component1:Electrode80"
  2100. Solid.Subtract "component1:Electrode_principal", "component1:Electrode81"
  2101. Solid.Subtract "component1:Electrode_principal", "component1:Electrode82"
  2102. Solid.Subtract "component1:Electrode_principal", "component1:Electrode83"
  2103. Solid.Subtract "component1:Electrode_principal", "component1:Electrode84"
  2104. Solid.Subtract "component1:Electrode_principal", "component1:Electrode85"
  2105. Solid.Subtract "component1:Electrode_principal", "component1:Electrode86"
  2106. Solid.Subtract "component1:Electrode_principal", "component1:Electrode87"
  2107. Solid.Subtract "component1:Electrode_principal", "component1:Electrode88"
  2108. Solid.Subtract "component1:Electrode_principal", "component1:Electrode89"
  2109. Solid.Subtract "component1:Electrode_principal", "component1:Electrode90"
  2110. Solid.Subtract "component1:Electrode_principal", "component1:Electrode91"
  2111. Solid.Subtract "component1:Electrode_principal", "component1:Electrode92"
  2112. Solid.Subtract "component1:Electrode_principal", "component1:Electrode93"
  2113. Solid.Subtract "component1:Electrode_principal", "component1:Electrode94"
  2114. Solid.Subtract "component1:Electrode_principal", "component1:Electrode95"
  2115. Solid.Subtract "component1:Electrode_principal", "component1:Electrode96"
  2116. Solid.Subtract "component1:Electrode_principal", "component1:Electrode97"
  2117. Solid.Subtract "component1:Electrode_principal", "component1:Electrode98"
  2118. Solid.Subtract "component1:Electrode_principal", "component1:Electrode99"
  2119. Solid.Subtract "component1:Electrode_principal", "component1:Electrode100"
  2120. Solid.Subtract "component1:Electrode_principal", "component1:Electrode101"
  2121. Solid.Subtract "component1:Electrode_principal", "component1:Electrode102"
  2122. Solid.Subtract "component1:Electrode_principal", "component1:Electrode103"
  2123. Solid.Subtract "component1:Electrode_principal", "component1:Electrode104"
  2124. Solid.Subtract "component1:Electrode_principal", "component1:Electrode105"
  2125. Solid.Subtract "component1:Electrode_principal", "component1:Electrode107"
  2126. Solid.Subtract "component1:Electrode_principal", "component1:Electrode108"
  2127. Solid.Subtract "component1:Electrode_principal", "component1:Electrode109"
  2128. Solid.Subtract "component1:Electrode_principal", "component1:Electrode110"
  2129. Solid.Subtract "component1:Electrode_principal", "component1:Electrode111"
  2130. Solid.Subtract "component1:Electrode_principal", "component1:Electrode112"
  2131. Solid.Subtract "component1:Electrode_principal", "component1:Electrode113"
  2132. Solid.Subtract "component1:Electrode_principal", "component1:Electrode114"
  2133. Solid.Subtract "component1:Electrode_principal", "component1:Electrode115"
  2134. Solid.Subtract "component1:Electrode_principal", "component1:Electrode116"
  2135. Solid.Subtract "component1:Electrode_principal", "component1:Electrode117"
  2136. Solid.Subtract "component1:Electrode_principal", "component1:Electrode118"
  2137. Solid.Subtract "component1:Electrode_principal", "component1:Electrode119"
  2138. Solid.Subtract "component1:Electrode_principal", "component1:Electrode120"
  2139. Solid.Subtract "component1:Electrode_principal", "component1:Electrode121"
  2140. Solid.Subtract "component1:Electrode_principal", "component1:Electrode122"
  2141. Solid.Subtract "component1:Electrode_principal", "component1:Electrode123"
  2142. Solid.Subtract "component1:Electrode_principal", "component1:Electrode124"
  2143. Solid.Subtract "component1:Electrode_principal", "component1:Electrode125"
  2144. Solid.Subtract "component1:Electrode_principal", "component1:Electrode126"
  2145. Solid.Subtract "component1:Electrode_principal", "component1:Electrode127"
  2146. Solid.Subtract "component1:Electrode_principal", "component1:Electrode128"
  2147. Solid.Subtract "component1:Electrode_principal", "component1:Electrode129"
  2148. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!