Stock Portfolio Organizer
The ultimate porfolio management solution.
Shares, Margin, CFD's, Futures and Forex
EOD and Realtime
Dividends and Trust Distributions
And Much More ....
WiseTrader Toolbox
#1 Selling Amibroker Plugin featuring:
Advanced Adaptive Indicators
Advanced Pattern Exploration
Neural Networks
And Much More ....
3 Level target with the most accurate buy-sell signal for Amibroker (AFL)
Copy & Paste Friendly
Back
// LESS Signal but very good accuracy with some advanced trendlines and 3 level targets.
_SECTION_BEGIN("Background_Setting");
SetChartBkGradientFill( ParamColor("BgTop", colorBlack),
ParamColor("BgBottom", colorBlack),ParamColor("titleblock",colorGrey50));
_SECTION_END();
_SECTION_BEGIN("Rashedbgd");
SetChartOptions(0,chartShowArrows|chartShowDates);
Plot(Close,"Price",colorWhite, styleCandle);
Plot(EMA(Close,7),"7EMA",colorGreen,style=styleThick);
Plot(EMA(Close,34),"34EMA",colorRed,style=styleThick);
Buy=Cross(EMA(Close,7),EMA(Close,34));
Sell=Cross(EMA(Close,34),EMA(Close,7));
Short=Sell;
Cover=Buy;
shape = Buy * shapeSmallUpTriangle + Sell * shapeSmallDownTriangle;
PlotShapes( shape, IIf( Buy, colorGreen, colorRed ), 0, IIf( Buy, Low, High ) );
_SECTION_END();
_SECTION_BEGIN("VolnRibbon");
no=Param( "Swing", 10, 1, 55 );
res=HHV(H,no);
sup=LLV(L,no);
avd=IIf(C>Ref(res,-1),1,IIf(C<Ref(sup,-1),-1,0));
avn=ValueWhen(avd!=0,avd,1);
tsl=IIf(avn==1,sup,res);
Plot( 2, "Ribbon",IIf(C>tsl,colorGreen,colorRed),styleOwnScale|styleArea|styleNoLabel, -0.5, 100 );
VCol = ParamColor("Vol. Color", colorLime );
VH = Param("Volume Height", 5,1,15,1 );
SetBarFillColor( IIf( V > Ref(V,-1), colorGreen, colorRed) );
PlotOHLC(0,V,0,V,"Volume",VCol,styleCandle|styleOwnScale,VH );
_SECTION_END();
_SECTION_BEGIN("Rashedbgd");
T=Max(Ref(H,-1),Ref(H,-2));
M=Max(Ref(H,-2),Ref(H,-3));
S=Max(T,M);
p=Min(Ref(L,-1),Ref(L,-2));
k=Min(Ref(L,-2),Ref(L,-3));
r=Min(p,k);
t1=DayOfWeek();
n2=WriteIf(t1==1,"SUNDAY",WriteIf(t1==2,"MONDAY",WriteIf(t1==3,"TUESDAY",WriteIf(t1==4,"WEDNESDAY",WriteIf(t1==5,"THURSDAY","-")))));
Plot( C, "Close", IIf (t1==2 , colorRed,IIf(t1==5,colorBlue,colorWhite)), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
BarColor = IIf (t1==2 , colorRed,colorWhite);
H1=(Ref(H,-1));
H2=(Ref(H,-2));
H3=(Ref(H,-3));
l1=(Ref(L,-1));
l2=(Ref(L,-2));
l3=(Ref(L,-3));
J=C>(s+2.5);//UPTO200
j1=C<(r-2.5);
A=C>(S+3.75);//300
a1=C<(r-3.75);
B=C>(S+5);//400
b1=C<(r-5);
D=C>(S+6.25);//500
d1=C<(r-6.25);
E=C>(S+7.5);//600
e1=C<(r-7.5);
F=C>(S+8.75);//700
f1=C<(r-8.75);
G=C>(S+10);//800
g1=C<(r-10);
I=C>(S+11.25);// 900
i1=C<(r-11.25);
N=C>(S+12.5);//1000
n1=C<(r-12.5);
A2=C>(s+22);//1001 to 3000
a3=C<(r-22);
B2=C>(S+37.5);//ABOVE3000(S+37.5);
b3=C<(r-37.5);
//------------------------
a4=s-1.75;//buystoploss upto 300
b4=s-3.25;//stoploss upto 700
C4=s-5.25;//stoploss upto 1300
d4=s-10;// stoploss above 1300
//----------------------
a11=r+1.75;//sellstoploss upto300
b11=r+3.25;//700
C11=r+5.25;//1300
d11=r+10;//above1300
//-------------------------
j5=(s+2.5); //buy upto200
a5=(S+3.75);//upto300
b5=(S+5);//400
d5=(S+6.25);//500
e5= (S+7.5);//600
f5=(S+8.75);//700
g5=(S+10);//800
i5=(S+11.25);//900
n5=(S+12.5);//1000
a55=(s+22);//1000t03000
b55=(S+37.5);//above 3000
//__________________________________
j6=(r-2.5);//sell upto 200
a6=(r-3.75);//300
b6=(r-5);//400
d6=(r-6.25);//500
e6=(r-7.5);//600
f6=(r-8.75);//700
g6=(r-10);//800
i6=(r-11.25);//900
n6=(r-12.5);//1000
a66=(r-22);//1001 to 3000
b66=(r-37.5);//above 3000
//_______________________________________________________
Buy=IIf((C<200 AND C>1 AND C>s AND C<s+3.5)OR(C>201 AND C<300 AND C>s AND C<s+5)OR (C>301 AND C<400 AND C>s AND C>s+7) OR (C>401 AND C<500 AND C>s AND C<8)OR
(C>501 AND C<600 AND C>s AND C<8.5) OR (C>601 AND C<700 AND C>s AND C<9.5)OR(C>701 AND C<800 AND C>s AND C<s+10.5)OR(C>801 AND C<900 AND C>s AND C<s+12) OR
(C>901 AND C<1000 AND C>s AND C<s+14) OR (C>1001 AND C<3000 AND C>s AND C<s+28) OR (C>3001 AND C>s AND C<s+45 ),1,0) ;//instant
Sell=IIf((C<200 AND C>1 AND C<r AND C>r-3.5) OR (C>201 AND C<300 AND C<r AND C>r-5)OR (C>301 AND C<400 AND C<r AND C>r-7) OR (C>3001 AND C>s AND C<s+45 )OR
(C>501 AND C<600 AND C<r AND C>r-8.5)OR (C>601 AND C<700 AND C<r AND C>r-9.5)OR(C>701 AND C<800 AND C<r AND C>r-10.5)OR(C>801 AND C<900 AND C<r AND C>r-12) OR
(C>901 AND C<1000 AND C<r AND C>r-14)OR(C>1001 AND C<3000 AND C<r AND C>r-28) OR (C<3001 AND C>20000 AND C<r AND C>r-45),1,0);//instant
//1st tgt=b-sl/2nd 1.5*1st/3rd 2.25*1st //sell tgt
j12=(2*j5)-a4;//upto200
a12=(2*a5)-a4;//300
b12=(2*b5)-b4;//400
d12=(2*d5)-b4;//500
e12=(2*e5)-b4;//600
f12=(2*f5)-b4;//700
g12=(2*g5)-c4;//800
i12=(2*i5)-C4;//900
n12=(2*n5)-C4;//1000
a121=(2*a55)-C4;//1100to1300
a122=(2*a55)-d4;//1300 to 3000
b121=(2*b55)-d4;//above 3000
//2ND TGT
j123=1.5*(j5-a4)+j5;//upto200
a123=1.5*(a5-a4)+a5;//300
b123=1.5*(b5-b4)+b5;//400
d123=1.5*(d5-b4)+d5;//500
e123=1.5*(e5-b4)+e5;//600
f123=1.5*(f5-b4)+f5;//700
g123=1.5*(g5-c4)+g5;//800
i123=1.5*(i5-C4)+i5;//900
n123=1.5*(n5-C4)+n5;//1000
a1211=1.5*(a55-C4)+a55;//1100to1300
a1221=1.5*(a55-d4)+a55;//1300 to 3000
b1211=1.5*(b55-d4)+b55;//above 3000
//3RD
j124=2.25*(j5-a4)+j5;//upto200
a124=2.25*(a5-a4)+a5;//300
b124=2.25*(b5-b4)+b5;//400
d124=2.25*(d5-b4)+d5;//500
e124=2.25*(e5-b4)+e5;//600
f124=2.25*(f5-b4)+f5;//700
g124=2.25*(g5-c4)+g5;//800
i124=2.25*(i5-C4)+i5;//900
n124=2.25*(n5-C4)+n5;//1000
a1212=2.25*(a55-C4)+a55;//1000to1300
a1222=2.25*(a55-d4)+a55;//1300 to 3000
b1212=2.25*(b55-d4)+b55;//above 3000
//___________________________________________________________________________
//Selling 1st tgt
j7=2*j6-a11;//200
a7=2*a6-a11;//300
b7=2*b6-b11;//400
d7=2*d6-b11;//500
e7=2*e6-b11;//600
f7=2*f6-b11;//700
g7=2*g6-C11;//800
i7=2*i6-C11;//900
n7=2*n6-C11;//1000
a77=2*a66-c11;//1000 t0 1300
a771=2*a66-d11;//1300 t03000
b77=2*b66-d11;//above 3000
//2nd tgt 1.5*1st
j27=1.5*(j6-a11)+j6;//200
a27=1.5*(a6-a11)+a6;//300
b27=1.5*(b6-b11)+b6;//400
d27=1.5*(d6-b11)+d6;//500
e27=1.5*(e6-b11)+e6;//600
f27=1.5*(f6-b11)+f6;//700
g27=1.5*(g6-C11)+g6;//800
i27=1.5*(i6-C11)+i6;//900
n27=1.5*(n6-C11)+n6;//1000
a277=1.5*(a66-c11)+a66;//1000 t0 1300
a2771=1.5*(a66-d11)+a66;//1300 t03000
b277=1.5*(b66-d11)+b66;//above 3000
//3rd tgt 2.25*1st
j37=2.25*(j6-a11)+j6;//200
a37=2.25*(a6-a11)+a6;//300
b37=2.25*(b6-b11)+b6;//400
d37=2.25*(d6-b11)+d6;//500
e37=2.25*(e6-b11)+e6;//600
f37=2.25*(f6-b11)+f6;//700
g37=2.25*(g6-C11)+g6;//800
i37=2.25*(i6-C11)+i6;//900
n37=2.25*(n6-C11)+n6;//1000
a377=2.25*(a66-c11)+a66;//1000 t0 1300
a3771=2.25*(a66-d11)+a66;//1300 t03000
b377=2.25*(b66-d11)+b66;//above 3000
Title="\n DATE "+/*Date() +*/ WriteVal( DateTime(), formatDateTime )+
EncodeColor(colorWhite) + " 0pen= "+O +
EncodeColor(colorWhite) + " ,High= "+H+
EncodeColor(colorWhite) + " ,Low= "+L+
EncodeColor(colorWhite) + " ,Close= "+C +"\n"+
EncodeColor(colorRed) +"zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz"+"\n"+
EncodeColor( colorWhite ) + " High1 = "+H1+
EncodeColor( colorWhite ) + " High2= "+H2+
EncodeColor(colorWhite) + " High3= "+H3+
EncodeColor(colorBlue) + " =HIGHESTHIGH "+S+"\n"+"\n"+
EncodeColor(colorBlue) + " BUYABOVE = "+WriteVal(IIf(C<200 AND C>1 ,j5,IIf(C>201 AND C<300,a5,IIf(C>301 AND C<400 ,b5,IIf(C>401 AND C<500,d5,IIf(C>501 AND C<600,e5,
IIf(C>601 AND C<700,f5,IIf(C>701 AND C<800,g5,IIf(C>801 AND C<900,i5,IIf(C>901 AND C<1000,n5,IIf(C>1001 AND C<3000,a55,IIf(C>3001,b55,0))))))))))),1.2)+
EncodeColor(colorRed) + " ---------BUYINGSTOPLOSS = "+WriteVal(IIf(C>1 AND C<300,a4,IIf(C<700 AND C>300,b4,IIf(C>700 AND C<1300,C4,IIf(C>1300,d4,0)))),1.2)+"\n"+
"\n"+
EncodeColor(colorRed) + " 1st Tgt = "+WriteVal(IIf(C<200 AND C>1 ,j12,IIf(C>201 AND C<300,a12,IIf(C>301 AND C<400 ,b12,IIf(C>401 AND C<500,d12,IIf(C>501 AND C<600,e12,
IIf(C>601 AND C<700,f12,IIf(C>701 AND C<800,g12,IIf(C>801 AND C<900,i12,IIf(C>901 AND C<1000,n12,IIf(C>1001 AND C<1300,a121,IIf(C>1300 AND C<3000,A121,IIf(C>3000,B121,0)))))))))))),1.2)+
EncodeColor(colorYellow) + " 2nd Tgt = "+WriteVal(IIf(C<200 AND C>1 ,j123,IIf(C>201 AND C<300,a123,IIf(C>301 AND C<400 ,b123,IIf(C>401 AND C<500,d123,IIf(C>501 AND C<600,e123,
IIf(C>601 AND C<700,f123,IIf(C>701 AND C<800,g123,IIf(C>801 AND C<900,i123,IIf(C>901 AND C<1000,n123,IIf(C>1001 AND C<1300,a1211,IIf(C>1300 AND C<3000,A1211,IIf(C>3000,B1211,0)))))))))))),1.2)+
EncodeColor(colorBlue) + " 3rd Tgt = "+WriteVal(IIf(C<200 AND C>1 ,j124,IIf(C>201 AND C<300,a124,IIf(C>301 AND C<400 ,b124,IIf(C>401 AND C<500,d124,IIf(C>501 AND C<600,e124,
IIf(C>601 AND C<700,f124,IIf(C>701 AND C<800,g124,IIf(C>801 AND C<900,i124,IIf(C>901 AND C<1000,n124,IIf(C>1001 AND C<1300,a1212,IIf(C>1300 AND C<3000,A1212,IIf(C>3000,B1212,0)))))))))))),1.2)+
"\n"+
EncodeColor(colorYellow) +"zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz"+"\n"+
EncodeColor(colorWhite) + " Low1= "+L1+
EncodeColor(colorWhite) + " Llow2= "+L2 +
EncodeColor(colorWhite) + " Low3= "+L3
+EncodeColor(colorRed) + " =LOWESTLOW "+r+"\n"+"\n"+
EncodeColor(colorRed) +" SellBelow = "+WriteVal(IIf(C<200 AND C>1 ,J6,IIf(C>201 AND C<300,A6,IIf(C>301 AND C<400,b6,IIf(C>401 AND C<500,d6,IIf(C>501 AND C<600,e6,
IIf(C>601 AND C<700,f6,IIf(C>701 AND C<800,g6,IIf(C>801 AND C<900,i6,IIf(C>901 AND C<1000,n6,IIf(C>1001 AND C<3000,a66,IIf(C>3001,b66,0))))))))))),1.2)+
EncodeColor(colorBlue) + " ----SELLINGSTOPLOSS = "+WriteVal(IIf(C>1 AND C<300,a11,IIf(C<700 AND C>300,b11,IIf(C>700 AND C<1300,C11,IIf(C>1300,d11,0)))),1.2)+"\n"+
"\n"+
EncodeColor(colorRed) + " 1st Tgt = "+WriteVal(IIf(C<200 AND C>1 ,j7,IIf(C>201 AND C<300,a7,IIf(C>301 AND C<400 ,b7,IIf(C>401 AND C<500,d7,IIf(C>501 AND C<600,e7,
IIf(C>601 AND C<700,f7,IIf(C>701 AND C<800,g7,IIf(C>801 AND C<900,i7,IIf(C>901 AND C<1000,n7,IIf(C>1001 AND C<1300,a77,IIf(C>1300 AND C<3000,A771,IIf(C>3000,B77,0)))))))))))),1.2)+
EncodeColor(colorYellow) + " 2nd Tgt = "+WriteVal(IIf(C<200 AND C>1 ,j27,IIf(C>201 AND C<300,a27,IIf(C>301 AND C<400 ,b27,IIf(C>401 AND C<500,d27,IIf(C>501 AND C<600,e27,
IIf(C>601 AND C<700,f27,IIf(C>701 AND C<800,g27,IIf(C>801 AND C<900,i27,IIf(C>901 AND C<1000,n27,IIf(C>1001 AND C<1300,a277,IIf(C>1300 AND C<3000,A2771,IIf(C>3000,B277,0)))))))))))),1.2)+
EncodeColor(colorBlue) + " 3rd Tgt = "+WriteVal(IIf(C<200 AND C>1 ,j37,IIf(C>201 AND C<300,a37,IIf(C>301 AND C<400 ,b37,IIf(C>401 AND C<500,d37,IIf(C>501 AND C<600,e37,
IIf(C>601 AND C<700,f37,IIf(C>701 AND C<800,g37,IIf(C>801 AND C<900,i37,IIf(C>901 AND C<1000,n37,IIf(C>1001 AND C<1300,a377,IIf(C>1300 AND C<3000,A3771,IIf(C>3000,B377,0)))))))))))),1.2);
_SECTION_END();
_SECTION_BEGIN("StockManiacs Trendline - www.stockmaniacs.net");
/*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
THIS SECTION DRAWS TD TREND LINES */
percent = 0.01 * 1; /* Adjust this percent as necessary, */
firstpointL = 4;
firstpointH = 4;
y0=LastValue(Trough(L,percent,firstpointL));
y1=LastValue(Trough(Ref(L,-1),percent,1));
for( i = 1; i < BarCount AND y0 >= y1; i++ )
{
firstpointL++;
y0=LastValue(Trough(L,percent,firstpointL));
}
x0=BarCount - 1 - LastValue(TroughBars(L,percent,firstpointL));
x1=BarCount - 1 - LastValue(TroughBars(Ref(L,-1),percent,1));
LineL = LineArray( x0, y0, x1, y1, 1 );
/*
Plot(C, "C", colorBlack, styleCandle);
*/
Plot( LineL, " Support Trend line", colorGreen,4 +8 );
yt0=LastValue(Peak(H,percent,firstpointH));
yt1=LastValue(Peak(Ref(H,-1),percent,1));
for(i = 1; i < BarCount AND yt0 <= yt1; i++ )
{
firstpointH++;
yt0=LastValue(Peak(H,percent,firstpointH));
}
xt0=BarCount - 1 - LastValue(PeakBars(H,percent,firstpointH));
xt1=BarCount - 1 - LastValue(PeakBars(Ref(H,-1),percent,1));
LineH = LineArray( xt0, yt0, xt1, yt1, 1 );
Plot( LineH, "Resistance Trend line", colorRed,4 + 8 );
/*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*/
_SECTION_END();
_SECTION_BEGIN("Magfied Market Price");
//Magfied Market Price
FS=Param("Font Size",30,11,100,1);
GfxSelectFont("Times New Roman", FS, 700, True );
GfxSetBkMode( colorWhite );
GfxSetTextColor( ParamColor("Color",colorYellow) );
Hor=Param("Horizontal Position",800,1,1200,1);
Ver=Param("Vertical Position",12,1,830,1);
GfxTextOut(Date() +"="+C, Hor , Ver );
YC=TimeFrameGetPrice("C",inDaily,-1);
DD=Prec(C-YC,2);
xx=Prec((DD/YC)*100,2);
GfxSelectFont("Times New Roman", 11, 700, True );
GfxSetBkMode( colorBlack );
GfxSetTextColor(ParamColor("Color",colorYellow) );
GfxTextOut(""+DD+" ("+xx+"%)", Hor , Ver+45 );
GfxSetTextAlign( 6 );// center alignment
GfxSetTextColor( colorWhite );
GfxSetBkMode(0); // transparent
GfxTextOut( Name(), Status("pxwidth")/2, Status("pxheight")/15 );
GfxTextOut( "Chart By Rashedbgd", Status("pxwidth")/2, Status("pxheight")/10 );
GfxSelectFont("Tahoma", Status("pxheight")/40 );
_SECTION_END();
_SECTION_BEGIN("Advanced Trend Lines");
function GetXSupport(Lo, Percentage, Back)
{
return ((BarCount - 1) - LastValue(TroughBars(Lo, Percentage,Back)));
}
function GetYSupport(Lo, Percentage, Back)
{
return (LastValue(Trough(Lo, Percentage, back)));
}
function GetXResistance(Hi, Percentage, Back)
{
return ((BarCount - 1) -LastValue(PeakBars(Hi, Percentage, Back)));
}
function GetYResistance(Hi, Percentage, Back)
{
return (LastValue(Peak(Hi, Percentage, Back)));
}
function TD_Supply(P)
{
return ( P > Ref(P, 1) AND P > Ref(P, -1) AND P > Ref(C, -2));
}
function TD_Demand(P)
{
return ( P < Ref(P, 1) AND P < Ref(P, -1) AND P < Ref(C, -2));
}
////////////////////////////////////////////////////////////////////////
//Parameters
Percentage = Param("Percentage", 0.44, 0.01, 100. ,0.01);
DrawAllLines = ParamToggle("Draw All Lines?", "No|Yes");
Lines = Param("Lines?", 1, 1, BarCount-2);
DrawR = ParamList("Resistance Points", "Off|High to High|High to Low", 1);
DrawS = ParamList("Support Points", "Off|Low to Low|Low to High", 1);
ShowTDP = ParamToggle("Show TD Pionts", "No|Yes", 0);
AllOrDownR = ParamToggle("Resistance Direction", "All|Down");
AllOrUpS = ParamToggle("Support Direction", "All|Up");
ShowSR = ParamToggle("Show Vert S/R","No|Yes", 0);
SRPer = Param("S/R Percentage", 3, 1);
SRBack = Param("S/R Back", 5, 1);
str = "";
Res = Sup = 0;
Con = 1;
////////////////////////////////////////////////////////////////////////
Main = C;
Con = ConS = ConR = 1;
if(DrawS=="Low to Low")
{
Support1 = L;
Support2 = L;
}
else
{
Support1 = L;
Support2 = H;
}
if(DrawR=="High to High")
{
Resistance1 = H;
Resistance2 = H;
}
else
{
Resistance1 = H;
Resistance2 = L;
}
////////////////////////////////////////////////////////////////////////
//Plotting Area
Plot(Main, "", IIf(C>O,colorBrightGreen, colorPink), styleCandle);
if(DrawAllLines)
for(i = 2; i<=Lines+1; i++)
{
if(DrawS!="Off")
{
x0 = GetXSupport(Support1, Percentage, i);
x1 = GetXSupport(Support2, Percentage, i-1);
y0 = GetYSupport(Support1, Percentage, i);
y1 = GetYSupport(Support2, Percentage, i-1);
x = LineArray(x0, y0, x1, y1, 1);
if(AllOrUpS) ConS = StrToNum(NumToStr(y0 < y1));
if(Con AND ConS)
Plot(x, "", IIf(LastValue(C) < LastValue(x), colorBlue,colorCustom12), styleLine|styleThick);
}
if(DrawR!="Off")
{
x0 = GetXResistance(Resistance1, Percentage, i);
x1 = GetXResistance(Resistance2, Percentage, i-1);
y0 = GetYResistance(Resistance1, Percentage, i);
y1 = GetYResistance(Resistance2, Percentage, i-1);
x = LineArray(x0, y0, x1, y1, 1);
if(AllOrDownR) ConR = y0 > y1;
if(Con AND ConR)
Plot(x, "", IIf(LastValue(C) < LastValue(x), colorBlue,colorCustom12), styleLine|styleThick);
}
}
else
{
if(DrawS!="Off")
{
x0 = GetXSupport(Support1, Percentage, Lines+1);
x1 = GetXSupport(Support2, Percentage, Lines);
y0 = GetYSupport(Support1, Percentage, Lines+1);
y1 = GetYSupport(Support2, Percentage, Lines);
x = LineArray(x0, y0, x1, y1, 1 );
Sup = LastValue(LinRegSlope(x, Lines+1));
if(AllOrUpS) ConS = y0 < y1;
if(Con AND ConS)
Plot(x, "", IIf(LastValue(C) < LastValue(x), colorBlue,colorCustom12), styleLine|styleThick);
}
if(DrawR!="Off")
{
x0 = GetXResistance(Resistance1, Percentage, Lines+1);
x1 = GetXResistance(Resistance2, Percentage, Lines);
y0 = GetYResistance(Resistance1, Percentage, Lines+1);
y1 = GetYResistance(Resistance2, Percentage, Lines);
x = LineArray(x0, y0, x1, y1, 1 );
Res = LastValue(LinRegSlope(x, Lines+1));
if(AllOrDownR) ConR = y0 > y1;
if(Con AND ConR)
Plot(x, "", IIf(LastValue(C) < LastValue(x), colorBlue,colorCustom12), styleLine|styleThick);
}
str = "\nR Slope=("+Res+"), S Slope=("+Sup+")";
}
if(ShowTDP)
{
PlotShapes(TD_Supply(H)*shapeSmallCircle, colorRed, 0, H, H*.001);
PlotShapes(TD_Demand(L)*shapeSmallCircle, colorGreen, 0, L, -L*.001);
}
if(ShowSR)
{
for(i=1; i<=SRBack; i++)
{
x0 = GetXSupport(L, SRPer, i);
x1 = BarCount-1;
y0 = GetYSupport(L, SRPer, i);
x = LineArray(x0, y0, x1, y0, 0);
Plot(x, "", IIf(LastValue(C) > x, colorDarkGreen, colorDarkRed), styleLine|styleDashed|styleThick);
x0 = GetXResistance(H, SRPer, i);
y0 = GetYResistance(H, SRPer, i);
x = LineArray(x0, y0, x1, y0, 0);
Plot(x, "", IIf(LastValue(C) > x, colorDarkGreen, colorDarkRed), styleLine|styleDashed|styleThick);
}
}
_SECTION_END();