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]
45 If DataCompression = 0 and Barlnterval <= 5 Ttien CommentaryCThls indicator must be applied to a bar interval" " larger than 5 ticks.") Else If DataCompression = 5 Then ComnentaryCThis indicator cannot be appUed to" * " Point and Figure charts. ") Else If Close HirimumPrice Then Begin PatternString = LongString = ""; ShortString = PriceDelta = Volatility(Length} / 4; ADR = Average(Range, Length); ReturnValue = AcmeCobra(CPercent, CRangeFactor); If ReturnValue > 0 Then Begin PatternString = "C"; If ReturnValue = i Then LongString = LongString + PatternString Else ShortString = ShortString + PatternString; End; ReturrtValue - AcmeHook(HLengt*i, Weicent); If ReturnValue > Then Begin PatternString = "H"; If ReturnValue = l Then LongString = LongString + PatternString Else ShortString = ShortString + PatternString; End; If AcmeInsideDay2 Then Begin PatternString = "I"; LongString = LongString + PatternString; ShortString = ShortString + PatternString; End; ReturnValue = AcmeTail(LPercent, LRangeLength); If ReturnValue > 0 Then Begin PatternString = "L"; If ReturnValue = l Then LongString = LongString + PatternString Else ShortString = ShortString + PatternString; End; ReturnValue - AcrneHaranii; If ReturnValue > 0 Then Begin PatternString = "H"; If RMurnVnlitr 1 Th.n liiiiKSIriii)-. 1. 1 . 11 t I.ill.rir......i; I l%<- End: ShortString = ShortString t PatternString; ReturnValue = AcmePullback(PADX, PLength); If ReturnValue > 0 Then Begin PatternString = "P"; If ReturnValue = l Then LongString = LongString + PatternString Else ShortString = ShortString + PatternString; End; ReturnValue = AcmeTest; If ReturnValue > 0 Then Begin PatternString = "T"; If ReturnValue = % Then LongString = LongString + PatternString Else ShortString = ShortString + PatternString; End; VHighZone = AcmeVHigh(VFactor, Length); If High >= VHighZone and VHighZone > Then ShortString = ShortString * "V"; VtowZone - AcmeVLow(VFactoi, Length); If Low <= VLowZone and VLowZone > 0 Then LongString = LongString + "V"; (Qualifiers} ACondition = AcnieOnAverage(ALength); If ACondition Then Begin PatternString = "A"; LongString = LongString + PatternString; ShortString = ShortString + PatternString; End; Conditioni = AciiieNarrowRange(NLengthl, l) and AciiieNarrowFange(NLengthl, 0)[l]; Condition! = Low > Ldw[i] and High < High[l] and low[i) > Low(2] and High[i] < High[2]; Conditions AcineNarrowRange(NLength2, 0); Condition4 = AcmeInsideDayNR(NLength3. O); Conditions = Range <= CRangeFactor * ADR; If (Condilionl or Condition2 or Condition or Condition4 or Conditions) Then Begin P.l1hTriMring - "N"; M 4lili-n(liiii>.Mri(it;) > 0 llu-n hmij;mmi.> l..t.,..M,i„,: . 1-..11.-, . 1 :. N .111.- .1(..1 1 ;) ( Hull
ShortString = ShortString + PatternString; End; If LongString <> "" Then Begin valuel = Text New(Date, Time, High + PriceDelta, LongString); HighText = Text SetStyle(Valtel, 2, 2); If CetBackCroundColor = l Then Text SetColor(Valbei, Toaljellow) Else TeKt SetColor(Valuel, TooIBlack); If AlertEnabled or StrLen(LongString) >= 2 Then WertCLong " + LongString); End; If ShortString "" Then Begin Valuel = Text New(Date, Time, Low - PriceDelta, ShortString); If CetBackCroundColor = i Then Text SetColor(Valuel, Tool Yellow) Else Text SetColor(Valuei, Toal Black); LowText = Text SetStyle(Valuel, 2, 0); If AlertEnabled or StxLEn(ShortString) >= 2 Then AlertCShort " + ShortString); End; End; Acme Market Strategy Table 11.13. Acme Market Strategy SigiialNcnue | Long Entry | LongKxii | Short Eliry | | Acme Market System | | | | | Acme Tfade Maimer | | | | |
Acme Maiket System Acme Market System: Look for combinations of multiple market patterns 1. VIX (V) 2. Put/Call Ratio (P) 3- New Highs (H) 4. New Lows (L) 5. Arms Index, or TRIM (T) 6. Bull/Bear Consensus (B) 7. Short Sales Ratio (S) Datai: Market Index Data2: VIX Data3: Put/Call Ratio Data4: New Highs DataS: New Lows Dats6: TRIN Data/: Market Vane Bullish Consensus DataS: Public / Specialist Short Sales Ratio Inputs: {Market Parameters} HinimumPatterns(2), Length(20), {Position Parameters} Equity(100000), RiskHodel(3), RiskPercent(2.0), RiskATR(1.0), EntryFactor(0.2), DrawTargets{Triie); Variables: N(0). ATR{0.0), PatternStringC"), LongStringC"), ShortStringC"), ReturnValue(O), PriceDelta(o), HighLow(o), Smooth(4). BuySlup(0.0),
BuyStop = High + (EntryFactor * ATR); Shortstop = Low - (EntryFactor * ATR); If DataCompression < 2 Then CommentaryCThis indicator must be apfuied to a daily bar + "interval or longer.") Else Begin PatternString = ""; LongString = ""; ShortString = ""; ATR = Volatility(Length); PriceDelta = ATR / 4; If Close of Data2 > Then Begin PatternString = "V"; HighLow = AcmeHighLowIndex(Close of Data2, Length); If HighLow = 1 Then LongString = LongString + PatternString Else If HighLow = 2 Then ShortString = ShortString + PatternString; End; If Close of Data3 > Then Begin PatternString = "P"; HighLow = AcmeHighLowIndex(Close 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 = 3 Then LongString = LongString + PatternString Else If HighLow = 1 Then ShortString = ShortString + PatternString; End; If Close of DataS > 0 Then Begin PatternString = "L"; HighLow = AcnieHighLowIndex(Close of DataS, Length); If HighLow = 1 Then LongString = LongString + PatternString Else If HighLow = 2 Then ShortString = ShortString + PatternString; End; If Close of Data6 > Then Begin PallrrnSlring "T"; IlicMiw nll.lll; lwlnll.x( v.l.l..( 11.-. ol D.il.id. Vni.iilh). 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 = AcmeHighLowIndex(Close of Data?, Length); If HighLow = 2 Then LongString = LongString * PatternString Else If HighLow = 1 Then ShortString = ShortString + PatternString; End; If Close of DataS > 0 Then Begin PatternString = "S"; HighLow = AcmeHighLowIndex(Close of DataB. Length); If HighLow = 1 Then LongString = LongString + PatternString Else If HighLow = 2 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 Then Begin (Draw Entry Targets on the Chart} If DrawTargets Then Conditioni = AcmeEntryTargets("H", BuyStop, 0, 0, 0); Buy("Acme LE Harket") N Shares Next Bar on BuyStop Stop; End; {Hultiple Pattern Sell Signal} If StrLen(Short5tring) >= MinimumPatterns Then Begin {Draw Entry Targets on the Chart) If DrawTargets Then Conditioni = AcmeEntryTargets("M", 0, 0, Shortstop, 0); Sell("Acme SE Harket") N Shares Next Bar on Shortstop Stop; End; End;
[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]
|
Menu
