Jump to content

Welcome to the new Traders Laboratory! Please bear with us as we finish the migration over the next few days. If you find any issues, want to leave feedback, get in touch with us, or offer suggestions please post to the Support forum here.

  • Welcome Guests

    Welcome. You are currently viewing the forum as a guest which does not give you access to all the great features at Traders Laboratory such as interacting with members, access to all forums, downloading attachments, and eligibility to win free giveaways. Registration is fast, simple and absolutely free. Create a FREE Traders Laboratory account here.

BigEd

Marketprofile.eld

Recommended Posts

Your most likely getting an array bound error ... if so

Change the compress input in this manor, increas that input by 1 until the profile is ploted.

 

note: by doing that your telling the indicator to combine X ticks as one tick.

where x = the number of the compress input your using.

 

Or

your using TS costum sessions charts... if so the code as is will not work with costum sessions charts.

 

 

Take care

sep34

 

I am having that same problem as well. I get an a array bound. Wrong index value: 1001 I tried increasing the compress input by one. Yet I didn't get to get it working...as a matter of fact I am using tick-by-tick data thru a mapped ascii file...is it because of that?

 

thanks

Share this post


Link to post
Share on other sites

While this indicator seems to display correclty, can anyone tell me why the arrays start saving data at the 443rd position (according to the TS print window)? I also want to calculate POC - is there an easier way than to dump the extreme position of the tpo array into a new dynamic array and include the appropriate logic to arrive at POC? Thanks.

Share this post


Link to post
Share on other sites

Here is POC function..

 

 

 

vars: PriceBin(.50),

TimeBin(0),

Unit4Accum(0),

TypAccum(0),

BegTime1(0),

BegTime2(0),

BegTime3(0),

DoHoriz(True),

Perc4VA(70),

LineSize(1);

{Begin Comment Out for Signal}

 

vars:

PointRight(True),{If set false then display will point to left }

 

Smooth(00), {Angle adjustment for VA projection--range -2>+2 }

 

BegDate(0);{Date on which to start analysis. 0=All }

{this is used to limit the number of analyses that are }

{made and may be necessary -- particularly in TS7/8... }

{to keep "infinite loop" error from occurring. }

 

 

 

{must replace Vars: with in the word INPUT: here for an indicator}

 

vars:

OnlyLast(true), {Annotate last caclulated values ONLY--AnotHLCP=True also}

 

AnotHLCP(true), {Annotate the VAHigh, VALow, and CP values on chart }

 

OnlyHist(false), {Do not make MP for current day until next day. }

 

DoChan(False), {Draw a channel from VA extremes to next set of extremes }

 

PlotOpen(True); {Plot open of current analysis -- green dotted line }

 

 

Vars: OpenOfDay(0), Is24Hour(Sess1EndTime<=UnionSess1StartTime),

LowBox(0), DateKnt(0), HKnt(0),

ATR21(AvgTrueRange(21)),

Bin4Price(Iff(PriceBin>ATR21/20,ATR21/20,Iff(PriceBin<ATR21/50,ATR21/50,PriceBin))),

LowValue(LowBox*Bin4Price), IPass(0),

Bin4Time(AbsValue(IntPortion(TimeBin))),

ShiftIt((AbsValue(TimeBin)-Bin4Time)*100),

HighValue(H),TotalKnt(0),

HoldBar(CurrentBar), HoldAdd(0), OldHoldBar(0), KeepBar(0);

Vars: TimeBeg1(Iff(BegTime1<25,IntPortion(BegTime1)*100+FracPortion(BegTime1)*60,BegTime1)),

TimeBeg2(Iff(BegTime2<25,IntPortion(BegTime2)*100+FracPortion(BegTime2)*60,BegTime2)),

TimeBeg3(Iff(BegTime3<25,IntPortion(BegTime3)*100+FracPortion(BegTime3)*60,BegTime3));

Vars: VAHigh(0), VALow(0), MaxValue(0), MaxIndex(0), SumValue(0);

Vars: VAHighValue(h), VALowValue(l),VAPivot©,

VAPerc(Iff(Perc4VA>0,Perc4VA/100,.7)),

CurrentMin(TimeToMinutes(time)), EntryP(0);

Vars: VAHighOld(0), VAHighNew(0),

VALowOld(0), VALowNew(0),

VABarOld(0), VABarNew(0),

VADateOld(0), VADateNew(0),

VATimeOld(0), VATimeNew(0),

DnCount(0), UpCount(0), LBOC(FALSE), NewDate(0),

HandlHi(-1), HandlLo(-1), HandlCP(-1),

CanBuy(false),CanSell(false),DoInit(True);

 

{Begin comment out for Indicator

Vars: LossMaxPts(LossMax/BigPointValue),

TakProfPts(TakProf/BigPointValue);

End comment out for Indicator}

 

Vars: ATR21Val(0), MP(0),

StopHH(0), StopLL(0), EnterBar(0),

MaxCont(0), NCont(0), HoldDate(Date-1);

Vars: PDPtrn(0);

 

 

Vars: MaxKnt(15000), Direct(0), DoKnt(0);

Arrays: PriceKnt[15000](0), HoldKnt[15000](0), Handl[15000](0);

 

 

If DoInit then begin

DoInit=False;

Value1=AvgTrueRange(21)/10;

If PriceBin=0 then Bin4Price=Value1

else Bin4Price=PriceBin;

 

LowBox = Round(L/Bin4Price,0);

End;

 

LBOC = LastBarOnChart;

If Date<>Date[1] and TimeBin=0 then NewDate=Date;

 

 

{For system remove I_}

If MP<>MP[1] then begin

EntryP=O;

EnterBar=CurrentBar;

StopHH=H;

StopLL=L;

End;

 

If Date>=BegDate then begin

 

 

 

If (TimeBin>0 and Unit4Accum>0) then begin

Condition1=false;

Condition3=false;

If Unit4Accum=1 then If Date[shiftIt]<>Date[shiftIt+1] then DoKnt=DoKnt+1;

If Unit4Accum=2 then If DayOfWeek(date[shiftIt])<DayOfWeek(Date[shiftIt+1]) then DoKnt=DoKnt+1;

If Unit4Accum=3 then If Month(Date) <>Month(Date[1]) then DoKnt=DoKnt+1;

If Unit4Accum=4 then begin

For Value1 = 0 to 3 begin

Value2=Value1*3+1;

If Month(Date)=Value2 and Month(Date[1])<>Value2 then DoKnt=DoKnt+1;

End;

End;

If Unit4Accum=5 then begin

DoKnt=0;

 

Value0=AbsValue(IntPortion(Direct));

If Sign(Direct)<>Sign(Direct[1]) or LBOC then begin

Condition1=True;

Condition3=Condition1;

If Direct[1]=0 then begin

HoldBar=CurrentBar-Value0;

HoldAdd=HoldBar-OldHoldBar;

End

Else begin

If LBOC and Sign(Direct)=Sign(Direct[1]) then begin

If LBOC[1]=FALSE THEN OldHoldBar=HoldBar;

HoldBar=CurrentBar;

Value0=0;

End

Else begin

OldHoldBar=HoldBar;

HoldBar=CurrentBar-Value0;

End;

 

Value2=Highest(H[Value0],HoldBar-OldHoldBar+1);

Value3=Lowest (L[Value0],HoldBar-OldHoldBar+1);

LowBox =Round(Value3/Bin4Price,0);

TotalKnt=Round(Value2/Bin4Price,0)-LowBox;

LowValue=LowBox*Bin4Price;

HoldAdd=HoldBar-OldHoldBar;

LowBox =0;

While TotalKnt<8 begin

Bin4Price=Bin4Price/2;

LowBox =Round(Value3/Bin4Price,0);

TotalKnt=Round(Value2/Bin4Price,0)-LowBox;

LowValue=LowBox*Bin4Price;

LowBox =0;

End;

For Value1 = LowBox to TotalKnt begin

Value3=Value1 * Bin4Price + LowValue;

PriceKnt[Value1]=0;

For Value4 = CurrentBar-HoldBar to CurrentBar-OldHoldBar+1 begin

If Value3<=H[Value4] and Value3>=L[Value4] then PriceKnt[Value1]=PriceKnt[Value1]+1;

End;

End;

End;

End;

End;

If DoKnt>=TimeBin then begin

Condition1=True;

Condition3=Condition1;

DoKnt=0;

End;

End

Else begin

Condition1=false;

Condition3=false;

If TimeBin>0 then begin

If TimeBeg1=0

then CurrentMin=TimeToMinutes(time)-TimeToMinutes(Sess1FirstBarTime)

else CurrentMin=TimeToMinutes(time)-TimeToMinutes(TimeBeg1);

If CurrentMin<0 then CurrentMin=CurrentMin+TimeToMinutes(2359)+1;

If CurrentMin<0 then CurrentMin=CurrentMin+24*60;

Condition1=Mod(CurrentMin,TimeBin)<Mod(CurrentMin[1],TimeBin);

Condition3=Condition1;

End

Else begin

If TimeBin<0 then begin

If ShiftIt>Bin4Time then ShiftIt=Mod(ShiftIt,Bin4Time);

Condition1=Mod(CurrentBar-ShiftIt,Bin4Time)=0;

Condition3=Condition1;

End

Else begin

If DataCompression>1 then begin

If ShiftIt>13 then ShiftIt=0;

Condition1=Mod(CurrentBar-ShiftIt,13)=0;

Condition3=Condition1;

End

Else Begin

Condition9=(Date<>Date[1] and Is24Hour=False) or (Is24Hour and Time>=Sess1StartTime and Time[1]<=Sess1EndTime);

If TimeBeg1>0 then if Time>=TimeBeg1 and (Time[1]<TimeBeg1 or Condition9) and TimeBin=0 then Condition1=True;

If TimeBeg2>0 then if Time>=TimeBeg2 and Time[1]<TimeBeg2 and TimeBin=0 then Condition1=True;

If TimeBeg3>0 then if Time>=TimeBeg3 and Time[1]<TimeBeg3 and TimeBin=0 then Condition1=True;

If TimeBeg1=0 then if TimeBin=0 and Condition9 or (LBOC and time>=Addtime(Sess1EndTime,-5)) then Condition1=True;

Condition3=Condition1;

End;

End;

End;

End;

If LBOC=True and CurrentBar<>KeepBar and (OnlyHist=False or Time=Sess1EndTime) or TimeBin>9998 then Condition1=True;

 

If Condition1 then begin

 

If Condition1 or CurrentBar=1 then begin

CanBuy=True;

CanSell=True;

DateKnt=DateKnt+1;

If LBOC=False or Condition3 then OpenOfDay=Open;

End;

 

If LBOC=True and LBOC[1]=False and Unit4Accum<>5 then begin

Value3=Round(Low/Bin4Price,0);

If Value3<LowBox and Value3<>0 then begin

Value2=LowBox-Value3;

For Value1= 2000-Value2 downto 0 begin

PriceKnt[Value1+Value2]=PriceKnt[Value1];

PriceKnt[Value1]=0;

End;

LowBox =Value3;

LowValue=LowBox*Bin4Price;

TotalKnt=TotalKnt+Value2;

End;

Value2=Round(Low/Bin4Price,0) -LowBox;

Value3=Round(High/Bin4Price,0) -LowBox;

For Value1=Value2 to Value3 begin

PriceKnt[Value1]=PriceKnt[Value1]+1;

End;

If Value3>TotalKnt then TotalKnt=Value3;

End;

 

If TotalKnt>1 and DateKnt>1 then begin

MaxValue=-99999;

SumValue=0;

{Find the max value and sum up the price occupancies}

Value99=0;

For Value1=0 to TotalKnt begin

Value4=PriceKnt[Value1];

If Value4>0 then Value99=Value1;

SumValue=SumValue+Value4;

If Value4>=MaxValue then begin

MaxIndex=Value1;

MaxValue=Value4;

End;

End;

{Find all alike and setup CP at middle}

Value2=0;

For Value1=0 to TotalKnt begin

If PriceKnt[Value1]=MaxValue then Value2=Value2+1;

End;

If Value2>1 then MaxIndex=MaxIndex-IntPortion(Value2/2);

 

{Now find the Value Area (70% of total counts)}

VAHigh=MaxIndex;

VALow =MaxIndex;

Value9=PriceKnt[MaxIndex];

Value10=0;

While Value9<=IntPortion(SumValue*VAPerc) begin

Value10=Value10+1;

If MaxIndex-Value10>=0 and Value9<=IntPortion(SumValue*VAPerc) then begin

VALow =MaxIndex-Value10;

Value9=Value9+PriceKnt[VALow];

End;

If Value10+MaxIndex<=Value99 and Value9<=IntPortion(SumValue*VAPerc) then begin

VAHigh=MaxIndex+Value10;

Value9=Value9+PriceKnt[VAHigh];

End;

End;

 

VAHighValue=LowValue+VAHigh *Bin4Price;

VALowValue =LowValue+VALow *Bin4Price;

VAPivot =LowValue+MaxIndex*Bin4Price;

Value1=0;

VAHighOld=VAHighNew; VAHighNew=VAHighValue[Value1];

VALowOld=VALowNew; VALowNew=VALowValue[Value1];

VADateOld=VADateNew; VADateNew=Date[Value1];

VATimeOld=VATimeNew; VATimeNew=Time[Value1];

VABarOld=VABarNew; VABarNew=CurrentBar;

 

If TotalKnt>0 then PDPtrn=MaxIndex/TotalKnt

else PDPtrn=0;

PDPtrn=Round(PDPtrn*4,0);

 

If DateKnt>2 then begin

 

Value2=LowValue;

If PointRight then Value6=CurrentBar-HoldBar+HoldAdd

else Value6=HoldAdd;

 

{Now plot the data and highlight VA}

If DateKnt>3 then begin

 

If LBOC then begin

for Value1=0 to TotalKnt begin

If Handl[Value1]<>0 then begin

TL_Delete(Handl[Value1]);

Handl[Value1]=0;

End;

End;

End;

 

 

HKnt=0;

For Value1=0 to TotalKnt begin

Value4=PriceKnt[Value1];

If PointRight then If HoldBar-HoldAdd+Value4>CurrentBar then Value4=Value6;

If Value4>0 and Value5<MaxKnt then begin

If DoHoriz then begin

{Value2=(LowBox+Value1)*Bin4Price;}

If PointRight

Then Value5=TL_New(date[Value6],time[Value6],Value2,date[Value6-Value4],time[Value6-Value4],Value2)

Else Value5=TL_New(date[Value6],time[Value6],Value2,date[Value6+Value4],time[Value6+Value4],Value2);

Value7=Blue;

If LBOC then Handl[Value1]=Value5;

If Value1<VALow then value7=red;

If Value1>VAHigh then value7=yellow;

If Value1=MaxIndex then value7=Red;

Value7=TL_SetAll(Value5, Value7, LineSize, 3, False, false);

End;

If AnotHLCP then begin

If (OnlyLast and LBOC) or (OnlyLast=False) or (OnlyHIst) then begin

If PointRight then Value30=-Value4 else Value30=0;

If Value1=VALow then begin

If HandlLo>=0 then Text_Delete(HandlLo);

HandlLo=Text_New(date[Value6+Value30],time[Value6+Value30],Value2,NumToStr(Value2,2));

Text_SetStyle(HandlLo,0,2);

End;

If Value1=VAHigh then begin

If HandlHi>=0 then Text_Delete(HandlHi);

HandlHi=Text_New(date[Value6+Value30],time[Value6+Value30],Value2,NumToStr(Value2,2));

Text_SetStyle(HandlHi,0,2);

End;

If Value1=MaxIndex then begin

If HandlCP>=0 then Text_Delete(HandlCP);

HandlCP=Text_New(date[Value6+Value30],time[Value6+Value30],Value2,NumToStr(Value2,2)+"--"+NumToStr(PDPtrn,0));

Text_SetStyle(HandlCP,0,2);

End;

End;

End;

End;

Value2=Value2+Bin4Price;

End;

 

If DoChan and Value5<4500 then begin

Value3=TL_NEW(VADateOld,VATimeOld,VAHighOld,VADateNew,VATimeNew,VAHighNew);

Value4=TL_NEW(VADateOld,VATimeOld,VALowOld, VADateNew,VATimeNew,VALowNew);

Value7=TL_SetAll(Value3, blue, LineSize, 3, False, false);

Value7=TL_SetAll(Value4, red , LineSize, 3, False, false);

End;

End;

 

 

Condition5=True;

If TimeBin<>0 then begin

If (TypAccum>210000 and Date[1]=TypAccum) then Condition5=False;

If (TypAccum=-2 and Date[1]=CurrentDate) then Condition5=False;

If (TypAccum=-1 and Time<>Sess1StartTime+BarInterval) then Condition5=False;

End;

If LBOC=False then begin

If Condition5 then begin

For Value1=0 to 2000 begin

PriceKnt[Value1]=0;

End;

TotalKnt=0;

LowBox =Round(Low/Bin4Price,0);

LowValue=LowBox*Bin4Price;

End;

If Unit4Accum<>5 then HoldBar =CurrentBar;

IPASS=Time;

End;

End;

End;

If LBOC then KeepBar=CurrentBar;

End;

 

If DateKnt>1 then begin

 

If DateKnt>3 and VAHighValue<>0 and VALowValue<>0 then begin

 

If Smooth=0 then begin

Value17=VAHighNew;

Value18=VALowNew;

End

Else begin

If Condition1 then begin

Value15=(VAHighNew-VAHighOld+VALowNew-VALowOld)*0.5/(VABarNew-VABarOld);

Value19=.5/(VABarNew-VABarOld);

End;

Value14=(CurrentBar-VABarNew);

Value16=Value15*Value14*Smooth*(1-Value14*Value19);

Value17=VAHighNew+Value16;

Value18=VALowNew +Value16;

End;

 

 

{Remove right brace for SIGNAL -- add for INDICATOR}

If LBOC then begin

Value2=-MaxBarsForward;

Value3=-1;

{If KeepBar=0 then OpenOfDay=C;}

If Smooth=0 then begin

 

 

End;

End

else begin

Value27=Value17;

Value28=Value18;

Value29=VAPivot;

Value2=0;

Value3=0;

If Unit4Accum=5 then Value3=Value6;

End;

 

 

 

End;

If HandlHi>-1 then begin

Text_SetLocation(HandlHi,Date,Time,Value17);

Text_SetLocation(HandlCP,Date,Time,VAPivot{Value29});

Text_SetLocation(HandlLo,Date,Time,Value18);

End;

 

End;

 

End;

 

 

 

If Condition3 and (OnlyLast=False) then begin

HandlHi=(-1); HandlLo=(-1); HandlCP=(-1);

End;

 

If DateKnt>1 and (LBOC=False or LBOC[1]=True) then begin

Value3=Round(Low/Bin4Price,0);

If Value3<LowBox and Value3<>0 then begin

Value2=LowBox-Value3;

For Value1= 2000-Value2 downto 0 begin

PriceKnt[Value1+Value2]=PriceKnt[Value1];

PriceKnt[Value1]=0;

End;

LowBox =Value3;

LowValue=LowBox*Bin4Price;

TotalKnt=TotalKnt+Value2;

End;

Value2=Round(Low/Bin4Price,0) -LowBox;

Value3=Round(High/Bin4Price,0) -LowBox;

For Value1=Value2 to Value3 begin

PriceKnt[Value1]=PriceKnt[Value1]+1;

End;

If Value3>TotalKnt then TotalKnt=Value3;

End;

 

 

 

{end date loop}

 

 

 

 

poc=vapivot;

 

 

 

 

 

 

 

 

 

 

 

Share this post


Link to post
Share on other sites
vars: PriceBin(.50),
TimeBin(0),
Unit4Accum(0),
TypAccum(0),
BegTime1(0),
BegTime2(0),
BegTime3(0),
DoHoriz(True),
Perc4VA(70),
LineSize(1);
{Begin Comment Out for Signal}

vars:
PointRight(True),{If set false then display will point to left }

Smooth(00), {Angle adjustment for VA projection--range -2>+2 }

BegDate(0);{Date on which to start analysis. 0=All }
{this is used to limit the number of analyses that are }
{made and may be necessary -- particularly in TS7/8... }
{to keep "infinite loop" error from occurring. }



{must replace Vars: with in the word INPUT: here for an indicator}

vars:
OnlyLast(true), {Annotate last caclulated values ONLY--AnotHLCP=True also}

AnotHLCP(true), {Annotate the VAHigh, VALow, and CP values on chart }

OnlyHist(false), {Do not make MP for current day until next day. }

DoChan(False), {Draw a channel from VA extremes to next set of extremes }

PlotOpen(True); {Plot open of current analysis -- green dotted line }


Vars: OpenOfDay(0), Is24Hour(Sess1EndTime<=Un ionSess1StartTime),
LowBox(0), DateKnt(0), HKnt(0),
ATR21(AvgTrueRange(21)),
Bin4Price(Iff(PriceBin>AT R21/20,ATR21/20,Iff(PriceBin<ATR21/50,ATR21/50,PriceBin))),
LowValue(LowBox*Bin4Price ), IPass(0),
Bin4Time(AbsValue(IntPort ion(TimeBin))),
ShiftIt((AbsValue(TimeBin )-Bin4Time)*100),
HighValue(H),TotalKnt(0),
HoldBar(CurrentBar), HoldAdd(0), OldHoldBar(0), KeepBar(0);
Vars: TimeBeg1(Iff(BegTime1<25, IntPortion(BegTime1)*100+ FracPortion(BegTime1)*60, BegTime1)),
TimeBeg2(Iff(BegTime2<25, IntPortion(BegTime2)*100+ FracPortion(BegTime2)*60, BegTime2)),
TimeBeg3(Iff(BegTime3<25, IntPortion(BegTime3)*100+ FracPortion(BegTime3)*60, BegTime3));
Vars: VAHigh(0), VALow(0), MaxValue(0), MaxIndex(0), SumValue(0);
Vars: VAHighValue(h), VALowValue(l),VAPivot(c),
VAPerc(Iff(Perc4VA>0,Perc 4VA/100,.7)),
CurrentMin(TimeToMinutes( time)), EntryP(0);
Vars: VAHighOld(0), VAHighNew(0),
VALowOld(0), VALowNew(0),
VABarOld(0), VABarNew(0),
VADateOld(0), VADateNew(0),
VATimeOld(0), VATimeNew(0),
DnCount(0), UpCount(0), LBOC(FALSE), NewDate(0),
HandlHi(-1), HandlLo(-1), HandlCP(-1),
CanBuy(false),CanSell(fal se),DoInit(True);

{Begin comment out for Indicator
Vars: LossMaxPts(LossMax/BigPointValue),
TakProfPts(TakProf/BigPointValue);
End comment out for Indicator}

Vars: ATR21Val(0), MP(0),
StopHH(0), StopLL(0), EnterBar(0),
MaxCont(0), NCont(0), HoldDate(Date-1);
Vars: PDPtrn(0);


Vars: MaxKnt(15000), Direct(0), DoKnt(0);
Arrays: PriceKnt[15000](0), HoldKnt[15000](0), Handl[15000](0);


If DoInit then begin
DoInit=False;
Value1=AvgTrueRange(21)/10;
If PriceBin=0 then Bin4Price=Value1
else Bin4Price=PriceBin;

LowBox = Round(L/Bin4Price,0);
End;

LBOC = LastBarOnChart;
If Date<>Date[1] and TimeBin=0 then NewDate=Date;


{For system remove I_}
If MP<>MP[1] then begin
EntryP=O;
EnterBar=CurrentBar;
StopHH=H;
StopLL=L;
End;

If Date>=BegDate then begin



If (TimeBin>0 and Unit4Accum>0) then begin
Condition1=false;
Condition3=false;
If Unit4Accum=1 then If Date[shiftIt]<>Date[shiftIt+1] then DoKnt=DoKnt+1;
If Unit4Accum=2 then If DayOfWeek(date[shiftIt])<DayOfWeek(Date[shiftIt+1]) then DoKnt=DoKnt+1;
If Unit4Accum=3 then If Month(Date) <>Month(Date[1]) then DoKnt=DoKnt+1;
If Unit4Accum=4 then begin
For Value1 = 0 to 3 begin
Value2=Value1*3+1;
If Month(Date)=Value2 and Month(Date[1])<>Value2 then DoKnt=DoKnt+1;
End;
End;
If Unit4Accum=5 then begin
DoKnt=0;

Value0=AbsValue(IntPortio n(Direct));
If Sign(Direct)<>Sign(Direct[1]) or LBOC then begin
Condition1=True;
Condition3=Condition1;
If Direct[1]=0 then begin
HoldBar=CurrentBar-Value0;
HoldAdd=HoldBar-OldHoldBar;
End
Else begin
If LBOC and Sign(Direct)=Sign(Direct[1]) then begin
If LBOC[1]=FALSE THEN OldHoldBar=HoldBar;
HoldBar=CurrentBar;
Value0=0;
End
Else begin
OldHoldBar=HoldBar;
HoldBar=CurrentBar-Value0;
End;

Value2=Highest(H[Value0],HoldBar-OldHoldBar+1);
Value3=Lowest (L[Value0],HoldBar-OldHoldBar+1);
LowBox =Round(Value3/Bin4Price,0);
TotalKnt=Round(Value2/Bin4Price,0)-LowBox;
LowValue=LowBox*Bin4Price ;
HoldAdd=HoldBar-OldHoldBar;
LowBox =0;
While TotalKnt<8 begin
Bin4Price=Bin4Price/2;
LowBox =Round(Value3/Bin4Price,0);
TotalKnt=Round(Value2/Bin4Price,0)-LowBox;
LowValue=LowBox*Bin4Price ;
LowBox =0;
End;
For Value1 = LowBox to TotalKnt begin
Value3=Value1 * Bin4Price + LowValue;
PriceKnt[Value1]=0;
For Value4 = CurrentBar-HoldBar to CurrentBar-OldHoldBar+1 begin
If Value3<=H[Value4] and Value3>=L[Value4] then PriceKnt[Value1]=PriceKnt[Value1]+1;
End;
End;
End;
End;
End;
If DoKnt>=TimeBin then begin
Condition1=True;
Condition3=Condition1;
DoKnt=0;
End;
End
Else begin
Condition1=false;
Condition3=false;
If TimeBin>0 then begin
If TimeBeg1=0
then CurrentMin=TimeToMinutes( time)-TimeToMinutes(Sess1FirstB arTime)
else CurrentMin=TimeToMinutes( time)-TimeToMinutes(TimeBeg1);
If CurrentMin<0 then CurrentMin=CurrentMin+Tim eToMinutes(2359)+1;
If CurrentMin<0 then CurrentMin=CurrentMin+24* 60;
Condition1=Mod(CurrentMin ,TimeBin)<Mod(CurrentMin[1],TimeBin);
Condition3=Condition1;
End
Else begin
If TimeBin<0 then begin
If ShiftIt>Bin4Time then ShiftIt=Mod(ShiftIt,Bin4T ime);
Condition1=Mod(CurrentBar-ShiftIt,Bin4Time)=0;
Condition3=Condition1;
End
Else begin
If DataCompression>1 then begin
If ShiftIt>13 then ShiftIt=0;
Condition1=Mod(CurrentBar-ShiftIt,13)=0;
Condition3=Condition1;
End
Else Begin
Condition9=(Date<>Date[1] and Is24Hour=False) or (Is24Hour and Time>=Sess1StartTime and Time[1]<=Sess1EndTime);
If TimeBeg1>0 then if Time>=TimeBeg1 and (Time[1]<TimeBeg1 or Condition9) and TimeBin=0 then Condition1=True;
If TimeBeg2>0 then if Time>=TimeBeg2 and Time[1]<TimeBeg2 and TimeBin=0 then Condition1=True;
If TimeBeg3>0 then if Time>=TimeBeg3 and Time[1]<TimeBeg3 and TimeBin=0 then Condition1=True;
If TimeBeg1=0 then if TimeBin=0 and Condition9 or (LBOC and time>=Addtime(Sess1EndTim e,-5)) then Condition1=True;
Condition3=Condition1;
End;
End;
End;
End;
If LBOC=True and CurrentBar<>KeepBar and (OnlyHist=False or Time=Sess1EndTime) or TimeBin>9998 then Condition1=True;

If Condition1 then begin

If Condition1 or CurrentBar=1 then begin
CanBuy=True;
CanSell=True;
DateKnt=DateKnt+1;
If LBOC=False or Condition3 then OpenOfDay=Open;
End;

If LBOC=True and LBOC[1]=False and Unit4Accum<>5 then begin
Value3=Round(Low/Bin4Price,0);
If Value3<LowBox and Value3<>0 then begin
Value2=LowBox-Value3;
For Value1= 2000-Value2 downto 0 begin
PriceKnt[Value1+Value2]=PriceKnt[Value1];
PriceKnt[Value1]=0;
End;
LowBox =Value3;
LowValue=LowBox*Bin4Price ;
TotalKnt=TotalKnt+Value2;
End;
Value2=Round(Low/Bin4Price,0) -LowBox;
Value3=Round(High/Bin4Price,0) -LowBox;
For Value1=Value2 to Value3 begin
PriceKnt[Value1]=PriceKnt[Value1]+1;
End;
If Value3>TotalKnt then TotalKnt=Value3;
End;

If TotalKnt>1 and DateKnt>1 then begin
MaxValue=-99999;
SumValue=0;
{Find the max value and sum up the price occupancies}
Value99=0;
For Value1=0 to TotalKnt begin
Value4=PriceKnt[Value1];
If Value4>0 then Value99=Value1;
SumValue=SumValue+Value4;
If Value4>=MaxValue then begin
MaxIndex=Value1;
MaxValue=Value4;
End;
End;
{Find all alike and setup CP at middle}
Value2=0;
For Value1=0 to TotalKnt begin
If PriceKnt[Value1]=MaxValue then Value2=Value2+1;
End;
If Value2>1 then MaxIndex=MaxIndex-IntPortion(Value2/2);

{Now find the Value Area (70% of total counts)}
VAHigh=MaxIndex;
VALow =MaxIndex;
Value9=PriceKnt[MaxIndex];
Value10=0;
While Value9<=IntPortion(SumVal ue*VAPerc) begin
Value10=Value10+1;
If MaxIndex-Value10>=0 and Value9<=IntPortion(SumVal ue*VAPerc) then begin
VALow =MaxIndex-Value10;
Value9=Value9+PriceKnt[VALow];
End;
If Value10+MaxIndex<=Value99 and Value9<=IntPortion(SumVal ue*VAPerc) then begin
VAHigh=MaxIndex+Value10;
Value9=Value9+PriceKnt[VAHigh];
End;
End;

VAHighValue=LowValue+VAHi gh *Bin4Price;
VALowValue =LowValue+VALow *Bin4Price;
VAPivot =LowValue+MaxIndex*Bin4Pr ice;
Value1=0;
VAHighOld=VAHighNew; VAHighNew=VAHighValue[Value1];
VALowOld=VALowNew; VALowNew=VALowValue[Value1];
VADateOld=VADateNew; VADateNew=Date[Value1];
VATimeOld=VATimeNew; VATimeNew=Time[Value1];
VABarOld=VABarNew; VABarNew=CurrentBar;

If TotalKnt>0 then PDPtrn=MaxIndex/TotalKnt
else PDPtrn=0;
PDPtrn=Round(PDPtrn*4,0);

If DateKnt>2 then begin

Value2=LowValue;
If PointRight then Value6=CurrentBar-HoldBar+HoldAdd
else Value6=HoldAdd;

{Now plot the data and highlight VA}
If DateKnt>3 then begin

If LBOC then begin
for Value1=0 to TotalKnt begin
If Handl[Value1]<>0 then begin
TL_Delete(Handl[Value1]);
Handl[Value1]=0;
End;
End;
End;


HKnt=0;
For Value1=0 to TotalKnt begin
Value4=PriceKnt[Value1];
If PointRight then If HoldBar-HoldAdd+Value4>CurrentBar then Value4=Value6;
If Value4>0 and Value5<MaxKnt then begin
If DoHoriz then begin
{Value2=(LowBox+Value1)*B in4Price;}
If PointRight
Then Value5=TL_New(date[Value6],time[Value6],Value2,date[Value6-Value4],time[Value6-Value4],Value2)
Else Value5=TL_New(date[Value6],time[Value6],Value2,date[Value6+Value4],time[Value6+Value4],Value2);
Value7=Blue;
If LBOC then Handl[Value1]=Value5;
If Value1<VALow then value7=red;
If Value1>VAHigh then value7=yellow;
If Value1=MaxIndex then value7=Red;
Value7=TL_SetAll(Value5, Value7, LineSize, 3, False, false);
End;
If AnotHLCP then begin
If (OnlyLast and LBOC) or (OnlyLast=False) or (OnlyHIst) then begin
If PointRight then Value30=-Value4 else Value30=0;
If Value1=VALow then begin
If HandlLo>=0 then Text_Delete(HandlLo);
HandlLo=Text_New(date[Value6+Value30],time[Value6+Value30],Value2,NumToStr(Value2,2 ));
Text_SetStyle(HandlLo,0,2 );
End;
If Value1=VAHigh then begin
If HandlHi>=0 then Text_Delete(HandlHi);
HandlHi=Text_New(date[Value6+Value30],time[Value6+Value30],Value2,NumToStr(Value2,2 ));
Text_SetStyle(HandlHi,0,2 );
End;
If Value1=MaxIndex then begin
If HandlCP>=0 then Text_Delete(HandlCP);
HandlCP=Text_New(date[Value6+Value30],time[Value6+Value30],Value2,NumToStr(Value2,2 )+"--"+NumToStr(PDPtrn,0)) ;
Text_SetStyle(HandlCP,0,2 );
End;
End;
End;
End;
Value2=Value2+Bin4Price;
End;

If DoChan and Value5<4500 then begin
Value3=TL_NEW(VADateOld,V ATimeOld,VAHighOld,VADate New,VATimeNew,VAHighNew);
Value4=TL_NEW(VADateOld,V ATimeOld,VALowOld, VADateNew,VATimeNew,VALow New);
Value7=TL_SetAll(Value3, blue, LineSize, 3, False, false);
Value7=TL_SetAll(Value4, red , LineSize, 3, False, false);
End;
End;


Condition5=True;
If TimeBin<>0 then begin
If (TypAccum>210000 and Date[1]=TypAccum) then Condition5=False;
If (TypAccum=-2 and Date[1]=CurrentDate) then Condition5=False;
If (TypAccum=-1 and Time<>Sess1StartTime+BarI nterval) then Condition5=False;
End;
If LBOC=False then begin
If Condition5 then begin
For Value1=0 to 2000 begin
PriceKnt[Value1]=0;
End;
TotalKnt=0;
LowBox =Round(Low/Bin4Price,0);
LowValue=LowBox*Bin4Price ;
End;
If Unit4Accum<>5 then HoldBar =CurrentBar;
IPASS=Time;
End;
End;
End;
If LBOC then KeepBar=CurrentBar;
End;

If DateKnt>1 then begin

If DateKnt>3 and VAHighValue<>0 and VALowValue<>0 then begin

If Smooth=0 then begin
Value17=VAHighNew;
Value18=VALowNew;
End
Else begin
If Condition1 then begin
Value15=(VAHighNew-VAHighOld+VALowNew-VALowOld)*0.5/(VABarNew-VABarOld);
Value19=.5/(VABarNew-VABarOld);
End;
Value14=(CurrentBar-VABarNew);
Value16=Value15*Value14*S mooth*(1-Value14*Value19);
Value17=VAHighNew+Value16 ;
Value18=VALowNew +Value16;
End;


{Remove right brace for SIGNAL -- add for INDICATOR}
If LBOC then begin
Value2=-MaxBarsForward;
Value3=-1;
{If KeepBar=0 then OpenOfDay=C;}
If Smooth=0 then begin


End;
End
else begin
Value27=Value17;
Value28=Value18;
Value29=VAPivot;
Value2=0;
Value3=0;
If Unit4Accum=5 then Value3=Value6;
End;



End;
If HandlHi>-1 then begin
Text_SetLocation(HandlHi, Date,Time,Value17);
Text_SetLocation(HandlCP, Date,Time,VAPivot{Value29 });
Text_SetLocation(HandlLo, Date,Time,Value18);
End;

End;

End;



If Condition3 and (OnlyLast=False) then begin
HandlHi=(-1); HandlLo=(-1); HandlCP=(-1);
End;

If DateKnt>1 and (LBOC=False or LBOC[1]=True) then begin
Value3=Round(Low/Bin4Price,0);
If Value3<LowBox and Value3<>0 then begin
Value2=LowBox-Value3;
For Value1= 2000-Value2 downto 0 begin
PriceKnt[Value1+Value2]=PriceKnt[Value1];
PriceKnt[Value1]=0;
End;
LowBox =Value3;
LowValue=LowBox*Bin4Price ;
TotalKnt=TotalKnt+Value2;
End;
Value2=Round(Low/Bin4Price,0) -LowBox;
Value3=Round(High/Bin4Price,0) -LowBox;
For Value1=Value2 to Value3 begin
PriceKnt[Value1]=PriceKnt[Value1]+1;
End;
If Value3>TotalKnt then TotalKnt=Value3;
End;



{end date loop}




poc=vapivot;

Share this post


Link to post
Share on other sites

Nice Code - too complicated for my small brain.:)

I do not understand your TL_SetAll. Is it a function or is it used in MC?

Without there is something important missing ,I believe.

 

Regs

Jojo

Share this post


Link to post
Share on other sites

Hi, alex_laxya

this is great stuff, too bad will not work without the two missing functions:

 

poc and TL_SetAll

 

any chance you may post those as well?

That would be wonderful :))))

 

If not thank you anyway will try to build them myself although I am not sure what TL_SetAll is supposed to do :(

 

IO

Share this post


Link to post
Share on other sites

I have fixed many syntex errors except the two things:

 

AddTime( )

TL_SetAll( )

 

It seems that there are functions, or reserved word not recognized by current version of TS 9.1

 

 

vars: PriceBin(.50),
TimeBin(0),
Unit4Accum(0),
TypAccum(0),
BegTime1(0),
BegTime2(0),
BegTime3(0),
DoHoriz(True),
Perc4VA(70),
LineSize(1);
{Begin Comment Out for Signal}

vars:
PointRight(True),{If set false then display will point to left }

Smooth(00), {Angle adjustment for VA projection--range -2>+2 }

BegDate(0);{Date on which to start analysis. 0=All }
{this is used to limit the number of analyses that are }
{made and may be necessary -- particularly in TS7/8... }
{to keep "infinite loop" error from occurring. }



{must replace Vars: with in the word INPUT: here for an indicator}

vars:
OnlyLast(true), {Annotate last caclulated values ONLY--AnotHLCP=True also}

AnotHLCP(true), {Annotate the VAHigh, VALow, and CP values on chart }

OnlyHist(false), {Do not make MP for current day until next day. }

DoChan(False), {Draw a channel from VA extremes to next set of extremes }

PlotOpen(True); {Plot open of current analysis -- green dotted line }


Vars: OpenOfDay(0), Is24Hour(Sess1EndTime<=UnionSess1StartTime),
LowBox(0), DateKnt(0), HKnt(0),
ATR21(AvgTrueRange(21)),
Bin4Price(Iff(PriceBin>ATR21/20,ATR21/20,Iff(PriceBin<ATR21/50,ATR21/50,PriceBin))),
LowValue(LowBox*Bin4Price ), IPass(0),
Bin4Time(AbsValue(IntPortion(TimeBin))),
ShiftIt((AbsValue(TimeBin )-Bin4Time)*100),
HighValue(H),TotalKnt(0),
HoldBar(CurrentBar), HoldAdd(0), OldHoldBar(0), KeepBar(0);
Vars: TimeBeg1(Iff(BegTime1<25, IntPortion(BegTime1)*100+ FracPortion(BegTime1)*60, BegTime1)),
TimeBeg2(Iff(BegTime2<25, IntPortion(BegTime2)*100+ FracPortion(BegTime2)*60, BegTime2)),
TimeBeg3(Iff(BegTime3<25, IntPortion(BegTime3)*100+ FracPortion(BegTime3)*60, BegTime3));
Vars: VAHigh(0), VALow(0), MaxValue(0), MaxIndex(0), SumValue(0);
Vars: VAHighValue(h), VALowValue(l),VAPivot(c),
VAPerc(Iff(Perc4VA>0,Perc4VA/100,.7)),
CurrentMin(TimeToMinutes( time)), EntryP(0);
Vars: VAHighOld(0), VAHighNew(0),
VALowOld(0), VALowNew(0),
VABarOld(0), VABarNew(0),
VADateOld(0), VADateNew(0),
VATimeOld(0), VATimeNew(0),
DnCount(0), UpCount(0), LBOC(FALSE), NewDate(0),
HandlHi(-1), HandlLo(-1), HandlCP(-1),
CanBuy(false),CanSell(false),DoInit(True);

{Begin comment out for Indicator
Vars: LossMaxPts(LossMax/BigPointValue),
TakProfPts(TakProf/BigPointValue);
End comment out for Indicator}

Vars: ATR21Val(0), MP(0),
StopHH(0), StopLL(0), EnterBar(0),
MaxCont(0), NCont(0), HoldDate(Date-1);
Vars: PDPtrn(0);


Vars: MaxKnt(15000), Direct(0), DoKnt(0);
Arrays: PriceKnt[15000](0), HoldKnt[15000](0), Handl[15000](0);


If DoInit then begin
DoInit=False;
Value1=AvgTrueRange(21)/10;
If PriceBin=0 then Bin4Price=Value1
else Bin4Price=PriceBin;

LowBox = Round(L/Bin4Price,0);
End;

LBOC = LastBarOnChart;
If Date<>Date[1] and TimeBin=0 then NewDate=Date;


{For system remove I_}
If MP<>MP[1] then begin
EntryP=O;
EnterBar=CurrentBar;
StopHH=H;
StopLL=L;
End;

If Date>=BegDate then begin



If (TimeBin>0 and Unit4Accum>0) then begin
Condition1=false;
Condition3=false;
If Unit4Accum=1 then If Date[shiftIt]<>Date[shiftIt+1] then DoKnt=DoKnt+1;
If Unit4Accum=2 then If DayOfWeek(date[shiftIt])<DayOfWeek(Date[shiftIt+1]) then DoKnt=DoKnt+1;
If Unit4Accum=3 then If Month(Date) <>Month(Date[1]) then DoKnt=DoKnt+1;
If Unit4Accum=4 then begin
For Value1 = 0 to 3 begin
Value2=Value1*3+1;
If Month(Date)=Value2 and Month(Date[1])<>Value2 then DoKnt=DoKnt+1;
End;
End;
If Unit4Accum=5 then begin
DoKnt=0;

Value0=AbsValue(IntPortion(Direct));
If Sign(Direct)<>Sign(Direct[1]) or LBOC then begin
Condition1=True;
Condition3=Condition1;
If Direct[1]=0 then begin
HoldBar=CurrentBar-Value0;
HoldAdd=HoldBar-OldHoldBar;
End
Else begin
If LBOC and Sign(Direct)=Sign(Direct[1]) then begin
If LBOC[1]=FALSE THEN OldHoldBar=HoldBar;
HoldBar=CurrentBar;
Value0=0;
End
Else begin
OldHoldBar=HoldBar;
HoldBar=CurrentBar-Value0;
End;

Value2=Highest(H[Value0],HoldBar-OldHoldBar+1);
Value3=Lowest (L[Value0],HoldBar-OldHoldBar+1);
LowBox =Round(Value3/Bin4Price,0);
TotalKnt=Round(Value2/Bin4Price,0)-LowBox;
LowValue=LowBox*Bin4Price ;
HoldAdd=HoldBar-OldHoldBar;
LowBox =0;
While TotalKnt<8 begin
Bin4Price=Bin4Price/2;
LowBox =Round(Value3/Bin4Price,0);
TotalKnt=Round(Value2/Bin4Price,0)-LowBox;
LowValue=LowBox*Bin4Price ;
LowBox =0;
End;
For Value1 = LowBox to TotalKnt begin
Value3=Value1 * Bin4Price + LowValue;
PriceKnt[Value1]=0;
For Value4 = CurrentBar-HoldBar to CurrentBar-OldHoldBar+1 begin
If Value3<=H[Value4] and Value3>=L[Value4] then PriceKnt[Value1]=PriceKnt[Value1]+1;
End;
End;
End;
End;
End;
If DoKnt>=TimeBin then begin
Condition1=True;
Condition3=Condition1;
DoKnt=0;
End;
End
Else begin
Condition1=false;
Condition3=false;
If TimeBin>0 then begin
If TimeBeg1=0
then CurrentMin=TimeToMinutes( time)-TimeToMinutes(Sess1FirstBarTime)
else CurrentMin=TimeToMinutes( time)-TimeToMinutes(TimeBeg1);
If CurrentMin<0 then CurrentMin=CurrentMin+TimeToMinutes(2359)+1;
If CurrentMin<0 then CurrentMin=CurrentMin+24* 60;
Condition1=Mod(CurrentMin ,TimeBin)<Mod(CurrentMin[1],TimeBin);
Condition3=Condition1;
End
Else begin
If TimeBin<0 then begin
If ShiftIt>Bin4Time then ShiftIt=Mod(ShiftIt,Bin4Time);
Condition1=Mod(CurrentBar-ShiftIt,Bin4Time)=0;
Condition3=Condition1;
End
Else begin
If DataCompression>1 then begin
If ShiftIt>13 then ShiftIt=0;
Condition1=Mod(CurrentBar-ShiftIt,13)=0;
Condition3=Condition1;
End
Else Begin
Condition9=(Date<>Date[1] and Is24Hour=False) or (Is24Hour and Time>=Sess1StartTime and Time[1]<=Sess1EndTime);
If TimeBeg1>0 then if Time>=TimeBeg1 and (Time[1]<TimeBeg1 or Condition9) and TimeBin=0 then Condition1=True;
If TimeBeg2>0 then if Time>=TimeBeg2 and Time[1]<TimeBeg2 and TimeBin=0 then Condition1=True;
If TimeBeg3>0 then if Time>=TimeBeg3 and Time[1]<TimeBeg3 and TimeBin=0 then Condition1=True;
If TimeBeg1=0 then if TimeBin=0 and Condition9 or (LBOC and time>={Addtime(}Sess1EndTime{,-5))}) then Condition1=True;
Condition3=Condition1;
End;
End;
End;
End;
If LBOC=True and CurrentBar<>KeepBar and (OnlyHist=False or Time=Sess1EndTime) or TimeBin>9998 then Condition1=True;

If Condition1 then begin

If Condition1 or CurrentBar=1 then begin
CanBuy=True;
CanSell=True;
DateKnt=DateKnt+1;
If LBOC=False or Condition3 then OpenOfDay=Open;
End;

If LBOC=True and LBOC[1]=False and Unit4Accum<>5 then begin
Value3=Round(Low/Bin4Price,0);
If Value3<LowBox and Value3<>0 then begin
Value2=LowBox-Value3;
For Value1= 2000-Value2 downto 0 begin
PriceKnt[Value1+Value2]=PriceKnt[Value1];
PriceKnt[Value1]=0;
End;
LowBox =Value3;
LowValue=LowBox*Bin4Price ;
TotalKnt=TotalKnt+Value2;
End;
Value2=Round(Low/Bin4Price,0) -LowBox;
Value3=Round(High/Bin4Price,0) -LowBox;
For Value1=Value2 to Value3 begin
PriceKnt[Value1]=PriceKnt[Value1]+1;
End;
If Value3>TotalKnt then TotalKnt=Value3;
End;

If TotalKnt>1 and DateKnt>1 then begin
MaxValue=-99999;
SumValue=0;
{Find the max value and sum up the price occupancies}
Value99=0;
For Value1=0 to TotalKnt begin
Value4=PriceKnt[Value1];
If Value4>0 then Value99=Value1;
SumValue=SumValue+Value4;
If Value4>=MaxValue then begin
MaxIndex=Value1;
MaxValue=Value4;
End;
End;
{Find all alike and setup CP at middle}
Value2=0;
For Value1=0 to TotalKnt begin
If PriceKnt[Value1]=MaxValue then Value2=Value2+1;
End;
If Value2>1 then MaxIndex=MaxIndex-IntPortion(Value2/2);

{Now find the Value Area (70% of total counts)}
VAHigh=MaxIndex;
VALow =MaxIndex;
Value9=PriceKnt[MaxIndex];
Value10=0;
While Value9<=IntPortion(SumValue*VAPerc) begin
Value10=Value10+1;
If MaxIndex-Value10>=0 and Value9<=IntPortion(SumValue*VAPerc) then begin
VALow =MaxIndex-Value10;
Value9=Value9+PriceKnt[VALow];
End;
If Value10+MaxIndex<=Value99 and Value9<=IntPortion(SumValue*VAPerc) then begin
VAHigh=MaxIndex+Value10;
Value9=Value9+PriceKnt[VAHigh];
End;
End;

VAHighValue=LowValue+VAHigh *Bin4Price;
VALowValue =LowValue+VALow *Bin4Price;
VAPivot =LowValue+MaxIndex*Bin4Price;
Value1=0;
VAHighOld=VAHighNew; VAHighNew=VAHighValue[Value1];
VALowOld=VALowNew; VALowNew=VALowValue[Value1];
VADateOld=VADateNew; VADateNew=Date[Value1];
VATimeOld=VATimeNew; VATimeNew=Time[Value1];
VABarOld=VABarNew; VABarNew=CurrentBar;

If TotalKnt>0 then PDPtrn=MaxIndex/TotalKnt
else PDPtrn=0;
PDPtrn=Round(PDPtrn*4,0);

If DateKnt>2 then begin

Value2=LowValue;
If PointRight then Value6=CurrentBar-HoldBar+HoldAdd
else Value6=HoldAdd;

{Now plot the data and highlight VA}
If DateKnt>3 then begin

If LBOC then begin
for Value1=0 to TotalKnt begin
If Handl[Value1]<>0 then begin
TL_Delete(Handl[Value1]);
Handl[Value1]=0;
End;
End;
End;


HKnt=0;
For Value1=0 to TotalKnt begin
Value4=PriceKnt[Value1];
If PointRight then If HoldBar-HoldAdd+Value4>CurrentBar then Value4=Value6;
If Value4>0 and Value5<MaxKnt then begin
If DoHoriz then begin
{Value2=(LowBox+Value1)*B in4Price;}
If PointRight
Then Value5=TL_New(date[Value6],time[Value6],Value2,date[Value6-Value4],time[Value6-Value4],Value2)
Else Value5=TL_New(date[Value6],time[Value6],Value2,date[Value6+Value4],time[Value6+Value4],Value2);
Value7=Blue;
If LBOC then Handl[Value1]=Value5;
If Value1<VALow then value7=red;
If Value1>VAHigh then value7=yellow;
If Value1=MaxIndex then value7=Red;
Value7=TL_SetAll(Value5, Value7, LineSize, 3, False, false);
End;
If AnotHLCP then begin
If (OnlyLast and LBOC) or (OnlyLast=False) or (OnlyHIst) then begin
If PointRight then Value30=-Value4 else Value30=0;
If Value1=VALow then begin
If HandlLo>=0 then Text_Delete(HandlLo);
HandlLo=Text_New(date[Value6+Value30],time[Value6+Value30],Value2,NumToStr(Value2,2 ));
Text_SetStyle(HandlLo,0,2 );
End;
If Value1=VAHigh then begin
If HandlHi>=0 then Text_Delete(HandlHi);
HandlHi=Text_New(date[Value6+Value30],time[Value6+Value30],Value2,NumToStr(Value2,2 ));
Text_SetStyle(HandlHi,0,2 );
End;
If Value1=MaxIndex then begin
If HandlCP>=0 then Text_Delete(HandlCP);
HandlCP=Text_New(date[Value6+Value30],time[Value6+Value30],Value2,NumToStr(Value2,2 )+"--"+NumToStr(PDPtrn,0)) ;
Text_SetStyle(HandlCP,0,2 );
End;
End;
End;
End;
Value2=Value2+Bin4Price;
End;

If DoChan and Value5<4500 then begin
Value3=TL_NEW(VADateOld,V ATimeOld,VAHighOld,VADateNew,VATimeNew,VAHighNew);
Value4=TL_NEW(VADateOld,V ATimeOld,VALowOld, VADateNew,VATimeNew,VALowNew);
Value7=TL_SetAll(Value3, blue, LineSize, 3, False, false);
Value7=TL_SetAll(Value4, red , LineSize, 3, False, false);
End;
End;


Condition5=True;
If TimeBin<>0 then begin
If (TypAccum>210000 and Date[1]=TypAccum) then Condition5=False;
If (TypAccum=-2 and Date[1]=CurrentDate) then Condition5=False;
If (TypAccum=-1 and Time<>Sess1StartTime+BarI nterval) then Condition5=False;
End;
If LBOC=False then begin
If Condition5 then begin
For Value1=0 to 2000 begin
PriceKnt[Value1]=0;
End;
TotalKnt=0;
LowBox =Round(Low/Bin4Price,0);
LowValue=LowBox*Bin4Price ;
End;
If Unit4Accum<>5 then HoldBar =CurrentBar;
IPASS=Time;
End;
End;
End;
If LBOC then KeepBar=CurrentBar;
End;

If DateKnt>1 then begin

If DateKnt>3 and VAHighValue<>0 and VALowValue<>0 then begin

If Smooth=0 then begin
Value17=VAHighNew;
Value18=VALowNew;
End
Else begin
If Condition1 then begin
Value15=(VAHighNew-VAHighOld+VALowNew-VALowOld)*0.5/(VABarNew-VABarOld);
Value19=.5/(VABarNew-VABarOld);
End;
Value14=(CurrentBar-VABarNew);
Value16=Value15*Value14*S mooth*(1-Value14*Value19);
Value17=VAHighNew+Value16 ;
Value18=VALowNew +Value16;
End;


{Remove right brace for SIGNAL -- add for INDICATOR}
If LBOC then begin
Value2=-MaxBarsForward;
Value3=-1;
{If KeepBar=0 then OpenOfDay=C;}
If Smooth=0 then begin


End;
End
else begin
Value27=Value17;
Value28=Value18;
Value29=VAPivot;
Value2=0;
Value3=0;
If Unit4Accum=5 then Value3=Value6;
End;



End;
If HandlHi>-1 then begin
Text_SetLocation(HandlHi, Date,Time,Value17);
Text_SetLocation(HandlCP, Date,Time,VAPivot{Value29 });
Text_SetLocation(HandlLo, Date,Time,Value18);
End;

End;

End;



If Condition3 and (OnlyLast=False) then begin
HandlHi=(-1); HandlLo=(-1); HandlCP=(-1);
End;

If DateKnt>1 and (LBOC=False or LBOC[1]=True) then begin
Value3=Round(Low/Bin4Price,0);
If Value3<LowBox and Value3<>0 then begin
Value2=LowBox-Value3;
For Value1= 2000-Value2 downto 0 begin
PriceKnt[Value1+Value2]=PriceKnt[Value1];
PriceKnt[Value1]=0;
End;
LowBox =Value3;
LowValue=LowBox*Bin4Price ;
TotalKnt=TotalKnt+Value2;
End;
Value2=Round(Low/Bin4Price,0) -LowBox;
Value3=Round(High/Bin4Price,0) -LowBox;
For Value1=Value2 to Value3 begin
PriceKnt[Value1]=PriceKnt[Value1]+1;
End;
If Value3>TotalKnt then TotalKnt=Value3;
End;



{end date loop}




poc=vapivot;

Share this post


Link to post
Share on other sites

Many syntex errors were fixed except the two things:

 

AddTime( )

TL_SetAll( )

 

vars: PriceBin(.50),
TimeBin(0),
Unit4Accum(0),
TypAccum(0),
BegTime1(0),
BegTime2(0),
BegTime3(0),
DoHoriz(True),
Perc4VA(70),
LineSize(1);
{Begin Comment Out for Signal}

vars:
PointRight(True),{If set false then display will point to left }

Smooth(00), {Angle adjustment for VA projection--range -2>+2 }

BegDate(0);{Date on which to start analysis. 0=All }
{this is used to limit the number of analyses that are }
{made and may be necessary -- particularly in TS7/8... }
{to keep "infinite loop" error from occurring. }



{must replace Vars: with in the word INPUT: here for an indicator}

vars:
OnlyLast(true), {Annotate last caclulated values ONLY--AnotHLCP=True also}

AnotHLCP(true), {Annotate the VAHigh, VALow, and CP values on chart }

OnlyHist(false), {Do not make MP for current day until next day. }

DoChan(False), {Draw a channel from VA extremes to next set of extremes }

PlotOpen(True); {Plot open of current analysis -- green dotted line }


Vars: OpenOfDay(0), Is24Hour(Sess1EndTime<=UnionSess1StartTime),
LowBox(0), DateKnt(0), HKnt(0),
ATR21(AvgTrueRange(21)),
Bin4Price(Iff(PriceBin>ATR21/20,ATR21/20,Iff(PriceBin<ATR21/50,ATR21/50,PriceBin))),
LowValue(LowBox*Bin4Price ), IPass(0),
Bin4Time(AbsValue(IntPortion(TimeBin))),
ShiftIt((AbsValue(TimeBin )-Bin4Time)*100),
HighValue(H),TotalKnt(0),
HoldBar(CurrentBar), HoldAdd(0), OldHoldBar(0), KeepBar(0);
Vars: TimeBeg1(Iff(BegTime1<25, IntPortion(BegTime1)*100+ FracPortion(BegTime1)*60, BegTime1)),
TimeBeg2(Iff(BegTime2<25, IntPortion(BegTime2)*100+ FracPortion(BegTime2)*60, BegTime2)),
TimeBeg3(Iff(BegTime3<25, IntPortion(BegTime3)*100+ FracPortion(BegTime3)*60, BegTime3));
Vars: VAHigh(0), VALow(0), MaxValue(0), MaxIndex(0), SumValue(0);
Vars: VAHighValue(h), VALowValue(l),VAPivot(c),
VAPerc(Iff(Perc4VA>0,Perc4VA/100,.7)),
CurrentMin(TimeToMinutes( time)), EntryP(0);
Vars: VAHighOld(0), VAHighNew(0),
VALowOld(0), VALowNew(0),
VABarOld(0), VABarNew(0),
VADateOld(0), VADateNew(0),
VATimeOld(0), VATimeNew(0),
DnCount(0), UpCount(0), LBOC(FALSE), NewDate(0),
HandlHi(-1), HandlLo(-1), HandlCP(-1),
CanBuy(false),CanSell(false),DoInit(True);

{Begin comment out for Indicator
Vars: LossMaxPts(LossMax/BigPointValue),
TakProfPts(TakProf/BigPointValue);
End comment out for Indicator}

Vars: ATR21Val(0), MP(0),
StopHH(0), StopLL(0), EnterBar(0),
MaxCont(0), NCont(0), HoldDate(Date-1);
Vars: PDPtrn(0);


Vars: MaxKnt(15000), Direct(0), DoKnt(0);
Arrays: PriceKnt[15000](0), HoldKnt[15000](0), Handl[15000](0);


If DoInit then begin
DoInit=False;
Value1=AvgTrueRange(21)/10;
If PriceBin=0 then Bin4Price=Value1
else Bin4Price=PriceBin;

LowBox = Round(L/Bin4Price,0);
End;

LBOC = LastBarOnChart;
If Date<>Date[1] and TimeBin=0 then NewDate=Date;


{For system remove I_}
If MP<>MP[1] then begin
EntryP=O;
EnterBar=CurrentBar;
StopHH=H;
StopLL=L;
End;

If Date>=BegDate then begin



If (TimeBin>0 and Unit4Accum>0) then begin
Condition1=false;
Condition3=false;
If Unit4Accum=1 then If Date[shiftIt]<>Date[shiftIt+1] then DoKnt=DoKnt+1;
If Unit4Accum=2 then If DayOfWeek(date[shiftIt])<DayOfWeek(Date[shiftIt+1]) then DoKnt=DoKnt+1;
If Unit4Accum=3 then If Month(Date) <>Month(Date[1]) then DoKnt=DoKnt+1;
If Unit4Accum=4 then begin
For Value1 = 0 to 3 begin
Value2=Value1*3+1;
If Month(Date)=Value2 and Month(Date[1])<>Value2 then DoKnt=DoKnt+1;
End;
End;
If Unit4Accum=5 then begin
DoKnt=0;

Value0=AbsValue(IntPortion(Direct));
If Sign(Direct)<>Sign(Direct[1]) or LBOC then begin
Condition1=True;
Condition3=Condition1;
If Direct[1]=0 then begin
HoldBar=CurrentBar-Value0;
HoldAdd=HoldBar-OldHoldBar;
End
Else begin
If LBOC and Sign(Direct)=Sign(Direct[1]) then begin
If LBOC[1]=FALSE THEN OldHoldBar=HoldBar;
HoldBar=CurrentBar;
Value0=0;
End
Else begin
OldHoldBar=HoldBar;
HoldBar=CurrentBar-Value0;
End;

Value2=Highest(H[Value0],HoldBar-OldHoldBar+1);
Value3=Lowest (L[Value0],HoldBar-OldHoldBar+1);
LowBox =Round(Value3/Bin4Price,0);
TotalKnt=Round(Value2/Bin4Price,0)-LowBox;
LowValue=LowBox*Bin4Price ;
HoldAdd=HoldBar-OldHoldBar;
LowBox =0;
While TotalKnt<8 begin
Bin4Price=Bin4Price/2;
LowBox =Round(Value3/Bin4Price,0);
TotalKnt=Round(Value2/Bin4Price,0)-LowBox;
LowValue=LowBox*Bin4Price ;
LowBox =0;
End;
For Value1 = LowBox to TotalKnt begin
Value3=Value1 * Bin4Price + LowValue;
PriceKnt[Value1]=0;
For Value4 = CurrentBar-HoldBar to CurrentBar-OldHoldBar+1 begin
If Value3<=H[Value4] and Value3>=L[Value4] then PriceKnt[Value1]=PriceKnt[Value1]+1;
End;
End;
End;
End;
End;
If DoKnt>=TimeBin then begin
Condition1=True;
Condition3=Condition1;
DoKnt=0;
End;
End
Else begin
Condition1=false;
Condition3=false;
If TimeBin>0 then begin
If TimeBeg1=0
then CurrentMin=TimeToMinutes( time)-TimeToMinutes(Sess1FirstBarTime)
else CurrentMin=TimeToMinutes( time)-TimeToMinutes(TimeBeg1);
If CurrentMin<0 then CurrentMin=CurrentMin+TimeToMinutes(2359)+1;
If CurrentMin<0 then CurrentMin=CurrentMin+24* 60;
Condition1=Mod(CurrentMin ,TimeBin)<Mod(CurrentMin[1],TimeBin);
Condition3=Condition1;
End
Else begin
If TimeBin<0 then begin
If ShiftIt>Bin4Time then ShiftIt=Mod(ShiftIt,Bin4Time);
Condition1=Mod(CurrentBar-ShiftIt,Bin4Time)=0;
Condition3=Condition1;
End
Else begin
If DataCompression>1 then begin
If ShiftIt>13 then ShiftIt=0;
Condition1=Mod(CurrentBar-ShiftIt,13)=0;
Condition3=Condition1;
End
Else Begin
Condition9=(Date<>Date[1] and Is24Hour=False) or (Is24Hour and Time>=Sess1StartTime and Time[1]<=Sess1EndTime);
If TimeBeg1>0 then if Time>=TimeBeg1 and (Time[1]<TimeBeg1 or Condition9) and TimeBin=0 then Condition1=True;
If TimeBeg2>0 then if Time>=TimeBeg2 and Time[1]<TimeBeg2 and TimeBin=0 then Condition1=True;
If TimeBeg3>0 then if Time>=TimeBeg3 and Time[1]<TimeBeg3 and TimeBin=0 then Condition1=True;
If TimeBeg1=0 then if TimeBin=0 and Condition9 or (LBOC and time>={Addtime(}Sess1EndTime{,-5))}) then Condition1=True;
Condition3=Condition1;
End;
End;
End;
End;
If LBOC=True and CurrentBar<>KeepBar and (OnlyHist=False or Time=Sess1EndTime) or TimeBin>9998 then Condition1=True;

If Condition1 then begin

If Condition1 or CurrentBar=1 then begin
CanBuy=True;
CanSell=True;
DateKnt=DateKnt+1;
If LBOC=False or Condition3 then OpenOfDay=Open;
End;

If LBOC=True and LBOC[1]=False and Unit4Accum<>5 then begin
Value3=Round(Low/Bin4Price,0);
If Value3<LowBox and Value3<>0 then begin
Value2=LowBox-Value3;
For Value1= 2000-Value2 downto 0 begin
PriceKnt[Value1+Value2]=PriceKnt[Value1];
PriceKnt[Value1]=0;
End;
LowBox =Value3;
LowValue=LowBox*Bin4Price ;
TotalKnt=TotalKnt+Value2;
End;
Value2=Round(Low/Bin4Price,0) -LowBox;
Value3=Round(High/Bin4Price,0) -LowBox;
For Value1=Value2 to Value3 begin
PriceKnt[Value1]=PriceKnt[Value1]+1;
End;
If Value3>TotalKnt then TotalKnt=Value3;
End;

If TotalKnt>1 and DateKnt>1 then begin
MaxValue=-99999;
SumValue=0;
{Find the max value and sum up the price occupancies}
Value99=0;
For Value1=0 to TotalKnt begin
Value4=PriceKnt[Value1];
If Value4>0 then Value99=Value1;
SumValue=SumValue+Value4;
If Value4>=MaxValue then begin
MaxIndex=Value1;
MaxValue=Value4;
End;
End;
{Find all alike and setup CP at middle}
Value2=0;
For Value1=0 to TotalKnt begin
If PriceKnt[Value1]=MaxValue then Value2=Value2+1;
End;
If Value2>1 then MaxIndex=MaxIndex-IntPortion(Value2/2);

{Now find the Value Area (70% of total counts)}
VAHigh=MaxIndex;
VALow =MaxIndex;
Value9=PriceKnt[MaxIndex];
Value10=0;
While Value9<=IntPortion(SumValue*VAPerc) begin
Value10=Value10+1;
If MaxIndex-Value10>=0 and Value9<=IntPortion(SumValue*VAPerc) then begin
VALow =MaxIndex-Value10;
Value9=Value9+PriceKnt[VALow];
End;
If Value10+MaxIndex<=Value99 and Value9<=IntPortion(SumValue*VAPerc) then begin
VAHigh=MaxIndex+Value10;
Value9=Value9+PriceKnt[VAHigh];
End;
End;

VAHighValue=LowValue+VAHigh *Bin4Price;
VALowValue =LowValue+VALow *Bin4Price;
VAPivot =LowValue+MaxIndex*Bin4Price;
Value1=0;
VAHighOld=VAHighNew; VAHighNew=VAHighValue[Value1];
VALowOld=VALowNew; VALowNew=VALowValue[Value1];
VADateOld=VADateNew; VADateNew=Date[Value1];
VATimeOld=VATimeNew; VATimeNew=Time[Value1];
VABarOld=VABarNew; VABarNew=CurrentBar;

If TotalKnt>0 then PDPtrn=MaxIndex/TotalKnt
else PDPtrn=0;
PDPtrn=Round(PDPtrn*4,0);

If DateKnt>2 then begin

Value2=LowValue;
If PointRight then Value6=CurrentBar-HoldBar+HoldAdd
else Value6=HoldAdd;

{Now plot the data and highlight VA}
If DateKnt>3 then begin

If LBOC then begin
for Value1=0 to TotalKnt begin
If Handl[Value1]<>0 then begin
TL_Delete(Handl[Value1]);
Handl[Value1]=0;
End;
End;
End;


HKnt=0;
For Value1=0 to TotalKnt begin
Value4=PriceKnt[Value1];
If PointRight then If HoldBar-HoldAdd+Value4>CurrentBar then Value4=Value6;
If Value4>0 and Value5<MaxKnt then begin
If DoHoriz then begin
{Value2=(LowBox+Value1)*B in4Price;}
If PointRight
Then Value5=TL_New(date[Value6],time[Value6],Value2,date[Value6-Value4],time[Value6-Value4],Value2)
Else Value5=TL_New(date[Value6],time[Value6],Value2,date[Value6+Value4],time[Value6+Value4],Value2);
Value7=Blue;
If LBOC then Handl[Value1]=Value5;
If Value1<VALow then value7=red;
If Value1>VAHigh then value7=yellow;
If Value1=MaxIndex then value7=Red;
Value7=TL_SetAll(Value5, Value7, LineSize, 3, False, false);
End;
If AnotHLCP then begin
If (OnlyLast and LBOC) or (OnlyLast=False) or (OnlyHIst) then begin
If PointRight then Value30=-Value4 else Value30=0;
If Value1=VALow then begin
If HandlLo>=0 then Text_Delete(HandlLo);
HandlLo=Text_New(date[Value6+Value30],time[Value6+Value30],Value2,NumToStr(Value2,2 ));
Text_SetStyle(HandlLo,0,2 );
End;
If Value1=VAHigh then begin
If HandlHi>=0 then Text_Delete(HandlHi);
HandlHi=Text_New(date[Value6+Value30],time[Value6+Value30],Value2,NumToStr(Value2,2 ));
Text_SetStyle(HandlHi,0,2 );
End;
If Value1=MaxIndex then begin
If HandlCP>=0 then Text_Delete(HandlCP);
HandlCP=Text_New(date[Value6+Value30],time[Value6+Value30],Value2,NumToStr(Value2,2 )+"--"+NumToStr(PDPtrn,0)) ;
Text_SetStyle(HandlCP,0,2 );
End;
End;
End;
End;
Value2=Value2+Bin4Price;
End;

If DoChan and Value5<4500 then begin
Value3=TL_NEW(VADateOld,V ATimeOld,VAHighOld,VADateNew,VATimeNew,VAHighNew);
Value4=TL_NEW(VADateOld,V ATimeOld,VALowOld, VADateNew,VATimeNew,VALowNew);
Value7=TL_SetAll(Value3, blue, LineSize, 3, False, false);
Value7=TL_SetAll(Value4, red , LineSize, 3, False, false);
End;
End;


Condition5=True;
If TimeBin<>0 then begin
If (TypAccum>210000 and Date[1]=TypAccum) then Condition5=False;
If (TypAccum=-2 and Date[1]=CurrentDate) then Condition5=False;
If (TypAccum=-1 and Time<>Sess1StartTime+BarI nterval) then Condition5=False;
End;
If LBOC=False then begin
If Condition5 then begin
For Value1=0 to 2000 begin
PriceKnt[Value1]=0;
End;
TotalKnt=0;
LowBox =Round(Low/Bin4Price,0);
LowValue=LowBox*Bin4Price ;
End;
If Unit4Accum<>5 then HoldBar =CurrentBar;
IPASS=Time;
End;
End;
End;
If LBOC then KeepBar=CurrentBar;
End;

If DateKnt>1 then begin

If DateKnt>3 and VAHighValue<>0 and VALowValue<>0 then begin

If Smooth=0 then begin
Value17=VAHighNew;
Value18=VALowNew;
End
Else begin
If Condition1 then begin
Value15=(VAHighNew-VAHighOld+VALowNew-VALowOld)*0.5/(VABarNew-VABarOld);
Value19=.5/(VABarNew-VABarOld);
End;
Value14=(CurrentBar-VABarNew);
Value16=Value15*Value14*S mooth*(1-Value14*Value19);
Value17=VAHighNew+Value16 ;
Value18=VALowNew +Value16;
End;


{Remove right brace for SIGNAL -- add for INDICATOR}
If LBOC then begin
Value2=-MaxBarsForward;
Value3=-1;
{If KeepBar=0 then OpenOfDay=C;}
If Smooth=0 then begin


End;
End
else begin
Value27=Value17;
Value28=Value18;
Value29=VAPivot;
Value2=0;
Value3=0;
If Unit4Accum=5 then Value3=Value6;
End;



End;
If HandlHi>-1 then begin
Text_SetLocation(HandlHi, Date,Time,Value17);
Text_SetLocation(HandlCP, Date,Time,VAPivot{Value29 });
Text_SetLocation(HandlLo, Date,Time,Value18);
End;

End;

End;



If Condition3 and (OnlyLast=False) then begin
HandlHi=(-1); HandlLo=(-1); HandlCP=(-1);
End;

If DateKnt>1 and (LBOC=False or LBOC[1]=True) then begin
Value3=Round(Low/Bin4Price,0);
If Value3<LowBox and Value3<>0 then begin
Value2=LowBox-Value3;
For Value1= 2000-Value2 downto 0 begin
PriceKnt[Value1+Value2]=PriceKnt[Value1];
PriceKnt[Value1]=0;
End;
LowBox =Value3;
LowValue=LowBox*Bin4Price ;
TotalKnt=TotalKnt+Value2;
End;
Value2=Round(Low/Bin4Price,0) -LowBox;
Value3=Round(High/Bin4Price,0) -LowBox;
For Value1=Value2 to Value3 begin
PriceKnt[Value1]=PriceKnt[Value1]+1;
End;
If Value3>TotalKnt then TotalKnt=Value3;
End;



{end date loop}




poc=vapivot;

Share this post


Link to post
Share on other sites

Anyone fix the TL_SetAll( ) error?

 

 

 

Many syntex errors were fixed except the two things:

 

AddTime( )

TL_SetAll( )

 

vars: PriceBin(.50),
TimeBin(0),
Unit4Accum(0),
TypAccum(0),
BegTime1(0),
BegTime2(0),
BegTime3(0),
DoHoriz(True),
Perc4VA(70),
LineSize(1);
{Begin Comment Out for Signal}

vars:
PointRight(True),{If set false then display will point to left }

Smooth(00), {Angle adjustment for VA projection--range -2>+2 }

BegDate(0);{Date on which to start analysis. 0=All }
{this is used to limit the number of analyses that are }
{made and may be necessary -- particularly in TS7/8... }
{to keep "infinite loop" error from occurring. }



{must replace Vars: with in the word INPUT: here for an indicator}

vars:
OnlyLast(true), {Annotate last caclulated values ONLY--AnotHLCP=True also}

AnotHLCP(true), {Annotate the VAHigh, VALow, and CP values on chart }

OnlyHist(false), {Do not make MP for current day until next day. }

DoChan(False), {Draw a channel from VA extremes to next set of extremes }

PlotOpen(True); {Plot open of current analysis -- green dotted line }


Vars: OpenOfDay(0), Is24Hour(Sess1EndTime<=UnionSess1StartTime),
LowBox(0), DateKnt(0), HKnt(0),
ATR21(AvgTrueRange(21)),
Bin4Price(Iff(PriceBin>ATR21/20,ATR21/20,Iff(PriceBin<ATR21/50,ATR21/50,PriceBin))),
LowValue(LowBox*Bin4Price ), IPass(0),
Bin4Time(AbsValue(IntPortion(TimeBin))),
ShiftIt((AbsValue(TimeBin )-Bin4Time)*100),
HighValue(H),TotalKnt(0),
HoldBar(CurrentBar), HoldAdd(0), OldHoldBar(0), KeepBar(0);
Vars: TimeBeg1(Iff(BegTime1<25, IntPortion(BegTime1)*100+ FracPortion(BegTime1)*60, BegTime1)),
TimeBeg2(Iff(BegTime2<25, IntPortion(BegTime2)*100+ FracPortion(BegTime2)*60, BegTime2)),
TimeBeg3(Iff(BegTime3<25, IntPortion(BegTime3)*100+ FracPortion(BegTime3)*60, BegTime3));
Vars: VAHigh(0), VALow(0), MaxValue(0), MaxIndex(0), SumValue(0);
Vars: VAHighValue(h), VALowValue(l),VAPivot(c),
VAPerc(Iff(Perc4VA>0,Perc4VA/100,.7)),
CurrentMin(TimeToMinutes( time)), EntryP(0);
Vars: VAHighOld(0), VAHighNew(0),
VALowOld(0), VALowNew(0),
VABarOld(0), VABarNew(0),
VADateOld(0), VADateNew(0),
VATimeOld(0), VATimeNew(0),
DnCount(0), UpCount(0), LBOC(FALSE), NewDate(0),
HandlHi(-1), HandlLo(-1), HandlCP(-1),
CanBuy(false),CanSell(false),DoInit(True);

{Begin comment out for Indicator
Vars: LossMaxPts(LossMax/BigPointValue),
TakProfPts(TakProf/BigPointValue);
End comment out for Indicator}

Vars: ATR21Val(0), MP(0),
StopHH(0), StopLL(0), EnterBar(0),
MaxCont(0), NCont(0), HoldDate(Date-1);
Vars: PDPtrn(0);


Vars: MaxKnt(15000), Direct(0), DoKnt(0);
Arrays: PriceKnt[15000](0), HoldKnt[15000](0), Handl[15000](0);


If DoInit then begin
DoInit=False;
Value1=AvgTrueRange(21)/10;
If PriceBin=0 then Bin4Price=Value1
else Bin4Price=PriceBin;

LowBox = Round(L/Bin4Price,0);
End;

LBOC = LastBarOnChart;
If Date<>Date[1] and TimeBin=0 then NewDate=Date;


{For system remove I_}
If MP<>MP[1] then begin
EntryP=O;
EnterBar=CurrentBar;
StopHH=H;
StopLL=L;
End;

If Date>=BegDate then begin



If (TimeBin>0 and Unit4Accum>0) then begin
Condition1=false;
Condition3=false;
If Unit4Accum=1 then If Date[shiftIt]<>Date[shiftIt+1] then DoKnt=DoKnt+1;
If Unit4Accum=2 then If DayOfWeek(date[shiftIt])<DayOfWeek(Date[shiftIt+1]) then DoKnt=DoKnt+1;
If Unit4Accum=3 then If Month(Date) <>Month(Date[1]) then DoKnt=DoKnt+1;
If Unit4Accum=4 then begin
For Value1 = 0 to 3 begin
Value2=Value1*3+1;
If Month(Date)=Value2 and Month(Date[1])<>Value2 then DoKnt=DoKnt+1;
End;
End;
If Unit4Accum=5 then begin
DoKnt=0;

Value0=AbsValue(IntPortion(Direct));
If Sign(Direct)<>Sign(Direct[1]) or LBOC then begin
Condition1=True;
Condition3=Condition1;
If Direct[1]=0 then begin
HoldBar=CurrentBar-Value0;
HoldAdd=HoldBar-OldHoldBar;
End
Else begin
If LBOC and Sign(Direct)=Sign(Direct[1]) then begin
If LBOC[1]=FALSE THEN OldHoldBar=HoldBar;
HoldBar=CurrentBar;
Value0=0;
End
Else begin
OldHoldBar=HoldBar;
HoldBar=CurrentBar-Value0;
End;

Value2=Highest(H[Value0],HoldBar-OldHoldBar+1);
Value3=Lowest (L[Value0],HoldBar-OldHoldBar+1);
LowBox =Round(Value3/Bin4Price,0);
TotalKnt=Round(Value2/Bin4Price,0)-LowBox;
LowValue=LowBox*Bin4Price ;
HoldAdd=HoldBar-OldHoldBar;
LowBox =0;
While TotalKnt<8 begin
Bin4Price=Bin4Price/2;
LowBox =Round(Value3/Bin4Price,0);
TotalKnt=Round(Value2/Bin4Price,0)-LowBox;
LowValue=LowBox*Bin4Price ;
LowBox =0;
End;
For Value1 = LowBox to TotalKnt begin
Value3=Value1 * Bin4Price + LowValue;
PriceKnt[Value1]=0;
For Value4 = CurrentBar-HoldBar to CurrentBar-OldHoldBar+1 begin
If Value3<=H[Value4] and Value3>=L[Value4] then PriceKnt[Value1]=PriceKnt[Value1]+1;
End;
End;
End;
End;
End;
If DoKnt>=TimeBin then begin
Condition1=True;
Condition3=Condition1;
DoKnt=0;
End;
End
Else begin
Condition1=false;
Condition3=false;
If TimeBin>0 then begin
If TimeBeg1=0
then CurrentMin=TimeToMinutes( time)-TimeToMinutes(Sess1FirstBarTime)
else CurrentMin=TimeToMinutes( time)-TimeToMinutes(TimeBeg1);
If CurrentMin<0 then CurrentMin=CurrentMin+TimeToMinutes(2359)+1;
If CurrentMin<0 then CurrentMin=CurrentMin+24* 60;
Condition1=Mod(CurrentMin ,TimeBin)<Mod(CurrentMin[1],TimeBin);
Condition3=Condition1;
End
Else begin
If TimeBin<0 then begin
If ShiftIt>Bin4Time then ShiftIt=Mod(ShiftIt,Bin4Time);
Condition1=Mod(CurrentBar-ShiftIt,Bin4Time)=0;
Condition3=Condition1;
End
Else begin
If DataCompression>1 then begin
If ShiftIt>13 then ShiftIt=0;
Condition1=Mod(CurrentBar-ShiftIt,13)=0;
Condition3=Condition1;
End
Else Begin
Condition9=(Date<>Date[1] and Is24Hour=False) or (Is24Hour and Time>=Sess1StartTime and Time[1]<=Sess1EndTime);
If TimeBeg1>0 then if Time>=TimeBeg1 and (Time[1]<TimeBeg1 or Condition9) and TimeBin=0 then Condition1=True;
If TimeBeg2>0 then if Time>=TimeBeg2 and Time[1]<TimeBeg2 and TimeBin=0 then Condition1=True;
If TimeBeg3>0 then if Time>=TimeBeg3 and Time[1]<TimeBeg3 and TimeBin=0 then Condition1=True;
If TimeBeg1=0 then if TimeBin=0 and Condition9 or (LBOC and time>={Addtime(}Sess1EndTime{,-5))}) then Condition1=True;
Condition3=Condition1;
End;
End;
End;
End;
If LBOC=True and CurrentBar<>KeepBar and (OnlyHist=False or Time=Sess1EndTime) or TimeBin>9998 then Condition1=True;

If Condition1 then begin

If Condition1 or CurrentBar=1 then begin
CanBuy=True;
CanSell=True;
DateKnt=DateKnt+1;
If LBOC=False or Condition3 then OpenOfDay=Open;
End;

If LBOC=True and LBOC[1]=False and Unit4Accum<>5 then begin
Value3=Round(Low/Bin4Price,0);
If Value3<LowBox and Value3<>0 then begin
Value2=LowBox-Value3;
For Value1= 2000-Value2 downto 0 begin
PriceKnt[Value1+Value2]=PriceKnt[Value1];
PriceKnt[Value1]=0;
End;
LowBox =Value3;
LowValue=LowBox*Bin4Price ;
TotalKnt=TotalKnt+Value2;
End;
Value2=Round(Low/Bin4Price,0) -LowBox;
Value3=Round(High/Bin4Price,0) -LowBox;
For Value1=Value2 to Value3 begin
PriceKnt[Value1]=PriceKnt[Value1]+1;
End;
If Value3>TotalKnt then TotalKnt=Value3;
End;

If TotalKnt>1 and DateKnt>1 then begin
MaxValue=-99999;
SumValue=0;
{Find the max value and sum up the price occupancies}
Value99=0;
For Value1=0 to TotalKnt begin
Value4=PriceKnt[Value1];
If Value4>0 then Value99=Value1;
SumValue=SumValue+Value4;
If Value4>=MaxValue then begin
MaxIndex=Value1;
MaxValue=Value4;
End;
End;
{Find all alike and setup CP at middle}
Value2=0;
For Value1=0 to TotalKnt begin
If PriceKnt[Value1]=MaxValue then Value2=Value2+1;
End;
If Value2>1 then MaxIndex=MaxIndex-IntPortion(Value2/2);

{Now find the Value Area (70% of total counts)}
VAHigh=MaxIndex;
VALow =MaxIndex;
Value9=PriceKnt[MaxIndex];
Value10=0;
While Value9<=IntPortion(SumValue*VAPerc) begin
Value10=Value10+1;
If MaxIndex-Value10>=0 and Value9<=IntPortion(SumValue*VAPerc) then begin
VALow =MaxIndex-Value10;
Value9=Value9+PriceKnt[VALow];
End;
If Value10+MaxIndex<=Value99 and Value9<=IntPortion(SumValue*VAPerc) then begin
VAHigh=MaxIndex+Value10;
Value9=Value9+PriceKnt[VAHigh];
End;
End;

VAHighValue=LowValue+VAHigh *Bin4Price;
VALowValue =LowValue+VALow *Bin4Price;
VAPivot =LowValue+MaxIndex*Bin4Price;
Value1=0;
VAHighOld=VAHighNew; VAHighNew=VAHighValue[Value1];
VALowOld=VALowNew; VALowNew=VALowValue[Value1];
VADateOld=VADateNew; VADateNew=Date[Value1];
VATimeOld=VATimeNew; VATimeNew=Time[Value1];
VABarOld=VABarNew; VABarNew=CurrentBar;

If TotalKnt>0 then PDPtrn=MaxIndex/TotalKnt
else PDPtrn=0;
PDPtrn=Round(PDPtrn*4,0);

If DateKnt>2 then begin

Value2=LowValue;
If PointRight then Value6=CurrentBar-HoldBar+HoldAdd
else Value6=HoldAdd;

{Now plot the data and highlight VA}
If DateKnt>3 then begin

If LBOC then begin
for Value1=0 to TotalKnt begin
If Handl[Value1]<>0 then begin
TL_Delete(Handl[Value1]);
Handl[Value1]=0;
End;
End;
End;


HKnt=0;
For Value1=0 to TotalKnt begin
Value4=PriceKnt[Value1];
If PointRight then If HoldBar-HoldAdd+Value4>CurrentBar then Value4=Value6;
If Value4>0 and Value5<MaxKnt then begin
If DoHoriz then begin
{Value2=(LowBox+Value1)*B in4Price;}
If PointRight
Then Value5=TL_New(date[Value6],time[Value6],Value2,date[Value6-Value4],time[Value6-Value4],Value2)
Else Value5=TL_New(date[Value6],time[Value6],Value2,date[Value6+Value4],time[Value6+Value4],Value2);
Value7=Blue;
If LBOC then Handl[Value1]=Value5;
If Value1<VALow then value7=red;
If Value1>VAHigh then value7=yellow;
If Value1=MaxIndex then value7=Red;
Value7=TL_SetAll(Value5, Value7, LineSize, 3, False, false);
End;
If AnotHLCP then begin
If (OnlyLast and LBOC) or (OnlyLast=False) or (OnlyHIst) then begin
If PointRight then Value30=-Value4 else Value30=0;
If Value1=VALow then begin
If HandlLo>=0 then Text_Delete(HandlLo);
HandlLo=Text_New(date[Value6+Value30],time[Value6+Value30],Value2,NumToStr(Value2,2 ));
Text_SetStyle(HandlLo,0,2 );
End;
If Value1=VAHigh then begin
If HandlHi>=0 then Text_Delete(HandlHi);
HandlHi=Text_New(date[Value6+Value30],time[Value6+Value30],Value2,NumToStr(Value2,2 ));
Text_SetStyle(HandlHi,0,2 );
End;
If Value1=MaxIndex then begin
If HandlCP>=0 then Text_Delete(HandlCP);
HandlCP=Text_New(date[Value6+Value30],time[Value6+Value30],Value2,NumToStr(Value2,2 )+"--"+NumToStr(PDPtrn,0)) ;
Text_SetStyle(HandlCP,0,2 );
End;
End;
End;
End;
Value2=Value2+Bin4Price;
End;

If DoChan and Value5<4500 then begin
Value3=TL_NEW(VADateOld,V ATimeOld,VAHighOld,VADateNew,VATimeNew,VAHighNew);
Value4=TL_NEW(VADateOld,V ATimeOld,VALowOld, VADateNew,VATimeNew,VALowNew);
Value7=TL_SetAll(Value3, blue, LineSize, 3, False, false);
Value7=TL_SetAll(Value4, red , LineSize, 3, False, false);
End;
End;


Condition5=True;
If TimeBin<>0 then begin
If (TypAccum>210000 and Date[1]=TypAccum) then Condition5=False;
If (TypAccum=-2 and Date[1]=CurrentDate) then Condition5=False;
If (TypAccum=-1 and Time<>Sess1StartTime+BarI nterval) then Condition5=False;
End;
If LBOC=False then begin
If Condition5 then begin
For Value1=0 to 2000 begin
PriceKnt[Value1]=0;
End;
TotalKnt=0;
LowBox =Round(Low/Bin4Price,0);
LowValue=LowBox*Bin4Price ;
End;
If Unit4Accum<>5 then HoldBar =CurrentBar;
IPASS=Time;
End;
End;
End;
If LBOC then KeepBar=CurrentBar;
End;

If DateKnt>1 then begin

If DateKnt>3 and VAHighValue<>0 and VALowValue<>0 then begin

If Smooth=0 then begin
Value17=VAHighNew;
Value18=VALowNew;
End
Else begin
If Condition1 then begin
Value15=(VAHighNew-VAHighOld+VALowNew-VALowOld)*0.5/(VABarNew-VABarOld);
Value19=.5/(VABarNew-VABarOld);
End;
Value14=(CurrentBar-VABarNew);
Value16=Value15*Value14*S mooth*(1-Value14*Value19);
Value17=VAHighNew+Value16 ;
Value18=VALowNew +Value16;
End;


{Remove right brace for SIGNAL -- add for INDICATOR}
If LBOC then begin
Value2=-MaxBarsForward;
Value3=-1;
{If KeepBar=0 then OpenOfDay=C;}
If Smooth=0 then begin


End;
End
else begin
Value27=Value17;
Value28=Value18;
Value29=VAPivot;
Value2=0;
Value3=0;
If Unit4Accum=5 then Value3=Value6;
End;



End;
If HandlHi>-1 then begin
Text_SetLocation(HandlHi, Date,Time,Value17);
Text_SetLocation(HandlCP, Date,Time,VAPivot{Value29 });
Text_SetLocation(HandlLo, Date,Time,Value18);
End;

End;

End;



If Condition3 and (OnlyLast=False) then begin
HandlHi=(-1); HandlLo=(-1); HandlCP=(-1);
End;

If DateKnt>1 and (LBOC=False or LBOC[1]=True) then begin
Value3=Round(Low/Bin4Price,0);
If Value3<LowBox and Value3<>0 then begin
Value2=LowBox-Value3;
For Value1= 2000-Value2 downto 0 begin
PriceKnt[Value1+Value2]=PriceKnt[Value1];
PriceKnt[Value1]=0;
End;
LowBox =Value3;
LowValue=LowBox*Bin4Price ;
TotalKnt=TotalKnt+Value2;
End;
Value2=Round(Low/Bin4Price,0) -LowBox;
Value3=Round(High/Bin4Price,0) -LowBox;
For Value1=Value2 to Value3 begin
PriceKnt[Value1]=PriceKnt[Value1]+1;
End;
If Value3>TotalKnt then TotalKnt=Value3;
End;



{end date loop}




poc=vapivot;

Share this post


Link to post
Share on other sites
{Function: TL_SetAll 

Purpose: Reduce the clutter in TL programming with one call to 
set color, size, style, left and right extension. 

These almost always need to be specified and clutter up 
the programs something awful. This should help. 

Author: Clyde Lee, Copyright SYTECH Corporation, 2002 
www.theswingmachine.com 

Use: Permission granted to use the function in any application 
desired so long as the copyright notice is retained. 

} 


Inputs: TL_Ref(numericsimple), 
Colr(numericsimple), 
Size(numericsimple), 
Styl(numericsimple), 
TLxl(truefalse), 
TLXr(truefalse); 



TL_SetColor(TL_Ref, Colr); 
TL_SetSize (TL_Ref, Size); 
TL_SetStyle(TL_Ref, Styl); 
TL_SetExtLeft (TL_Ref, TLxl); 
TL_SetExtRight(TL_Ref, TLxr); 

TL_SetAll=1; 

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


  • Topics

  • Posts

    • Date : 26th November 2020.Brexit endgame remains in sharp focus!The USD has remained soft in quiet conditions, while global asset markets have seen little direction. The US Thanksgiving holiday has quelled activity. Europe’s Stoxx 600 traded near flat. Most stock markets in Asia gained, though remained off recent highs. The MSCI World Index is also off its highs, but remained buoyant and on course for a record monthly increase this month. Copper posted a new near 7-year high, and while other base metal prices were also underpinned most remained off recent trend highs. Oil prices saw modest declines after recent gains, which culminated in a nine-month high yesterday.The Brexit endgame remains in sharp focus!Sterling has seen limited direction, continuing to hold gains from month-ago levels of around 1.5% to 2.5% versus the Dollar, Euro and Yen. There is still no breakthrough in down-to-the-wire negotiations between the EU and UK, and there are lots of warnings of border chaos and, from external BoE MPC member Saunders, of long-lasting economic consequences in the event of a no deal exit from the common market.European Commission president von der Leyen said “we are ready to be creative” to get a deal while repeating that “we are not ready to put into question the integrity of the single market.” An Irish government member said that a deal was “imperative” for everyone.The steadiness in the Pound, the principal conduit of financial market Brexit sentiment, reveals that investors remain unperturbed. One explanation is the real money participants are sitting on their collective hands, positioning for an expected deal but waiting on concrete developments and details, while maintaining vigilance on the possibility of there being a no deal by accident.Short-term speculative participants, meanwhile, don’t seem to have had a fruitful time in trying to play the fatiguing myriad news headlines and endless deadlines that have come and gone. The latest and supposedly final deadline, is next Tuesday — December 1 — which leaves just one month for a deal to be ratified on both sides of the Channel. We expect to a deal to materialize at the last minute, just as the withdrawal agreement was seemingly pulled out of the hat at the ultimate minute a year ago. There may even be a fudged extension.Pressure on the UK government is intense. US president-elect Biden warned London that the scope for a deal with the US would be compromised if there is a return of a hard border on Ireland — which is what could happen in a no-deal scenario (the UK government would have the choice between maintaining a free-flowing border on Ireland at the price of breaking up the border integrity of the UK, and possible protests and even violence from loyalists, or breaking the EU withdrawal agreement, which would result in a hard Irish land border).A leaked Whitehall document warns of a “perfect storm” of chaos in the event of a no-deal in the Covid-19 era. There are also pressures on the other side of the Channel to reach an accord. While French President Macron has political incentive to put up a show of fighting over fishing rights, he is not likely to carry through on his threat to veto any deal as other key EU states don’t see the UK’s position on fishing as being unreasonable. France and other nations, and the UK, also need to maintain good relations for security and many other practical reasons.As for the market impact of a deal, much will depend on how narrow the deal is. The narrower it is, the bigger the negative impact on both the UK and EU’s terms of trade positions will be on January 1, particularly the UK’s.Always trade with strict risk management. Your capital is the single most important aspect of your trading business.Please note that times displayed based on local time zone and are from time of writing this report.Click HERE to access the full HotForex Economic calendar.Want to learn to trade and analyse the markets? Join our webinars and get analysis and trading ideas combined with better understanding on how markets work. Click HERE to register for FREE!Click HERE to READ more Market news. Andria Pichidi Market Analyst HotForex Disclaimer: This material is provided as a general marketing communication for information purposes only and does not constitute an independent investment research. Nothing in this communication contains, or should be considered as containing, an investment advice or an investment recommendation or a solicitation for the purpose of buying or selling of any financial instrument. All information provided is gathered from reputable sources and any information containing an indication of past performance is not a guarantee or reliable indicator of future performance. Users acknowledge that any investment in FX and CFDs products is characterized by a certain degree of uncertainty and that any investment of this nature involves a high level of risk for which the users are solely responsible and liable. We assume no liability for any loss arising from any investment made based on the information provided in this communication. This communication must not be reproduced or further distributed without our prior written permission.
    • Those who take quick and payday loans and refuse to pay them back are now hooked.   Normally, it is not a good thing to go into debt unless that is your last resort. We know that people are fond of borrowing and they seriously hate paying it back. Even when it comes to paying back what was borrowed, your creditor will become your enemy. Such is the nature of human beings.   Debtors don’t want to return money even when they eventually have means of repayment. If anyone borrows money and returns it, it means the person has a Godly spirit in him.   If people ponder the power of compound interest, they would stay away from loans. If you pay 1.33% or 1.79% interest per month on a loan, you will need to pay back roughly 16% or 20% per annum. And this will begin to compound as long as you don’t pay.   Most borrowers who are now in trouble have realized that the interest rates are eventually higher than the capitals borrowed. They realize that the creditors are using an indirect way to enslave borrowers (go and work for me, bring back the capital plus profits).   The banks themselves know that business environment is very tough and are now indirectly asking people to work with or spend the banks’ funds and bring the funds plus profits back to them. Many borrowers really have poor mentality and they don’t know the gravity of what they’re putting themselves into.   If a bank could lend out 1 billion USD per annum, it would reap a return of 150 million USD (at least on paper). Do you think they will forget about you if you owe them even a small amount?   Loans without collateral are now popular. But your collateral is your BVN – unless you don’t want to operate accounts again in the country.   I have heard people saying” Don’t pay to my Access Bank account again, but pay into my UBA bank account.” “Don’t send that cash into my GTBank account again, but send it to Zenith Bank.” It’s like postponing the evil day.   Ti iya o ba i tii je eniyan, iya nri nkan panu lowo ni (Yoruba adage). I literally means: If Suffering has not come to attack you, it means Suffering is currently busy with something. If you think you can avoid payment by abandoning the account you used to borrow money, you’re only postponing the evil day.   They cannot come for you when your debt is small, but the debt will begin to compound and compound till it would make sense for them to come for you.   BAD NEWS FOR DEBTORS CBN has given banks permission to deduct from funds a debtor has in another bank account. For example, if you borrow quick loans from FCMB and you abandon your FCMB account and you are now operating another account with First Bank, FCMB can make a request to First Bank, and the money you owed will be deducted once or gradually from your account at First Bank, without your permission.   Would you now keep money at home, so that bad boys will come to you to take their dues?   Borrowing isn’t a good thing, no matter how plausible it looks.   Profits from games of knowledge: https://www.predictmag.com/   
    • LITECOIN (LTC) SUSTAINS RECENT RALLIES, FACES RESISTANCE AT $90 HIGH Key Highlights Litecoin rallies to the high of $90 The crypto may be range-bound between $80 and $90 Litecoin (LTC) Current Statistics The current price: $89.20 Market Capitalization: $5,900,735,267 Trading Volume: $7,953,660,011 Major supply zones: $70, $80, $90 Major demand zones: $50, $30, $10 Litecoin (LTC) Price Analysis November 24, 2020 Litecoin has continued its rallies as the coin reached a high of $89.86. LTC price has been making a series of higher highs and higher lows. The upward move has been facing resistance at $90. On the upside, if buyers can push LTC above $90, the coin will rally above $100 high. However, if buyers fail to resume the upside momentum, LTC will be compelled to a sideways move for a few days. If the uptrend is resisted the coin will be range bound between $80 and $90. LTC/USD – Daily Chart Litecoin (LTC) Technical Indicators Reading LTC price broke the resistance line of the ascending channel. This indicates a further upward movement of the coin. The crypto is at level 74 of the Relative Strength Index period 14. It indicates that the coin is in the overbought region of the market. LTC/USD – 4 Hour Chart Conclusion Litecoin has made an impressive bullish run on the upside. Nevertheless, the retraced candle body on October 31 tested the 61.8% Fibonacci retracement level. It indicates that the coin will rise to a level of 1.618 Fibonacci extension level. This extension is equivalent to $70 high. Meanwhile, the price action is above the projected price level. Source: https://learn2.trade 
    • XRP/USD PULLS BACK AT RESISTANCE LEVEL OF $0.72 XRP/USD MARKET NOVEMBER 26 After the price retracement, it may resume its bullish trend and the resistance level of $0.79 and $0.88 may be reached. Below the current price, the level is found the support levels at $0.55, $0.44, and $0.39. However, the relative strength index period 14 is at 70 levels bending down to indicate a sell signal which may be a pullback. KEY LEVELS: Resistance levels: $0.72, $0.79, $0.88 Support levels: $0.61, $0.55, $0.49 XRP/USD Long-term Trend: Bullish XRPUSD is bullish in the long-term outlook; the crypto soars towards the north by the strong bullish momentum. The bulls’ momentum breaks up the resistance levels of $0.28, $0.33, and $0.36. The price has tested the resistance level of $0.79 on October 24. The price pulls back to retest the broken level of $0.61. Today, the XRP market is dominated by the bears and the daily candle is bearish. The price may increase further after the pullback. XRPUSD Daily chart, November 26 The two EMAs are located below the coin and it is trading far above 9 periods EMA and 21 periods EMA which indicate a strong bullish momentum. After the price retracement, it may resume its bullish trend and the resistance level of $0.79 and $0.88 may be reached. Below the current price, the support levels is found at $0.55, $0.44, and $0.39. However, the relative strength index period 14 is at 70 levels bending down to indicate a sell signal which may be a pullback. XRP/USD medium-term Trend: Bullish The bulls dominate the XRPUSD market. Immediately after the breakout from the consolidation zone, the bulls push the price high above the September high. It is currently pulling back at the resistance level of $0.72. The price is testing the support level of $0.55 at the time of writing this report. In case the just mentioned level does not hold, there will be a further price reduction. XRPUSD 4-Hour chart, November 26 The price has penetrated the two EMAs downside and it is trading below 9 periods EMA and 21 periods EMA. The fast-moving EMA is trying to cross the slow-moving EMA downside. The relative strength index period 14 is pointing down at 50 levels which connotes a sell signal and it may be a pullback.   Source: https://learn2.trade 
    • this is great news, good partnership and neymar is a big name along side mbappe and di maria. its gonna be a good season to watch
×
×
  • Create New...

Important Information

By using this site, you agree to our Terms of Use.