back start next


[start] [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] [18] [19] [20] [21] [22] [23] [24] [25] [26] [27] [28] [29] [30] [31] [32] [33] [34] [35] [36] [37] [38] [39] [40] [41] [42] [43] [44] [45] [46] [47] [ 48 ] [49] [50] [51] [52] [53] [54]


48

N = 1;

SHI = SwingHighBar(N, Hlgli, Strength, length); If SHl <> -1 Then Begin N = 2;

FoundHighPivDt = False;

While FoundHighPivot False and N <= HaximuniPivots Begin SH2 = SwingHighBar(N, High, Strength, Length); If SH2 <> -1 and High[SHl} < High[SH2} Then

FoundHighPivot = True; N = N + l; End; End;

N = l;

511 = SMingLowBar(N, low. Strength, Length); If SLl <> -1 Then Begin N = 2;

FoundLowPivot = False;

While FoundLowPivot = False and N <= MaximumPivots Begin SL2 = SwingLowBar(N, Low, Strength, Length); If SL2 <> -1 and Low[SLl] > Low[SL2l Then

FoundLowPivot = True; N = N + l; End; End;

If FoundHighPivot and FoundLowPivot Then Begin HighSlOpe = TLSlopeEasy(High, SH2, SHl); LowSlope = TLSlopeEasyCLow, SL2, SLl); PxojectHlgh = TLValueEasy(High, SHl, SH2, O); ProjectLow = TLValueEasyCLow, SLl, SL2, 0); If Ab5Value(HighSlope) <= Haxiniun61ope and High < ProjectHigh and Ab5Value(LowSbpe) <= HaximumSlope and Low >= ProjectLow Then Begin

TH = TL New(Date[SHl], Tiine[SHl], High[SHa],

Date, Time, High);

TL = TL New(Date[SLl], Time[SLl], Low[SLl], Date, Time, Low); End; End;

Acme Triple Bottom

Acme Triple Bottom: Draw a Triple Bottom line

Inputs:

LookbackBar5(40). StrengthO), RangeFactor(0.3), HALength(50);

Variables; ATR(0.0), TBBar(-l), TBLine(-l), AlertStringC

ATR = Volatility(LookbackBars);

TBBar = AcmeTripleBottom(LookbackBars, Strength, RangeFactor); If TBBar <> -1 Then Begin

TBLine = TL New(Date[o}, Time[o}, Low,

Date[TBBar}. Time[TBear], Low);

AlertString = "Acme Triple Bottom";

If DMIPlus(LookbackBdrs) > DMIMinus(LookbackBars) Then

Conditionl = AbsValue(Low - Average(Close, HALength)) <=

RangeFactor ♦ ATR Else If DMIPlus(LookbackBars) < DMIHinus(LookbackBars) Then

Conditionl = AbsValue(High - Average(Close, HAlerth)) <=

RangeFactor ♦ ATR; If Conditionl Then

AlertString = AlertString + " Near " +

NumToStr(HALength, 0) + " Bar Hovirg Average"; I-F AlertEnabled or Conditionl Then

Alert(AlertStrinB);

End;

ripleTop

« 4 «.« « ************** «if ************

Acme Triple Top: Drow a Trlplt; Top line

1ii]>iils:

1(>,> 1.1. 1.-.(<)()).

Mt.-.inLh(l),



RangeFactor(0.3), MALength(50);

Variables: ATR(O.O), TTBar(-l), TTLine(-l). AlertStringC"");

ATR = Volatility(LoolcbackBars);

TTBar = AcmeTripleTopCLookbackBars, Strength, RangeFactor); If TTBar <> -1 Then Begin

TTLine = TL New(Date[0], Tinie[o], High,

Date[TTBar}, TirneTTBar-, High);

AlertString = "Acme T ipl- Top";

If DMIPlus(LookbaclcBar5) > DMIMinus(LookbackBars) Then

Conditioni = AbsValue(Low - Average(Close, MALength)) <=

RangeFactor * ATR Else If DMIPlus(LookbackBars) < DMIMinus(LookbackBars) Then

Conditioni = AbsValue(High - Average(Close, HALength)) <=

RangeFactor * ATR; If Conditioni Then

AlertString = AlertString + " Near " 4

HuniToStr(MALength, o) + " Bar Moving Average"; If AlertEnabled or Conditioni Then

Alert(AlertString);

End;

acme v high zone

PaincBar

Acme V High Zone: Indicate when the V High Zone is hit

«4.«444>«*4*4« > ****************************** *************** **#****** J

Inputs:

VolatilityFactor(0.9), Length(lO);

Variables:

VHighZone(O.O);

VHighZone = AcmeVHigh(VolatilityFactor, Length); If VHighZone > 0.0 and High >= VHighZone Then PlotPaintBar(High, Low, "V High Zone");

L1.4 scirim 00* acme v low zone

************************ Acme V Low Zone: Indicate when the V Low Zone is hit

Inputs:

VolatilityFactor(0.9), Length(10);

Variables:

VLowZone(O.O);

VLowZone = AcmeVLow(VolatilityFactor, Length); If VLowZone > 0.0 and Low <= VLowZone Then PlotPaintBar(High, Low, "V Low Zone");

Acme v Strategy strategy

Table 11.17. Acme V Strateg>-

Signed Name

Long Eiiry

LongKxit

Short Entry

SJKTtExit

Acme V System

Acme Trade Manager

Acme V System

Inputs:

{V Parameters)

VolatilityFactor(2.0),

RegressionBars(5),

RangeFactor(l.o),

{Position Parameters)

Equity(lOOODO),

RiskModfl(t).

Riskl>.-mi-iil(7.(i).

1-, 1 (1. ),



ErtryFactor(0.25), DrawTargetstTrue);

Variables: N(O), ATR(O.O), ATRLength(20), MA(O.O), MALength(50). LRValue(o.o);

ATR = volatility(ATRLength);

HA = Average(Close, HALength);

LRValue = LirearRegValue(Low, RegressionBars, -1);

{Entry Signal)

If (DayOfWeelc(Date) = l or DayOfWeek(Date) = 2) Then Begin {Calculate shares based on risk model}

N = AcmeGetShares(Equity, RiskModel, RiskPercent, RiskATR);

If High < Lowest(High, RegressionBars - l)[l} and Range RangeFactor * ATR and Low > LRValue and Low > HA and

High > Low[a} Then Begin

{Draw Entry Targets on the Chart} If DrawTargets Then

Conditionl = AcmeEntryTargetsCV", Close + EntryFactor.

0, 0, 0);

BuyCAcme LE V") N Shares Next Bar on Close + EntryFactor Stop; End; End;

AcmeCobra: Search for the Cobra Pattern

Inputs:

Percent(Numeric), RangeFactor(Numeric);

Variables: ATR(O.O), length(70);

AUIIi-liilil.l O-

AcmeDoubleBottom: Find a double bottom formation

Inputs:

LookbackBars(Numeric),

Strength(Numeri£),

RangeFactor(Numeric);

Variables:

RangeDelta(o.o), HighPivot(O.O), LowPivot(o.o), LowMinimum(7);

AcmeDoubleBottom = -l;

RangeDelta = RangeFactor * Volatility(LookbackBars);

HighPivot = PivotHighVSBar(l, High, Strength, Strength, LookbackBars);

LowPivot = PivotLowVSBar(l, Low, Strength, Strerigth, LookbackBars);

If HighPivot <> -1 and LowPivot <> -1 and LowPivot >= LowHinimum and

AbsValue(Low - Low[LowPivot}) <= RangeDelta and AbsValiie(Low - Lowest(Low, LowPivot)) < RangeDelta and HighPivot < LowPivot and Low <= Low[i} Then

AcmeDoubleBottom = LowPivot;

AcmeDoubleTop

Function

nii)ic).>iilili-lii>: I litd .1 (liiuhir l.>)i t

ATR = Volatility(Length);

If AcmeRangePercent(Open, 0) <= Percent and AcmeRangePercent(Close, 0) >= (1 - Percent) and Range <= RangeFactor ♦ ATR Then AcmeCobra = l;

If AcmeRangePercent(Open, 0) >= (1 - Percent) and AcmeRangePercent(Close, 0) <= Percent and Range <= RangeFactor * ATR Then AcmeCobra = 2;

AcmeDoubleBottom



[start] [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] [14] [15] [16] [17] [18] [19] [20] [21] [22] [23] [24] [25] [26] [27] [28] [29] [30] [31] [32] [33] [34] [35] [36] [37] [38] [39] [40] [41] [42] [43] [44] [45] [46] [47] [ 48 ] [49] [50] [51] [52] [53] [54]