| sanjayakdash |
|
Gold User, Member, Platinum User, TeleChart
|
| Registered User |
|
|
|
|
| Unsure |
|
| Saturday, November 24, 2007 |
| Tuesday, March 23, 2010 8:54:32 PM |
10
[0.00% of all post / 0.00 posts per day] |
|
Hi,
This is how I implemented in Stockfinder.
Step1. Create a LR30 indicator using the formula:
(AVGC30 + 14.5 * (14.5 * C + 13.5 * C1 + 12.5 * C2 + 11.5 * C3 + 10.5 * C4 + 9.5 * C5 + 8.5 * C6 + 7.5 * C7 + 6.5 * C8 + 5.5 * C9 + 4.5 * C10 + 3.5 * C11 + 2.5 * C12 + 1.5 * C13 + .5 * C14 - .5 * C15 - 1.5 * C16 - 2.5 * C17 - 3.5 * C18 - 4.5 * C19 - 5.5 * C20 - 6.5 * C21 - 7.5 * C22 - 8.5 * C23 - 9.5 * C24 - 10.5 * C25 - 11.5 * C26 - 12.5 * C27 - 13.5 * C28 - 14.5 * C29) / 2247.5)
'# MA = indicator.MovingAverage.2------> This is Price Simple Moving Average 30 day.
Dim LRCond As Single
Dim MPfactor As Single
MPfactor = 14.5
LRCond = 0
For index1 As Integer = 0 To 29
LRCond += (MPfactor) * price.close(index1)
MPfactor = MPfactor - 1
Next index1
LRCond = MA.value + ( (14.5 * LRCond ) / 2247.5)
Plot = LRCond
Step2: Add TSV 26day indicator to your chart.
Step3:Use "Add a Rule" button and select "create in real code" option and create Rule "TBD Scan"
C20 < C30 AND C15 < C20 AND C10 < C15 AND C5 < C10 AND L >= L1 * .95 AND L1 >= L2 * .95 AND L2 >= L3 * .95 AND C >= O AND TSV26 > TSV26.2
Code:
'# LRC = indicator.LRC-------> LR30 created in STep1
'# MA1 = indicator.MovingAverage------>13 Day moving average TSV26
'# VB = indicator.VolumeBars----> Volume
'# MA = indicator.MovingAverage.5-------> 120 day volume MA
'# TSV( = indicator.TimeSegmentedVolume(TSV).2
'*********************************************
'* if Price.Close > Price.Close(1) then Pass *
'*********************************************
'C20 < C30 AND C15 < C20 AND C10 < C15 AND C5 < C10 AND L >= L1 * .95 AND L1 >= L2 * .95 AND L2 >= L3 * .95 AND C >= O AND TSV26 > TSV26.2
Dim Criteria1 As Single
Dim TSVScan1 As Single
Dim TSVScan2 As Single
If Price.Close(20) < Price.Close(30) AndAlso _
Price.Close(10) < Price.Close(20) AndAlso _
Price.Close(5) < Price.Close(10) AndAlso _
LRC.value > 0.95 * LRC.value(1) AndAlso _
LRC.value(1) >= 0.95 * LRC.value(2) AndAlso _
LRC.value(2) >= 0.95 * LRC.value(3) AndAlso _
Price.Close >= Price.Open AndAlso _
TSV.value > TSV.value(2) AndAlso _
VB.value > MA.value Then Criteria1 = 1
'TSV26 >= AVG(TSV26,13) + SQR(ABS(TSV26 ^ 2 + TSV26.1 ^ 2 + TSV26.2 ^ 2 + TSV26.3 ^ 2 + TSV26.4 ^ 2 + TSV26.5 ^ 2 + TSV26.6 ^ 2 + TSV26.7 ^ 2 + TSV26.8 ^ 2 + TSV26.9 ^ 2 + TSV26.10 ^ 2 + TSV26.11 ^ 2 + TSV26.12 ^ 2 - 13 * AVG(TSV26,13) ^ 2) / 12) AND TSV26 > TSV26.1
TSVScan1 = MA1.value + (((TSV.value) ^ 2 + (TSV.value(1)) ^ 2 + (TSV.value(2)) ^ 2 + (TSV.value(3)) ^ 2 + (TSV.value(4)) ^ 2 + (TSV.value(5)) ^ 2 + (TSV.value(6)) ^ 2 + (TSV.value(7)) ^ 2 + (TSV.value(8)) ^ 2 + (TSV.value(9)) ^ 2 + (TSV.value(10)) ^ 2 + (TSV.value(11)) ^ 2 + (TSV.value(12)) ^ 2 - 13 * (MA1.value) ^ 2) / 12) ^ 0.5
If TSV.value >= TSVScan1 AndAlso _
TSV.value > TSV.value(1) Then TSVScan1 = 1
If Criteria1 AndAlso TSVScan1 then pass
Now you can add "TBD Scan" to the watch list with #Bar since true option and scan it.
Tobydad: Please let me know if you see any error so that I can correct it.
Sanjaya
|
Hi,
I want to write a scan to find %k crossing up through %D in (1day time frame) while %k is greater than the %D in weekly time frame.
Thanks,
Sanjaya
|
|
Hi,
Thanks for the reply.
With Regards,
Sanjaya
|
Hi,
In Tobydad's profile you talk about conditional order. This conditional order is placed based on the which of the following?
- Last Price
- Bid
- Ask
I am using Last price to trigger the order. Is it OK?
With Regards,
Sanjaya
|
Hi Mammon, Apsll,
Thanks a lot for the link and explantion.
Sanjaya
|
Hi Mammon,
Please provide a link to 20/20 price channel. I was not able to find it.
Thanks,
Sanjaya
|
Hi Bruce,
Thanks for your reply.
I was actually trying to write the above PCF in stockfinder realcode.
Finally, I plotted a 200day moving average and used it in the real code to write the PCF which worked fine.
With Regards,
Sanjaya
|
How to Find AVGC200?
C250 < AVG200.250
|
|