|
PureBytes Links
Trading Reference Links
|
I don't believe that this is Easylanguage code. Looks like Pascal.
----- Original Message -----
From: "Thomas J. Festa" <festat@xxxxxxxxxxxxx>
To: <omega-list@xxxxxxxxxx>
Sent: Tuesday, November 21, 2006 9:05 PM
Subject: Help with Coding Woodie's CCI
Here is code I googled on Woodie's CCI.
I don't know how to CreateParameterInteger and if Vars were initialized
correctly:
Please help,
Thomas J. Festa, CMT
Technical Analysis Systems Developer
Proprietary Trader - Equities & Russell 2000 Futures
Hold Brothers, LLC
Cell: (908) 581-8880
======================================
Vars:
CCILength(0), {Integer}
TCCILength(0), LRLength(0), {Integer}
i(0), Maxbars(0), Timebar(0), Dncnt(0), Upcnt(0), {Integer}
_CCI(0), CCI_histo(0), TCCI(0), ZL1(0), ZL2(0), {TSeries}
LSMA(0), YBar(0), GBar(0), RBar(0), {TSeries}
TTrendType(0), ttUnknown(0), ttUp(0), ttDown(0);
TTrendType = (ttUnknown, ttUp, ttDown);
begin
CCILength := CreateParameterInteger('CCI
Length' , 1, 999, 14, true);
TCCILength := CreateParameterInteger('TCCI
Length', 1, 999 , 6, true);
LRLength := CreateParameterInteger('LR
Length' , 1, 999, 25, true);
Maxbars :=
CreateParameterInteger('Maxbars' , 1, 999 , 6, true);
with Indicator do
begin
ShortName :='Woodies CCI';
RequiredBars := MaxInt(MaxInt(CCILength,
TCCILength),LRLength);
end;
ZL1 := CreateSeries(BarCount);
ZL2 := CreateSeries(BarCount);
YBar := CreateSeries(BarCount);
GBar := CreateSeries(BarCount);
RBar := CreateSeries(BarCount);
_CCI := CCI(High, Low, Close,
CCILength, CCILength);
CCI_histo := CCI(High, Low, Close,
CCILength, CCILength);
TCCI := CCI(High, Low, Close,
TCCILength, TCCILength);
LSMA :=
MovingRegression(Close,LRLength);
Dncnt := 0;
Upcnt := 0;
Timebar := Maxbars-1;
TrendType := ttUnknown;
for i:=FirstValidIndex(LSMA) to BarCount-1 do begin
if Close[i] > LSMA[i] then ZL1[i] := 0 else ZL1[i] := NAN;
if Close[i] < LSMA[i] then ZL2[i] := 0 else ZL2[i] := NAN;
if (CCI_histo[i] > 0) then begin
Dncnt := 0;
Upcnt := Upcnt+1;
if Upcnt = Timebar then YBar[i] := CCI_histo[i] else YBar[i]:=
NAN;
if Upcnt >= MaxBars then TrendType := ttUp;
end;
if (TrendType = ttUp) and (CCI_histo[i] > 0) then GBar[i]:=
CCI_histo[i] else GBar[i]:= NAN;
if (CCI_histo[i] < 0) then begin
Upcnt := 0;
Dncnt := Dncnt+1;
if Dncnt = Timebar then YBar[i] := CCI_histo[i] else YBar[i]:=
NAN;
if Dncnt >= MaxBars then TrendType := ttDown;
end;
if (TrendType = ttDown) and (CCI_histo[i] < 0) then RBar[i]:=
CCI_histo[i] else RBar[i]:= NAN;
end;
with CreateLine(CCI_histo) do
begin
Name :='CCI Histogram';
Color := RGB(193,193,193);
LineType := ltBar;
end;
with CreateLine(YBar) do
begin
Name :='TimeBar ';
Color := clYellow;
LineType := ltBar;
end;
with CreateLine(GBar) do
begin
Name :='Green Bar';
Color := clGreen;
LineType := ltBar;
end;
with CreateLine(RBar) do
begin
Name :='Red Bar ';
Color := clRed
LineType := ltBar;
end;
with CreateLine(_CCI) do
begin
Name :='CCI ';
Color := RGB(124,124,124);
Width := 2;
end;
with CreateLine(TCCI) do
begin
Name :='Turbo CCI ';
Color := clYellow;
Width := 2;
end;
with CreateLine(ZL1) do
begin
Name :='LSMA Up';
LineType := ltCandlestick;
color := RGB(13,255,13);
Width := 4;
end;
with CreateLine(ZL2) do
begin
Name :='LSMA Dn';
LineType := ltCandlestick;
color := clRed;
Width := 4;
end;
CreateLine(FillSeries(CreateSeries(BarCount), -200)).Color := clWhite;
CreateLine(FillSeries(CreateSeries(BarCount), -100)).Color := clWhite;
CreateLine(FillSeries(CreateSeries(BarCount), 100)).Color := clWhite;
CreateLine(FillSeries(CreateSeries(BarCount), 200)).Color := clWhite;
END.
========================================================================
=
Confidentiality Notice: The information contained in this e-mail and any
attachments may be legally privileged and confidential. If you are not
an intended recipient, you are hereby notified that any dissemination,
distribution, or copying of this e-mail is strictly prohibited. If you
have received this e-mail in error, please notify the sender and
permanently delete the e-mail and any attachments immediately. You
should not retain, copy or use this e-mail or any attachment for any
purpose, nor disclose all or any part of the contents to any other
person.
|