قديم 02-07-2016, 06:04 PM
  المشاركه #1

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

تاريخ التسجيل: Oct 2010
المشاركات: 1,007
الرجل المستحيل غير متواجد حالياً  

الله ينفع به ولا تنسونا من الدعاء
ملاحظه
القالب للمبتدئين لان المحترفين عندهم اقوى

_SECTION_BEGIN("price");
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{name}} - {{interval}} {{date}} open %g, hi %g, lo %g, close %g (%.1f%%) {{values}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
Plot( C, "close", ParamColor("color", colorBlack ), styleNoTitle | ParamStyle("style") | GetPriceStyle() );

_SECTION_END();_SECTION_END();
TimeFrameSet( inDaily );
StartBar=SelectedValue(BarIndex());
FinishBar = EndValue( BarIndex() );
i = Startbar;
r= RSI(14);
xx44 = TimeFrameExpand(r , inDaily ) ;
W1=ValueWhen(HHV(r,14),r,2);
today55 = TimeFrameExpand(W1, inDaily ) ;
u5u =TimeFrameExpand( Ref(r,-1) , inDaily ) ;
u5u55 = TimeFrameExpand( Ref(r,-2) , inDaily ) ;

WEEKNEWTRENDUP = (xx44 [i] > u5u [i]) AND (u5u [i] <= u5u55 [i]);
WEEKNEWTRENDDN = (xx44 [i] > u5u [i]) AND (u5u [i] >= u5u55 [i]);
if( (xx44 [i] > u5u [i]) AND (u5u [i] <= u5u55 [i]))

GfxSetTextColor(colorLime);

_SECTION_BEGIN("C?? C???CI?CE");

strength = Param("Strength",1,1,15,1);
pe=PeakBars(H,strength)==0;
pss =TroughBars(L,strength)==0;
ef=ValueWhen(pe,H);
ssf=ValueWhen(pss,L);
Plot(ef,"",colorBlue,40+16);
Plot(ssf,"",colorRed,40+16);

_SECTION_END();
_SECTION_END();
_SECTION_BEGIN("Patterns");
strength = Param("Strength",5,2,15,1);
bu = ParamToggle("Bullish Pattern","Off|On",1);
be = ParamToggle("Bearish Pattern","Off|On",1);
bi = Cum(1)-1;
function GetTop(bars)
{
Top =r== HHV(r,2*bars) AND Ref(HHV(r,bars),bars) < r;
Top = Top AND LastValue(bi)-ValueWhen(Top,bi) > bars;
return Top;
}
function GetValley(bars)
{
Valley = W1== LLV(W1,2*bars) AND Ref(LLV(W1,bars),bars) >W1;
Valley = Valley AND LastValue(bi)-ValueWhen(Valley,bi) > bars;
return Valley;
}
Pp1 = GetTop(strength);
V1 = GetValley(Strength);

Pp1 = IIf(Pp1 ,IIf(ValueWhen(Pp1 ,bi,2) < ValueWhen(V1,bi),Pp1 ,IIf(ValueWhen(Pp1 ,r,2) >r,False,Pp1 )),Pp1 );
//Pp1 = IIf(Pp1 AND ValueWhen(Pp1 ,bi,0) > bi,IIf(ValueWhen(Pp1 ,bi,0) < ValueWhen(V1,bi,0),IIf(ValueWhen(Pp1 ,r,0) >=r,False,Pp1 ),Pp1 ),Pp1 );
Pp1 = IIf(Pp1 AND ValueWhen(Pp1 ,bi,0) > bi AND NOT(ValueWhen(V1,bi,0) > 0 AND ValueWhen(V1,bi,0)<ValueWhen(Pp1 ,bi,0)),IIf(ValueWhen(Pp1 ,r)<=ValueWhen(Pp1 ,r,0), False,Pp1 ),Pp1 );
V1 = IIf(V1,IIf(ValueWhen(V1,bi,2) < ValueWhen(Pp1 ,bi),V1,IIf(ValueWhen(V1,W1,2)<W1,False,V1)),V1);
//V1 = IIf(V1 AND ValueWhen(V1,bi,0) > bi ,IIf(ValueWhen(V1,bi,0) < ValueWhen(Pp1 ,bi,0),IIf(ValueWhen(V1,W1,0) <= W1, False,V1),V1),V1);
V1 = IIf(V1 AND ValueWhen(V1,bi,0) > bi AND NOT(ValueWhen(Pp1 ,bi,0) > bi AND ValueWhen(Pp1 ,bi,0)<ValueWhen(V1,bi,0)) , IIf(ValueWhen(V1,W1)>=ValueWhen(V1,W1,0),False,V1),V1);

Q2=(Ref(V,-1)<Ref(V,-2)AND Ref(V,-2)< Ref(V,-3)AND C<O);

_SECTION_BEGIN("Pivots");
sup = (Ref(V,-1)<Ref(V,-2)AND Ref(V,-2)< Ref(V,-3)AND C<O);
PHighPrice=ValueWhen(sup ,H);
b7e=ValueWhen(sup ,H);
_SECTION_BEGIN("Pivots");
sup = (Ref(V,-1)<Ref(V,-2)AND Ref(V,-2)< Ref(V,-3)AND C<O);
PHighPrice=ValueWhen(sup ,L);
b7e=ValueWhen(sup ,L);

Plot(EMA(C,66),"",colorCustom3, styleDots);
Plot(EMA(C,22),"",colorCustom5, styleDots);

wr=Cross(C,b7e)AND r>45 AND C>EMA(C,22);
PlotShapes(IIf(wr, shapeDigit1, shapeNone),colorCustom6, 0,L, -15);


Plot(4, "",IIf(r>45 , colorDarkGrey, colorDarkGrey), styleArea|styleOwnScale|styleNoLabel,0,1);

الموضوع الأصلي : اضغط هنا    ||   المصدر : منتدى هوامير البورصة السعودية


رد مع اقتباس
 
 

قديم 02-07-2016, 06:05 PM
  المشاركه #2

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

تاريخ التسجيل: Oct 2010
المشاركات: 1,007
الرجل المستحيل غير متواجد حالياً  

ضرري جدا رسم الترندات يدوي


رد مع اقتباس
قديم 03-07-2016, 12:54 AM
  المشاركه #3

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

تاريخ التسجيل: May 2005
المشاركات: 16,643
THE LORD KSA غير متواجد حالياً  

بارك الله فيك


رد مع اقتباس
إضافة رد


أدوات الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع



01:11 AM