PureBytes Links
Trading Reference Links
|
for all you newbie code collectors, circa 97
Thanks Mark for sending all that code to the list.
I follow in your wake and would like to add my market mood indicator.
It makes extensive use of Trendlines to provide a visual picture of
the sentiment of the market.
Attached an ela archive, the indicator will import as 'gpmarketmood'
(would appreciate if others would as well specify how they named
their analyses techniques inside the ela archive, so one doesn't have
to search for them first...)
The full ascii text of the indicator is below:
{Market Mood - (c) G.Prick 1997 e-mail: guus@xxxxxxxx}
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;
---------------------------
Guus Prick
Bird sings, cat awakens
http://www.iaehv.nl/users/guus/
---------------------------
Attachment:
Description: "Mmood.ela"
|