CM Classic fan dipole for 40/20/10 (and 15 from 40)
CM Model created by Roger Walker, GW6HRU
CM
CM UK Bandplan reminder:
CM	1.800	2.000	1.900	164.27	CQWW
CM	3.500	3.800	3.650	82.13 *	CQWW
CM	5.2585	5.4065	5.333	56.22
CM	7.000	7.200	7.100	42.22 *	CQWW
CM	10.100	10.150	10.125	29.61
CM	14.000	14.350	14.175	21.15 *	CQWW
CM	18.068	18.168	18.118	16.55
CM	21.000	21.450	21.225	14.12 *	CQWW
CM	24.890	24.990	24.940	12.02
CM	28.000	29.700	28.850	10.39 *	CQWW
CM	50.000	52.000	51.000	5.88
CM
CM	Feed point is a mid top
CM	Top wire is longest
CM	Mid is G(Gap) below longest, short is G below mid
CM	Splitter is 2xG from feedpoint
CM	We assume the mid->end angle is shallow, so keep the spacers vertical
CM	We assume the feedpoint length is negligable, so X calcs can ignore it
CE
SY M=8		'Midpoint Height above ground
SY E=6		'Endpoint Height above ground
SY R=0.0005	'Wire radius
SY V1=0.99	'0.99 gives shifts the low point below the 40m band, but gives better than 1:3 across the band, this shifts the 3rd harhomic into the 15m band, so that is better than 3:1 acros the band.  Use 0.963 if you don't need the 15m band
SY V2=1.007
SY V3=1.047	'Vary this to move the usable range around the 10m band
SY S=0.15	'Separator gap, should be significantly more that the 1/2 feed point size, so 5cm+
SY G=0.05	'Vertical Gap between bands 
SY CQ1=V1*299.792458/(4*7.1)	'Quarter wave #1 (longest)
SY CQ2=V2*299.792458/(4*14.175)	'Quarter wave #2
SY CQ3=V3*299.792458/(4*28.850)	'Quarter wave #3 (shortest)
SY CHF=CQ1/400	'Half Feedpoint size (based on longest wavelength), so about 2.5cm each side for 40m
SY X1=sqr((CQ1^2)-((M-E)^2))	' Top wire end point, this one is easy!
SY YS2=(M-(((S-CHF)/(CQ1-CHF))*(M-E)))-G	'Separator Y pos for wire 2
SY YS3=YS2-G	'Separator Y pos for wire 3
SY DL2=sqr(S^2+(M-YS2)^2)	' Diagonal length from feedpoint to wire 2 on Separator
SY DL3=sqr(S^2+(M-YS3)^2)	' Diagonal length from feedpoint to wire 3 on Separator
SY X2=sqr((CQ2-DL2)^2-(M-YS2)^2)	' X pos of end of wire 2
SY Y2=M-(((X2/X1)*(M-E))+G)	' Y pos of end of wire 2
SY X3=sqr((CQ3-DL3)^2-(M-YS3)^2)	' X pos of end of wire 3
SY Y3=M-(((X3/X1)*(M-E))+2*G)	' Y pos of end of wire 3
GW	99	1			-CHF	0	M	CHF	0	M	R	'Feed point is at top of driven, 1/2 left + 1/2 right
GW	11	int(X1/(3*CHF))		-CHF	0	M	-X1	0	E	R	'Left top wire
GW	16	int(X1/(3*CHF))		CHF	0	M	X1	0	E	R	'Right top wire
GW	21	int(DL2/(3*CHF))	-CHF	0	M	-S	0	YS2	R	'Left mid wire feed to separator
GW	22	int(X2/(3*CHF))		-S	0	YS2	-X2	0	Y2	R	'Left mid wire separator to end
GW	26	int(DL2/(3*CHF))	CHF	0	M	S	0	YS2	R	'Right mid wire feed to separator
GW	27	int(X2/(3*CHF))		S	0	YS2	X2	0	Y2	R	'Right mid wire separator to end
GW	31	int(DL3/(3*CHF))	-CHF	0	M	-S	0	YS3	R	'Left top wire feed to separator
GW	32	int(X3/(3*CHF))		-S	0	YS3	-X3	0	Y3	R	'Left top wire separator to end
GW	36	int(DL3/(3*CHF))	CHF	0	M	S	0	YS3	R	'Right top wire feed to separator
GW	37	int(X3/(3*CHF))		S	0	YS3	X3	0	Y3	R	'Right top wire separator to end
GE	1									'Ground model, 1=Real Ground
LD	5	0	0	0	58000000				
GN	2	0	0	0	4	0.003				'2=Moderate, 4=dielectric constant, 0.003=Conductivity
EK
EX	0	99	1	0	1	0	0			'Load 0=Voltage source, feeding tag 99, segment 1
FR	0	0	0	0	7.1	0				'Default frequency
EN