My apologies
Sorry for the lack of post again. I've been working on the Blocks program and I've come up with some really cool indicators.
I'll write more about this soon.
Tuesday, June 19, 2007
Subscribe to:
Post Comments (Atom)
skip to main |
skip to sidebar
Blogs I Read
Feed The Bull
Financial Links
About Me
Blog Archive
-
▼
2007
(272)
-
▼
June
(27)
- The bond market's Enron
- Anooraq Resources (ANO)
- Analyst kills my Diode (DIOD) trade
- Quick Trades: Short setup for ATI and Long Diodes...
- Interesting setup for Allegheny Technologies Inc. ...
- Arcelor Mittal (MT) breaks and Dover Corp. (DOV) r...
- General Motors (GM): Low-risk Short
- Agnico-Eagle Mines (AEM)
- S&P 500 Weekly Update
- TD Range Expansion Index REI
- TD Pressure Ratio
- Another Dow component short: American Internationa...
- AllianceBernstein (AB): I wouldn't short this.
- 3M Company (MMM) and a Dow component short play
- NYSE Euronext, Inc. (NYX) Chart
- Current Market Technicals
- Nasdaq false 2002 bottom
- Nasdaq 2007 Mini-crash
- My Market Indicator
- My apologies
- I can't resist this Cramer bash
- QQQQ Broadening Top
- TD Pressure Cumulative Index
- Shorted the close on Friday
- Market Gameplan
- The end is near...
- Sold Mitcham Industries (MIND)
-
▼
June
(27)
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))
No comments:
Post a Comment