The Novice Bear: Tom O'Brien Interviews

Friday, January 19, 2007

I like to listen to Tom O'Brien (www.tfnn.com). His market calls have been right on for as long as I've been listening. One of the best things about him is the respect he gives each one of his callers, no matter how crazy they might be.

His trading style is difficult and complicated and I'm not sure his system is as teachable as he might think. Nevertheless, he is out there putting his neck on the line each and everyday and is really trying to stop people from making mistakes.

Some people are beyond hope, however. Just listen to these two clips. They are amazing.

One guy has all of his money (multiple six-figures) in only one stock. Guess what this stock is? Motorola! What a nut.

The other guy is asking advice for an entry point into an ETF he know absolutely nothing about. Someone needs to tell this guy to just put his money into a mutual fund. You know the call is going to be bad when the caller asks about the "exchrange traded fund".

You can listen to Tom O'Brien every weekday from 10-11 am and 4-6 pm (eastern time). The Tom O'Brien Show

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))

Friday, January 19, 2007

Tom O'Brien Interviews

No comments:

Blogs I Read

Feed The Bull

Financial Links

About Me

Blog Archive

Affiliations

kswing code

TDST Sell Line