#property copyright "Dmitry Yakovlev, Russia,Omsk WM R865705290089" #property link "http://fehu.nxt.ru/ dmitryyakv@yandex.ru" #property indicator_chart_window #property indicator_buffers 4 #property indicator_color1 RoyalBlue #property indicator_width1 2 #property indicator_color2 RoyalBlue #property indicator_width2 1 #property indicator_color3 RoyalBlue #property indicator_width3 1 #property indicator_color4 RoyalBlue #property indicator_width4 1 #import "shell32.dll" //Connect a dll (provided with Windows) int ShellExecuteA(int hwnd,string Operation,string File,string Parameters,string Directory,int ShowCmd); #import "user32.dll" int MessageBoxA(int hWnd ,string lpText,string lpCaption,int uType); //------------------------------------------------------------------------------------------------------ //---- input parameters extern int KPeriod=5; extern int DPeriod=3; extern int Slowing=3; extern int MA=50; extern int Scale=100; extern int ShowLevels=1; extern int ShowExtremums=1; extern string _donate1="Äëÿ \"ñïàñèáî\" :-)"; extern string _donate2="R865705290089"; extern string _advert="Íàïèøó íà çàêàç,ïåðåäåëàþ."; //---- buffers double Signal[]; double Buffer1[]; double Buffer0[]; double Buffer5[]; double Stoch[]; //---- int draw_begin1=0; int draw_begin2=0; int _KPeriod=0; int lblcnt=15; int init() { int i; string short_name; _KPeriod=KPeriod; string tmp; for(int k=0;k<lblcnt;k++) { tmp="myStochSignal"+_KPeriod+"_"+k; ObjectDelete(tmp); } CheckDonate(); IndicatorBuffers(4); SetIndexStyle(0,DRAW_LINE); SetIndexBuffer(0, Signal); if(ShowLevels==1) { SetIndexStyle(1,DRAW_LINE); SetIndexBuffer(1, Buffer1); SetIndexStyle(2,DRAW_LINE); SetIndexBuffer(2, Buffer5); SetIndexStyle(3,DRAW_LINE); SetIndexBuffer(3, Buffer0); } else for(i=1;i<=3;i++) SetIndexStyle(i,DRAW_NONE); for(i=4;i<=7;i++) SetIndexStyle(i,DRAW_NONE); //---- name for DataWindow and indicator subwindow label short_name="Sto("+KPeriod+","+DPeriod+","+Slowing+")"; IndicatorShortName(short_name); SetIndexLabel(0,short_name); SetIndexLabel(1,"80%"); SetIndexLabel(2,"50%"); SetIndexLabel(3,"20%"); //---- draw_begin1=_KPeriod+Slowing; draw_begin2=draw_begin1+DPeriod; SetIndexDrawBegin(0,draw_begin1); SetIndexDrawBegin(1,draw_begin1); SetIndexDrawBegin(2,draw_begin1); SetIndexDrawBegin(3,draw_begin1); //---- ArraySetAsSeries(Stoch,true); return(0); } void deinit() { string tmp; for(int k=0;k<lblcnt;k++) { tmp="myStochSignal"+_KPeriod+"_"+k; ObjectDelete(tmp); } } //+------------------------------------------------------------------+ //| Stochastic oscillator | //+------------------------------------------------------------------+ int start() { int i,k; int counted_bars=IndicatorCounted(); double price; //---- if(Bars<=draw_begin2) return(0); if(ArraySize(Stoch)!=Bars) ArrayResize(Stoch,Bars); //---- initial zero if(counted_bars<1) for(i=1;i<=draw_begin2;i++) { Signal[Bars-i]=0; Buffer0[Bars-i]=0; Buffer1[Bars-i]=0; Buffer5[Bars-i]=0; Stoch[Bars-i]=0; } double kk=Point*Scale/100; int limit=Bars-counted_bars; for(i=0; i<limit; i++) { Stoch[i]=iStochastic(Symbol(),0,_KPeriod,DPeriod,Slowing,MODE_SMA,0,MODE_SIGNAL,i); Signal[i]=iMA(Symbol(),0,MA,0,MODE_EMA,PRICE_MEDIAN,i)+(Stoch[i]-50)*kk; if(ShowLevels==1) { Buffer1[i]=iMA(Symbol(),0,MA,0,MODE_EMA,PRICE_MEDIAN,i)+30*kk; Buffer5[i]=iMA(Symbol(),0,MA,0,MODE_EMA,PRICE_MEDIAN,i); Buffer0[i]=iMA(Symbol(),0,MA,0,MODE_EMA,PRICE_MEDIAN,i)-30*kk; } } //<-signal if(ShowExtremums==1) { int st; double st0,st1,st2,st3,st4; i=0;k=0; while(k<lblcnt && i<Bars/*-counted_bars*/) { st=0; while(i<Bars/*-counted_bars*/ && st==0) { st0=iStochastic(Symbol(),0,_KPeriod,DPeriod,Slowing,MODE_SMA,0,MODE_SIGNAL,i+0); st1=iStochastic(Symbol(),0,_KPeriod,DPeriod,Slowing,MODE_SMA,0,MODE_SIGNAL,i+1); st2=iStochastic(Symbol(),0,_KPeriod,DPeriod,Slowing,MODE_SMA,0,MODE_SIGNAL,i+2); st3=iStochastic(Symbol(),0,_KPeriod,DPeriod,Slowing,MODE_SMA,0,MODE_SIGNAL,i+3); //st4=iStochastic(Symbol(),0,_KPeriod,DPeriod,Slowing,MODE_SMA,0,MODE_SIGNAL,i+4); if(st0>st1 && st2>st1 && st3>st2/* && st4>st2*/) st=+1; if(st0<st1 && st2<st1 && st3<st2/* && st4<st2*/) st=-1; if(st!=0) break; i++; } string tmp="myStochSignal"+_KPeriod+"_"+k; ObjectDelete(tmp); if(st==+1) { ObjectCreate(tmp,OBJ_ARROW,0,Time[i],Low[i]); ObjectSet(tmp,OBJPROP_ARROWCODE,108); ObjectSet(tmp,OBJPROP_COLOR,Lime); k++; } if(st==-1) { ObjectCreate(tmp,OBJ_ARROW,0,Time[i],High[i]+(WindowPriceMax()-WindowPriceMin())/10); ObjectSet(tmp,OBJPROP_ARROWCODE,108); ObjectSet(tmp,OBJPROP_COLOR,Red); k++; } i+=1; } } //-> return(0); } void CheckDonate() { int fd=0; string pay="0"; datetime dt=0; string fn="StochOC.txt"; fd=FileOpen(fn,FILE_READ|FILE_CSV,";"); if(fd>=1) { pay=FileReadString(fd); if(pay!="0" && pay!="1") pay="0"; dt=StrToTime(FileReadString(fd)); } else { dt=TimeCurrent(); fd=FileOpen(fn,FILE_WRITE|FILE_CSV,";"); FileWrite(fd,"0",TimeToStr(dt,TIME_DATE)); } FileClose(fd); if(pay=="0" && (TimeCurrent()-dt)>10*24*60*60) // 5 äíåé { if(MessageBoxA(0,"Åñëè Âàì ïîíðàâèëñÿ èíäèêàòîð On Chart Stochastic,\n õîòèòå ïîìî÷ü àâòîðó ìàòåðèàëüíî?","Âîïðîñ",4)==6) { ShellExecuteA(0,"Open","iexplore.exe","wmk:payto?Purse=R865705290089&Amount=100&Desc=Indicator&BringToFront=Y&ExecEvenKeeperIsOffline=Y","",7); pay="1"; } dt=TimeCurrent(); fd=FileOpen(fn,FILE_WRITE|FILE_CSV,";"); FileWrite(fd,pay,TimeToStr(dt,TIME_DATE)); FileClose(fd); } FileClose(fd); }
Sample
Analysis
Market Information Used:
Series array that contains the lowest prices of each bar
Series array that contains open time of each bar
Series array that contains the highest prices of each bar
Indicator Curves created:
Implements a curve of type DRAW_LINE
Implements a curve of type DRAW_NONE
Indicators Used:
Stochastic oscillator
Moving average indicator
Custom Indicators Used:
shell32
user32
Order Management characteristics:
Other Features:
Uses files from the file system
It reads information from a file
It writes information to file