The Novice Bear: More Breadth Charts Using Blocks 3.0

Wednesday, February 13, 2008

More Breadth Charts Using Blocks 3.0

One of the things I really like about the Worden Brothers' data is that they contain sector indexes. There are main group sectors and sub-sectors within them. All of the sectors can be plotted together to get an idea of which sectors are leading. You can also put together a "market monitor" type breadth indicator to get a feel for the entire market. Below I have plotted market monitor for the Hemscott Industry Groups along with the NYSE.

Blocks also lets you take a look at an individual sector or ETF. Below I have plotted the market monitor breadth for the XLF and SPDR Semiconductor ETF.

2 comments:

Anonymous said...: Paul,
these breadth charts seem very interesting. Do you use them for timing?

Regards
Bob Mc

nice site - informative and well organized; 2/23/2008 7:37 PM
Paul Stiles said...: Hi Bob,

Yup, I went long the SSO, UYG, UWM, and QLD in late January. Friday was quite the roller coaster ride.

Cheers,

Paul; 2/24/2008 2:47 AM

Post a Comment

kswing code


Dim i,j,k,last As Integer
Dim swing As Single = Me.CodeBlock.ParameterValue
Dim curhigh,curlow,swhigh,swlow,lowp,highp As Single
Dim pcswing As Single
Dim highbar, lowbar, chighbar, clowbar As Integer
		
pcswing = swing/100
    For i = 1 To InputCount-1
	If i = 1 
	curhigh = inputlast(0)
	curlow = inputlast(0)
	End If
			
	If last <> 1
				
	If inputlow(i) < (curhigh-curhigh*pcswing)
	last = 1
	swhigh=curhigh
	highbar = chighbar
	curlow = inputlow(i)
	clowbar = i
	lowp = inputlow(i)
	addtooutput(inputdate(chighbar),swhigh)
					
	ElseIf inputhigh(i) > curhigh
	curhigh = inputhigh(i)
	chighbar = i
					
	End If
        End If
			
    If last <> -1
	If inputhigh(i) > curlow+(curlow*pcswing)
	last = -1
        swlow = curlow
	curhigh = inputhigh(i)
	chighbar = i
	addtooutput(inputdate(clowbar),swlow)
					
	ElseIf inputlow(i) < curlow
	curlow = inputlow(i)
	clowbar = i
	End If
	End If
	Next

TDST Sell Line

Dim j,k As Integer
Dim x As Integer = 0
Dim m As Integer = 0
Dim n As Integer = 0
Dim p As Integer = 0
Dim ar1(50000), ar2(50000) As Integer
Dim Period As Integer = Me.CodeBlock.ParameterValue

For i As Integer = 4 To InputCount-1
Dim CurDate As Date = InputDate(i)
If inputlast(i) > Inputlast(i-4) And InputLast(i-1) > InputLast(i-5) _
And InputLast(i-2) > InputLast(i-6) And InputLast(i-3) > InputLast(i-7) _
And InputLast(i-4) > InputLast(i-8) And InputLast(i-5) > InputLast(i-9) _
And InputLast(i-6) > InputLast(i-10) And InputLast(i-7) > InputLast(i-11) _
And InputLast(i-8) > InputLast(i-12) And InputLast(i-9) < InputLast(i-13)
m = m+1
ar1(i) = m
End If
Next

For j = 4 To InputCount-1
If ar1(j) > 0 And ar1(j) > ar1(j-1)
n = n + 1
ar2(n) = j
End If
Next

addtooutput(inputdate(ar2(n-(Period-1))-8),inputlow(ar2(n-(Period-1))-8))

Wednesday, February 13, 2008

More Breadth Charts Using Blocks 3.0

2 comments:

Blogs I Read

Feed The Bull

Financial Links

About Me

Blog Archive

Affiliations

kswing code

TDST Sell Line