Market Mood Indicator

Type : Indicator, Name : Market Mood Indicator

{Market Mood - (c) G.Prick 1997 e-mail: guus@iaehv.nl
provides a visual representation of market mood by using trendlines}

inputs: Flen(100);
vars: ax(0),Fhi(0),Flo(0),Midd(0),stem(0),RL(0),LL(0),BLH(0),BRH(0),TLH(0),
TRH(0),LA(0),RA(0);
if currentbar = 1 then begin
Fhi = highest(H,Flen);Flo=lowest(L,Flen);
ax = Fhi-Flo;
stem = TL_New(date,time,Fhi-.6*ax,date,time,Fhi-.4*ax);
RL = TL_New(date,time,Fhi-.4*ax,date,time,Fhi-.2*ax);
LL = TL_New(date,time,Fhi-.2*ax,date,time,Fhi-.1*ax);
BLH = TL_New(date,time,Fhi-.2*ax,date,time,Fhi-.1*ax);
BRH = TL_New(date,time,Fhi-.1*ax,date,time,Fhi-.4*ax);
TLH = TL_New(date,time,Fhi-.6*ax,date,time,Fhi-.2*ax);
TRH = TL_New(date,time,Fhi-.7*ax,date,time,Fhi-.6*ax);
LA = TL_New(date,time,Fhi-.7*ax,date,time,Fhi-.6*ax);
RA = TL_New(date,time,Fhi-.3*ax,date,time,Fhi-.2*ax);
TL_SetExtLeft(stem, false);TL_SetExtRight(stem, false);
TL_SetExtLeft(RL, false);TL_SetExtRight(RL, false);
TL_SetExtLeft(LL, false);TL_SetExtRight(LL, false);
TL_SetExtLeft(BLH, false);TL_SetExtRight(BLH, false);
TL_SetExtLeft(BRH, false);TL_SetExtRight(BRH, false);
TL_SetExtLeft(TLH, false);TL_SetExtRight(TLH, false);
TL_SetExtLeft(TRH, false);TL_SetExtRight(TRH, false);
TL_SetExtLeft(LA, false);TL_SetExtRight(LA, false);
TL_SetExtLeft(RA, false);TL_SetExtRight(RA, false);
if false then plot1(0,"duh");
end;
if currentbar > 1 then begin
Fhi = highest(H,Flen);Flo=lowest(L,Flen); ax = Fhi-Flo; Midd =
Flen/2; TL_SetEnd(stem,date[Midd],time[Midd],Fhi-.4*ax);
TL_SetBegin(stem, date[Midd], time[Midd], Fhi-.6*ax);
TL_SetEnd(RL,date[Midd],time[Midd],Fhi-.6*ax); TL_SetBegin(RL,
date[Midd-Midd/2], time[Midd-Midd/2], Flo);
TL_SetEnd(LL,date[Midd],time[Midd],Fhi-.6*ax); TL_SetBegin(LL,
date[Midd+Midd/2], time[Midd+Midd/2], Flo);
TL_SetEnd(BLH,date[Midd+Midd/6],time[Midd+Midd/6],Fhi-.2*ax);
TL_SetBegin(BLH, date[Midd], time[Midd], Fhi-.4*ax);
TL_SetEnd(BRH,date[Midd-Midd/6],time[Midd-Midd/6],Fhi-.2*ax);
TL_SetBegin(BRH, date[Midd], time[Midd], Fhi-.4*ax);
TL_SetEnd(TLH,date[Midd],time[Midd],Fhi); TL_SetBegin(TLH,
date[Midd+Midd/6], time[Midd+Midd/6], Fhi-.2*ax);
TL_SetEnd(TRH,date[Midd],time[Midd],Fhi); TL_SetBegin(TRH,
date[Midd-Midd/6], time[Midd-Midd/6], Fhi-.2*ax);
if close > close[10] then begin
TL_SetEnd(LA,date[Flen],time[Flen],Fhi-.2*ax);
TL_SetBegin(LA, date[Midd], time[Midd], Fhi-.5*ax);
TL_SetEnd(RA,date[1],time[1],Fhi-.2*ax);
TL_SetBegin(RA, date[Midd], time[Midd], Fhi-.5*ax);
end else begin
TL_SetEnd(LA,date[Flen],time[Flen],Fhi-.8*ax);
TL_SetBegin(LA, date[Midd], time[Midd], Fhi-.5*ax);
TL_SetEnd(RA,date[1],time[1],Fhi-.8*ax);
TL_SetBegin(RA, date[Midd], time[Midd], Fhi-.5*ax);
end;
end;