// Downloaded From https://www.WiseStockTrader.com
//Set Variables
barvisible = Status("barvisible");
Leftbar=ValueWhen(Ref(barvisible,-1)==0 AND barvisible,DateTime() );
Rightbar=LastValue(DateTime() );
DateSpan = EndValue(BarIndex()) - BeginValue(BarIndex());
Range = DateSpan ;
StartDate = BeginValue(BarIndex());
EndDate = EndValue(BarIndex());

CC = "CC_" + Name();

KLMua = Prec(Foreign(CC,"V",0),0);
KLBan = Prec(Foreign(CC,"interest",0),0);

//KLMua = OpenInt;
_SECTION_BEGIN("KLMua");
Plot(KLMua,"Khoi luong mua",colorBlue,styleThick);
_SECTION_END() ;

_SECTION_BEGIN("KLBan");
Plot(KLBan,"Khoi luong ban",colorRed,styleThick);
_SECTION_END() ;
//Set Variables
barvisible = Status("barvisible");
FVB = barvisible AND NOT Ref( barvisible, -1 );
CVB = ValueWhen( FVB,C) ;
Leftbar=ValueWhen(Ref(barvisible,-1)==0 AND barvisible,DateTime() );
Rightbar=LastValue(DateTime() );
DateSpan = EndValue(BarIndex()) - BeginValue(BarIndex());
Range = DateSpan ;
StartDate = BeginValue(BarIndex());
EndDate = EndValue(BarIndex());

CC = "CC_" + Name();

SLBan = Foreign(CC,"C",0);
SLMua = Foreign(CC,"O",0);

_SECTION_BEGIN("SLMua");
Plot(SLMua,"So lenh mua", colorBlue,ParamStyle("Style",styleThick));
_SECTION_END();

_SECTION_BEGIN("SLBan");
Plot(SLBan,"So lenh ban", colorRed,ParamStyle("Style", styleThick));
_SECTION_END();
//Set Variables
barvisible = Status("barvisible");
FVB = barvisible AND NOT Ref( barvisible, -1 );
CVB = ValueWhen( FVB,C) ;
Leftbar=ValueWhen(Ref(barvisible,-1)==0 AND barvisible,DateTime() );
Rightbar=LastValue(DateTime() );
DateSpan = EndValue(BarIndex()) - BeginValue(BarIndex());
Range = DateSpan ;
StartDate = BeginValue(BarIndex());
EndDate = EndValue(BarIndex());

CC = "CC_" + Name();

SLBan = Foreign(CC,"C",0);
SLMua = Foreign(CC,"O",0);

KLMua = Prec(Foreign(CC,"V",0),0);
KLBan = Prec(Foreign(CC,"interest",0),0);

TBLenhmua = IIf(SLMua != 0,KLMua/SLMua,0);
TBLenhBan = IIf(SLBan != 0,KLBan/SLBan,0);
TBMuachiaTBBan = IIf(TBLenhBan !=0 , TBLenhmua /TBLenhBan *100,0);

_SECTION_BEGIN("TBLenhmua ");
Plot(TBLenhmua ,"TB lenh mua", colorBlue,ParamStyle("Style",styleThick));
_SECTION_END();

_SECTION_BEGIN("TBLenhban");
Plot(TBLenhban,"TB lenh ban", colorRed,ParamStyle("Style", styleThick));
_SECTION_END();

_SECTION_BEGIN("TBMuachiaTBBan ");
Plot(TBMuachiaTBBan ,"Ti le Mua/Ban (%)", colorGreen,ParamStyle("Style", styleHistogram));
_SECTION_END();
//Set Variables
barvisible = Status("barvisible");
FVB = barvisible AND NOT Ref( barvisible, -1 );
CVB = ValueWhen( FVB,C) ;
Leftbar=ValueWhen(Ref(barvisible,-1)==0 AND barvisible,DateTime() );
Rightbar=LastValue(DateTime() );
DateSpan = EndValue(BarIndex()) - BeginValue(BarIndex());
Range = DateSpan ;
StartDate = BeginValue(BarIndex());
EndDate = EndValue(BarIndex());

NN = "NN_" + Name();

KLBan = Foreign(NN,"C",0);
KLMua = Foreign(NN,"O",0);

_SECTION_BEGIN("KLMua");
Plot(KLMua,"NN mua(KL)", colorBlue,ParamStyle("Style",styleThick));
_SECTION_END();

_SECTION_BEGIN("KLBan");
Plot(KLBan,"NN ban(KL)", colorRed,ParamStyle("Style", styleThick));
_SECTION_END();

_SECTION_BEGIN("FOREIGN TRADING");
Plot( OI, _DEFAULT_NAME(), ParamColor("Color", colorBlueGrey ), ParamStyle( "Style", styleHistogram | styleOwnScale | styleThick, maskHistogram ), 2 );
_SECTION_END();

//Set Variables
barvisible = Status("barvisible");
Leftbar=ValueWhen(Ref(barvisible,-1)==0 AND barvisible,DateTime() );
Rightbar=LastValue(DateTime() );
DateSpan = EndValue(BarIndex()) - BeginValue(BarIndex());
Range = DateSpan ;
StartDate = BeginValue(BarIndex());
EndDate = EndValue(BarIndex());

NN = "NN_" + Name();

GTMua = Prec(Foreign(NN,"V",0),0);
GTBan = Prec(Foreign(NN,"interest",0),0);

//GTMua = OpenInt;
_SECTION_BEGIN("GTMua");
Plot(GTMua,"NN mua (GT)",colorBlue,styleThick);
_SECTION_END() ;

_SECTION_BEGIN("GTBan");
Plot(GTBan,"NN ban (GT)",colorRed,styleThick);
_SECTION_END() ;


//Set Variables
barvisible = Status("barvisible");
FVB = barvisible AND NOT Ref( barvisible, -1 );
CVB = ValueWhen( FVB,C) ;
Leftbar=ValueWhen(Ref(barvisible,-1)==0 AND barvisible,DateTime() );
Rightbar=LastValue(DateTime() );
DateSpan = EndValue(BarIndex()) - BeginValue(BarIndex());
Range = DateSpan ;
StartDate = BeginValue(BarIndex());
EndDate = EndValue(BarIndex());

NN = "NN_" + Name();

KLBan = Foreign(NN,"C",0);
KLMua = Foreign(NN,"O",0);

GTMua = Prec(Foreign(NN,"V",0),0);
GTBan = Prec(Foreign(NN,"interest",0),0);

TBGiaMua = IIf(KLMua != 0,GTMua/KLMua,0);
TBGiaBan = IIf(KLBan != 0,GTBan/KLBan,0);
TBGiaMuaBan = IIf(TBGiaBan !=0 , TBGiaMua /TBGiaBan *100,0);

_SECTION_BEGIN("TBGiaMua ");
Plot(TBGiaMua ,"NN(TBgiamua)", colorBlue,ParamStyle("Style",styleThick));
_SECTION_END();

_SECTION_BEGIN("TBGiaBan");
Plot(TBGiaBan,"NN(TBgiaban", colorRed,ParamStyle("Style", styleThick));
_SECTION_END();

_SECTION_BEGIN("TBGiaMuaBan");
Plot(TBGiaMuaBan,"TileGiaMua/Ban (%)", colorGreen,ParamStyle("Style", styleHistogram));
_SECTION_END();