This was output by this cocoaNEC program of the Cebik aerial. // Cebik’s Moxon Turnstile as described in “A Simple Fixed Antenna for VHF-UHF Satellite Work” // note there is a problem with quotes and double quotes — I had to copy them from another model // rather than typing them // so I’ve converted to metres // this version replaces the driven2 excitation with a 90º phasing line between driven1 and driven2 // so driven1 is excited from the middle, where the phasing line is connected // driven2 is just connected through the phasing line model( "Cebik" ) { real driveh, drivev, gap, reflecth, reflectv, h, rad, n, lambda; element driven1, driven2; lambda = 2.05478; // c/145.9MHz drivev = 0.096774; // 3.81" driveh = 0.73787; // 29.05" gap = 0.03556; // 1.40" reflectv = 0.141986; // 5.59" reflecth = driveh; rad = 0.003175; // 0.125" n = 21; h = 1.5; // height above ground // driven 1 (driven directly) driven1 = wire(0, -driveh/40, h, 0, driveh/40, h, rad, n); // very middle of dipole wire(0, -driveh/2, h, 0, -driveh/40, h, rad, n); // horizontal parts wire(0, driveh/2, h, 0, driveh/40, h, rad, n); wire(0, -driveh/2, h, 0, -driveh/2, h - drivev, rad, n); // dropping vertical parts wire(0, driveh/2, h, 0, driveh/2, h - drivev, rad, n); // reflector 1 wire(0, -reflecth/2, h - drivev - gap - reflectv, 0, reflecth/2, h - drivev - gap - reflectv, rad, n); wire(0, -reflecth/2, h - drivev - gap - reflectv, 0, -reflecth/2, h - drivev - gap, rad, n); wire(0, reflecth/2, h - drivev - gap - reflectv, 0, reflecth/2, h - drivev - gap, rad, n); // driven 2 (via phasing line) driven2 = wire(-driveh/40, 0, h, driveh/40, 0, h, rad, n); // split as driven1 wire(-driveh/2, 0, h, -driveh/40, 0, h, rad, n); wire(driveh/2, 0, h, driveh/40, 0, h, rad, n); wire(-driveh/2, 0, h, -driveh/2, 0, h - drivev, rad, n); wire(driveh/2, 0, h, driveh/2, 0, h - drivev, rad, n); // reflector 2 wire(-reflecth/2, 0, h - drivev - gap - reflectv, reflecth/2, 0, h - drivev - gap - reflectv, rad, n); wire(-reflecth/2, 0, h - drivev - gap - reflectv, -reflecth/2, 0, h - drivev - gap, rad, n); wire(reflecth/2, 0, h - drivev - gap - reflectv, reflecth/2, 0, h - drivev - gap, rad, n); voltageFeed(driven1, 1.0, 0.0); longTransmissionLine(driven1, driven2, 50.0, 1.0 *lambda/4); // 𝜆/4 phasing line averageGround(); setFrequency(145.9); }