http://www6.0zz0.com/2017/07/25/02/742702942.png
Printable View
وعليكم السلاماقتباس:
المشاركة الأصلية كتبت بواسطة ali_shadi
انا دخلت 1200 مرة وانت دخلت 1200 مرة
معادة:
صورة جميلة ملتقطة قبل ساعتين
الامير محمد بن نايف ووزير الداخلية الجديد وسمو ولي العهد
https://pbs.twimg.com/media/DDL_9P7XcAA1lFN.jpg
تم اضافة اسهل مافي الباكتسر برمجيا--رسم المنحنى البياني للكوتي واسؤا اكويتي والبلنس,
https://charts.mql5.com/15/700/usdjp...e-of-borse.png
كود سريع ومؤقت--نحسنه فيما بعد,
كود PHP:ChartSetDouble(0,CHART_FIXED_MAX,MAX+250);
ChartSetDouble(0,CHART_FIXED_MIN,MIN-250);
ObjectDelete( "Balance"+i);
ObjectCreate( "Balance"+i,OBJ_HLINE,0,0,Balance);
ObjectSet( "Balance"+i,OBJPROP_WIDTH,1);
ObjectSet( "Balance"+i,OBJPROP_COLOR,clrWhite);
for(i=NoOfCandles+1 ; i>=0 ;i--)
{//for(i=(PageNumber-1)*40-SP
ObjectDelete( "EQUITY_CURVE_"+i);
ObjectCreate( "EQUITY_CURVE_"+i,OBJ_TREND,0,iTime(Symbol(),0, i+1),XEquity[i+1],iTime(Symbol(),0, i),XEquity[i]);
ObjectSet( "EQUITY_CURVE_"+i,OBJPROP_WIDTH,2);
ObjectSet( "EQUITY_CURVE_"+i,OBJPROP_COLOR,clrWhite);
ObjectSet( "EQUITY_CURVE_"+i,OBJPROP_RAY_RIGHT,false);
ObjectDelete( "EQUITY_CURVE1_"+i);
ObjectCreate( "EQUITY_CURVE1_"+i,OBJ_TREND,0,iTime(Symbol(),0, i+1),XBalance[i+1],iTime(Symbol(),0, i),XBalance[i]);
ObjectSet( "EQUITY_CURVE1_"+i,OBJPROP_WIDTH,2);
ObjectSet( "EQUITY_CURVE1_"+i,OBJPROP_COLOR,clrYellow);
ObjectSet( "EQUITY_CURVE1_"+i,OBJPROP_RAY_RIGHT,false);
ObjectDelete( "EQUITY_CURVE2_"+i);
ObjectCreate( "EQUITY_CURVE2_"+i,OBJ_TREND,0,iTime(Symbol(),0, i+1),XEquity_Worst_This_Day[i+1],iTime(Symbol(),0, i),XEquity_Worst_This_Day[i]);
ObjectSet( "EQUITY_CURVE2_"+i,OBJPROP_WIDTH,2);
ObjectSet( "EQUITY_CURVE2_"+i,OBJPROP_COLOR,clrRed);
ObjectSet( "EQUITY_CURVE2_"+i,OBJPROP_RAY_RIGHT,false);
في الصورة اعلاه هناك اوفر-شوووت overshoot للكيرف الاحمر يوم 2017.07ز18 08:00 --- منحنى اسؤا اكوتي في اليوم -- في تلك اللحظة اغلقت خمس صفقات عند تلك الشمعة فنياً,
رغم انه دائما يفترض تحت الخط الابيض--الاكويتي العادي:
السبب: لاحقاً
ايضا لاحظ الاوفرشووت قبله للابيض--ربح قوي ثم في اليوم اللاحق تلاشى اكثره--هذا عيب الخروج لسبب فني يعتمد على المتوسطات.
اخر 222 شمعة اربع ساعات:
راجع موضوعي في القسم العام للنتائج اسفل للتشبع الثلاثي العكس--اسفل الثنائي والخروج ت-1 في الجهة المعاكسة,
https://charts.mql5.com/15/700/usdjp...of-borse-4.png
انسخ الكود اسفل كما هو وضعه مكانه اسطر شرط الدخول والخروج,
مبني على الماكد كما في موضوع في القسم العام
كود PHP:string STARTER[28];
/////////////
int TotalPositions;
/////////////
for(int i=0;i<=27;i++)
{//for(i=0;i<28;i++)
PairTotallPosition[i]=-1;
PairDegree[i]=0;
STARTER[i]="NO";
if(pairs[i]==pair_0[i])
{//if(pairs[i]==pair_0[i])
for(int j=NoOfCandles+200;j>=1;j--)
{//for(int j=0;j<=NoOfCandles;j++)
double M1=iMACD(pair_0[i],0,12,26,9,PRICE_CLOSE,MODE_MAIN, j+1);
double S1=iMACD(pair_0[i],0,12,26,9,PRICE_CLOSE,MODE_SIGNAL, j+1);
double M2=iMACD(pair_0[i],0,12,26,9,PRICE_CLOSE,MODE_MAIN, j+2);
double S2=iMACD(pair_0[i],0,12,26,9,PRICE_CLOSE,MODE_SIGNAL, j+2);
if((M1<=0 && M2>=0) || (M1>=0 && M2<=0))
{//if((x0<0 && x1>0) || (x0>0 && x1<0))
PairDegree[i]=0;
STARTER[i]="YES";
}
if(STARTER[i]=="YES")
{//if(STARTER[i]=="YES")
if(S1<0 && M1<0)
{//if(S1<0 && M1<0)
if(M2>S2 && M1<S1)
{//if(M1>S1 && M0<S0)
PairDegree[i]++;
if(j<=NoOfCandles)
{//if(j<=NoOfCandles)
if(PairDegree[i]>=Degree)
{//if(PairDegree[i]>=Degree)
TotalPositions++;
PairTotallPosition[i]++;
int m=PairTotallPosition[i];
Pair_Order_Type[i][m]="BUY";
PairEntryCandle[i][m]=j;
PairPositionSerial[i][m]=m;
Pair_Order_Symbol[i][m]=pair_0[i];
for(int k=j-2;k>=1;k--)
{//for(k=j-2;k>=1;k--)
double Mx0=iMACD(pair_0[i],0,12,26,9,PRICE_CLOSE,MODE_MAIN, k+0);
double Mx1=iMACD(pair_0[i],0,12,26,9,PRICE_CLOSE,MODE_MAIN, k+1);
double Sx0=iMACD(pair_0[i],0,12,26,9,PRICE_CLOSE,MODE_SIGNAL, k+0);
double Sx1=iMACD(pair_0[i],0,12,26,9,PRICE_CLOSE,MODE_SIGNAL, k+1);
if(Mx1<Sx1 && Mx0>Sx0 && Mx0>0 && Sx0>0)
{//if(y0<=0 && y1>=0)
Pair_Exit_Candle[i][m]=k-1;
if(Pair_Exit_Candle[i][m]<0)
Pair_Exit_Candle[i][m]=0;
break;
}//if(y0<=0 && y1>=0)
}//for(k=j-2;k>=1;k--)
}//if(PairDegree[i]>=Degree)
}//if(j<=NoOfCandles)
}//if(M2>S2 && M1<S1)
}//if(S1<0 && M1<0)
if(S1>0 && M1>0)
{//if(S1<0 && M1<0)
if(M1>S1 && M2<S2)
{//if(M1>S1 && M0<S0)
PairDegree[i]++;
if(j<=NoOfCandles)
{//if(j<=NoOfCandles)
if(PairDegree[i]>=Degree)
{//if(PairDegree[i]>=Degree)
TotalPositions++;
PairTotallPosition[i]++;
m=PairTotallPosition[i];
Pair_Order_Type[i][m]="SELL";
PairEntryCandle[i][m]=j;
PairPositionSerial[i][m]=m;
Pair_Order_Symbol[i][m]=pair_0[i];
for(k=j-2;k>=1;k--)
{//for(k=j-2;k>=1;k--)
double My0=iMACD(pair_0[i],0,12,26,9,PRICE_CLOSE,MODE_MAIN, k+0);
double My1=iMACD(pair_0[i],0,12,26,9,PRICE_CLOSE,MODE_MAIN, k+1);
double Sy0=iMACD(pair_0[i],0,12,26,9,PRICE_CLOSE,MODE_SIGNAL, k+0);
double Sy1=iMACD(pair_0[i],0,12,26,9,PRICE_CLOSE,MODE_SIGNAL, k+1);
if(My0<Sy0 && My1>Sy1 && My0<0 && Sy0<0)
{//if(y0<=0 && y1>=0)
Pair_Exit_Candle[i][m]=k-1;
if(Pair_Exit_Candle[i][m]<0)
Pair_Exit_Candle[i][m]=0;
break;
}//if(y0<=0 && y1>=0)
}//for(k=j-2;k>=1;k--)
}//if(PairDegree[i]>=Degree)
}//if(j<=NoOfCandles)
}//if(M2>S2 && M1<S1)
}//if(S1<0 && M1<0)
}//if(STARTER[i]=="YES")
}//for(int j=0;j<=NoOfCandles;j++)
}//if(pairs[i]==pair_0[i])
}//for(i=0;i<28;i++)
int YY=-1;
يوضع اخر OnTimer وهو الذي يرسم المنحنيات اعلاهاقتباس:
كود سريع ومؤقت--نحسنه فيما بعد,
اقتباس:
المشاركة الأصلية كتبت بواسطة فيلسوف البادية
السلام عليكم
وضعت الكود في اخر الدالة OnTimer ولم يرسم المنحنيات ودلك ربما بسبب قيم MIN و MAX اعطاني البرنامج بانها قيم غير معرفة
ولم استطع استنباط قيمهما ...
اما بالنسبة لكود الماكد ساخاول ادراجه في دالة منفصلة واعرض عليك النتيجة
تحياتي لك
معليش ناقص فبها 4 اسطر:
والكود نفسه يفترض يأخذ المتغيرين الاخيرين في الاعتبار ليكون العرض ديناميكي على التشارت: البلنس والاكوتي السيء00بحيث يأذخ قمة القمم وادنى القيعانكود PHP:ChartSetInteger(0,CHART_SCALEFIX,0,True);
//ChartSetInteger(0,CHART_SCALE,0,2) ;
double MAX=XEquity[ArrayMaximum(XEquity)];
double MIN=XEquity[ArrayMinimum(XEquity)];
تم تصحيحها لنرتاح منها: كود للمستعجل,
يحدد الماكسات الثلاثة - -ثم يحدد الماكس الامكس بينها.
ونفس الامر للمنمات.
كود PHP:ChartSetInteger(0,CHART_SCALEFIX,0,True);
//ChartSetInteger(0,CHART_SCALE,0,2) ;
double MAX1=XEquity[ArrayMaximum(XEquity)];
double MIN1=XEquity[ArrayMinimum(XEquity)];
double MAX2=XBalance[ArrayMaximum(XBalance)];
double MIN2=XBalance[ArrayMinimum(XBalance)];
double MAX3=XEquity_Worst_This_Day[ArrayMaximum(XEquity_Worst_This_Day)];
double MIN3=XEquity_Worst_This_Day[ArrayMinimum(XEquity_Worst_This_Day)];
double MAX=MathMax(MAX1,MathMax(MAX2,MAX3));
double MIN=MathMin(MIN1,MathMin(MIN2,MIN3));
ايضا هذا السطر الافضل السكيل بنسبة مئوية بدلا من ازاحة مطلقة!! تخيل الرصيد 10 دولار مع يمة مطلقة 250!!
بهذا الشكل غبي جداً:
يكون اذكى اذا على النسبة--عني ضرب عدد ثابت, وليكن 10% ليضغط التشارت من فوق ومن تحت.كود PHP:ChartSetDouble(0,CHART_FIXED_MAX,MAX+250);
ChartSetDouble(0,CHART_FIXED_MIN,MIN-250);
كود PHP:ChartSetDouble(0,CHART_FIXED_MAX,1.10*MAX);
ChartSetDouble(0,CHART_FIXED_MIN,0.90*MIN);
الرد 306,
السبب لأنه وم اغلاق صفقات, وبناء عليه لايحسب الاكويتي هذا اليوم للفقات المغلقة, ويفترض يحسبها كلها---تم تصحيح المشكلةاقتباس:
رغم انه دائما يفترض تحت الخط الابيض--الاكويتي العادي:
السبب: لاحقاً
https://charts.mql5.com/15/709/audus...e-of-borse.png
تعرفون اننا توقفنا عند بداية شرح الجزء الثاني, تأخذون وقت لفهم ماسق واخذ وقت في معرفة افضل طريقة للشرح
وانتقلنا للجزء الثالث رسم المنحنيات البيانية, ودون شرح لسهولة كودها,
نتوقف مؤقتا هنا وننتقل للموضوع الفرعي الثاني
فكرة: التشبع العكسي لتقاطعات الماكد,
ثم نعود لاحقاً هنا,
الخطوط الافقية لاعلى وادنى اكويتي ترسم اتوماتيكيا
المستطيل تستطيع تغيير لونه من داخل البرنامج
حاليا لم اعرف كيف اضع المستطيل فوق الكلام--لذا اضطرينا لحذف الاشياء خلفه اذا اخترنا رسم المنحنيات البيانية:
تعرف علي شادي؟
https://charts.mql5.com/15/709/audus...of-borse-2.png