check out Brooke's site for some neat scans.
geocities.com
Here is an Evans - 8-17-9 cross up with stochrsi14- crossing 30.
output = "evanstomerg.lst";
input="300vol.lst"; // choose your input file
ProcessMS = "d:\meta\evanstomerg\",VMS;
daystoload= 200;
daysrequired= 145;
integer i, j,p;
float weight, maperiod1, maperiod2, total, totaldays, StochRSI,
PrvStRSI,PRVPRVSRSI,bb1, pctgain,volratio;
for p = 0 to 0 step 1 do
volratio :=vol(p)/avgvol(p,p-33);
set macd = 8,17,9;
if close(p) > close(p-1)ÿ then
if MACD(p) > MACD(p-1) then
if MACD(P) > MACDSignal(p) then
if macd(p-1) <=MACDSignal(p-1) then
maperiod1:=14;
maperiod2:=14;
set rsi = maperiod1;
weight:=0;
total:=0;
for i = maperiod2 to 1 step -1 do
total:= total + i;
next i;
totaldays:=total;
StochRSI:=0;
PrvStRSI:=0;
PRVPRVSRSI:=0;
for j = maperiod2 to 1 step -1 do
weight:=((j/totaldays)*100);
StochRSI:=StochRSI+((rsi(j-(maperiod2-p))-min(j-(maperiod2-p),(j-maperiod2)-(maperiod1-1-p),rsi))/(.000001+max(j-(maperiod2-p),(j-maperiod2)-(maperiod1-1-p),rsi)-min(j-(maperiod2-p),(j-maperiod2)-(maperiod1-1-p),rsi))*(weight));
PrvStRSI:=PrvStRSI+((rsi(j-(maperiod2+1-p))-min(j-(maperiod2+1-p),(j-maperiod2)-(maperiod1-p),rsi))/(.000001+max(j-(maperiod2+1-p),(j-maperiod2)-(maperiod1-p),rsi)-min(j-(maperiod2+1-p),(j-maperiod2)-(maperiod1-p),rsi))*(weight));
next j;
if StochRSI>30 then
if PrvStRSI <= 30 then
if p <-9 then
pctgain := ((Max(p+10,p+1,cl))/close(p))-1;
Println Symbol:-6,",",close(p):6:3,",",Max(p+10,p+1,cl):6:3,",",pctgain:6:3,",",StochRSI:5:1,",",PrvStRSI:5:1,",",vol(p):8:0,",",avgvol(p,p-33):8:0,",",volratio,",",qrs(p):4:0,",",date(p),",","evanslong";
else
Println Symbol:-6,",",Close(p):6:3,",",close(p-1):6:3,",","Brk:",",",max(p,p-9,hi):6:3,",",StochRSI:5:1,",",PrvStRSI:5:1,",",vol(p):8:0,",",avgvol(p,p-33):8:0,",",volratio,",",qrs(p):4:0,",", date(p),",","evanslong";
endif; endif; endif; endif;endif;endif;endif;
next p; |
