Gary, Here is the scan again, don't know what happened the first time.
Sorry for any confusion
TIA
Roy
Input"Issue List.lst";
Output"!Morning DOJI Star.lst";
Integer i,Start,End,NumDays; //For back test loop
Start:=-0; // Set to Oldest day for loop
End:=-0; // Set to Most recent day for loop
NumDays:=0; // Set to number of days for MovAvg etc.
DaystoLoad((Start*-1)+10);
For i=start to end
DO
//Black Body first day
If
Close(i-2)<Open(i-2)And //Black body
(Open(i-2)-Close(-2))>Open(i-2)*.01 //Longer Body
Then
//Gapping Body second day
If
Open(i-1)<Close(i-2)and
Open(i-1)<Open(i)
//Close(i-1)=Open(i-1)
Then
If
Abs(Close(-1)-Open(-1))<Open(-1)*.01 //DOJI body
//Or
//Open(i-1)=Close(i-1)
Then
//White body third day
If
Close(i)>Open(i)and //White body
Close(i)-Open(i)>Open(i)*.03 //Longer body
Then
// Down Trend Previously
If
Close(i-1)<Close(i-2)and
Close(i-2)<Close(i-3)and
Close(i-3)<Close(i-4)and
Close(i-4)<Close(i-5)//and
//Close(i-5)<Close(i-6)
//MovAvg(i,5,Cl)<MovAvg(i-5,5,Cl)
Then
PrintLn Symbol,",",Date(i),",","Morning Star" ,",","Reversal at Bottom";
//PrintLn Open(i-2),",",Close(i-2),",",Open(i-1),",",Close(i-1),",",Open(i),",",Close(i);
EndIf;
EndIf;
EndIf;
EndIf;
EndIf;
Next i; |
