The Loonie equals the Dollar....ouch
I can't believe it. The Canadian dollar is worth as much as the US dollar. The depressing thing is that pretty soon the Loonie is going to be worth more.
skip to main |
skip to sidebar
Blogs I Read
Feed The Bull
Financial Links
About Me
Blog Archive
-
▼
2007
(272)
-
▼
September
(32)
- The Black Swan
- Walmart (WMT): At Critical Levels
- Market Guru: Ken Fisher
- Market Gurus: Grantham and Mauldin
- Elliot Wave is no theory
- Weak Volume As Correction Ends
- Speaking of Retail: Do Technicals Trump Fundament...
- VFC Corp: This chart is setting up pretty well
- Market Charts
- Ion Geophysical (input/output)
- Thanks Target
- Crude oil ready for a pullback?
- Microsoft Failure (MSFT)
- Synchronoss Tech. (SNCR): What a wild ride!
- ESCO Technologies (ESE): TD Sequential and TD Com...
- TD Sequential Caught the Gold Move
- Some Low Risk Nasdaq 100 Buys
- Supermarket TD Sequential: SuperValu Inc. (SVU)
- TD Sequential Buy of the day: Fidelity National In...
- The Loonie equals the Dollar....ouch
- S&P 500 Inverted Head and Shoulders and Low Volume
- Wow.
- Disco Biscuit Retailer Leading the way? (Buckle I...
- Market TDST Support: S&P 500 and the Russell 2000
- Faulty Base Pattern: Synchronoss Tech (SNCR)
- Paul Tudor Jones Quote
- Follow up on NCI Building Systems (NCI)
- Snap-On Inc. (SNA): More TD Sequential Buys
- Dodgers 6 Cubs 2
- RTI International Metal Inc. (RTI): Perfected TD ...
- NCI Building Systems (NCI)
- Broadening Tops in IBD 100
-
▼
September
(32)
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