[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Blast from the Past!



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"