In an article written by Dennis P. Peterson i found a trading system which combines the StochRSI with Bollinger Bands. It sounds very interesing and i tried the code in metastock. Unfortunately i does not work :( . I will paste the code below and hopefully somebody can tell me what i'm doing wrong. I pasted the entry part in the bullish trends part of the expert advisor, and the exit part in the bearish part. The error that metastock displayes is that a certain variable or expression must contain only constant data, i have marked this spot below. {ENTRY} standarddev:= 60; periods:= 14; StochRSI:=(RSI(periods)-LLV(RSI(periods),periods))/ (HHV(RSI(periods),periods)-LLV(RSI(periods),periods)); rdp1:=Round(Stdev(stochrsi,standarddev)/.053); rdp2:=Round(Stdev(stochrsi,standarddev)/.035); rdv1:=Round(Stdev(Mov(V,periods,S)/ 1000000,standarddev)); adjust1:= rdv1-rdp1+11; adjust1:=if(adjust1<8,8,adjust1); adjust1:=if(adjust1>12,12,adjust1); adjust2:=rdv1-rdp2+14; adjust2:=if(adjust1<12,12,adjust2); adjust2:=if(adjust1>20,20,adjust2); periods:=adjust1; BBpds:=adjust2; howclosetoBBbot:=0.9; longthresholdentry:=0.3; wprice:=(2*C+H+L)/4; deviations:=.0625*BBpds+0.75; StochRSI:=(RSI(periods)-LLV(RSI(periods),periods))/ (HHV(RSI(periods),periods)-LLV(RSI(periods),periods)); [color=red:cdf13f94a1]{Metastock is here displaying an error that this variable or expression must contain only constant data!??}[/color] botpercentage:=Abs((wprice- BBandBot(wprice,BBpds,S,deviations))/ (BBandTop(wprice,BBpds,S,deviations)- BBandBot(wprice,BBpds,S,deviations))); {entry conditions} entry1:=botpercentage-howclosetoBBbot<0.3; entry2:=C*1.05>BBandBot(wprice,BBpds,S,deviations) and StochRSI>longthresholdentry; volbb:=If(C>Ref(C,-1),V,0); entry3:=Volbb>Ref(volbb,-1); entry4:=(C-O)/(H-L)>.2; entry1 and entry2 and entry3 and entry4 {EXIT} standarddev:= 60; periods:= 14; StochRSI:=(RSI(periods)-LLV(RSI(periods),periods))/ (HHV(RSI(periods),periods)-LLV(RSI(periods),periods)); rdp1:=Round(Stdev(stochrsi,standarddev)/.053); rdp2:=Round(Stdev(stochrsi,standarddev)/.035); StochRSIvol:=(V-LLV(V,periods))/(HHV(V,periods)- LLV(V,periods)); rdv1:=Round(Stdev(Mov(V,periods,S)/ 1000000,standarddev)); adjust1:=rdv1-rdp2+14; adjust1:=if(adjust1<8,8,adjust1); adjust1:=if(adjust1>12,12,adjust1); adjust2:=rdv1-rdp2+14; adjust2:=if(adjust1<12,12,adjust2); adjust2:=if(adjust1>20,20,adjust2); periods:=adjust1; BBpds:=adjust2; longthresholdexit:=0.7; howclosetoBBtop:=0.8; wprice:=(2*C+H+L)/4; deviations:=.0625*BBpds+0.75; StochRSI:=(RSI(periods)-LLV(RSI(periods),periods))/ (HHV(RSI(periods),periods)- LLV(RSI(periods),periods)); [color=red:cdf13f94a1]{Metastock also displays here an error that this variable or expression must contain only constant data!}[/color] toppercentage:=Abs((wprice- BBandTop(wprice,BBpds,S,deviations))/ (BBandTop(wprice,BBpds,S,deviations)- BBandBot(wprice,BBpds,S,deviations))); {exit conditions} exit1:=stochrsi<longthresholdexit; exit2:=toppercentage<howclosetoBBtop; exit3:=C>0.95*BBandTop(wprice,BBpds,S,deviations); exit4:=C<BBandBot(wprice,BBpds,S,deviations); (exit1 and exit2 and exit3) or exit4

You need to use the Forum.dll external functions for variable time perod indicators for HHV and LLV (another way of saying, you need to use adaptive functions!) The value for the periods variable is changing during the execution of the script. When using HHV(data array, periods) MS requires that periods remain static; also true for LLV() and RSI(). In your script, lets see how periods is changing... --8<------------------------------------- [color=blue:860897aa9c]periods:= 14;[/color] StochRSI:=(RSI(periods)-LLV(RSI(periods),periods))/ (HHV(RSI(periods),periods)-LLV(RSI(periods),periods)); rdp1:=Round(Stdev(stochrsi,standarddev)/.053); rdp2:=Round(Stdev(stochrsi,standarddev)/.035); rdv1:=Round(Stdev(Mov(V,periods,S)/ 1000000,standarddev)); adjust1:= rdv1-rdp1+11; adjust1:=if(adjust1<8,8,adjust1); [color=blue:860897aa9c]adjust1:=if(adjust1>12,12,adjust1);[/color] adjust2:=rdv1-rdp2+14; adjust2:=if(adjust1<12,12,adjust2); adjust2:=if(adjust1>20,20,adjust2); [color=blue:860897aa9c]periods:=adjust1;[/color] BBpds:=adjust2; howclosetoBBbot:=0.9; longthresholdentry:=0.3; wprice:=(2*C+H+L)/4; deviations:=.0625*BBpds+0.75; [color=blue:860897aa9c]StochRSI:=(RSI(periods)-LLV(RSI(periods),periods))/ (HHV(RSI(periods),periods)-LLV(RSI(periods),periods));[/color] {Metastock is here displaying an error that this variable or expression must contain only constant data!??} etc.... --8<------------------------------------- Now there are several ways to circumvent this restriction, but the simplest is to download and install the Forum.dll file available for free from the Downloads section in this forum. It comes with a Users Manula, which I highly recommend you add to your reading list. From the Forum.dll users manual:

you are right, I did not see that "adjust1", I only saw periods:=14 Bulli

when you do get the Forum.dll file installed correctly, try this code for the StochRSI entry part of your formula. FOR THE REST OF YOU Whilst I slumber can you please continue here and see if you can get the Adaptive BB part to work?? wabbit :D ---8<------------------------------------------------- standarddev:=60; periods:=14; myRSI:=RSI(periods); StochRSI:=(myRSI-LLV(myRSI,periods))/(Max(HHV(myRSI,periods)-LLV(myRSI,periods),0.00001)); rdp1:=Round(Stdev(Stochrsi,standarddev)/.053); rdp2:=Round(Stdev(Stochrsi,standarddev)/.035); rdv1:=Round(Stdev(Mov(V,periods,S)/1000000,standarddev)); {variable RSI, HHV and LLV functions} periods:=Min(Max(rdv1-rdp1+11,8 ) ,12); myRSI:=ExtFml("ForumDll.VarRSI", C, periods); myHHV:=ExtFml("ForumDll.VarHHV", myRSI, periods); myLLV:=ExtFml("ForumDll.VarLLV", myRSI, periods); StochRSI:=(myRSI-myLLV)/(Max(myHHV-myLLV,0.00001)); longthresholdentry:=0.3; {we dont have a variable BB function, yet} {my first attempt at variable Bollinger Bands functions} howclosetoBBbot:=0.9; wprice:=(2*C+H+L)/4; BBpds:=If(periods<12,12,If(periods>20,20,Max(rdv1-rdp2+14,1))); myBBandBot:=BBandBot(wprice,lastvalue(BBpds-PREV+PREV),S,LastValue((.0625*BBpds+0.75)+PREV-PREV)); myBBandTop:=BBandTop(wprice,lastvalue(BBpds-PREV+PREV),S,LastValue((.0625*BBpds+0.75)+PREV-PREV)); botpercentage:=Abs((wprice-myBBandBot)/(Max(myBBandTop-myBBandBot,0.00001))); {entry conditions} volbb:=If(C>Ref(C,-1),V,0); entry:= botpercentage-howclosetoBBbot<0.3 AND C*1.05>myBBandBot AND StochRSI>longthresholdentry AND ROC(Volbb,1,$)>0 AND (C-O)/(H-L)>.2; entry ---8<----------------------------------------------- P.S. Arne I have taken the liberty to butcher your code, as I was qyuickly running short of variables and I think better when I see the code written like this!

I had the same problem with Forumdll.dll You can do this: download this version for Metastock 8 http://forum.equis.com/d...?mode=drm_cat_view&cat=7 it works fine with 8 & 9 Bulli

Patrick, if there is no difference, let's dump the Forum.dll for MS v9, and just use the one for MS v8 to avoid any possible confusion - how about it? :?: jose '-

I won't get this part of the formula working, i simply don't know enough (YET!!) about the Metastock formula language. Can anyone help me out? howclosetoBBbot:=0.9; wprice:=(2*C+H+L)/4; BBpds:=If(periods<12,12,If(periods>20,20,Max(rdv1-rdp2+14,1))); myBBandBot:=BBandBot(wprice,lastvalue(BBpds-PREV+PREV),S,LastValue((.0625*BBpds+0.75)+PREV-PREV)); myBBandTop:=BBandTop(wprice,lastvalue(BBpds-PREV+PREV),S,LastValue((.0625*BBpds+0.75)+PREV-PREV)); botpercentage:=Abs((wprice-myBBandBot)/(Max(myBBandTop-myBBandBot,0.00001))); {entry conditions} volbb:=If(C>Ref(C,-1),V,0); entry:= botpercentage-howclosetoBBbot<0.3 AND C*1.05>myBBandBot AND StochRSI>longthresholdentry AND ROC(Volbb,1,$)>0 AND (C-O)/(H-L)>.2;

The Forum.dll is available for download from the Files Section (button near top of forum page), Programming (Browse Folders menu item), Forum_200.dll (is the latest version)


Hope this helps.

wabbit [:D]

All,

Found the link to the original article . From what I read it appears there are more problems to the code than the variable lookbacks. Entry 3 is going to require some work as well.

Preston

... and of course the logic can be simplified here a little!

The first valuewhen() happens when the up condition occurs, so is redundant, making the same function:




wabbit [:D]