The Novice Bear: LMC

Showing posts with label LMC. Show all posts

Wednesday, August 08, 2007

Bought Lundin Mining (LMC) and added more Mitcham Industries (MIND)

Sure was wild out there today. I was stopped out of my TWM trade but I did pick up some LMC and added some MIND shares today. I got lucky with the MIND buy, as it exploded about an hour after I got in. LMC looks strong but it has some work to do to make it up to 14.40, which is my price target.

US Gold Corp was huge today! That was nice to see.

This market still looks like a dead cat bounce to me, but that move today was powerful!!!

Tuesday, August 07, 2007

TD Sequential Signal for Lundin Mining Corp (LMC)

The TD Sequential signals have been working very well for the mining stocks. Being bearish on the market, I have missed many of the big moves, but as Tom O'Brien has been saying, the golds seems to have bottomed before the wider market tanked.

Check out LMC. Lundin is coming into a swing point on lighter volume and has also just finished a TD sequential countdown. Tomorrow looks like a good long.

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, August 08, 2007

Bought Lundin Mining (LMC) and added more Mitcham Industries (MIND)

Tuesday, August 07, 2007

TD Sequential Signal for Lundin Mining Corp (LMC)

Blogs I Read

Feed The Bull

Financial Links

About Me

Blog Archive

Affiliations

kswing code

TDST Sell Line