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]


44

ReturnValue = AcnieCobra(CPercent, CRangeFactor); If ReturnValue > 0 Ttien Begin

PatternString = "C";

If ReturnValue = 1 Then

LongString = LongString + PatternString

Else

ShortString = ShortString + PatternString;

End;

ReturnValue = AcmeHook(HLength, HPercent); If ReturnValue > 0 Then Begin

PatternString = "H";

If ReturnValue = 1 Ttien

LongString = LongString + PatternString

Else

ShortString = ShortString + PatternString;

End;

If AcmelnsideDayZ Ttien Begin

PatternString - "I";

LongString = LongString + PatternString;

ShortString = ShortString + PatternString; End;

ReturnValue = Acmelail(LpErcent, LLength); If ReturnValue > 0 Ttien Begin

PatternString = "L";

If ReturnValue = 1 Ttien

LongString = LongString + PatternString

Else

ShortString = ShortString + PatternString;

End;

ReturnValue = AcmeHarami;

If ReturnValue > 0 Then Begir

PatternString = "H";

If ReturnValue = 1 Then

LongString = LongString + PatternString

Else

ShortString - ShortString + PatternString;

End;

ReturnValue = AcmePullback(PADX, PLength); If ReturnValue > 0 Ttien Begin

PatternString = "P";

If ReturnValue = l Ttien

LongString = LongString + PatternString

Else

ShortString - ShortString * PatternString;

End;

Ki-luinV.il

If ReturnValue > 0 Ttien Begin PatternString = "T"; If ReturnValue = 1 Then

LongString = LongString + PatternString Else

ShortString = ShortString + PatternString;

End;

If High > AcmeVHigh(VFactor, FilterLength) Ttien ShortString = ShortString + "V";

If Low AcmeVLow(VFactor, FilterLength) Then LongString = LongString + "V";

{Pattern Qualifiers)

ACondition = AcmeOnAverage(ALength); If ACondition Then Begin

PatternString = "A";

LongString = LongString + PatternString;

ShortString = ShortString + PatternString; End;

Conditionl = AcmeNarrowRange[NLengthl, l) and AcmeNarrowRange(NLengthl, o)[l];

Condition2 = Low > Low[l] and High < High[l] and Low[l] > Low[2] and Highfl] < High[2];

Conditions = AcmeNanowRange(NLength2, 0); Condition4 - AcmeInsideDayNR(NLength3, O); Conditions = Range <= NRFactor * ATR;

If (Conditionl or Condition2 or Conditions or Condition4 or Conditions) Then Begin PatternString = "N"; If StrLen(LongString) > 0 Then

LongString = LongString + PatternString; If StrLen(ShortString) > 0 Then

ShortString = ShortString + PatternString;

End;

{Calculate shares based on risk model)

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

(Multiple Pattern Buy Signal}

If StrLen(LongString) >- MinimumPatterns and Low < Lowest(Low, HRange - l)[l] jnd AcmeRangePrrcrnt(Hlgh, HR.ingr) < MR.ingelrrM-Jil .mhI Hif.h > li.wl Thin Hrf:in

{nr. liiliv l.ui-.i-l-- on lh<- (h.irll

II llr.iwl.ir)-.<-<-- ll"-n



acme mar1<et model

Acme Harket Model: Label HarVet Hodel Patterns

1. VIX (V)

2. Put/Call Ratio (P)

3. hew Highs (H)

4. New lows (L)

5. Arms Index, oi TRIN (T)

6. Bullish Consensus (B)

7. Short Sales Ratio (S)

Datal: Harket Index

Data2: VIX

Data3: Put/Call Ratio

Data4: new Highs

DataS: New Lows

Data6: TRIN

Data?: Harket Vane Bullish Consensus

Data8: Public / Specialist Short Sales Ratio

Inputs:

HinimumPatterns(2), Length(20);

Variables:

PatternStringC"), LongStringC-). ShorlMiinnC""). Ri4iniiV.iliii-(()).

PriceDeIta(0),

HiBhLDw(o),

ATR(O.O).

Snooth(4),

HighText(O),

LDwText(O);

If OataConpression < 2 Then

CommentaryCThis indicator must be applied to a daily bar *

"interval or longer.") Else Begin

PatternString = "";

LongString =

ShortString - "";

ATR - VolatiUty(Length);

PriceDelta - ATR / 4;

If Close of Data2 > 0 Then Begin PatternString = "V";

Highlow - AcmeHighLoHlndex(Uose of Data2, Length); If Highlow = 1 Then

LongString = LongString + PatternString Else If HighLow - 2 Then

ShortString = ShortString + PatternString;

End;

If Close of Data3 > 0 Then Begin PatternString = "P";

HiLow - AcmeHighLowIndexCClose of Data3, Length); If HighLow = 1 Then

LongString = LongString + PatternString Else If HighLow - 2 Then

ShortString = ShortString + PatternString;

End;

If Close of Data4 > 0 Then Begin PatternString = "H";

HighLow -. AcmeHighLowIndex(Close of Data4, Length); If HighLow - 2 Then

LongString = LongString + PatternString Else If HighLow - 1 Then

ShortSttiM = ShortString + PattemStriflg;

End;

If Close of DataS > 0 Then Begin PatternString = "L";

HighLow AcmeHighLDwIndex(Close of DataS, Length); If HighLow = 1 Then

LongString - LongString ♦ PattornStilng Else If HighLow - 2 Thrn

Shurl4tilr - StturlSliint; i P.itlriiiM i In:.

I ml;

Condition] - AcineEntryTatgetsCM", BuyStop, 0, 0, 0); BuyCAcme LE H") N Shares Next Bar on BuyStop Stop; End;

(Multiple Pattern Sell Signal}

If Stnen( ShortString) >= HiniiHrfattexns and High > Highest(High, HRarge - l)[l] and AcmeRangePercent(Low, MRange) >= (l - MRangePercent) and LOW < Hightl] Then Begin

{Draw fcntry Targets on the Chart}

If DrawTargets Then

Condilionl = AcmeEntryTargetsCH", 0, 0, ShortStop, 0);

SellCAcme SI ") N Shares Next Bar on Shortstop Stop; End; End;



If aose of Data6 > 0 Ttien Begin PatternString = "T";

HighLow = AcineHighLDwIndex(Average(Close of Data6, Smooth). Length);

If HighLow = 1 Then

LongString = LongString + PatternString Else If HighLow = 2 Then

ShortString = ShortString + PatternString;

End;

If Close of Data; > 0 Then Begin PatternString = "B";

HighLow = AcmeHi£hLowlndex(Close of Data?, Length); If HighLow = 2 Then

LongString = LongString + PatternString Else If HighLoM = 1 Then

ShortString = ShortString + PatternString;

End;

If Close of DataB > 0 Then Begin PatternString = "S";

HighLoM = Acr]eHighLowIndex(Close of OataS. Length); If High low = 1 Ttien

LongString = LongString PatternString Else If HighLow = 2 Ttien

ShortString = ShortString + PatternString;

End;

If LongString <> "" Ttien Begin

Valuel = Text New(Date, Time. High + PriceDelta, LongString); HighText = Text SetStyle{Valuei, 2, 2); If CetBackCroundColor = l Ttien

Text SetColor{Valuei, Tool YellDw) Else

Text 5etColor(Valuel, Tool Black); If AlertEnabled or StrLen(LongString) >= MinimumPatterns Then Alert("Long " + LongString);

End;

If ShortString "" Then Begin

Valuel = Text New(Date, Time, Low - PriceDelta, ShortString); If CetBackGroundColor = 1 Then

Text SetColor(Valuel, Tool Yellow) Else

Text SetColor(Valuel, Tool Black); LowText = Text SetStyle(Valuel, 2, o);

If AlertEnabled or StrLen( Short String) >= HiniitiumPatterns Then AlertCShort " + ShortString);

End; End;

U.4S.:?jL.?3-:-:.a3

Acme Market Patterns: Label Bar Patterns

1. Cobra (C)

2. Hook (H)

3. Inside Day 2 (I)

4. Tail (L) 5- Harami (M)

6. 1-2-3 Pullback (P)

7. Test (T)

8. V Zone (V)

qualifiers

1. Average (A)

2. Narrow Range (N)

Inputs:

HlnimumPrice(lo), Length(io);

Variables:

PatternStringC"),

LongStringC"),

ShortStringC"),

ReturnValue(O),

PiiceDelta(O),

AOR(O.O),

ALength(50),

ACondition(False),

CPercent(0.25).

CRangeFactor(0.8),

HLength(l),

HPercert(o.2),

LPercent(o.3),

LRangeLength(lo),

PADX(25),

PLength(l4),

VFactor(3.o).

VHighZone(O.o).

VLowZone(O.O).

NLengthl(S),

NLength2(10),

NLenRlh3(4).

HighT.-xIfo).

lcMlfKl(ll);



[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]