CM 40 meter horizontal loop 4nec2 Model by Carol F. Milazzo, KP4MD
CM http://www.qsl.net/kp4md/modeling.htm
CE
SY F=1.8	'Input Frequency MHz
SY x=-1	'Input x coordinate (ft)
SY y=-33.5	'Input y coordinate (ft)
SY z1=10	'Input height above ground (ft)
SY n=0	'Input number of turns 0<n<144
SY tpi=24	'Measured turns per inch
SY len=n/tpi	'Calculate inductor length (in) 0<len<6
SY wh=69.25	'Measured length of stainless steel whip (in)
SY seg=int(wh/8)	'Calculate # of 8 inch segments in whip
SY d=1.79	'Measured coil diameter (in)
SY h2=21.25	'Measured maximum base height (in)
SY h1=15.25	'Measured minimum base height (in)
SY dh=h2-h1	'Calculate delta h
SY z2=z1+(h1+len)/12	'Calculate height to top of base section
SY z3=z2+wh/12	'Calculate height to top of whip
SY hgh=20	'Point 1 (feed) at 20 feet, hgh=height of support points 2,3,& 4 in feet
SY slp=-0.7549	'Slope of diagonal line from point 2 to 4
SY inc=-25.9118	'Intercept of diagonal line from point 2 to 4
SY x2=11	'Input x coordinate of support point 2
SY y2=x2*slp+inc	'Calculate y coordinate of support point 2
SY x4=-29.35	'Input x coordinate of support point 4
SY y4=x4*slp+inc	'Calculate y coordinate of support point 4
GW	1	18	-1	-13	20	x2	y2	hgh	1.33173e-3	'Loop antenna wires Point 1 (feed) to Point 2
GW	2	22	x2	y2	hgh	-31	-40.5	hgh	1.33173e-3	'Point 2 to Point 3
GW	3	22	-31	-40.5	hgh	x4	y4	hgh	1.33173e-3	'Point 3 to Point 4
GW	4	18	x4	y4	hgh	-1	-13	20	1.33173e-3	'Point 4 to Point 1 (feed)
GW	5	5	0.1	-11.9	0	0.1	-11.9	10	0.1	'J-pole antenna mast
GW	6	5	0.1	-11.9	10	0.1	-11.9	20	0.1
GW	7	3	0.1	-11.9	20	0.1	-11.9	24.75	0.05	'J-pole antenna
GW	8	1	-0.4	-11.9	20	-0.4	-11.9	21.583333	0.05
GW	9	1	0.1	-11.9	20	-0.4	-11.9	20	0.05
GW	10	2	x	y	z1	x	y	z2	0.0833333333	'Sidekick antenna base
GW	11	seg	x	y	z2	x	y	z3
GC	0	0	1	.016666666666666666666666666666666666666666	.004166666
GW	57	5	-1	-33.5	10	-1	-33.5	5	0.15915499	'House
GW	58	5	-1	-33.5	5	-1	-33.5	0	0.15915499
GW	61	1	-21	-33.5	10	-21	-33.5	5	0.15915499
GW	62	1	-21	-33.5	5	-21	-33.5	0	0.15915499
GW	63	3	-16	-33.5	10	-16	-33.5	5	0.15915499
GW	71	3	-16	-33.5	5	-16	-33.5	0	0.15915499
GW	64	5	-11	-33.5	10	-11	-33.5	5	0.15915499
GW	72	5	-11	-33.5	5	-11	-33.5	0	0.15915499
GW	65	5	-6	-33.5	10	-6	-33.5	5	0.15915499
GW	73	5	-6	-33.5	5	-6	-33.5	0	0.15915499
GW	67	3	-21	-33.5	10	-16	-33.5	10	0.15915499
GW	68	3	-16	-33.5	10	-11	-33.5	10	0.15915499
GW	69	5	-11	-33.5	10	-6	-33.5	10	0.15915499
GW	70	5	-6	-33.5	10	-1	-33.5	10	0.15915499
GW	74	3	-21	-33.5	5	-16	-33.5	5	0.15915499
GW	75	3	-16	-33.5	5	-11	-33.5	5	0.15915499
GW	76	5	-11	-33.5	5	-6	-33.5	5	0.15915499
GW	77	5	-6	-33.5	5	-1	-33.5	5	0.15915499
GW	162	1	-1	20.5	10	-1	20.5	5	0.15915499
GW	163	1	-1	20.5	5	-1	20.5	0	0.15915499
GW	167	2	-21	20.5	10	-21	20.5	0	0.15915499
GW	172	1	-21	20.5	10	-16	20.5	10	0.15915499
GW	173	1	-16	20.5	10	-11	20.5	10	0.15915499
GW	174	1	-11	20.5	10	-6	20.5	10	0.15915499
GW	175	1	-6	20.5	10	-1	20.5	10	0.15915499
GW	222	1	-21	-33.5	10	-21	-28.1	10	0.23227999
GW	223	1	-21	-28.1	10	-21	-22.7	10	0.23227999
GW	224	1	-21	-22.7	10	-21	-17.3	10	0.23227999
GW	225	1	-21	-17.3	10	-21	-11.9	10	0.23227999
GW	226	1	-21	-11.9	10	-21	-6.5	10	0.23227999
GW	227	1	-21	-6.5	10	-21	-1.1	10	0.23227999
GW	228	1	-21	-1.1	10	-21	4.3	10	0.23227999
GW	229	1	-21	4.3	10	-21	9.7	10	0.23227999
GW	230	1	-21	9.7	10	-21	15.1	10	0.23227999
GW	231	1	-21	15.1	10	-21	20.5	10	0.23227999
GW	307	1	-21	-17.3	10	-21	-17.3	5	0.23227999
GW	308	1	-21	-17.3	5	-21	-17.3	0	0.23227999
GW	312	2	-21	9.7	10	-21	9.7	0	0.23227999
GW	317	5	-1	-33.5	10	-1	-28.1	10	0.15915499
GW	318	5	-1	-28.1	10	-1	-22.7	10	0.15915499
GW	319	3	-1	-22.7	10	-1	-17.3	10	0.23227999
GW	320	3	-1	-17.3	10	-1	-11.9	10	0.23227999
GW	321	1	-1	-11.9	10	-1	-6.5	10	0.23227999
GW	322	1	-1	-6.5	10	-1	-1.1	10	0.23227999
GW	323	1	-1	-1.1	10	-1	4.3	10	0.23227999
GW	324	1	-1	4.3	10	-1	9.7	10	0.23227999
GW	325	1	-1	9.7	10	-1	15.1	10	0.23227999
GW	326	1	-1	15.1	10	-1	20.5	10	0.23227999
GW	334	1	-21	-33.5	5	-21	-28.1	5	0.23227999
GW	335	1	-21	-28.1	5	-21	-22.7	5	0.23227999
GW	336	1	-21	-22.7	5	-21	-17.3	5	0.23227999
GW	337	5	-1	-33.5	5	-1	-28.1	5	0.15915499
GW	338	5	-1	-28.1	5	-1	-22.7	5	0.15915499
GW	339	3	-1	-22.7	5	-1	-17.3	5	0.23227999
GW	340	3	-1	-17.3	5	-1	-11.9	5	0.23227999
GW	341	1	-1	-11.9	5	-1	-6.5	5	0.23227999
GW	367	5	-1	-28.1	10	-1	-28.1	5	0.15915499
GW	368	5	-1	-28.1	5	-1	-28.1	0	0.15915499
GW	369	1	-21	-28.1	10	-21	-28.1	5	0.23227999
GW	370	1	-21	-28.1	5	-21	-28.1	0	0.23227999
GW	372	5	-1	-22.7	10	-1	-22.7	5	0.15915499
GW	373	5	-1	-22.7	5	-1	-22.7	0	0.15915499
GW	374	1	-21	-22.7	10	-21	-22.7	5	0.23227999
GW	375	1	-21	-22.7	5	-21	-22.7	0	0.23227999
GW	377	3	-1	-17.3	10	-1	-17.3	5	0.23227999
GW	378	3	-1	-17.3	5	-1	-17.3	0	0.23227999
GW	382	1	-1	-11.9	10	-1	-11.9	5	0.23227999
GW	383	1	-1	-11.9	5	-1	-11.9	0	0.23227999
GW	387	1	-1	-6.5	10	-1	-6.5	5	0.23227999
GW	388	1	-1	-6.5	5	-1	-6.5	0	0.23227999
GW	407	1	-1	15.1	10	-1	15.1	5	0.23227999
GW	408	1	-1	15.1	5	-1	15.1	0	0.23227999
GW	422	3	-16	-33.5	10	-16	-28.1	10	0.23227999
GW	423	3	-16	-28.1	10	-16	-22.7	10	0.23227999
GW	424	3	-16	-22.7	10	-16	-17.3	10	0.23227999
GW	425	3	-16	-17.3	10	-16	-11.9	10	0.23227999
GW	426	1	-16	-11.9	10	-16	-6.5	10	0.23227999
GW	427	1	-16	-6.5	10	-16	-1.1	10	0.23227999
GW	428	1	-16	-1.1	10	-16	4.3	10	0.23227999
GW	429	1	-16	4.3	10	-16	9.7	10	0.23227999
GW	430	1	-16	9.7	10	-16	15.1	10	0.23227999
GW	431	1	-16	15.1	10	-16	20.5	10	0.23227999
GW	442	5	-11	-33.5	10	-11	-28.1	10	0.15915499
GW	443	5	-11	-28.1	10	-11	-22.7	10	0.15915499
GW	444	3	-11	-22.7	10	-11	-17.3	10	0.23227999
GW	445	3	-11	-17.3	10	-11	-11.9	10	0.23227999
GW	446	1	-11	-11.9	10	-11	-6.5	10	0.23227999
GW	447	1	-11	-6.5	10	-11	-1.1	10	0.23227999
GW	448	1	-11	-1.1	10	-11	4.3	10	0.23227999
GW	449	1	-11	4.3	10	-11	9.7	10	0.23227999
GW	450	1	-11	9.7	10	-11	15.1	10	0.23227999
GW	451	1	-11	15.1	10	-11	20.5	10	0.23227999
GW	462	5	-6	-33.5	10	-6	-28.1	10	0.15915499
GW	463	5	-6	-28.1	10	-6	-22.7	10	0.15915499
GW	464	3	-6	-22.7	10	-6	-17.3	10	0.23227999
GW	465	3	-6	-17.3	10	-6	-11.9	10	0.23227999
GW	466	1	-6	-11.9	10	-6	-6.5	10	0.23227999
GW	467	1	-6	-6.5	10	-6	-1.1	10	0.23227999
GW	468	1	-6	-1.1	10	-6	4.3	10	0.23227999
GW	469	1	-6	4.3	10	-6	9.7	10	0.23227999
GW	470	1	-6	9.7	10	-6	15.1	10	0.23227999
GW	471	1	-6	15.1	10	-6	20.5	10	0.23227999
GW	502	3	-21	-28.1	10	-16	-28.1	10	0.23227999
GW	503	3	-16	-28.1	10	-11	-28.1	10	0.23227999
GW	504	5	-11	-28.1	10	-6	-28.1	10	0.15915499
GW	505	5	-6	-28.1	10	-1	-28.1	10	0.15915499
GW	512	3	-21	-22.7	10	-16	-22.7	10	0.23227999
GW	513	3	-16	-22.7	10	-11	-22.7	10	0.23227999
GW	514	5	-11	-22.7	10	-6	-22.7	10	0.15915499
GW	515	5	-6	-22.7	10	-1	-22.7	10	0.15915499
GW	522	3	-21	-17.3	10	-16	-17.3	10	0.23227999
GW	523	3	-16	-17.3	10	-11	-17.3	10	0.23227999
GW	524	3	-11	-17.3	10	-6	-17.3	10	0.23227999
GW	525	3	-6	-17.3	10	-1	-17.3	10	0.23227999
GW	532	1	-21	-11.9	10	-16	-11.9	10	0.23227999
GW	533	1	-16	-11.9	10	-11	-11.9	10	0.23227999
GW	534	1	-11	-11.9	10	-6	-11.9	10	0.23227999
GW	535	1	-6	-11.9	10	-1	-11.9	10	0.23227999
GW	542	1	-21	-6.5	10	-16	-6.5	10	0.23227999
GW	543	1	-16	-6.5	10	-11	-6.5	10	0.23227999
GW	544	1	-11	-6.5	10	-6	-6.5	10	0.23227999
GW	545	1	-6	-6.5	10	-1	-6.5	10	0.23227999
GW	552	1	-21	-1.1	10	-16	-1.1	10	0.23227999
GW	553	1	-16	-1.1	10	-11	-1.1	10	0.23227999
GW	554	1	-11	-1.1	10	-6	-1.1	10	0.23227999
GW	555	1	-6	-1.1	10	-1	-1.1	10	0.23227999
GW	562	1	-21	4.3	10	-16	4.3	10	0.23227999
GW	563	1	-16	4.3	10	-11	4.3	10	0.23227999
GW	564	1	-11	4.3	10	-6	4.3	10	0.23227999
GW	565	1	-6	4.3	10	-1	4.3	10	0.23227999
GW	572	1	-21	9.7	10	-16	9.7	10	0.23227999
GW	573	1	-16	9.7	10	-11	9.7	10	0.23227999
GW	574	1	-11	9.7	10	-6	9.7	10	0.23227999
GW	575	1	-6	9.7	10	-1	9.7	10	0.23227999
GW	582	1	-21	15.1	10	-16	15.1	10	0.23227999
GW	583	1	-16	15.1	10	-11	15.1	10	0.23227999
GW	584	1	-11	15.1	10	-6	15.1	10	0.23227999
GW	585	1	-6	15.1	10	-1	15.1	10	0.23227999
GW	602	1	7	-11.9	10	7	-6.5	10	0.28411099	'Porch
GW	603	1	7	-6.5	10	7	-1.1	10	0.28411099
GW	604	1	7	-1.1	10	7	4.3	10	0.28411099
GW	605	1	7	4.3	10	7	7	10	0.28411099
GW	606	1	7	7	10	7	9.7	10	0.28411099
GW	607	1	7	9.7	10	7	15.1	10	0.28411099
GW	608	1	-1	-11.9	10	0.1	-11.9	10	0.18
GW	609	1	0.1	-11.9	10	1.667	-11.9	10	0.26
GW	610	1	1.667	-11.9	10	4.333	-11.9	10	0.28411099
GW	611	1	4.333	-11.9	10	7	-11.9	10	0.28411099
GW	612	1	-1	-6.5	10	1.667	-6.5	10	0.28411099
GW	613	1	1.667	-6.5	10	4.333	-6.5	10	0.28411099
GW	614	1	4.333	-6.5	10	7	-6.5	10	0.28411099
GW	615	1	-1	-1.1	10	1.667	-1.1	10	0.28411099
GW	616	1	1.667	-1.1	10	4.333	-1.1	10	0.28411099
GW	617	1	4.333	-1.1	10	7	-1.1	10	0.28411099
GW	618	1	-1	4.3	10	1.667	4.3	10	0.28411099
GW	619	1	1.667	4.3	10	4.333	4.3	10	0.28411099
GW	620	1	4.333	4.3	10	7	4.3	10	0.28411099
GW	621	1	-1	9.7	10	1.667	9.7	10	0.28411099
GW	622	1	1.667	9.7	10	4.333	9.7	10	0.28411099
GW	623	1	4.333	9.7	10	7	9.7	10	0.28411099
GW	624	1	-1	15.1	10	1.667	15.1	10	0.28411099
GW	625	1	1.667	15.1	10	4.333	15.1	10	0.28411099
GW	626	1	4.333	15.1	10	7	15.1	10	0.28411099
GW	627	2	7	15.1	0	7	15.1	10	0.28411099	'Porch uprights
GW	628	2	7	7	0	7	7	10	0.28411099
GW	629	2	7	-1.1	0	7	-1.1	10	0.28411099
GW	630	2	7	-11.9	0	7	-11.9	10	0.28411099
GW	631	1	-33	-17.3	10	-33	-11.9	10	0.30694199	'Carport
GW	632	1	-33	-11.9	10	-33	-10.55	10	0.225
GW	633	1	-33	-10.55	10	-33	-6.5	10	0.30694199
GW	634	1	-33	-6.5	10	-33	-3.8	10	0.30694199
GW	635	1	-33	-3.8	10	-33	-1.1	10	0.30694199
GW	636	1	-33	-1.1	10	-33	2.95	10	0.30694199
GW	637	1	-33	2.95	10	-33	4.3	10	0.225
GW	638	1	-33	4.3	10	-33	9.7	10	0.30694199
GW	644	1	-27	-17.3	10	-27	-11.9	10	0.30694199
GW	645	1	-27	-11.9	10	-27	-6.5	10	0.30694199
GW	646	1	-27	-6.5	10	-27	-1.1	10	0.30694199
GW	647	1	-27	-1.1	10	-27	4.3	10	0.30694199
GW	648	1	-27	4.3	10	-27	9.7	10	0.30694199
GW	654	1	-33	-17.3	10	-27	-17.3	10	0.30694199
GW	655	1	-27	-17.3	10	-21	-17.3	10	0.30694199
GW	658	1	-33	-11.9	10	-27	-11.9	10	0.30694199
GW	659	1	-27	-11.9	10	-21	-11.9	10	0.30694199
GW	662	1	-33	-6.5	10	-27	-6.5	10	0.30694199
GW	663	1	-27	-6.5	10	-21	-6.5	10	0.30694199
GW	666	1	-33	-1.1	10	-27	-1.1	10	0.30694199
GW	667	1	-27	-1.1	10	-21	-1.1	10	0.30694199
GW	670	1	-33	4.3	10	-27	4.3	10	0.30694199
GW	671	1	-27	4.3	10	-21	4.3	10	0.30694199
GW	674	1	-33	9.7	10	-27	9.7	10	0.30694199
GW	675	1	-27	9.7	10	-21	9.7	10	0.30694199
GW	678	2	-33	-17.3	0	-33	-17.3	10	0.30694199	'Carport uprights
GW	679	5	-33	-10.55	0	-33	-10.55	10	0.30694199
GW	680	5	-33	-3.8	0	-33	-3.8	10	0.30694199
GW	681	5	-33	2.95	0	-33	2.95	10	0.30694199
GW	682	2	-33	9.7	0	-33	9.7	10	0.30694199
GW	683	1	1	-13.5	20	1	-14	20	1.33173e-3	'Loop feed
GW	684	1	1	-13.5	8.5	1	-14	8	1.33173e-3
GW	685	1	1	0	8.5	1	-0.5	8	1.33173e-3
GW	686	1	1	0	5	1	-0.5	5	1.33173e-3
GW	687	1	-2	0	5	-2	-0.5	5	1.33173e-3
GW	688	1	-0.5	-12.9	19.5	-0.5	-12.4	19.5	1.33173e-3	'J-pole feed
GW	689	1	-0.5	-12.9	9	-0.5	-12.4	9.5	1.33173e-3
GW	690	1	-0.5	-2	9	-0.5	-1.5	9.5	1.33173e-3
GW	691	1	-0.5	-2	5	-0.5	-1.5	5	1.33173e-3
GW	692	1	-2	-2	5	-2	-1.5	5	1.33173e-3
GS	0	0	0.3048
GE	1
LD	5	1	0	0	58000000	'Loop wires copper
LD	5	2	0	0	58000000
LD	5	3	0	0	58000000
LD	5	4	0	0	58000000
LD	7	1	0	0	4.5	0.0007	'Loop wires PVC insulation
LD	7	2	0	0	4.5	0.0007
LD	7	3	0	0	4.5	0.0007
LD	7	4	0	0	4.5	0.0007
LD	5	5	0	0	1390000	'J-pole mast steel
LD	5	6	0	0	1390000
LD	5	7	0	0	37700000	'J-pole antenna aluminum
LD	5	8	0	0	37700000
LD	5	9	0	0	37700000
LD	5	10	0	0	37700000	'Sidekick aluminum base
LD	5	11	0	0	1390000	'Sidekick stainless steel whip
GN	2	0	0	0	4	0.01
EK
EX	0	687	1	0	1	0	0	'Power source to loop
TL	1	1	683	1	105	0	0	0	0	0	'Loop feedline
TL	683	1	684	1	105	0	0	0	0	0
TL	684	1	685	1	105	0	0	0	0	0
TL	685	1	686	1	105	0	0	0	0	0
TL	686	1	687	1	105	0	0	0	0	0
TL	9	1	688	1	50	0	0	0	0	0	'J-pole feedline
TL	688	1	689	1	50	0	0	0	0	0
TL	689	1	690	1	50	0	0	0	0	0
TL	690	1	691	1	50	0	0	0	0	0
TL	691	1	692	1	50	0	0	0	0	0
FR	0	0	0	0	F	0
EN