logo

هوامير البورصة السعودية > الاقسام الرئيسية لموقع هوامير البورصة > برامج التحليل الفني والاساسي

شرح كيفية صنع بعض معادلات الايمي بروكر



إضافة رد
صفحة 8 من 75
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
58
الأخيرة »
قديم 23-10-2014, 09:53 AM
  المشاركه #85

JLocIg JLo

محلل فني

تاريخ التسجيل: Jul 2007
المشاركات: 2,069
JLocIg JLo غير متواجد حالياً  

بانتظارك اخوي douplexx
وفقك الله


رد مع اقتباس
 
  
قديم 23-10-2014, 09:54 AM
  المشاركه #86

DABL@

عضو هوامير المميز

تاريخ التسجيل: Oct 2013
المشاركات: 503
DABL@ غير متواجد حالياً  

انت عمنا يا ابو محمد ما تحتاج اذن الله يسعدك


بالعكس يشرفني و شرف لي مشاركتك







الاخ khloudus



هذي نفس معادلة ابو محمد و مع الاضافه و ان شاءاالله نفس طالبك







_SECTION_BEGIN("00000000000");
OpenPct = (Open - Ref(C,-1))/Ref(C,-1)*100 ;
HighPct = (H - Ref(C,-1))/Ref(C,-1)*100 ;
LowPct = (L - Ref(C,-1))/Ref(C,-1)*100 ;
ClosePct = (C - Ref(C,-1))/Ref(C,-1)*100 ;
VolPct = (V - Ref(V,-1))/Ref(V,-1)*100 ;
HLPct = (H - Ref(L,-1))/Ref(C,-1)*100 ;


_N(Title =Name() + " " + FullName() + " Date: "+Date()
+WriteIf(Open>Ref(C,-1),EncodeColor(colorGreen),EncodeColor(colorRed))+" Open:"+ WriteVal( Open, 1.2 ) +" ("+WriteVal(OpenPct ,1.2) +"%)"
+WriteIf(H>Ref(C,-1),EncodeColor(colorGreen),EncodeColor(colorRed))+ " H:" + WriteVal( H , 1.2 ) +" ("+WriteVal(HighPct ,1.2) +"%)"
+WriteIf(H>Ref(L,-1),EncodeColor(colorGreen),EncodeColor(colorRed))+ " HL:" + WriteVal( H , 1.2 ) +" ("+WriteVal(HighPct ,1.2) +"%)"
+WriteIf(L>Ref(C,-1),EncodeColor(colorGreen),EncodeColor(colorRed))+" L:"+ WriteVal( L, 1.2 ) +" ("+WriteVal(LowPct ,1.2) +"%)"
+WriteIf(C>Ref(C,-1),EncodeColor(colorGreen),EncodeColor(colorRed))+" C:"+ WriteVal( C, 1.2 ) +" ("+WriteVal(ClosePct ,1.2) +"%)"
+WriteIf(V>Ref(V,-1),EncodeColor(colorGreen),EncodeColor(colorRed))+" V: "+ WriteVal( V, 1.2 ) +" ("+WriteVal(VolPct ,1.2) +"%)");
_SECTION_END();

Q1=(H-L);
Q=((H-L)+Ref(H-L,-1)+Ref(H-L,-2)+Ref(H-L,-3)+Ref(H-L,-4))/5;
Filter=1 ;

AddTextColumn ( FullName(), "full__________name", 1.2 );

AddColumn(h , "الاعلى", 1.2 );

AddColumn(l , "الادني", 1.2 );
AddColumn(Q1 , "الفرق H_L ", 1.2 );


AddColumn(C , "الاغلاق ", 1.2 );


AddColumn(Q, "الفرق الاسبوعي ", 1.2 );
SetChartBkColor(ParamColor("Outer panel color ",colorBlack));
SetChartBkGradientFill( ParamColor("Inner panel color upper half",colorBlack),ParamColor("Inner panel color lower half",colorBlack));
Plot( C, "Close", ParamColor("Color", colorDefault ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );

_SECTION_BEGIN("Formula 25");

per1=Param ("per1", 0.1,0.1,50,0.10);

per=per1;
x = Cum(1);
s1=L;
s11=H;
pS = TroughBars( s1, per, 1 ) == 0;
endt= SelectedValue(ValueWhen( pS, x, 1 ));
startt=SelectedValue(ValueWhen( pS, x, 2 ));
dtS =endt-startt;
endS = SelectedValue(ValueWhen( pS, s1, 1 ) );
startS = SelectedValue( ValueWhen( pS, s1, 1 ));
aS = (endS-startS)/dtS;
bS = endS;
trendlineS = aS * ( x -endt ) + bS;
g3= IIf(x>startt-10,trendlineS,-1e10);
Plot(g3,"",colorRed,styleDots,styleThick);

pR = PeakBars( s11, per, 1 ) == 0;
endt1= SelectedValue(ValueWhen( pR, x, 1 ));
startt1=SelectedValue(ValueWhen( pR, x, 2 ));
dtR =endt1-startt1;
endR = SelectedValue(ValueWhen( pR, s11, 1 ) );
startR = SelectedValue( ValueWhen( pR, s11, 1 ));
aR = (endR-startR)/dtR;
bR = endR;
trendlineR = aR * ( x -endt1 ) + bR;
g4= IIf(x>startT1-10,trendlineR,-1e10);
Plot(g4,"",colorGreen,styleDots,styleThick);
//////////////////////////////////////////////////////////////////////////////////////////////////
_SECTION_END();
_SECTION_END();


تاكد منها في الاسبوعي ومعليش طال عمرك علي التاخير


رد مع اقتباس
قديم 23-10-2014, 10:03 AM
  المشاركه #87

DABL@

عضو هوامير المميز

تاريخ التسجيل: Oct 2013
المشاركات: 503
DABL@ غير متواجد حالياً  

اقتباس:
المشاركة الأصلية كتبت بواسطة الداب300 مشاهدة المشاركة
بانتظارك اخوي douplexx
وفقك الله



يسعد صباحك يلتك بس توضح الترند هي



من X الي b ترا موجود ومن c الي b هو نفس طلبك و القراء يلتك توضحها
البحث ابشر لا تشيل هم بس التراند انا مافهمتها و القراء كيف تكون


معليش الفهم عندي ثقيل


تعبك راحه الله يسعدك ان شاء الله


رد مع اقتباس
قديم 23-10-2014, 10:08 AM
  المشاركه #88

JLocIg JLo

محلل فني

تاريخ التسجيل: Jul 2007
المشاركات: 2,069
JLocIg JLo غير متواجد حالياً  

اقتباس:
المشاركة الأصلية كتبت بواسطة douplexx مشاهدة المشاركة
يسعد صباحك يلتك بس توضح الترند هي



من X الي b ترا موجود ومن c الي b هو نفس طلبك و القراء يلتك توضحها
البحث ابشر لا تشيل هم بس التراند انا مافهمتها و القراء كيف تكون


معليش الفهم عندي ثقيل


تعبك راحه الله يسعدك ان شاء الله
بيض الله وجهك ما تقصر
بعطيك مثال مثلا سهم صعد من x الى a ثم صحح الى b ثم صعد الى a ابي ترند واصل بين x و b وترند اخر واصل بين a و c وتكون قراءته في يمين التشارت


رد مع اقتباس
قديم 23-10-2014, 10:28 AM
  المشاركه #89

DABL@

عضو هوامير المميز

تاريخ التسجيل: Oct 2013
المشاركات: 503
DABL@ غير متواجد حالياً  

اقتباس:
المشاركة الأصلية كتبت بواسطة الداب300 مشاهدة المشاركة

بيض الله وجهك ما تقصر
بعطيك مثال مثلا سهم صعد من x الى a ثم صحح الى b ثم صعد الى a ابي ترند واصل بين x و b وترند اخر واصل بين a و c وتكون قراءته في يمين التشارت



شوف هذي الله يسعدك النموذج مكتمل في بنك البلاد سوي البحث و اختره في الشارت و يلتك تشرح لي خط الترند من نفس الشارت حق سهم البلاد

سامحني المخ متنح





_SECTION_BEGIN("Harmonic Patterns");
//ABDULKAREEM ALGHAMDI - JUNE 2012
Percentage = Param("Percentage", 5, 1, 100, 0.1);
ShowTarget = ParamList("Show Target From:", "Off|C-D|A-D |X-A|B-C");
ShowTargetExt = ParamToggle("Show Target Extensions?", "No|Yes");
Back = Param("Look Back", 1, 1, 100, 1);
Currection = Param("Currection:", 50, 5, 100,1);
//----------------------------------------------------------------------------------------
Ax = Bx = Cx = Dx = Xx= 0;
Ay = By = Cy = Dy = Xy = 0;
BCon = SCon = XCon = 0;
//----------------------------------------------------------------------------------------
procedure SetupPattern(Per, Back)
{
BackL = LastValue(TroughBars(L, Per, Back ));
BackH = LastValue(PeakBars(H, Per, Back ));
BackL2 = LastValue(TroughBars(L, Per, Back +1));
BackH2 = LastValue(PeakBars(H, Per, Back+1));
BackL3 = LastValue(TroughBars(L, Per, Back +2));
BackH3 = LastValue(PeakBars(H, Per, Back +2));

if(BackL < BackH)
{
if(BackL2 < BackH)
for(i=Back+1; BackL2 < BackH AND i < Back+Currection; i++)
BackL2 = LastValue(TroughBars(L, Per, Back + i));
if(BackH2 < BackL2)
for(i=Back+1; BackH2 < BackL2 AND i < Back+Currection; i++)
BackH2 = LastValue(PeakBars(H, Per, Back + i));
if(BackL3 < BackH2)
for(i=Back+2; BackL3 < BackH2 AND i < Back+Currection; i++)
BackL3 = LastValue(TroughBars(L, Per, Back + i));
if(BackH3 < BackL3)
for(i=Back+2; BackH3 < BackL3 AND i < Back+Currection; i++)
BackH3 = LastValue(PeakBars(H, Per, Back + i));
}
else
{
if(BackH2 < BackL)
for(i=Back+1; BackH2 < BackL AND i < Back+Currection; i++)
BackH2 = LastValue(PeakBars(H, Per, Back + i));
if(BackL2 < BackH2)
for(i=Back+1; BackL2 < BackH2 AND i < Back+Currection; i++)
BackL2 = LastValue(TroughBars(L, Per, Back + i));
if(BackH3 < BackL2)
for(i=Back+2; BackH3 < BackL2 AND i < Back+Currection; i++)
BackH3 = LastValue(PeakBars(H, Per, Back + i));
if(BackL3 < BackH3)
for(i=Back+2; BackL3 < BackH3 AND i < Back+Currection; i++)
BackL3 = LastValue(TroughBars(L, Per, Back + i));
}
Ax = BarCount-1-LastValue(Max(BackH2, BackL2));
Bx = BarCount-1-LastValue(Min(BackL2, BackH2));
Cx = BarCount-1-LastValue(Max(BackH, BackL));
Dx = BarCount-1-LastValue(Min(BackL, BackH));

if(BackL > BackH)
{
Ay = LastValue((Ref(L, -BackL2)));
By = LastValue((Ref(H, -BackH2)));
Cy = LastValue((Ref(L, -BackL)));
Dy = LastValue((Ref(H, -BackH)));
Xy = LastValue((Ref(H, -BackH3)));
Xx = BarCount-1-BackH3;
XCon = Xy > By AND BackH3 > BackL2;
Con = ((By-Cy)/(By-Ay)) > 0.3 AND ((By-Cy)/(By-Ay)) < 0.8;
Con = Con AND (Ax < Bx) AND (Bx < Cx) AND (Cx < Dx) AND (Ay < Cy) AND (Cy <
By) AND (By < Dy);
Con = Con AND BackL2 > BackH2 AND BackL > BackH;
Con = Con AND ((By-Cy)/(By-Ay)) >=0.3 AND ((Dy-Cy)/(By-Cy))>=1;
SCon = Con AND ((Dy-Cy)/(Xy-Ay)) >=0.5 AND ((By-Ay)/(Xy-Ay))>=0.3;
}
else
{
Ay = LastValue((Ref(H, -BackH2)));
By = LastValue((Ref(L, -BackL2)));
Cy = LastValue((Ref(H, -BackH)));
Dy = LastValue((Ref(L, -BackL)));
Xy = LastValue((Ref(L, -BackL3)));
Xx = BarCount-1-BackL3;
XCon = Xy < By AND BackL3 > BackH2;
Con = ((Cy-By)/(Ay-By)) > 0.5 AND ((Cy-By)/(Ay-By)) < 0.8;
Con = Con AND (Ax < Bx) AND (Bx < Cx) AND (Cx < Dx) AND (Ay > Cy) AND (Cy >
By) AND (By > Dy);
Con = Con AND BackL2 < BackH2 AND BackL < BackH;
Con = Con AND ((Cy-Dy)/(Ay-Xy))>=0.3 AND ((Ay-By)/(Ay-Xy)) >=0.3;
BCon = Con AND ((Cy-Dy)/(Ay-By)) >=0.3 AND ((Cy-Dy)/(Cy-By)) >=1;
}
}
//----------------------------------------------------------------------------------------
//----------------------------------------------------------------------------------------
SetupPattern(Percentage, Back) ;
Color = IIf(BCon, colorGold, colorRed);
//----------------------------------------------------------------------------------------
if(BCon OR SCon)
{
Plot(LineArray(Ax, Ay, Bx, By), "", Color);//AB
Plot(LineArray(Bx, By, Cx, Cy), "", Color);//BC
Plot(LineArray(Xx, Xy, Bx, By), "", colorYellow);//XB
Plot(LineArray(Cx, Cy, Bx, By), "", Color);//XB
Plot(LineArray(Cx, Cy, ax, ay), "", Color);//ca
Plot(LineArray(Cx, Cy, Dx, Dy), "", Color);//CD
Plot(LineArray(Ax, Ay, Cx, Cy),"", Color, styleDashed);//AC
Plot(LineArray(Bx, By, Dx, Dy),"", Color, styleDashed);//BD
PlotText("A"+StrFormat("=%.2f", Ay), Ax, Ay, colorWhite);
PlotText("B"+StrFormat("=%.2f", By), Bx, By, colorWhite);
PlotText("C"+StrFormat("=%.2f", Cy), Cx, Cy, colorWhite);
PlotText("D"+StrFormat("=%.2f", Dy), Dx, Dy, colorWhite);
PlotText(StrFormat("%.3f", abs((Cy-By)/(Ay-By))), (Ax+Cx)/2, (Ay+Cy)/2,
colorWhite);
PlotText(StrFormat("%.3f", abs((Dy-Cy)/(By-Cy))), (Bx+Dx)/2, (By+Dy)/2,
colorWhite);
if(XCon)
{
Plot(LineArray(Xx, Xy, Ax, Ay), "", Color);
PlotText("X"+StrFormat("=%.2f", Xy), Xx, Xy, colorWhite);
Plot(LineArray(Xx, Xy, Bx, By),"", Color, styleDashed);
Plot(LineArray(Xx, Xy, Dx, Dy),"", Color, styleDashed);
PlotText(StrFormat("%.3f", (Ay-By)/(Ay-Xy)), (Xx+Bx)/2, (Xy+By)/2,
colorWhite);
PlotText(StrFormat("%.3f", (Cy-Dy)/(Ay-Xy)), (Xx+Dx)/2, (Xy+Dy)/2,
colorWhite);
}
if(ShowTarget!="Off")
{
if(ShowTarget=="C-D")
{
FarX = Cx;
FarY = Cy;
}
else
{
FarX = Ax;
FarY = Ay;
}

NearX = Dx;
NearY = Dy;
if(ShowTarget=="X-A")
{
FarX = Xx;
FarY = Xy;

NearX = Ax;
NearY = Ay;
}
if(ShowTarget=="B-C")
{
FarX = Bx;
FarY = By;

NearX = Cx;
NearY = Cy;
}
RangeX = FarX-NearX;
RangeY = FarY-NearY;
Plot(LineArray(FarX, FarY, NearX, NearY), "", colorGreen, styleDashed);
Plot(LineArray(NearX+(RangeX*0.236),NearY+(RangeY*0.236),BarCount-1,NearY+(RangeY*0.236)),
"", colorGreen, styleDashed|styleNoLabel);
PlotText(StrFormat("%.2f",NearY+(RangeY*0.236))
,BarCount,NearY+(RangeY*0.236), colorWhite);
Plot(LineArray(NearX+(RangeX*0.382),NearY+(RangeY*0.382),BarCount-1,NearY+(RangeY*0.382)),
"", colorGreen, styleDashed|styleNoLabel);
PlotText(StrFormat("%.2f",NearY+(RangeY*0.382))
,BarCount,NearY+(RangeY*0.382), colorWhite);
Plot(LineArray(NearX+(RangeX*0.5),NearY+(RangeY*0.5),BarCount-1,NearY+(RangeY*0.5)),
"", colorGreen, styleDashed|styleNoLabel);
PlotText(StrFormat("%.2f",NearY+(RangeY*0.5)) ,BarCount,NearY+(RangeY*0.5),
colorWhite);
Plot(LineArray(NearX+(RangeX*0.618),NearY+(RangeY*0.618),BarCount-1,NearY+(RangeY*0.618)),
"", colorGreen, styleDashed|styleNoLabel);
PlotText(StrFormat("%.2f",NearY+(RangeY*0.618))
,BarCount,NearY+(RangeY*0.618), colorWhite);
Plot(LineArray(NearX+(RangeX*0.786),NearY+(RangeY*0.786),BarCount-1,NearY+(RangeY*0.786)),
"", colorGreen, styleDashed|styleNoLabel);
PlotText(StrFormat("%.2f",NearY+(RangeY*0.786))
,BarCount,NearY+(RangeY*0.786), colorWhite);
Plot(LineArray(FarX,FarY,BarCount-1,FarY), "", colorGreen,
styleDashed|styleNoLabel);
PlotText(StrFormat("%.2f",FarY) ,BarCount,FarY, colorWhite);
Plot(LineArray(NearX,NearY,BarCount-1,NearY), "", colorGreen,
styleDashed|styleNoLabel);
PlotText(StrFormat("%.2f",NearY) ,BarCount,NearY, colorWhite);
if(ShowTargetExt)
{
Plot(LineArray(FarX,NearY+(RangeY*1.27),BarCount-1,NearY+(RangeY*1.27)), "",
colorGreen, styleDashed|styleNoLabel);
PlotText(StrFormat("%.2f",NearY+(RangeY*01.27))
,BarCount,NearY+(RangeY*1.27), colorWhite);
Plot(LineArray(FarX,NearY+(RangeY*1.618),BarCount-1,NearY+(RangeY*1.618)),
"", colorGreen, styleDashed|styleNoLabel);
PlotText(StrFormat("%.2f",NearY+(RangeY*01.618))
,BarCount,NearY+(RangeY*1.618), colorWhite);
}
}
}
//----------------------------------------------------------------------------------------
Plot(C, "", IIf(O>C, colorRed, colorGreen), ParamStyle("Price
Style",styleBar,maskPrice));
Title = Name()+" - "+Interval(2)+" - "+"{{DATE}} - "+StrFormat("Open=%.2f,
High=%.2f, Low=%.2f, Close=%.2f", O, H, L, C)+StrFormat(" (%.2f %.2f%%)",
C-Ref(C, -1), SelectedValue(ROC(C, 1)));
_SECTION_END();

Filter=BCon;

AddTextColumn ( FullName(), "full__________name", 1.2 );

AddColumn(BCon , "_____", 1.2 );


رد مع اقتباس
قديم 23-10-2014, 10:38 AM
  المشاركه #90

JLocIg JLo

محلل فني

تاريخ التسجيل: Jul 2007
المشاركات: 2,069
JLocIg JLo غير متواجد حالياً  

لا وانا اخوك انت اللي سامحني غلبتك معي

رد: شرح كيفية صنع بعض معادلات الايمي بروكر


رد مع اقتباس
قديم 23-10-2014, 10:41 AM
  المشاركه #91

DABL@

عضو هوامير المميز

تاريخ التسجيل: Oct 2013
المشاركات: 503
DABL@ غير متواجد حالياً  

اقتباس:
المشاركة الأصلية كتبت بواسطة الداب300 مشاهدة المشاركة
لا وانا اخوك انت اللي سامحني غلبتك معي

رد: شرح كيفية صنع بعض معادلات الايمي بروكر



ما شاء الله تبارك الله شغلك ميه ميه


رد مع اقتباس
قديم 23-10-2014, 11:03 AM
  المشاركه #92

DABL@

عضو هوامير المميز

تاريخ التسجيل: Oct 2013
المشاركات: 503
DABL@ غير متواجد حالياً  

الله يسعدك عطني وقت و لا تشيل هم باذن الله


رد مع اقتباس
قديم 23-10-2014, 11:15 AM
  المشاركه #93

khloudus

عضو هوامير المميز

تاريخ التسجيل: Feb 2012
المشاركات: 362
khloudus غير متواجد حالياً  

اقتباس:
المشاركة الأصلية كتبت بواسطة douplexx مشاهدة المشاركة
انت عمنا يا ابو محمد ما تحتاج اذن الله يسعدك


بالعكس يشرفني و شرف لي مشاركتك







الاخ khloudus



هذي نفس معادلة ابو محمد و مع الاضافه و ان شاءاالله نفس طالبك







_SECTION_BEGIN("00000000000");
OpenPct = (Open - Ref(C,-1))/Ref(C,-1)*100 ;
HighPct = (H - Ref(C,-1))/Ref(C,-1)*100 ;
LowPct = (L - Ref(C,-1))/Ref(C,-1)*100 ;
ClosePct = (C - Ref(C,-1))/Ref(C,-1)*100 ;
VolPct = (V - Ref(V,-1))/Ref(V,-1)*100 ;
HLPct = (H - Ref(L,-1))/Ref(C,-1)*100 ;


_N(Title =Name() + " " + FullName() + " Date: "+Date()
+WriteIf(Open>Ref(C,-1),EncodeColor(colorGreen),EncodeColor(colorRed))+" Open:"+ WriteVal( Open, 1.2 ) +" ("+WriteVal(OpenPct ,1.2) +"%)"
+WriteIf(H>Ref(C,-1),EncodeColor(colorGreen),EncodeColor(colorRed))+ " H:" + WriteVal( H , 1.2 ) +" ("+WriteVal(HighPct ,1.2) +"%)"
+WriteIf(H>Ref(L,-1),EncodeColor(colorGreen),EncodeColor(colorRed))+ " HL:" + WriteVal( H , 1.2 ) +" ("+WriteVal(HighPct ,1.2) +"%)"
+WriteIf(L>Ref(C,-1),EncodeColor(colorGreen),EncodeColor(colorRed))+" L:"+ WriteVal( L, 1.2 ) +" ("+WriteVal(LowPct ,1.2) +"%)"
+WriteIf(C>Ref(C,-1),EncodeColor(colorGreen),EncodeColor(colorRed))+" C:"+ WriteVal( C, 1.2 ) +" ("+WriteVal(ClosePct ,1.2) +"%)"
+WriteIf(V>Ref(V,-1),EncodeColor(colorGreen),EncodeColor(colorRed))+" V: "+ WriteVal( V, 1.2 ) +" ("+WriteVal(VolPct ,1.2) +"%)");
_SECTION_END();

Q1=(H-L);
Q=((H-L)+Ref(H-L,-1)+Ref(H-L,-2)+Ref(H-L,-3)+Ref(H-L,-4))/5;
Filter=1 ;

AddTextColumn ( FullName(), "full__________name", 1.2 );

AddColumn(h , "الاعلى", 1.2 );

AddColumn(l , "الادني", 1.2 );
AddColumn(Q1 , "الفرق H_L ", 1.2 );


AddColumn(C , "الاغلاق ", 1.2 );


AddColumn(Q, "الفرق الاسبوعي ", 1.2 );
SetChartBkColor(ParamColor("Outer panel color ",colorBlack));
SetChartBkGradientFill( ParamColor("Inner panel color upper half",colorBlack),ParamColor("Inner panel color lower half",colorBlack));
Plot( C, "Close", ParamColor("Color", colorDefault ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );

_SECTION_BEGIN("Formula 25");

per1=Param ("per1", 0.1,0.1,50,0.10);

per=per1;
x = Cum(1);
s1=L;
s11=H;
pS = TroughBars( s1, per, 1 ) == 0;
endt= SelectedValue(ValueWhen( pS, x, 1 ));
startt=SelectedValue(ValueWhen( pS, x, 2 ));
dtS =endt-startt;
endS = SelectedValue(ValueWhen( pS, s1, 1 ) );
startS = SelectedValue( ValueWhen( pS, s1, 1 ));
aS = (endS-startS)/dtS;
bS = endS;
trendlineS = aS * ( x -endt ) + bS;
g3= IIf(x>startt-10,trendlineS,-1e10);
Plot(g3,"",colorRed,styleDots,styleThick);

pR = PeakBars( s11, per, 1 ) == 0;
endt1= SelectedValue(ValueWhen( pR, x, 1 ));
startt1=SelectedValue(ValueWhen( pR, x, 2 ));
dtR =endt1-startt1;
endR = SelectedValue(ValueWhen( pR, s11, 1 ) );
startR = SelectedValue( ValueWhen( pR, s11, 1 ));
aR = (endR-startR)/dtR;
bR = endR;
trendlineR = aR * ( x -endt1 ) + bR;
g4= IIf(x>startT1-10,trendlineR,-1e10);
Plot(g4,"",colorGreen,styleDots,styleThick);
//////////////////////////////////////////////////////////////////////////////////////////////////
_SECTION_END();
_SECTION_END();


تاكد منها في الاسبوعي ومعليش طال عمرك علي التاخير


يا شيخ هات خشمك بيض الله وجهك
:hawam er3912



رد مع اقتباس
قديم 23-10-2014, 01:33 PM
  المشاركه #94

almasdar

عضو هوامير المؤسس

تاريخ التسجيل: Jul 2005
المشاركات: 2,316
almasdar غير متواجد حالياً  

جزاك الله خير وكثر الله امثالك الطيبين


رد مع اقتباس
قديم 23-10-2014, 10:30 PM
  المشاركه #95

خالد35

عضو هوامير المميز

تاريخ التسجيل: Jul 2006
المشاركات: 664
خالد35 غير متواجد حالياً  

الله يعطيك العافيه اخوي
جهودك مشكوره ما شاء الله عليك ربي يوفقك
جبيت اذكرك بالمشاركة رقم 18-19
اكرر شكري وتقديري اخوك


رد مع اقتباس
قديم 24-10-2014, 07:55 PM
  المشاركه #96

DABL@

عضو هوامير المميز

تاريخ التسجيل: Oct 2013
المشاركات: 503
DABL@ غير متواجد حالياً  

الاخ الداب300 يسعد مسائك بالخير و الرضا ان شاء الله




شوف نفس طلبك او لا و اي تعديل قول لي ان شاء الله انها صح





_SECTION_BEGIN("Harmonic Patterns");
//ABDULKAREEM ALGHAMDI - JUNE 2012
Percentage = Param("Percentage", 5, 1, 100, 0.1);
ShowTarget = ParamList("Show Target From:", "Off|C-D|A-D |X-A|B-C");
ShowTargetExt = ParamToggle("Show Target Extensions?", "No|Yes");
Back = Param("Look Back", 1, 1, 100, 1);
Currection = Param("Currection:", 50, 5, 100,1);
//----------------------------------------------------------------------------------------
Ax = Bx = Cx = Dx = Xx= 0;
Ay = By = Cy = Dy = Xy = 0;
BCon = SCon = XCon = 0;
//----------------------------------------------------------------------------------------
procedure SetupPattern(Per, Back)
{
BackL = LastValue(TroughBars(L, Per, Back ));
BackH = LastValue(PeakBars(H, Per, Back ));
BackL2 = LastValue(TroughBars(L, Per, Back +1));
BackH2 = LastValue(PeakBars(H, Per, Back+1));
BackL3 = LastValue(TroughBars(L, Per, Back +2));
BackH3 = LastValue(PeakBars(H, Per, Back +2));

if(BackL < BackH)
{
if(BackL2 < BackH)
for(i=Back+1; BackL2 < BackH AND i < Back+Currection; i++)
BackL2 = LastValue(TroughBars(L, Per, Back + i));
if(BackH2 < BackL2)
for(i=Back+1; BackH2 < BackL2 AND i < Back+Currection; i++)
BackH2 = LastValue(PeakBars(H, Per, Back + i));
if(BackL3 < BackH2)
for(i=Back+2; BackL3 < BackH2 AND i < Back+Currection; i++)
BackL3 = LastValue(TroughBars(L, Per, Back + i));
if(BackH3 < BackL3)
for(i=Back+2; BackH3 < BackL3 AND i < Back+Currection; i++)
BackH3 = LastValue(PeakBars(H, Per, Back + i));
}
else
{
if(BackH2 < BackL)
for(i=Back+1; BackH2 < BackL AND i < Back+Currection; i++)
BackH2 = LastValue(PeakBars(H, Per, Back + i));
if(BackL2 < BackH2)
for(i=Back+1; BackL2 < BackH2 AND i < Back+Currection; i++)
BackL2 = LastValue(TroughBars(L, Per, Back + i));
if(BackH3 < BackL2)
for(i=Back+2; BackH3 < BackL2 AND i < Back+Currection; i++)
BackH3 = LastValue(PeakBars(H, Per, Back + i));
if(BackL3 < BackH3)
for(i=Back+2; BackL3 < BackH3 AND i < Back+Currection; i++)
BackL3 = LastValue(TroughBars(L, Per, Back + i));
}
Ax = BarCount-1-LastValue(Max(BackH2, BackL2));
Bx = BarCount-1-LastValue(Min(BackL2, BackH2));
Cx = BarCount-1-LastValue(Max(BackH, BackL));
Dx = BarCount-1-LastValue(Min(BackL, BackH));

if(BackL > BackH)
{
Ay = LastValue((Ref(L, -BackL2)));
By = LastValue((Ref(H, -BackH2)));
Cy = LastValue((Ref(L, -BackL)));
Dy = LastValue((Ref(H, -BackH)));
Xy = LastValue((Ref(H, -BackH3)));
Xx = BarCount-1-BackH3;
XCon = Xy > By AND BackH3 > BackL2;
Con = ((By-Cy)/(By-Ay)) > 0.3 AND ((By-Cy)/(By-Ay)) < 0.8;
Con = Con AND (Ax < Bx) AND (Bx < Cx) AND (Cx < Dx) AND (Ay < Cy) AND (Cy <
By) AND (By < Dy);
Con = Con AND BackL2 > BackH2 AND BackL > BackH;
Con = Con AND ((By-Cy)/(By-Ay)) >=0.3 AND ((Dy-Cy)/(By-Cy))>=1;
SCon = Con AND ((Dy-Cy)/(Xy-Ay)) >=0.5 AND ((By-Ay)/(Xy-Ay))>=0.3;
}
else
{
Ay = LastValue((Ref(H, -BackH2)));
By = LastValue((Ref(L, -BackL2)));
Cy = LastValue((Ref(H, -BackH)));
Dy = LastValue((Ref(L, -BackL)));
Xy = LastValue((Ref(L, -BackL3)));
Xx = BarCount-1-BackL3;
XCon = Xy < By AND BackL3 > BackH2;
Con = ((Cy-By)/(Ay-By)) > 0.5 AND ((Cy-By)/(Ay-By)) < 0.8;
Con = Con AND (Ax < Bx) AND (Bx < Cx) AND (Cx < Dx) AND (Ay > Cy) AND (Cy >
By) AND (By > Dy);
Con = Con AND BackL2 < BackH2 AND BackL < BackH;
Con = Con AND ((Cy-Dy)/(Ay-Xy))>=0.3 AND ((Ay-By)/(Ay-Xy)) >=0.3;
BCon = Con AND ((Cy-Dy)/(Ay-By)) >=0.3 AND ((Cy-Dy)/(Cy-By)) >=1;
}
}
//----------------------------------------------------------------------------------------
//----------------------------------------------------------------------------------------
SetupPattern(Percentage, Back) ;
Color = IIf(BCon, colorGold, colorRed);
//----------------------------------------------------------------------------------------
if(BCon OR SCon)
{
Plot(LineArray(Ax, Ay, Bx, By), "", Color);//AB
Plot(LineArray(Bx, By, Cx, Cy), "", Color);//BC
Plot(LineArray(Cx, Cy, Bx, By), "", Color);//XB
Plot(LineArray(ax,ay,cx,cy,Back),"AC ",ParamColor( "AC", colorRed ),styleLine,Null, Null );
Plot(LineArray(xx,xy,bx,by,Back),"XB ",ParamColor( "XB", colorRed ),styleLine,Null, Null );
Plot(LineArray(Cx, Cy, ax, ay), "", Color);//ca
Plot(LineArray(Cx, Cy, Dx, Dy), "", Color);//CD
Plot(LineArray(Ax, Ay, Cx, Cy),"", Color, styleDashed);//AC
Plot(LineArray(Bx, By, Dx, Dy),"", Color, styleDashed);//BD
PlotText("A"+StrFormat("=%.2f", Ay), Ax, Ay, colorWhite);
PlotText("B"+StrFormat("=%.2f", By), Bx, By, colorWhite);
PlotText("C"+StrFormat("=%.2f", Cy), Cx, Cy, colorWhite);
PlotText("D"+StrFormat("=%.2f", Dy), Dx, Dy, colorWhite);
PlotText(StrFormat("%.3f", abs((Cy-By)/(Ay-By))), (Ax+Cx)/2, (Ay+Cy)/2,
colorWhite);
PlotText(StrFormat("%.3f", abs((Dy-Cy)/(By-Cy))), (Bx+Dx)/2, (By+Dy)/2,
colorWhite);
if(XCon)
{
Plot(LineArray(Xx, Xy, Ax, Ay), "", Color);
PlotText("X"+StrFormat("=%.2f", Xy), Xx, Xy, colorWhite);
Plot(LineArray(Xx, Xy, Bx, By),"", Color, styleDashed);
Plot(LineArray(Xx, Xy, Dx, Dy),"", Color, styleDashed);
PlotText(StrFormat("%.3f", (Ay-By)/(Ay-Xy)), (Xx+Bx)/2, (Xy+By)/2,
colorWhite);
PlotText(StrFormat("%.3f", (Cy-Dy)/(Ay-Xy)), (Xx+Dx)/2, (Xy+Dy)/2,
colorWhite);
}
if(ShowTarget!="Off")
{
if(ShowTarget=="C-D")
{
FarX = Cx;
FarY = Cy;
}
else
{
FarX = Ax;
FarY = Ay;
}

NearX = Dx;
NearY = Dy;
if(ShowTarget=="X-A")
{
FarX = Xx;
FarY = Xy;

NearX = Ax;
NearY = Ay;
}
if(ShowTarget=="B-C")
{
FarX = Bx;
FarY = By;

NearX = Cx;
NearY = Cy;
}
RangeX = FarX-NearX;
RangeY = FarY-NearY;
Plot(LineArray(FarX, FarY, NearX, NearY), "", colorGreen, styleDashed);
Plot(LineArray(NearX+(RangeX*0.236),NearY+(RangeY*0.236),BarCount-1,NearY+(RangeY*0.236)),
"", colorGreen, styleDashed|styleNoLabel);
PlotText(StrFormat("%.2f",NearY+(RangeY*0.236))
,BarCount,NearY+(RangeY*0.236), colorWhite);
Plot(LineArray(NearX+(RangeX*0.382),NearY+(RangeY*0.382),BarCount-1,NearY+(RangeY*0.382)),
"", colorGreen, styleDashed|styleNoLabel);
PlotText(StrFormat("%.2f",NearY+(RangeY*0.382))
,BarCount,NearY+(RangeY*0.382), colorWhite);
Plot(LineArray(NearX+(RangeX*0.5),NearY+(RangeY*0.5),BarCount-1,NearY+(RangeY*0.5)),
"", colorGreen, styleDashed|styleNoLabel);
PlotText(StrFormat("%.2f",NearY+(RangeY*0.5)) ,BarCount,NearY+(RangeY*0.5),
colorWhite);
Plot(LineArray(NearX+(RangeX*0.618),NearY+(RangeY*0.618),BarCount-1,NearY+(RangeY*0.618)),
"", colorGreen, styleDashed|styleNoLabel);
PlotText(StrFormat("%.2f",NearY+(RangeY*0.618))
,BarCount,NearY+(RangeY*0.618), colorWhite);
Plot(LineArray(NearX+(RangeX*0.786),NearY+(RangeY*0.786),BarCount-1,NearY+(RangeY*0.786)),
"", colorGreen, styleDashed|styleNoLabel);
PlotText(StrFormat("%.2f",NearY+(RangeY*0.786))
,BarCount,NearY+(RangeY*0.786), colorWhite);
Plot(LineArray(FarX,FarY,BarCount-1,FarY), "", colorGreen,
styleDashed|styleNoLabel);
PlotText(StrFormat("%.2f",FarY) ,BarCount,FarY, colorWhite);
Plot(LineArray(NearX,NearY,BarCount-1,NearY), "", colorGreen,
styleDashed|styleNoLabel);
PlotText(StrFormat("%.2f",NearY) ,BarCount,NearY, colorWhite);
if(ShowTargetExt)
{
Plot(LineArray(FarX,NearY+(RangeY*1.27),BarCount-1,NearY+(RangeY*1.27)), "",
colorGreen, styleDashed|styleNoLabel);
PlotText(StrFormat("%.2f",NearY+(RangeY*01.27))
,BarCount,NearY+(RangeY*1.27), colorWhite);
Plot(LineArray(FarX,NearY+(RangeY*1.618),BarCount-1,NearY+(RangeY*1.618)),
"", colorGreen, styleDashed|styleNoLabel);
PlotText(StrFormat("%.2f",NearY+(RangeY*01.618))
,BarCount,NearY+(RangeY*1.618), colorWhite);
}
}
}
//----------------------------------------------------------------------------------------
Plot(C, "", IIf(O>C, colorRed, colorGreen), ParamStyle("Price
Style",styleBar,maskPrice));
Title = Name()+" - "+Interval(2)+" - "+"{{DATE}} - "+StrFormat("Open=%.2f,
High=%.2f, Low=%.2f, Close=%.2f", O, H, L, C)+StrFormat(" (%.2f %.2f%%)",
C-Ref(C, -1), SelectedValue(ROC(C, 1)));
_SECTION_END();

Filter=BCon;

AddTextColumn ( FullName(), "full__________name", 1.2 );

AddColumn(BCon , "_____", 1.2 );


رد مع اقتباس
إضافة رد
صفحة 8 من 75
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
58
الأخيرة »


الكلمات الدلالية (Tags)
معادلات, الايمي, بروكر, بعض, شرح, صنع, كيفية

« هل توجد طريقة للحصول على بيانات السوق مباشر او متاخرة ؟ | مشكلة في برنامج Gannalyst professional »
أدوات الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك
BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة
الانتقال السريع

هوامير البورصة السعودية - الأرشيف - الأعلى


08:15 PM

images

adswithus

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, vBulletin Solutions, Inc.

Search Engine Optimisation provided by DragonByte SEO (Pro) - vBulletin Mods & Addons Copyright © 2024 DragonByte Technologies Ltd.
جميع المواضيع و الردود المطروحة لا تعبر عن رأي الموقع بل تعبر عن رأي كاتبها وقرار البيع والشراء مسؤليتك وحدك

جميع المواضيع و الردود المطروحة لا تعبر عن رأي المنتدى بل تعبر عن رأي كاتبها وقرار البيع والشراء مسؤليتك وحدك بناء على نظام السوق المالية بالمرسوم الملكي م/30 وتاريخ 2/6/1424هـ ولوائحه التنفيذية الصادرة من مجلس هيئة السوق المالية: تعلن الهيئة للعموم بانه لا يجوز جمع الاموال بهدف استثمارها في اي من اعمال الاوراق المالية بما في ذلك ادارة محافظ الاستثمار او الترويج لاوراق مالية كالاسهم او الاستتشارات المالية او اصدار التوصيات المتعلقة بسوق المال أو بالاوراق المالية إلا بعد الحصول على ترخيص من هيئة السوق المالية.