CM Icom AH7000 (Diamond D-130) Discone Antenna (with top element) NEC model by Carol F. Milazzo, KP4MD
CM http://www.qsl.net/kp4md/modeling.htm
CE
SY hgh=120	'Input height in. to feed point
SY dsc=11.5	'Input length in. of disc radials
SY rdl=34	'Input length in. of cone radials
SY s=1	'Input segment length (in.)
SY sn=2	'Input # of segments in source wire  (in.)
SY rad=0.1	'Input radius of elements in.
SY sp=8	'Input number of spokes
SY ang=34	'Input angle of cone radials [0=down 90=horizontal]
SY f=222	'Input design frequency MHz
SY seg=int(dsc/s+0.5)	'Calculate number of segments in disc radial
SY segr=int(rdl/s+0.5)	'Calculate number of segments in cone radial
SY rdlx=rdl*sin(ang)	'Calculate x coordinate of cone radial end
SY rdlz=-rdl*cos(ang)	'Calculate z coordinate of cone radial end
SY L=1.07e-6	'Input loading coil inductance (H)
SY v=30	'Input length of top section in.
SY rad2=0.05	'Input radius of top section in.
GW	1	sn	0	0	0	0	0	s*sn	rad	'Feed point segment
GW	2	seg	0	0	s*sn	0	dsc	s*sn	rad	'Disc wire
GW	3	segr	0	rdlx	rdlz	0	0	0	rad	'Cone wire
GM	1	sp-1	0	0	360/sp	0	0	0	2	'Rotate 360 degrees
GW	sp*2+2	int(v/s+0.5)	0	0	s*sn	0	0	s*sn+v	rad2	'Top section
GM	0	0	0	0	0	0	0	hgh	1	'Raise antenna to height
GS	0	0	0.0254
GE	1
LD	5	0	0	0	1390000
LD	0	sp*2+2	1	1	0.01	L	0
GN	2	0	0	0	4	0.01
EK
EX	0	1	sn	0	1	0	0
FR	0	0	0	0	f	0
EN