منتديات بورصات

منتديات بورصات (https://forum.borsaat.com/)
-   منتدى المؤشرات و الاكسبرتات (https://forum.borsaat.com/f14/)
-   -   طريقة اضافة الاكسيبرتات والمؤشرات بعد التحديثات الاخيره للميتاتريدر (https://forum.borsaat.com/t196.html)

رابعة 03 - 05 - 2009 12:50 PM

رد: اسهل طريقة لاضافة مؤشر للشارت
 
//+------------------------------------------------------------------+ما معنى هذة الارقام والشروحات
//| SelfAjustRSI_v1.mq4 |
//| Copyright © 2006, Forex-TSD.com |
//| Author IgorAD by idea of David Sepiashvili |
//| [عذراً, فقط الأعضاء يمكنهم مشاهدة الروابط! اضغط هنا للتسجيل...] |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2006, Forex-TSD.com "
#property link "http://www.forex-tsd.com/"

#property indicator_separate_window
#property indicator_minimum 0
#property indicator_maximum 100
#property indicator_level1 30
#property indicator_level2 70
#property indicator_level3 50
#property indicator_buffers 3
#property indicator_color1 DodgerBlue
#property indicator_color2 Lime
#property indicator_color3 Lime
//---- input parameters
extern int Price = 0; // O-Close; 1-Open; 2-High; 3-Low; 4-Median; 5-Typical; 6-Weighted
extern int RSIPeriod =14; // Period of RSI
extern double K = 1; // Deviation ratio
extern int Mode = 0; // RSI mode : 0 - typical(smoothed by SMMA); 1- clssic (smoothed by SMA)
//---- buffers
double RSIBuffer[];
double OBBuffer[];
double OSBuffer[];
double PosBuffer[];
double NegBuffer[];
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
string short_name;
//---- 2 additional buffers are used for counting.
IndicatorBuffers(5);
SetIndexBuffer(3,PosBuffer);
SetIndexBuffer(4,NegBuffer);
//---- indicator lines
SetIndexStyle(0,DRAW_LINE);
SetIndexBuffer(0,RSIBuffer);

SetIndexStyle(1,DRAW_LINE);
SetIndexBuffer(1,OBBuffer);

SetIndexStyle(2,DRAW_LINE);
SetIndexBuffer(2,OSBuffer);
//---- name for DataWindow and indicator subwindow label
short_name="SelfAjustRSI("+RSIPeriod+","+DoubleToS tr(K,2)+")";
IndicatorShortName(short_name);
SetIndexLabel(0,short_name);
SetIndexLabel(1,"Overbought");
SetIndexLabel(2,"OverSold");
//----
SetIndexDrawBegin(0,RSIPeriod);
SetIndexDrawBegin(1,RSIPeriod);
SetIndexDrawBegin(2,RSIPeriod);
//----
return(0);
}
//+------------------------------------------------------------------+
//| Self-Adjusting Relative Strength Index by David Sepiashvili |
//+------------------------------------------------------------------+
int start()
{
int i,limit,counted_bars=IndicatorCounted();
double rel,negative,positive;
//----
if(Bars<=RSIPeriod) return(0);
//---- initial zero
//if(counted_bars<1)
// for(i=1;i<=RSIPeriod;i++) RSIBuffer[Bars-i]=0.0;
//----
if ( counted_bars > 0 ) limit=Bars-counted_bars;
if ( counted_bars < 0 ) return(0);
if ( counted_bars ==0 ) limit=Bars-RSIPeriod-1;

for(i=limit;i>=0;i--)
{
double sumn=0.0,sump=0.0;
if(i==Bars-RSIPeriod-1)
{
int k=Bars-2;
//---- initial accumulation
while(k>=i)
{
rel=iMA(NULL,0,1,0,MODE_SMA,Price,k)-iMA(NULL,0,1,0,MODE_SMA,Price,k+1);
if(rel>0) sump+=rel;
else sumn-=rel;
k--;
}
positive=sump/RSIPeriod;
negative=sumn/RSIPeriod;
}
else
{
//---- smoothed moving average
if (Mode == 0)
{
rel=iMA(NULL,0,1,0,MODE_SMA,Price,i)-iMA(NULL,0,1,0,MODE_SMA,Price,i+1);
if(rel>0) sump=rel;
else sumn=-rel;

positive=(PosBuffer[i+1]*(RSIPeriod-1)+sump)/RSIPeriod;
negative=(NegBuffer[i+1]*(RSIPeriod-1)+sumn)/RSIPeriod;
}
else
if (Mode == 1)
{
sumn=0.0;sump=0.0;
for ( k=RSIPeriod-1;k>=0;k--)
{
rel=iMA(NULL,0,1,0,MODE_SMA,Price,i+k)-iMA(NULL,0,1,0,MODE_SMA,Price,i+k+1);
if(rel>0) sump+=rel;
else sumn-=rel;
}


positive=sump/RSIPeriod;
negative=sumn/RSIPeriod;
}
}
PosBuffer[i]=positive;
NegBuffer[i]=negative;
if(negative==0.0) RSIBuffer[i]=100.0;
else RSIBuffer[i]=100.0-100.0/(1+positive/negative);
// }
//
// for(int j=limit;j>=0;j--)
// {
double SumRSI = 0;
for ( k=RSIPeriod-1;k>=0;k--) SumRSI += RSIBuffer[i+k];
double AvgRSI = SumRSI/RSIPeriod;

double SumSqr = 0;
for ( k=RSIPeriod-1;k>=0;k--) SumSqr += (RSIBuffer[i+k] - AvgRSI) * (RSIBuffer[i+k] - AvgRSI);
double StdDev = MathPow(SumSqr/RSIPeriod,0.5);

OBBuffer[i] = 50 + K * StdDev;
OSBuffer[i] = 50 - K * StdDev;

}
//----
return(0);
}
//+------------------------------------------------------------------+

مصطفى عماشة 03 - 05 - 2009 03:40 PM

رد: اسهل طريقة لاضافة مؤشر للشارت
 
اقتباس:

المشاركة الأصلية كتبت بواسطة رابعة (المشاركة 90675)
//+------------------------------------------------------------------+ما معنى هذة الارقام والشروحات
//| SelfAjustRSI_v1.mq4 |
//| Copyright © 2006, Forex-TSD.com |
//| Author IgorAD by idea of David Sepiashvili |
//| [عذراً, فقط الأعضاء يمكنهم مشاهدة الروابط! اضغط هنا للتسجيل...] |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2006, Forex-TSD.com "
#property link "http://www.forex-tsd.com/"

#property indicator_separate_window
#property indicator_minimum 0
#property indicator_maximum 100
#property indicator_level1 30
#property indicator_level2 70
#property indicator_level3 50
#property indicator_buffers 3
#property indicator_color1 DodgerBlue
#property indicator_color2 Lime
#property indicator_color3 Lime
//---- input parameters
extern int Price = 0; // O-Close; 1-Open; 2-High; 3-Low; 4-Median; 5-Typical; 6-Weighted
extern int RSIPeriod =14; // Period of RSI
extern double K = 1; // Deviation ratio
extern int Mode = 0; // RSI mode : 0 - typical(smoothed by SMMA); 1- clssic (smoothed by SMA)
//---- buffers
double RSIBuffer[];
double OBBuffer[];
double OSBuffer[];
double PosBuffer[];
double NegBuffer[];
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
string short_name;
//---- 2 additional buffers are used for counting.
IndicatorBuffers(5);
SetIndexBuffer(3,PosBuffer);
SetIndexBuffer(4,NegBuffer);
//---- indicator lines
SetIndexStyle(0,DRAW_LINE);
SetIndexBuffer(0,RSIBuffer);

SetIndexStyle(1,DRAW_LINE);
SetIndexBuffer(1,OBBuffer);

SetIndexStyle(2,DRAW_LINE);
SetIndexBuffer(2,OSBuffer);
//---- name for DataWindow and indicator subwindow label
short_name="SelfAjustRSI("+RSIPeriod+","+DoubleToS tr(K,2)+")";
IndicatorShortName(short_name);
SetIndexLabel(0,short_name);
SetIndexLabel(1,"Overbought");
SetIndexLabel(2,"OverSold");
//----
SetIndexDrawBegin(0,RSIPeriod);
SetIndexDrawBegin(1,RSIPeriod);
SetIndexDrawBegin(2,RSIPeriod);
//----
return(0);
}
//+------------------------------------------------------------------+
//| Self-Adjusting Relative Strength Index by David Sepiashvili |
//+------------------------------------------------------------------+
int start()
{
int i,limit,counted_bars=IndicatorCounted();
double rel,negative,positive;
//----
if(Bars<=RSIPeriod) return(0);
//---- initial zero
//if(counted_bars<1)
// for(i=1;i<=RSIPeriod;i++) RSIBuffer[Bars-i]=0.0;
//----
if ( counted_bars > 0 ) limit=Bars-counted_bars;
if ( counted_bars < 0 ) return(0);
if ( counted_bars ==0 ) limit=Bars-RSIPeriod-1;

for(i=limit;i>=0;i--)
{
double sumn=0.0,sump=0.0;
if(i==Bars-RSIPeriod-1)
{
int k=Bars-2;
//---- initial accumulation
while(k>=i)
{
rel=iMA(NULL,0,1,0,MODE_SMA,Price,k)-iMA(NULL,0,1,0,MODE_SMA,Price,k+1);
if(rel>0) sump+=rel;
else sumn-=rel;
k--;
}
positive=sump/RSIPeriod;
negative=sumn/RSIPeriod;
}
else
{
//---- smoothed moving average
if (Mode == 0)
{
rel=iMA(NULL,0,1,0,MODE_SMA,Price,i)-iMA(NULL,0,1,0,MODE_SMA,Price,i+1);
if(rel>0) sump=rel;
else sumn=-rel;

positive=(PosBuffer[i+1]*(RSIPeriod-1)+sump)/RSIPeriod;
negative=(NegBuffer[i+1]*(RSIPeriod-1)+sumn)/RSIPeriod;
}
else
if (Mode == 1)
{
sumn=0.0;sump=0.0;
for ( k=RSIPeriod-1;k>=0;k--)
{
rel=iMA(NULL,0,1,0,MODE_SMA,Price,i+k)-iMA(NULL,0,1,0,MODE_SMA,Price,i+k+1);
if(rel>0) sump+=rel;
else sumn-=rel;
}


positive=sump/RSIPeriod;
negative=sumn/RSIPeriod;
}
}
PosBuffer[i]=positive;
NegBuffer[i]=negative;
if(negative==0.0) RSIBuffer[i]=100.0;
else RSIBuffer[i]=100.0-100.0/(1+positive/negative);
// }
//
// for(int j=limit;j>=0;j--)
// {
double SumRSI = 0;
for ( k=RSIPeriod-1;k>=0;k--) SumRSI += RSIBuffer[i+k];
double AvgRSI = SumRSI/RSIPeriod;

double SumSqr = 0;
for ( k=RSIPeriod-1;k>=0;k--) SumSqr += (RSIBuffer[i+k] - AvgRSI) * (RSIBuffer[i+k] - AvgRSI);
double StdDev = MathPow(SumSqr/RSIPeriod,0.5);

OBBuffer[i] = 50 + K * StdDev;
OSBuffer[i] = 50 - K * StdDev;

}
//----
return(0);
}
//+------------------------------------------------------------------+

دا الكود البرمجي بتاع الاسكريبت او المؤشر اللي انتي فتحتيه وانا مش عارف ليه تفتحيه يعني :grin: سيبك منه دا ليه ناس بتهتم بيه وبتشتغل عليه

رابعة 04 - 05 - 2009 01:27 PM

رد: اسهل طريقة لاضافة مؤشر للشارت
 
يعني هيك رايك يا darsh

m1_sh 27 - 05 - 2009 01:43 PM

رد: اسهل طريقة لاضافة مؤشر للشارت
 
شكرا سيدي المشرف العزيز
وارجو المزيد قريبا
وشكرااااااااااااااااااااااااااااااااااا

Toreador 29 - 06 - 2009 12:38 PM

رد: اسهل طريقة لاضافة مؤشر للشارت
 
شكرا يا ريس وعقبال ما تفدنا كمان وكمان

maged_mohsen6 01 - 07 - 2009 10:52 PM

رد: اسهل طريقة لاضافة مؤشر للشارت
 
عاوز اجابة بسرعة رجاء كيفية عامل ال pending order

taha omar 20 - 10 - 2009 10:29 PM

رد: اسهل طريقة لاضافة مؤشر للشارت
 
كلام جميل بس ياريت افهم لانى جديد فحت

محمد عويس 20 - 11 - 2009 01:11 AM

رد: اسهل طريقة لاضافة مؤشر للشارت
 
بارك اللة فيك.ريحتنا يا اخي الكريم

نورمند 25 - 11 - 2009 01:46 PM

رد: اسهل طريقة لاضافة مؤشر للشارت
 
الف شكر

akhu 12 - 01 - 2010 07:07 PM

رد: اسهل طريقة لاضافة مؤشر للميتاتريدر
 
مشكووووووووووووووووووور يا مديرنا الغالي


01:21 AM

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
SEO by vBSEO 3.6.0 ©2011, Crawlability, Inc.