Registered User
Joined: 3/6/2005
Posts: 16
|
I need help writing real code for the following:
Strong accumulation occurs if:
today's close is greater than yesterday's close
today's volume is more than 150% of the 21 day simple moving average of the volume
AV Bottom occurs if:
today's close is greater than $5
average volume is greater than 200,000
at least 3 of the last 10 sessions have shown strong accumulation
today's close is less than the lowest value in the previous 200 days starting 5 day ago
|
Worden Trainer
Joined: 10/7/2004
Posts: 65,138
|
QUOTE (Reynolds05) Strong accumulation occurs if:
today's close is greater than yesterday's close
today's volume is more than 150% of the 21 day simple moving average of the volume
Please try the following RealCode Condition:
Writing Conditions in RealCode
'|*****************************************************************|
'|*** StockFinder RealCode Condition - Version 5.0 www.worden.com
'|*** Copy and paste this header and code into StockFinder *********
'|*** Condition:Strong Accumulation
'|******************************************************************
If Price.Last > Price.Last(1) AndAlso _
Volume.Value > 1.5 * Volume.AVG(21) Then Pass
QUOTE (Reynolds05) AV Bottom occurs if:
today's close is greater than $5
average volume is greater than 200,000
at least 3 of the last 10 sessions have shown strong accumulation
today's close is less than the lowest value in the previous 200 days starting 5 day ago
Please try the following RealCode Condition:
'|*****************************************************************|
'|*** StockFinder RealCode Condition - Version 5.0 www.worden.com
'|*** Copy and paste this header and code into StockFinder *********
'|*** Condition:AV Bottom
'|******************************************************************
Static Count As Integer
If isFirstBar Then
Count = 0
Else If CurrentIndex >= 196 AndAlso _
Price.Last > Price.Last(1) AndAlso _
Volume.Value > 1.5 * Volume.AVG(21) Then
Count += 1
End If
If CurrentIndex >= 206 AndAlso _
Price.Last(10) > Price.Last(11) AndAlso _
Volume.Value(10) > 1.5 * Volume.AVG(21, 10) Then
Count -= 1
End If
If CurrentIndex >= 205 Then
If Count >= 3 AndAlso _
Price.Last > 5 AndAlso _
Volume.AVG(21) > 2000 AndAlso _
Price.Last < Price.MinClose(200, 5) Then
Pass
End If
Else
SetIndexInvalid
End If
-Bruce
Personal Criteria Formulas
TC2000 Support Articles
|