Woodie CCI

Welcome Guest ( Login \| Register )

Home » ActFX » Custom Indicators » Woodie CCI

Woodie CCI

Rate Topic

Display Mode

Topic Options

Author

Message

trixxx

Posted 8/20/2010 1:00:18 AM

Forum Newbie

Group: Forum Members
Last Login: 10/10/2010 3:38:49 PM
Posts: 8, Visits: 74

Hi all. Help me. I need a Woodie CCI indicator. Please

Post #1872

Den

Posted 9/6/2010 9:44:28 AM

Junior Member

Group: Forum Members
Last Login: 9/7/2010 5:32:17 AM
Posts: 24, Visits: 36

Hello.

I have just written Woodies CCI. Look at this file may be it will help you.

Bye Den

Post Attachments

Woodies CCI.act (146 views, 4.37 KB)

Post #1940

trixxx

Posted 9/6/2010 2:32:11 PM

Forum Newbie

Group: Forum Members
Last Login: 10/10/2010 3:38:49 PM
Posts: 8, Visits: 74

Thanks, Den, but it is not Woodie CCI
This already http://www.actfx.com/Download50099.aspx

Post #1941

Den

Posted 9/7/2010 5:33:10 AM

Junior Member

Group: Forum Members
Last Login: 9/7/2010 5:32:17 AM
Posts: 24, Visits: 36

Hi.

I thought, Woodies CCI consist of two lines CCI. But if I am not right, could you describe or make link for Woodies CCI. I will try to create it.

Den

Post #1942

trixxx

Posted 9/7/2010 9:15:05 AM

Forum Newbie

Group: Forum Members
Last Login: 10/10/2010 3:38:49 PM
Posts: 8, Visits: 74

This lightweight version (no SI-indikators & CZ-indikators)

line: 0 -zero ; +/-50 ; +/-100 ; +/-200

Edited: 9/7/2010 9:19:58 AM by trixxx

Post #1949

trixxx

Posted 10/2/2010 6:02:49 AM

Forum Newbie

Group: Forum Members
Last Login: 10/10/2010 3:38:49 PM
Posts: 8, Visits: 74

I need help.
This indicators not work... and I do not know where the error?
---------------------------------------------------
const
IndicatorName = 'Woodie CCI (20)';
Layout = Separated;

var
CCI, TCCI, CZI_UP, CZI_DW, SI_UP, SI_DW, ZL : TLineGraph;
TREND_UP, TREND_DW, BAR, PRE_TREND : TVolumeGraph;
cci_period : Integer;
TP_CCI, MD_CCI, RES_CCI, CCIValue,
TP_TCCI, MD_TCCI, RES_TCCI, TCCIValue : Extended;
SMATP_CCI, SMAMD_CCI,
SMATP_TCCI, SMAMD_TCCI : TSMAStatistics;

procedure Init;
begin

CCI := TLineGraph.Create;
CCI.Color := clWhite;
SMATP_CCI := TSMAStatistics.Create;
SMATP_CCI.Period := 20;
SMAMD_CCI := TSMAStatistics.Create;
SMAMD_CCI.Period := 20;

TCCI := TLineGraph.Create;
TCCI.Color := clGray;
SMATP_TCCI := TSMAStatistics.Create;
SMATP_TCCI.Period := 6;
SMAMD_TCCI := TSMAStatistics.Create;
SMAMD_TCCI.Period := 6;

TREND_UP := TVolumeGraph.Create;
TREND_DW := TVolumeGraph.Create;
TREND_UP.Color := clGreen;
TREND_DW.Color := clMaroon;

ZL := TLineGraph.Create();
CZI_UP := TLineGraph.Create();
CZI_DW := TLineGraph.Create();
SI_UP := TLineGraph.Create();
SI_DW := TLineGraph.Create();
ZL.Color := clGray;
CZI_UP.Color := clGray;
CZI_DW.Color := clGray;
SI_UP.Color := clGray;
SI_DW.Color := clGray;

end;

procedure Add(const Index: Integer);
begin

// ZL, CCI, SI
ZL.AddXY(SourceGraph.XValue(Index), 0);
CZI_UP.AddXY(SourceGraph.XValue(Index), 100);
CZI_DW.AddXY(SourceGraph.XValue(Index), -100);
SI_UP.AddXY(SourceGraph.XValue(Index), 200);
SI_DW.AddXY(SourceGraph.XValue(Index), -200);

// CCI
TP_CCI := (SourceGraph.HighValue(Index)+SourceGraph.LowValue(Index)+SourceGraph.CloseValue(Index))/3;
SMATP_CCI.AddValue(TP_CCI);
if SMATP_CCI.HasValue(Index) then
begin
MD_CCI := TP_CCI - SMATP_CCI.GetValue(Index);
SMAMD_CCI.AddValue(Abs(MD_CCI));

if (Index - 20) > 0 then
begin
if SMAMD_CCI.HasValue(Index - 20) then
begin
RES_CCI := (0.015 * SMAMD_CCI.GetValue(Index - 20));
if RES_CCI = 0 then CCIValue := 0
else CCIValue := MD_CCI / RES_CCI;
CCI.AddXY(SourceGraph.XValue(Index), CCIValue);
end;
end;
end;

// TCCI
TP_TCCI := (SourceGraph.HighValue(Index)+SourceGraph.LowValue(Index)+SourceGraph.CloseValue(Index))/3;
SMATP_TCCI.AddValue(TP_TCCI);
if SMATP_TCCI.HasValue(Index) then
begin
MD_TCCI := TP_TCCI - SMATP_TCCI.GetValue(Index);
SMAMD_TCCI.AddValue(Abs(MD_TCCI));
if (Index - 6) > 0 then
begin
if SMAMD_TCCI.HasValue(Index - 6) then
begin
RES_TCCI := (0.015 * SMAMD_TCCI.GetValue(Index - 6));
if RES_TCCI = 0 then TCCIValue := 0
else TCCIValue := MD_TCCI / RES_TCCI;
TCCI.AddXY(SourceGraph.XValue(Index), TCCIValue);
end;
end;
end;

// BAR
TREND_UP.UseYOrigin := True; TREND_UP.YOrigin := 0;
TREND_DW.UseYOrigin := True; TREND_DW.YOrigin := 0;
PRE_TREND.UseYOrigin := True; PRE_TREND.YOrigin := 0;
BAR.UseYOrigin := True; BAR.YOrigin := 0;

if CCIValue > 0 then
TREND_UP.AddXY(SourceGraph.XValue(Index), CCIValue)
else
TREND_DW.AddXY(SourceGraph.XValue(Index), CCIValue);

end;

procedure Recalculate;
begin
FullRecalculation;
end;

Post #2069