يصبحك بالنور والسرور براقبها وان شاء تضبط
اضفت لها الاتي
_SECTION_BEGIN("TD Demand Line");
Plot(C,"",colorGreen,styleBar);
pivotlow = Ref(L,-1)>L AND L<Ref(L,1);
y0=SelectedValue(ValueWhen(pivotlow,L,2) );
y1=SelectedValue(ValueWhen(pivotlow,L,1) );
x0=SelectedValue(ValueWhen(pivotlow,Cum( 1)-1,2));
x1=SelectedValue(ValueWhen(pivotlow,Cum( 1)-1,1));
Cond=y1>y0;
Line=LineArray(x0,y0,x1,y1,1);
Plot(IIf(Cond,Line,Null),"",colorBlue,styleLine|
styleThick|styleNoRescale|styleNoLabel);
PlotShapes((Cum(1)-1==x0 OR Cum(1)-1==x1)
*shapeSmallCircle,colorBlue,0,L);
PlotShapes((cond AND Cross(Cum(C<Line AND Cum(1)-1>x1),0))
*shapeDownArrow,colorRed,0,H);
Title="TD Demand Line";
GraphXSpace=4;
_SECTION_END();
LookBack=Param("Lookback (RegressionChannel)",72,1,300);
NH = LastValue(HHVBars(High,LookBack)); // lookback period - can be set by the user if necessary
NL = LastValue(LLVBars(Low ,LookBack)); // lookback period - can be set by the user if necessary
N=0;
if(NL>NH) { N=NL; } else { N=NH; }
Start = 1;
X = Cum(Start); // Set up the x cordinate array of the Linear Regression Line
Y = Close; // Set the y co-ordinate of the Linear Regression line
/* Calculate the slope (bconst) and the y intercept (aconst) of the line */
SUMX = LastValue(Sum(X,N));
SUMY = LastValue(Sum(Y,N));
SUMXY = LastValue(Sum(X*Y,N));
SUMXSqd = LastValue(Sum(X*X,N));
SUMSqdX = LastValue(SUMX * SUMX);
bconst = (N * SUMXY - SUMX * SUMY)/(N * SUMXSqd - SUMSqdX);
aconst = (SUMY - bconst * (SUMX))/N;
/* Force the x value to be very negative so the graph does not apear before the
lookback period */
Domain = IIf ( X > LastValue(X) - N, 1 , -1e10);
Xvar = X * Domain;
/* Linear Regression Line */
Yvar = aconst + bconst * Xvar;
Plot(Yvar + LastValue(HHV(High - Yvar,N)),"Upper Channel",colorBrown,styleDots|styleNoLabel);
Plot(Yvar,"Middle Channel",colorBrown,styleDots|styleNoLabel);
Plot(Yvar - LastValue(HHV(Yvar - Low ,N)),"Lower Channel",colorBrown,styleDots|styleNoLabel);
numbars = SelectedValue(Cum(Status("barvisible")));
fraction= IIf(StrRight(Name(),3) == "",3.2,3.2);
hts = Param ("Text Shift", -50,-100,100,10);
PlotText("" + WriteVal(Yvar + LastValue(HHV(High - Yvar,N)),fraction),
SelectedValue(BarIndex()+1)-(numbars/hts),SelectedValue(Yvar + LastValue(HHV(High - Yvar,N))),2);
PlotText("" + WriteVal(Yvar,fraction),
SelectedValue(BarIndex()+1)-(numbars/hts),SelectedValue(Yvar),2);
PlotText("" + WriteVal(Yvar - LastValue(HHV(Yvar - Low ,N)),fraction),
SelectedValue(BarIndex()+1)-(numbars/hts),SelectedValue(Yvar - LastValue(HHV(Yvar - Low ,N))),2);
_SECTION_BEGIN("pivot finde ");
// -- what will be our lookback range for the hh and ll?
farback=Param("How Far back to go",100,50,5000,10);
nBars = Param("Number of bars", 12, 5, 40);
// -- Title.
Title = Name () + " (" + StrLeft(FullName(), 15) + ") O: " + Open + ",
H: " + High + ", L: " + Low + ", C: " + Close;
// -- Plot basic candle chart
PlotOHLC(Open, High, Low, Close,
"BIdx = " + BarIndex() +
"\n" + "O = " + O + "\n"+"H = "+ H + "\n"+"L = " + L
+ "\n"+"C ",
colorBlack, styleBar);
GraphXSpace=7;
// -- Create 0-initialized arrays the size of barcount
aHPivs = H - H;
aLPivs = L - L;
// -- More for use, not necessary for basic plotting
aHPivHighs = H - H;
aLPivLows = L - L;
aHPivIdxs = H - H;
aLPivIdxs = L - L;
nHPivs = 0;
nLPivs = 0;
lastHPIdx = 0;
lastLPIdx = 0;
lastHPH = 0;
lastLPL = 0;
curPivBarIdx = 0;
// -- looking back from the current bar, how many bars
// back were the hhv and llv values of the previous
// n bars, etc.?
aHHVBars = HHVBars(H, nBars);
aLLVBars = LLVBars(L, nBars);
aHHV = HHV(H, nBars);
aLLV = LLV(L, nBars);
// -- Would like to set this up so pivots are calculated back from
// last visible bar to make it easy to "go back" and see the pivots
// this code would find. However, the first instance of
// _Trace output will show a value of 0
aVisBars = Status("barvisible");
nLastVisBar = LastValue(Highest(IIf(aVisBars, BarIndex(), 0)));
_TRACE("Last visible bar: " + nLastVisBar);
// -- Initialize value of curTrend
curBar = (BarCount-1);
curTrend = "";
if (aLLVBars[curBar] <
aHHVBars[curBar]) {
curTrend = "D";
}
else {
curTrend = "U";
}
// -- Loop through bars. Search for
// entirely array-based approach
// in version
for (i=0; i<farback; i++) {
curBar = (BarCount - 1) - i;
// -- Have we identified a pivot? If trend is down...
if (aLLVBars[curBar] < aHHVBars[curBar]) {
// ... and had been up, this is a trend change
if (curTrend == "U") {
curTrend = "D";
// -- Capture pivot information
curPivBarIdx = curBar - aLLVBars[curBar];
aLPivs[curPivBarIdx] = 1;
aLPivLows[nLPivs] = L[curPivBarIdx];
aLPivIdxs[nLPivs] = curPivBarIdx;
nLPivs++;
}
// -- or current trend is up
} else {
if (curTrend == "D") {
curTrend = "U";
curPivBarIdx = curBar - aHHVBars[curBar];
aHPivs[curPivBarIdx] = 1;
aHPivHighs[nHPivs] = H[curPivBarIdx];
aHPivIdxs[nHPivs] = curPivBarIdx;
nHPivs++;
}
// -- If curTrend is up...else...
}
// -- loop through bars
}
// -- Basic attempt to add a pivot this logic may have missed
// -- OK, now I want to look at last two pivots. If the most
// recent low pivot is after the last high, I could
// still have a high pivot that I didn't catch
// -- Start at last bar
curBar = (BarCount-1);
candIdx = 0;
candPrc = 0;
lastLPIdx = aLPivIdxs[0];
lastLPL = aLPivLows[0];
lastHPIdx = aHPivIdxs[0];
lastHPH = aHPivHighs[0];
if (lastLPIdx > lastHPIdx) {
// -- Bar and price info for candidate pivot
candIdx = curBar - aHHVBars[curBar];
candPrc = aHHV[curBar];
if (
lastHPH < candPrc AND
candIdx > lastLPIdx AND
candIdx < curBar) {
// -- OK, we'll add this as a pivot...
aHPivs[candIdx] = 1;
// ...and then rearrange s in the
// pivot information arrays
for (j=0; j<nHPivs; j++) {
aHPivHighs[nHPivs-j] = aHPivHighs[nHPivs-
(j+1)];
aHPivIdxs[nHPivs-j] = aHPivIdxs[nHPivs-(j+1)];
}
aHPivHighs[0] = candPrc ;
aHPivIdxs[0] = candIdx;
nHPivs++;
}
} else {
// -- Bar and price info for candidate pivot
candIdx = curBar - aLLVBars[curBar];
candPrc = aLLV[curBar];
if (
lastLPL > candPrc AND
candIdx > lastHPIdx AND
candIdx < curBar) {
// -- OK, we'll add this as a pivot...
aLPivs[candIdx] = 1;
// ...and then rearrange s in the
// pivot information arrays
for (j=0; j<nLPivs; j++) {
aLPivLows[nLPivs-j] = aLPivLows[nLPivs-(j+1)];
aLPivIdxs[nLPivs-j] = aLPivIdxs[nLPivs-(j+1)];
}
aLPivLows[0] = candPrc;
aLPivIdxs[0] = candIdx;
nLPivs++;
}
}
// -- Dump inventory of high pivots for debugging
// -- OK, let's plot the pivots using arrows
PlotShapes(
IIf(aHPivs==1, shapeDownArrow, shapeNone), colorRed, 0,
High, Offset=-15);
PlotShapes(
IIf(aLPivs==1, shapeUpArrow , shapeNone), colorGreen, 0,
Low, Offset=-15);
_SECTION_END();
_SECTION_BEGIN("Formula 1");
_section_begin("background");
setchartoptions(0,chartshowarrows|chartshowdates);
pricetitle=strformat("---- {{name}} ---------- {{values}}");
title ="averages" + pricetitle;
if( paramtoggle("tooltip shows", "all values|only prices" ) )
{
tooltip=strformat("open: %g\nhigh: %g\nlow: %g\nclose: %g (%.1f%%)\nvolume: "+numtostr( v, 1 ), o, h, l, c, selectedvalue( roc( c, 1 )));
}
setchartbkcolor(paramcolor("outer panel color ",colorblack)); // color of outer border
setchartbkgradientfill( paramcolor("inner panel color upper half",colorblack),paramcolor("inner panel color lower half",colorblack)); // color of inner panel
_section_end();Plot( C, "Close", ParamColor("Color", colorDefault ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
p=((C+L+H )/3);
r1=(p*2-L) ;
r2=p+(H-l);
r3= r2 +(H-l) ;
s1=(p*2-h) ;
s2=p-(H-l);
s3= s2 -(H-l) ;
pp=((p-r1)/2)-r1;
pp1=(p-s1)/2+s1;
Title_X = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) );
Title = Title_X + "\n" +
EncodeColor(colorGreen) + "
دخول " + WriteVal(pp1, 1.2)+EncodeColor(colorRed) + "
خروج " + WriteVal(pp, 1.2)+EncodeColor(colorGold) + "
الارتكاز " + WriteVal(p, 1.2)+EncodeColor(colorGreen) + "
1 المقاومه " + WriteVal(r1, 1.2) + EncodeColor(colorGreen) + "
2 المقاومه " + WriteVal(r2, 1.2) + EncodeColor(colorGreen) + "
3 المقاومه " + WriteVal(r3, 1.2) + EncodeColor(colorRed) + "
1 الدعم " + WriteVal(s1, 1.2) + EncodeColor(colorRed) + "
2 الدعم " + WriteVal(s2, 1.2) + EncodeColor(colorRed) + "
3 الدعم " + WriteVal(s3, 1.2) + EncodeColor(colorRed) ;
_SECTION_END();
رأيك يهمني
14-09-2014, 02:55 PM
تعليمات المشاركة
