да просто пока общаемся накидал простейший эксперт с независимым учётом поз бай и селл
double w=iWPR(NULL,1,PW,1);
double w1=iWPR(NULL,1,PW,2);
double w5=iWPR(NULL,5,PW,0);
double w51=iWPR(NULL,5,PW,1);
double w15=iWPR(NULL,15,PW,0);
double w151=iWPR(NULL,15,PW,1);
double w60=iWPR(NULL,60,PW,0);
double w601=iWPR(NULL,60,PW,1);
double w240=iWPR(NULL,1440,PW,0);
double w2401=iWPR(NULL,1440,PW,1);
//................................
double pw=iWPR(NULL,1,PP,2);
double pw1=iWPR(NULL,1,PP,3);
double pw5=iWPR(NULL,5,PP,1);
double pw51=iWPR(NULL,5,PP,2);
double pw15=iWPR(NULL,15,PP,1);
double pw151=iWPR(NULL,15,PP,2);
double pw60=iWPR(NULL,60,PP,1);
double pw601=iWPR(NULL,60,PP,2);
//................................
double c=iClose(NULL,1,1);
double c1=iClose(NULL,1,2);
double o=iOpen(NULL,1,1);
double o1=iOpen(NULL,1,2);
double o5 =iOpen(NULL,5,0);
double c5=iClose(NULL,5,0);
double o15 =iOpen(NULL,15,0);
double c15=iClose(NULL,15,0);
double o60 =iOpen(NULL,60,0);
double c60=iClose(NULL,60,0);
//.................................
double po=iOpen(NULL,1,2);
double pc=iClose(NULL,1,2);
double po5 =iOpen(NULL,5,1);
double pc5=iClose(NULL,5,1);
double po15 =iOpen(NULL,15,1);
double pc15=iClose(NULL,15,1);
double po60 =iOpen(NULL,60,1);
double pc60=iClose(NULL,60,1);
if (c>o&&c5>o5&&c15>o15&&c60>o60&&
w>w1&&w5>w51&&w15>w151&&w60>w601&&w240>w2401
&& pc<po&&pc5<po5&&pc15<po15&&pc60<po60&&pw<pw1&&pw5<pw51&&pw15<pw151&&pw60<pw601
)B=1;
if (c<o&&c5<o5&&c15<o15&&c60<o60&&
w<w1&&w5<w51&&w15<w151&&w60<w601&&w240<w2401
&& pc>po&&pc5>po5&&pc15>po15&&pc60>po60&&pw>pw1&&pw5>pw51&&pw15>pw151&&pw60>pw601
)S=1;