//+------------------------------------------------------------------+ //| SmWPRExp.mq4 | //| 30.08.2006 Translated on MT4 by Oleg Golozubov aka Maloma | //+------------------------------------------------------------------+ #property copyright " Copyright © 2006, HomeSoft Corp." #property link " spiky@sinet.spb.ru" #property indicator_separate_window #property indicator_buffers 2 #property indicator_color1 Gold #property indicator_color2 Red #include <stdlib.mqh> extern double t3_period = 8; extern double b = 0.7; extern double per = 14; extern double psel = -25; extern double pbuy = -75; extern double mBar = 300; double Buffer1[]; double Buffer2[]; int init() { SetIndexStyle(0, DRAW_LINE, STYLE_SOLID); SetIndexBuffer(0, Buffer1); SetIndexStyle(1, DRAW_LINE, STYLE_SOLID); SetIndexBuffer(1, Buffer2); return(0); } int start() { double e1 = 0; double e2 = 0; double e3 = 0; double e4 = 0; double e5 = 0; double e6 = 0; double c1 = 0; double c2 = 0; double c3 = 0; double c4 = 0; double n = 0; double w1 = 0; double w2 = 0; double b2 = 0; double b3 = 0; double dpo = 0; double t3 = 0; int shift = 0; double wpr = 0; double trig = 0; bool ft = true; if(ft) { b2=b*b; b3=b2*b; c1=-b3; c2=(3*(b2+b3)); c3=-3*(2*b2+b+b3); c4=(1+3*b+b3+3*b2); n=t3_period; if(n<1) n=1; n=1+0.5*(n-1); w1=2/(n+1); w2=1-w1; ft=false; } for(shift=Bars-1;shift>=0;shift--) { Buffer1[shift]=0; Buffer2[shift]=0; } for(shift=mBar;shift>=0;shift--) { wpr=iWPR(NULL, 0, per,shift); dpo=wpr; e1=w1*dpo+w2*e1; e2=w1*e1+w2*e2; e3=w1*e2+w2*e3; e4=w1*e3+w2*e4; e5=w1*e4+w2*e5; e6=w1*e5+w2*e6; t3=c1*e6+c2*e5+c3*e4+c4*e3; if(t3>=-50) trig=psel; if(t3<-50) trig=pbuy; Buffer2[shift]=trig; Buffer1[shift]=t3; } return(0); }
Sample
Analysis
Market Information Used:
Indicator Curves created:
Implements a curve of type DRAW_LINE
Indicators Used:
Larry William percent range indicator
Custom Indicators Used:
Order Management characteristics:
Other Features: