model ("efhw") {

real height, left_a_length, left_b_length, right_length, angle, eps, gauge, segments, hw, xa, xb, xc, xd;
element left_a, fp, left_b, right ;

hw = 22.8;
height = 10;
left_a_length = hw*0.105;
right_length = hw/2;
left_b_length = hw - left_a_length - right_length;
angle = 150;
eps = 0.01;
gauge = #22;
segments = 21;

xa = right_length*sin(pi*(90 - angle/2)/180);
xb = right_length*sin(pi*angle/2/180);
xc = left_b_length*sin(pi*(90 - angle/2)/180);
xd = left_b_length*sin(pi*angle/2/180);

right = wire(0, xb, height - xa,
             0,0,height,
             gauge, segments);
left_a = wire(0, -xb, height - xa,
              0,-xd-eps, height - xc,
              gauge, segments);
fp = wire(0, -xd-eps, height-xc,
          0, -xd, height-xc,
          gauge, segments);
left_b = wire(0, -xd, height-xc,
              0, 0, height,
              gauge, segments);
          
voltageFeed(fp, 1.0, 0.0);

azimuthPlotForElevationAngle(15);
elevationPlotForAzimuthAngle(56);

frequencySweep(7.0, 7.2, 30);
frequencySweep(14.0, 14.35, 30);
frequencySweep(21.0, 21.45, 30);
frequencySweep(28.0, 29.7, 30);

averageGround();
}