CM Universal Magnetic Loop Antenna NEC model by Carol F. Milazzo, KP4MD
CM Vertical orientation
CM http://www.qsl.net/kp4md/magloop.htm
CM Frequency = 7.050 MHz
CM Impedance 50 ohms
CM Both main loop and coupling loop are 18-side polygons
CM RG-8/U main loop
CM RG-58/U coupling loop
CM Simulated good ground
CE
SY frq=7.05	'frequency MHz
SY C=7.14e-11	'Input resonating capacitance
SY d=6.5	'Input main loop diameter feet
SY r=0.5*d	'Calculate main loop radius
SY dia=0.4	'Input main loop wire dia. inches
SY rad=0.5*dia/12	'Calculate main loop wire radius feet
SY n=18	'Input n-polygon main loop
SY inc=360/n	'Calculate angle increment main loop
SY seg=1	'Input segments/wire main loop
SY d2=1.416902	'Input coupling loop diameter feet
SY r2=0.5*d2	'Calculate coupling loop radius
SY dia2=0.19	'Input coupling loop wire dia. inches
SY rad2=0.5*dia2/12	'Calculate coupling loop wire radius feet
SY n2=18	'Input n-polygon coupling loop
SY inc2=360/n2	'Calculate angle increment coupling loop
SY seg2=1	'Input segments/wire coupling loop
SY h=12.00448	'Input height to main loop base
SY ht=h+r	'Calculate height to main loop center
SY h2=0.757949	'Input separation from coupling loop feed point to top of main loop
SY ht2=h+d-h2-r2	'Calculate height to coupling loop center
GW	1	seg	r*sin(0.5*inc)	0	ht+r*cos(.5*inc)	r*sin(1.5*inc)	0	ht+r*cos(1.5*inc)	rad	'Main loop
GW	2	seg	r*sin(1.5*inc)	0	ht+r*cos(1.5*inc)	r*sin(2.5*inc)	0	ht+r*cos(2.5*inc)	rad	'Main loop
GW	3	seg	r*sin(2.5*inc)	0	ht+r*cos(2.5*inc)	r*sin(3.5*inc)	0	ht+r*cos(3.5*inc)	rad	'Main loop
GW	4	seg	r*sin(3.5*inc)	0	ht+r*cos(3.5*inc)	r*sin(4.5*inc)	0	ht+r*cos(4.5*inc)	rad	'Main loop
GW	5	seg	r*sin(4.5*inc)	0	ht+r*cos(4.5*inc)	r*sin(5.5*inc)	0	ht+r*cos(5.5*inc)	rad	'Main loop
GW	6	seg	r*sin(5.5*inc)	0	ht+r*cos(5.5*inc)	r*sin(6.5*inc)	0	ht+r*cos(6.5*inc)	rad	'Main loop
GW	7	seg	r*sin(6.5*inc)	0	ht+r*cos(6.5*inc)	r*sin(7.5*inc)	0	ht+r*cos(7.5*inc)	rad	'Main loop
GW	8	seg	r*sin(7.5*inc)	0	ht+r*cos(7.5*inc)	r*sin(8.5*inc)	0	ht+r*cos(8.5*inc)	rad	'Main loop
GW	9	seg	r*sin(8.5*inc)	0	ht+r*cos(8.5*inc)	r*sin(9.5*inc)	0	ht+r*cos(9.5*inc)	rad	'Main loop capacitor
GW	10	seg	r*sin(9.5*inc)	0	ht+r*cos(9.5*inc)	r*sin(10.5*inc)	0	ht+r*cos(10.5*inc)	rad	'Main loop
GW	11	seg	r*sin(10.5*inc)	0	ht+r*cos(10.5*inc)	r*sin(11.5*inc)	0	ht+r*cos(11.5*inc)	rad	'Main loop
GW	12	seg	r*sin(11.5*inc)	0	ht+r*cos(11.5*inc)	r*sin(12.5*inc)	0	ht+r*cos(12.5*inc)	rad	'Main loop
GW	13	seg	r*sin(12.5*inc)	0	ht+r*cos(12.5*inc)	r*sin(13.5*inc)	0	ht+r*cos(13.5*inc)	rad	'Main loop
GW	14	seg	r*sin(13.5*inc)	0	ht+r*cos(13.5*inc)	r*sin(14.5*inc)	0	ht+r*cos(14.5*inc)	rad	'Main loop
GW	15	seg	r*sin(14.5*inc)	0	ht+r*cos(14.5*inc)	r*sin(15.5*inc)	0	ht+r*cos(15.5*inc)	rad	'Main loop
GW	16	seg	r*sin(15.5*inc)	0	ht+r*cos(15.5*inc)	r*sin(16.5*inc)	0	ht+r*cos(16.5*inc)	rad	'Main loop
GW	17	seg	r*sin(16.5*inc)	0	ht+r*cos(16.5*inc)	r*sin(17.5*inc)	0	ht+r*cos(17.5*inc)	rad	'Main loop
GW	18	seg	r*sin(17.5*inc)	0	ht+r*cos(17.5*inc)	r*sin(.5*inc)	0	ht+r*cos(.5*inc)	rad	'Main loop
GW	19	seg2	r2*sin(0.5*inc2)	0	ht2+r2*cos(.5*inc2)	r2*sin(1.5*inc2)	0	ht2+r2*cos(1.5*inc2)	rad2	'Coupling loop
GW	20	seg2	r2*sin(1.5*inc2)	0	ht2+r2*cos(1.5*inc2)	r2*sin(2.5*inc2)	0	ht2+r2*cos(2.5*inc2)	rad2	'Coupling loop
GW	21	seg2	r2*sin(2.5*inc2)	0	ht2+r2*cos(2.5*inc2)	r2*sin(3.5*inc2)	0	ht2+r2*cos(3.5*inc2)	rad2	'Coupling loop
GW	22	seg2	r2*sin(3.5*inc2)	0	ht2+r2*cos(3.5*inc2)	r2*sin(4.5*inc2)	0	ht2+r2*cos(4.5*inc2)	rad2	'Coupling loop
GW	23	seg2	r2*sin(4.5*inc2)	0	ht2+r2*cos(4.5*inc2)	r2*sin(5.5*inc2)	0	ht2+r2*cos(5.5*inc2)	rad2	'Coupling loop
GW	24	seg2	r2*sin(5.5*inc2)	0	ht2+r2*cos(5.5*inc2)	r2*sin(6.5*inc2)	0	ht2+r2*cos(6.5*inc2)	rad2	'Coupling loop
GW	25	seg2	r2*sin(6.5*inc2)	0	ht2+r2*cos(6.5*inc2)	r2*sin(7.5*inc2)	0	ht2+r2*cos(7.5*inc2)	rad2	'Coupling loop
GW	26	seg2	r2*sin(7.5*inc2)	0	ht2+r2*cos(7.5*inc2)	r2*sin(8.5*inc2)	0	ht2+r2*cos(8.5*inc2)	rad2	'Coupling loop
GW	27	seg2	r2*sin(8.5*inc2)	0	ht2+r2*cos(8.5*inc2)	r2*sin(9.5*inc2)	0	ht2+r2*cos(9.5*inc2)	rad2	'Coupling loop feed point
GW	28	seg2	r2*sin(9.5*inc2)	0	ht2+r2*cos(9.5*inc2)	r2*sin(10.5*inc2)	0	ht2+r2*cos(10.5*inc2)	rad2	'Coupling loop
GW	29	seg2	r2*sin(10.5*inc2)	0	ht2+r2*cos(10.5*inc2)	r2*sin(11.5*inc2)	0	ht2+r2*cos(11.5*inc2)	rad2	'Coupling loop
GW	30	seg2	r2*sin(11.5*inc2)	0	ht2+r2*cos(11.5*inc2)	r2*sin(12.5*inc2)	0	ht2+r2*cos(12.5*inc2)	rad2	'Coupling loop
GW	31	seg2	r2*sin(12.5*inc2)	0	ht2+r2*cos(12.5*inc2)	r2*sin(13.5*inc2)	0	ht2+r2*cos(13.5*inc2)	rad2	'Coupling loop
GW	32	seg2	r2*sin(13.5*inc2)	0	ht2+r2*cos(13.5*inc2)	r2*sin(14.5*inc2)	0	ht2+r2*cos(14.5*inc2)	rad2	'Coupling loop
GW	33	seg2	r2*sin(14.5*inc2)	0	ht2+r2*cos(14.5*inc2)	r2*sin(15.5*inc2)	0	ht2+r2*cos(15.5*inc2)	rad2	'Coupling loop
GW	34	seg2	r2*sin(15.5*inc2)	0	ht2+r2*cos(15.5*inc2)	r2*sin(16.5*inc2)	0	ht2+r2*cos(16.5*inc2)	rad2	'Coupling loop
GW	35	seg2	r2*sin(16.5*inc2)	0	ht2+r2*cos(16.5*inc2)	r2*sin(17.5*inc2)	0	ht2+r2*cos(17.5*inc2)	rad2	'Coupling loop
GW	36	seg2	r2*sin(17.5*inc2)	0	ht2+r2*cos(17.5*inc2)	r2*sin(.5*inc2)	0	ht2+r2*cos(.5*inc2)	rad2	'Coupling loop
GS	0	0	0.3048
GE	1
LD	1	n/2	1	1	0	0	C	'Resonating capacitor
LD	5	0	0	0	58000000	'Copper wire
LD	7	0	0	0	4.5	'PVC jacket
GN	2	0	0	0	4	0.01
EK
EX	0	n+n2/2	1	0	1	0	0	'Power source to coupling loop
FR	0	0	0	0	frq	0
EN