Jump to content

Welcome to the new Traders Laboratory! Please bear with us as we finish the migration over the next few days. If you find any issues, want to leave feedback, get in touch with us, or offer suggestions please post to the Support forum here.

  • Welcome Guests

    Welcome. You are currently viewing the forum as a guest which does not give you access to all the great features at Traders Laboratory such as interacting with members, access to all forums, downloading attachments, and eligibility to win free giveaways. Registration is fast, simple and absolutely free. Create a FREE Traders Laboratory account here.

lonew0lf

Harmonic Indicator

Recommended Posts

So the folks who use metatrader have had access to a host of indicators, one in particular used for trading harmonics is called ZUP. The persons who created ZUP wrote it in their native language, Russian and i don't believe there ever been a translation I spent the weekend converting it to English as best as I could with the hope that maybe this community could help turn the code into something similar for Multicharts and tradestation users.

ZUP83 english.txtFetching info...

5aa70fa0273b2_validcrab.thumb.gif.50bacd8c53bf125473962206367286a9.gif

5aa70fa02d02d_tlquestion.thumb.gif.37494dc936731912614d98a215fff84d.gif

5aa70fa0316f4_ey.9.930minsetup.jpg.e7972da75e35e75a303826a622e88cc9.jpg

5aa70fa035cfc_4_23.08GBP.USDretracement.jpg.d7c598834bf1f5e29cc68b08b2a3b9d1.jpg

Edited by lonew0lf

Share this post


Link to post
Share on other sites
  BlowFish said:
Looks like a gartley...or maybe a crab (they all look quite similar to me to be honest). Harmonictrader.com has a bunch of these patterns (as I am sure lonew0lf knows).

 

 

..... ..... it's a waste of precious time

Share this post


Link to post
Share on other sites

Tams - I've got the pasevento indicator, the issue is being able to build off the indicator so it marks out distinct patters such as:

 

ab=cd

gartley

butterflies

etc.

 

The script i posted has the pasevento indicator as a crucial component.

Share this post


Link to post
Share on other sites
  lonew0lf said:
Tams - I've got the pasevento indicator, the issue is being able to build off the indicator so it marks out distinct patters such as:

 

ab=cd

gartley

butterflies

etc.

 

The script i posted has the pasevento indicator as a crucial component.

 

 

you have to describe a bit more to get people motivated...

Share this post


Link to post
Share on other sites

Tams - not sure the purpose of your responses... is it to maintain an ongoing banter between you and I? If you're not interested in working on it, that's fine.

 

There isn't more to describe other than looking at the metatrader script the initial charts and beginning the conversation there.

 

If I wanted snark i'd go to elite trader.

Share this post


Link to post
Share on other sites
  lonew0lf said:
Tams - not sure the purpose of your responses... is it to maintain an ongoing banter between you and I? If you're not interested in working on it, that's fine.

 

There isn't more to describe other than looking at the metatrader script the initial charts and beginning the conversation there.

 

If I wanted snark i'd go to elite trader.

 

 

LOL... I will put you on ignore... Have a nice day.

Share this post


Link to post
Share on other sites

Suppose someone doesn't like to be challenged. You know there's nothing wrong with saying you can't do something, its another when you can't do it and you try and dismiss it.

 

Tams - you're my hero.

Share this post


Link to post
Share on other sites

Hi Trader Laboratory

 

When I try to Verify the attached TradeStation code for Harmonic Patterns

I get an error........ " } " was expected before end of file

Could you please tell me where the missing " } " bracket(s) should be placed

 

Thank you in advance

Hoping you can oblige

 

Derek

Harmonic Patterns.txtFetching info...

HARMONIC PATTERNS.ELDFetching info...

Share this post


Link to post
Share on other sites

derek,

The text file is corrupted so I hesitate to even open the eld in TS and I don’t have time to fix the code myself. It's probably a half assed cleanup of a russian hack...

So... here are some pointers to get you started -

There are multiple strings that are not properly commented scattered throughout this file. First example , f. [* R# _) V9 m8 `) ~ is found in the array: declarations in the var section.

 

Many subsequent ‘strings’ have an opening brace without a closing brace.

Early examples are in Method int BatSetup() on lines

> if patrn[1] <> 0 then return patrn[1]; // another pattern already snagged 3 r$ }% K8 m: |$ {8 F+ J1 r; F

> end; 8 m7 {; k: Z! p5 ~ v# ]

> end; + G, h& m! k8 {' _

 

Options

Either remove all those random strings throughout ...

Those same lines in Method int BatSetup() would read like

> if patrn[1] <> 0 then return patrn[1]; // another pattern already snagged

> end;

> end;

 

Or

 

If they have relevance, then properly comment all those random strings throughout, remembering to remove or close all brackets... which would would mess up the strings though...

Examples in Method int BatSetup() would read like

> if patrn[1] <> 0 then return patrn[1]; // another pattern already snagged {{3 r$ }% K8 m: |$ {8 F+ J1 r; F}}

> end; {8 m7 {; k: Z! p5 ~ v# ]}}

> end; {+ G, h& m! k8 {' _ }}

 

Whichever option you choose, ALL these 'random' strings throughout have to be dealt with before you move on to the other code issues in this file

 

Or

 

See if you can download the original MarsallaMarceau code from TS Forums ?? It's likely still up there and MarsallaMarceau was a good coder...

 

Or

 

Get help on TS Forums

 

Hth

 

zdo

Share this post


Link to post
Share on other sites

Hi

Thank you for your reply

 

As you say the text file was corrupted

I have posted the code below

I hope that this helps

Derek

 

{ Indicator style settings: }
       p4  Right tic 9 
       p5  Bar high 
       p6  Bar low 
       p7  point 
       p8  point 
       p41-p56: line, with checked "Don't automatically connect plot lines 
       p80 bar high 
       p81 bar low 
       p82 bar high 
       p83 bar low 


using elsystem.collections;    
using elsystem;   8 

{ The pattern rules are from 
       Harmonic Trading Vol 1 & 2, Scott Carney ' 
} 

{ 
Revision History: 
       2013-01-10: Initial release (MarsallaMarceau) 
} 
{0 q% G$ V( X% i/ W$ j% }
input: zigfac(2); 

input: ShoBat(true); 
input: ShoButterfly(false); 
input: ShoGartley(false); ) 
input: ShoCrab(false); 
input: ShoDeepCrab(false);  
input: ShoFiveOh(false); 
input: ShoABeCD(false{AB=CD}); 
input: ShoBars(true); 

input: ShoFibLabel(false); 
input: ShoZigZag(true); 
input: ShoZZBands(false);

input: BearishColor(darkred); 
input: BullishColor(darkgreen);    

var: zigback(14 * zigfac); 
array: p[10](0), pb[10](0), patrn[10](0), confrm[10](0); , f. [* R# _) V9 m8 `) ~
const: bat.bullish(1), gartley.bullish(2), crab.bullish(3), deepcrab.bullish(4), butterfly.bullish(5), fiveoh.bullish(6); 
const: bat.bearish(-1), gartley.bearish(-2), crab.bearish(-3), deepcrab.bearish(-4), butterfly.bearish(-5), fiveoh.bearish(-6); 
const: pattern.confirmed(1), pattern.failed(2), pattern.limbo(3); $ b& d5 m% x5 ?( M
var: XX(0), AA(0), BB(0), CC(0), DD(0), EE(0); 9 F6 d. R5 D1 n! u) p4 O
var: XXb(0), AAb(0), BBb(0), CCb(0), DDb(0), EEb(0); 
var: Pattern(0); 8 M- w4 \; h, K# v
var: targI(0), targO(0), targCD(0), bestConfirm(0); 
 i" t6 k7 h& b& m# k- e3 g
///////////////////////////////////////////////////////////////////////////// 
// BAT 
///////////////////////////////////////////////////////////////////////////// 9 D6 J9 N" |; K6 ?- S5 i% ]

Method int BatSetup() 
var: int setup, double near_r; 6 e) [5 O% J2 l2 j6 t" T
begin " F% g8 a; i) ]: G# d0 ?6 v. K
       if patrn[1] <> 0 then return patrn[1]; // another pattern already snagged 3 r$ }% K8 m: |$ {8 F+ J1 r; F
       setup = 0; 
       near_r = NearestFib(ratio("AB","XA")); 1 ?& [7 y' x: Y
       If near_r >= .382 and near_r <= .5 then begin 
               near_r = NearestFib(ratio("BC","AB")); 
               If near_r >= .382 and near_r <= .886 then begin # g8 L/ H4 T: P% c$ e+ M& W% Y3 l
                       If True then begin  
                               setup = oo_iff(AA>XX,bat.bullish,bat.bearish) astype int; 
                               targI = CC - 1.618 * (CC - BB); 
                               targO = CC - 2.618 * (CC - BB); 
                               bestConfirm = AA - .886 * (AA - XX); 
                               If ShoABeCD then 
                                       targCD = DD-(CC-BB); 
                       end; 
               end; 8 m7 {; k: Z! p5 ~  v# ]
       end; + G, h& m! k8 {' _
       Return setup; 
end; 
Method int BatConfirm() 
var: double near_r; , Z$ ?; @( c4 A4 C; i0 R1 O
begin 
       If Pattern = 0 then return 0; / n. D- p6 _$ G5 Z, z9 g, k! S7 j  d

       near_r = NearestFib(ratio("CD","BC"));  
       If near_r >= 1.618 and near_r <= 2.618 then begin ( S; h! u5 J! g, @5 P
               //print(date:9:0,time:5:0," ...confirmed Bat");                 
               Return pattern.confirmed; 
       End else begin 
               If (DDb - BBb) > 1.5 * (BBb - XXb) then return pattern.failed; // rhs to wide 0 a) ~2 [& ]0 I9 V
               Switch pattern begin 
               Case bat.bullish: 0 ~1 T: _3 i3 E2 v6 F7 k
                       If CC > AA then return pattern.failed; // might happen after limbo + ]8 o/ n( d/ V) Q& y
                       If DD < targO then return pattern.failed; 
                       Return pattern.limbo; 
               Case bat.bearish: 
                       If CC < AA then return pattern.failed; // might happen after limbo & D% T* E! b3 B3 o% o' B
                       If DD > targO then return pattern.failed; 
                       Return pattern.limbo; ( Q  O0 z: O: t
               end; % d9 {6 [2 n" p$ @( X' O
       end; 9 o$ r4 y3 k9 r* q
       Return 0; . Y3 m, M+ Y9 ]: ^2 ~9 V* |7 g
end; 

///////////////////////////////////////////////////////////////////////////// 
// BUTTERFLY 
///////////////////////////////////////////////////////////////////////////// 6 h0 ^3 J- {* D+ t+ p

Method int ButterflySetup() : U# h# J: A3 |' Z8 O* w* r
var: int setup, double near_r, double targ; 6 X6 p6 S6 x! S8 P, a
begin 
       if patrn[1] <> 0 then return patrn[1]; // another pattern already snagged 
       setup = 0;  2 u" W  J* m/ O4 S
       near_r = NearestFib(ratio("AB","XA")); + ^  ^/ D4 v, l( P$ U, }
       If near_r = .786 then begin ; @5 L- k% _: H0 L# {% Y8 h' Q
               near_r = NearestFib(ratio("BC","AB")); 1 G. T* \+ y' S7 q
               If near_r >= .382 and near_r <= .886 then begin ) v1 c; \  s1 V) s  v9 |
                       targ = CC - 1.618 * (CC - BB); & X$ x; ^* l& M2 d8 Q, u
                       If absvalue(AA-XX) < absvalue(AA-targ) then begin  1 s  y3 T& ^8 P# T2 B
                               setup = oo_iff(AA>XX,Butterfly.bullish,Butterfly.bearish) astype int; - r) B; d' I+ I* {
                               targI = targ; 
                               targO = CC - 2.24 * (CC - BB); & B- y" `8 d/ W' c3 w) G
                               bestConfirm = AA - 1.27 * (AA - XX); 
                               If ShoABeCD then 9 q" h5 w; z. ~2 }# _, n
                                       targCD = DD-(CC-BB); + C4 p" n+ Q& y# N$ V) y% `: `- F
                       end; 
               end; 
       end; 
       Return setup; 
end; , J* e5 |9 L  u
Method int ButterflyConfirm() 1 L$ V+ d+ u9 k: h6 c8 A# Q/ F
var: double near_r; 
begin 
       If Pattern = 0 then return 0; 
) c5 J) ^; v$ W8 n( A
       near_r = NearestFib(ratio("CD","BC")); ! I2 u/ J- b' k: Y5 @
       If near_r >= 1.618 and near_r <= 2.24 then begin ' l7 K1 y; m3 q
               //print(date:9:0,time:5:0," ...confirmed Butterfly");                 0 t1 c1 F+ a% H2 k
               Return pattern.confirmed; ! Z, a! `! c( a& O3 r
       End else begin 
               If (DDb - BBb) > 1.5 * (BBb - XXb) then return pattern.failed; // rhs to wide , B4 H/ m" c' o2 p% k
               Switch pattern begin ' _4 m: W$ [: m! u6 H# ]8 v
               Case Butterfly.bullish: 
                       If CC > AA then return pattern.failed; // might happen after limbo 
                       If DD < targO then return pattern.failed; 
                       Return pattern.limbo; 
               Case Butterfly.bearish: 
                       If CC < AA then return pattern.failed; // might happen after limbo 
                       If DD > targO then return pattern.failed;   S4 @4 P7 ]* ~
                       Return pattern.limbo; 
               end; - l0 j  [1 i' ?; z! X6 Q$ E9 m& T
       end; 
       Return 0; 
end; 
& x/ Q3 f; C& e; W$ q2 N' s
///////////////////////////////////////////////////////////////////////////// 
// GARTLEY 1 ^; l( L" j2 o4 u0 w( {
///////////////////////////////////////////////////////////////////////////// 3 t+ {% L4 w7 i- w* z  R, c
 e+ M/ Q% e* K  X+ y" F
Method int GartleySetup() 
var: int setup, double near_r; 
begin / V2 T! ?5 l2 t2 K7 g
       if patrn[1] <> 0 then return patrn[1]; // another pattern already snagged : G) U; O( E& ^1 Z3 Z
       setup = 0; 9 |+ G+ y. Y; q9 T/ |  b  x
       near_r = NearestFib(ratio("AB","XA")); . O6 M& `+ R1 f. T
       If near_r = .618 then begin - F. K0 h0 `3 o5 u1 N9 f
               near_r = NearestFib(ratio("BC","AB")); 4 m, U( X0 U, |# T9 x
               If near_r >= .382 and near_r <= .886 then begin 
                       If True then begin  
                               //print(date:9:0,time:5:0," gartley setup");                 & C1 P, }0 a) A
                               setup = oo_iff(AA>XX,gartley.bullish,gartley.bearish) astype int; 4 }2 ~7 E8 `5 Q% y& z% m
                               targI = CC - 1.13 * (CC - BB); 
                               targO = CC - 1.618 * (CC - BB); 
                               bestConfirm = AA - .786 * (AA - XX); ! j0 T; S5 }$ B7 m: s7 D9 Y
                               If ShoABeCD then 
                                       targCD = DD-(CC-BB); ( T2 i; g4 Q4 k( F) p+ [  z
                       end; # K$ z( E3 g$ k
               end; 
       end; , s% _; Y1 S/ q7 q, w
       Return setup; 
end; 
Method int GartleyConfirm() 
var: double near_r; 
begin 
       If Pattern = 0 then return 0; 

       near_r = NearestFib(ratio("CD","BC")); 
       If near_r >= 1.13 and near_r <= 1.618 then begin 
               //print(date:9:0,time:5:0," ...confirmed gartley");                 
               Return pattern.confirmed; & O: |/ F! _2 r6 v  \
       End else begin - H( V: w& V$ F" a: Y! V! S) X
               If (DDb - BBb) > 1.5 * (BBb - XXb) then return pattern.failed; // rhs to wide 
               Switch pattern begin 
               Case gartley.bullish: " K% a+ j  ~# F% d: J' x
                       If CC > AA then return pattern.failed; // might happen after limbo 
                       If DD < targO then return pattern.failed; 
                       Return pattern.limbo; 9 Q2 U# w4 Q% W; y% `
               Case gartley.bearish: , m  Y' e7 {6 s0 P
                       If CC < AA then return pattern.failed; // might happen after limbo ; Y6 k" u) M+ f2 h4 H. I
                       If DD > targO then return pattern.failed; ( e4 _1 ?( Q& ]6 X  h: b" C0 o
                       Return pattern.limbo; ( p: m, j& t$ e" h1 ?4 [
               end; 1 ~9 H( K3 |9 O3 T2 e
       end; 2 c1 ~  Y9 T2 R6 D: N; |
       Return 0; : }3 H$ `1 D, Q/ I9 G
end; 

///////////////////////////////////////////////////////////////////////////// 
// CRAB : g7 b, U3 f6 f4 z* i' E
///////////////////////////////////////////////////////////////////////////// : ~# I) N, C. v3 z" p2 A

Method int CrabSetup() 
var: int setup, double near_r, double targ; + L/ E  }4 u6 {' ^6 {) n& r
begin 0 z2 l) m# r, C& O7 R5 u& y
       if patrn[1] <> 0 then return patrn[1]; // another pattern already snagged   D( G+ m  y% A3 r, [( Z! C$ z
       setup = 0; " a5 E% `3 w; f% f' i
       near_r = NearestFib(ratio("AB","XA")); 
       If near_r >= .382 and near_r <= .618 then begin 
               near_r = NearestFib(ratio("BC","AB")); 
               If near_r >= .382 and near_r <= .886 then begin " S: r+ N# f' x! c, E2 q4 c6 F$ s( l/ c
                       targ = CC - 2.618 * (CC - BB); 
                       If absvalue(AA-XX) < absvalue(AA-targ) then begin  
                               //print(date:9:0,time:5:0," crab setup");                 - H) ?% ~8 h7 P
                               setup = oo_iff(AA>XX,crab.bullish,crab.bearish) astype int; . j% Y$ ^$ |/ Q0 k# y% P% {
                               targI = targ; //CC - 2.618 * (CC - BB); 7 B7 r. Z: g# S+ k8 x; G' ]
                               targO = CC - 3.618 * (CC - BB); * X# ?% t: y4 j! X% k8 W1 D3 {4 n
                               bestConfirm = AA - 1.618 * (AA - XX); 9 |4 g* Q3 U, ~0 Z" n+ s% G
                               If ShoABeCD then 8 q8 K2 A; j0 g" g
                                       targCD = DD-(CC-BB);   b3 H5 v* H; ~8 |6 D2 P" N. H
                       end; - f$ B) i- Y6 w# C
               end; 7 _2 e, R- d* ^; [( w+ W
       end; 
       Return setup; 
end; 
Method int CrabConfirm() - W" W6 G, ~0 L5 s5 B! v
var: double near_r; 5 l- U* }( }; O% G) z
begin 
       If Pattern = 0 then return 0; 2 l" q: Q7 G* F# d1 X& T
. \+ y6 l9 p6 I" h; W: b9 V
       near_r = NearestFib(ratio("CD","BC")); 
       If near_r >= 2.618 and near_r <= 3.618 then begin 
               //print(date:9:0,time:5:0," ...confirmed crab");                 
               Return pattern.confirmed; 
       End else begin ; V5 g/ w) O, T
               If (DDb - BBb) > 1.5 * (BBb - XXb) then return pattern.failed; // rhs to wide 
               Switch pattern begin 
               Case crab.bullish: 2 j$ {" W& Z, _9 K8 W
                       If CC > AA then return pattern.failed; // might happen after limbo ! U  m) U1 L6 Q: A, o- b
                       If DD < targO then return pattern.failed; " e/ [2 D. `2 A6 g: j' {8 @
                       Return pattern.limbo; 
               Case crab.bearish: " a1 u$ q$ @5 ~0 I7 f! E- P
                       If CC < AA then return pattern.failed; // might happen after limbo 
                       If DD > targO then return pattern.failed; ' L% a% \$ h) Q2 W
                       Return pattern.limbo; 
               end; 6 }% [2 P& G" I
       end; * I( }  {' E  J3 V5 ]0 n
       Return 0; 
end; 

///////////////////////////////////////////////////////////////////////////// 4 _3 L5 S) i7 [: D
// DEEP CRAB 
///////////////////////////////////////////////////////////////////////////// 

Method int DeepCrabSetup() 9 Z  w* Q" S$ S9 h) q' R
var: int setup, double near_r, double targ; 
begin 
       if patrn[1] <> 0 then return patrn[1]; // another pattern already snagged 
       setup = 0; 5 @  u, b+ u9 O5 N  U/ ~" ^' J2 O
       near_r = NearestFib(ratio("AB","XA")); 0 C$ {5 b& v  i/ _" w$ e6 F; D) c; g
       If near_r = .886 then begin 0 @+ h" {% W  a3 p0 I- s" Z
               near_r = NearestFib(ratio("BC","AB")); 1 }9 m7 ^6 B: [; m
               If near_r >= .382 and near_r <= .886 then begin 5 v; W3 U1 K8 T# e
                       targ = CC - 2.24 * (CC - BB); ( ]9 U/ s$ z& I7 i/ }
                       If absvalue(AA-XX) < absvalue(AA-targ) then begin  ! m0 v7 B/ s/ Q- l4 I% b
                               setup = oo_iff(AA>XX,DeepCrab.bullish,DeepCrab.bearish) astype int; % w6 k8 r( u2 V
                               targI = targ; //CC - 2.618 * (CC - BB); 5 o# z0 H# @4 H  c, M0 f- C2 v
                               targO = CC - 3.618 * (CC - BB); 
                               bestConfirm = AA - 1.618 * (AA - XX); 
                               If ShoABeCD then / k+ y. Z; }8 u9 P: v
                                       targCD = DD-(CC-BB); 
                       end; 2 [# S$ J# f1 z  N. @6 g
               end; / s. h& W  V3 N8 ]
       end; 
       Return setup; ( a; X+ `+ u- s# r6 ~) D
end; 
Method int DeepCrabConfirm() ; ^. V- P& \6 a3 @; F5 R* g9 a' {" z, d
var: double near_r; 5 F( c5 x8 S9 D+ n2 b  Q
begin 
       If Pattern = 0 then return 0; 

       near_r = NearestFib(ratio("CD","BC")); 
       If near_r >= 2.24 and near_r <= 3.618 then begin # L& \0 i6 h* e1 T( `5 E
               //print(date:9:0,time:5:0," ...confirmed DeepCrab");                 
               Return pattern.confirmed; 9 ?! T: L. U* I% v* Q: ^
       End else begin 
               If (DDb - BBb) > 1.5 * (BBb - XXb) then return pattern.failed; // rhs to wide 8 G. s; Z4 \* @- a6 w
               Switch pattern begin + q. b2 F3 D( x# G9 L
               Case DeepCrab.bullish: " N7 V) A. w$ A; I3 N
                       If CC > AA then return pattern.failed; // might happen after limbo ' C8 I* i  _, B  P" X8 K
                       If DD < targO then return pattern.failed; ; C. h  t/ _% h0 Z0 W4 W4 D# C
                       Return pattern.limbo; 1 v6 Y. Z/ V. X! T
               Case DeepCrab.bearish: 
                       If CC < AA then return pattern.failed; // might happen after limbo ) \* h9 X9 g1 H5 z7 I  n3 V5 |
                       If DD > targO then return pattern.failed; 
                       Return pattern.limbo; 
               end; 
       end; 0 K! H* X* Y- s3 C8 v" T- [
       Return 0; 
end; + r9 T# W7 _/ l# R% b' s6 |! D
* N* b8 K; z" v, {5 N+ p
/////////////////////////////////////////////////////////////////////////////   [/ H2 e$ T5 O
// FIVE OH 6 }* v1 f0 t. |6 s$ R
///////////////////////////////////////////////////////////////////////////// % g% q  F4 n* Q3 u# h2 A

Method int FiveOhSetup() ! K0 G$ [4 |* z& H
var: int setup, double near_r; 
begin " l) d! \7 \8 i5 H! s3 S& ^9 t
       if patrn[1] <> 0 then return patrn[1]; // another pattern already snagged 
       setup = 0; 
       near_r = NearestFib(ratio("AB","XA")); 
       If near_r >= 1.13 and near_r <= 1.618 then begin / B% E' d6 Y" ~1 `0 T
               near_r = NearestFib(ratio("BC","AB")); 0 W4 U) h. V) h; N
               If near_r >= 1.618 and near_r <= 2.4 then begin 
                       If True then begin  + z" Y  m1 |' C7 p. R2 f  G& e
                               setup = oo_iff(CC>BB,FiveOh.bullish,FiveOh.bearish) astype int; - H  ^: d) g/ x6 J! c
                               targI = CC - .5 * (CC - BB); 3 N4 ~1 e  D( R# I# o  U; U0 x: ^' ^
                               targO = 0;  8 `  O" Q8 S) b* T
                               bestConfirm = 0; //CC - .5 * (BB - CC); % X: P0 _/ d: z' B* |
                               If ShoABeCD then : S9 ^+ p' d& t" n/ e2 ?
                                       targCD = 0; . D  W( B4 J. A+ j) y& @. K5 u, Z
                       end; 
               end; 9 D8 l* P) P4 M5 O$ M  |) ]/ \- K
       end; 9 T8 ?' T# R- l. R& S& O# L# P
       Return setup; . z2 M3 N- ~) O) `* K, T) ?
end; ! H* e. C; [9 X) N! F# ?" G
Method int FiveOhConfirm() 
var: double near_r; 
begin ! R8 M. P1 T/ I) Z$ ]0 \9 c
       If Pattern = 0 then return 0; 

       near_r = NearestFib(ratio("CD","BC"));  9 J: P2 v( r5 w& w! W
       //If near_r = .5 then begin   BOOK VALUE 1 a" B- n+ n3 z# Z
       If near_r >= .382 and near_r <= .618 then begin // TESTING VALUE 
               //print(date:9:0,time:5:0," ...confirmed FiveOh");                 2 V& ^$ c" _3 c2 g; e
               Return pattern.confirmed; . D' U' O6 u0 Y
       End else begin 
               If (DDb - BBb) > 1.5 * (BBb - XXb) then return pattern.failed; // rhs to wide 7 m1 g" h- h0 Z; t0 D! p/ V
               Switch pattern begin 
               Case FiveOh.bullish: 
                       If CC > AA then return pattern.failed; // might happen after limbo 
                       If DD < targO then return pattern.failed; 
                       Return pattern.limbo; , \: W- A& e, S) o
               Case FiveOh.bearish: $ L( p5 R3 n7 [# }
                       If CC < AA then return pattern.failed; // might happen after limbo 0 R5 G* W. J6 f4 V
                       If DD > targO then return pattern.failed; 
                       Return pattern.limbo; . m! A4 d/ i8 `
               end; 
       end; ) r) v0 A  l( V+ h* k3 u" s" p4 z
       Return 0; 
end; ; k$ T, l5 h1 C
. h4 b! k+ `+ g
///////////////////////////////////////////////////////////////////////////// 
// COMMON METHODS 3 U6 `+ j, g4 a0 ?1 V, k$ w
///////////////////////////////////////////////////////////////////////////// - P7 R5 F0 q5 u

Method double oo_iff( bool q, double valu1, double valu2 ) , t: d( h. b- U4 z
begin 1 q9 [& r' ^7 S! _: x
       if q then return valu1 else return valu2; 6 I+ a: P4 `) Z- a$ j
end; 

Method int oo_dark(int colr, double darkfac) 
var: int oRed, int oGreen, int oBlue; " m% z" m" U) ^. M$ i$ n  |
begin 
       if colr = -1 then return colr; 
       oRed = GetRValue(colr); 
       oGreen = GetGValue(colr); 
       oBlue = GetBValue(colr); $ }( c! [9 ?+ a3 T$ C' ]% {
       if darkfac <= 1 then return rgb( darkfac * oRed, darkfac * oGreen, darkfac * oBlue )   ^: \4 x' f( s+ B1 I4 ?5 D. D
       else return rgb(oRed+(darkfac-1)*(255-oRed),oGreen+(darkfac-1)*(255-oGreen),oBlue+(darkfac-1)*(255-oBlue)); 
end; 1 L3 _4 i9 B1 g& }" O2 A* W5 i( u

Method int oo_PlotString( double price, string ss, int colr, int barsb, int han ) - t3 V. \) S/ {7 f6 ~2 O- E
var: int newhan; / Q, l! B0 Z" K: I
begin , T8 N/ @1 ^" d, U1 a+ s
       newhan = -1; * ^" w! ~1 Q, t, t
       If han = -1 then begin 
               newhan = text_new( date[barsb], time[barsb], price, ss ); + N+ E2 ]; I% [
               text_setcolor( newhan, colr ); 
               text_setstyle( newhan, 1, 2 ); 
               return newhan; 3 ?- x9 N' S0 s3 L+ P- n7 K' A) }
       End else begin 
               text_setstring( han, ss ); 7 \( `0 E7 f% l! b! w& a
               Text_setlocation( han, date[barsb], time[barsb], price ); 0 J& t1 @7 c& x9 O  o& V8 [1 J
               text_setcolor( han, colr ); 1 Y7 s( u* |" M1 X3 ~
               text_setstyle( han, 1, 2 ); 
               return han; ' b3 H- ^) J7 G$ m
       end; * y) d) T* _: c$ S3 ]* T, ?
end; 

Method void PlotLine(int lin, double y1, int x1,  double y2, int x2, int colr, int siz) 
var: int ii, int xii, int dx, double valu, int vcolr; 6 W& ^9 f9 x6 V. l
begin 3 @9 \$ ^; T; B3 S9 ?. r
       dx = x2 - x1; / M) Y& R3 ~# r4 R1 c1 N: D
       vcolr = colr; 
       for ii = 0 to dx begin 1 A% u/ S) ~: E# t+ {3 i) B
               xii = ii + (currentbar - x2); 
               valu = y2-ii*(y2-y1)/dx; + d- `7 i  C( ~' t* U' V  Z  g
               switch lin begin 8 S; ]5 x+ Z" ^/ y7 g) k7 C
               case 0: plot41[xii](valu,"p41",vcolr,default,siz); ) a: `1 [1 s0 y; d
               case 1: plot42[xii](valu,"p42",vcolr,default,siz); 
               case 2: plot43[xii](valu,"p43",vcolr,default,siz); 
               case 3: plot44[xii](valu,"p44",vcolr,default,siz); 
               case 4: plot45[xii](valu,"p45",vcolr,default,siz); : b' E' `; v* a5 K6 b% ]+ A+ A
               case 5: plot46[xii](valu,"p46",vcolr,default,siz); 
               end; 7 D$ y, p: o7 h3 B( N% s7 `: S; M2 ~' S8 X
       end; 
end; 

var: max_B(500); ' y# \4 d+ L+ \3 G) b) F
var: IsTriangle(true); ; }) f' a& R! L% _; R& W( _7 U
var: chkShowBars.Checked(true); * h/ Z/ _7 h& s* N4 Z7 O
Method void FillTriangle(int fil, double y3, int x3, double y2, int x2, double y1, int x1, int colr)   }# c7 c5 Z/ c
var: double dy12, double dy13, double dy23, int ii, int ij, int vcolr, int siz, 
       int bb, double minl, double maxl; 
begin  
       siz = GetAppInfo(aibarspacing) astype int - 1; 

       vcolr = colr;  
       if colr = black then return; 
       if x2-x1 > 0 then dy12 = (y2-y1)/(x2-x1); 
       if x3-x1 > 0 then dy13 = (y3-y1)/(x3-x1); ' p, V, C( J8 d; @! v
       if x3-x2 > 0 then dy23 = (y3-y2)/(x3-x2);                 
       switch fil begin 
       case 0: 
               for ii = 0 to x2-x1 begin . |8 m3 b" H$ f$ S& T! d! v
                       bb = currentbar-x1-ii; 
                       plot80[bb](y1+ii*dy13,"p80",vcolr,default,siz); 
                       plot81[bb](y1+ii*dy12,"p81"); 
                       If chkShowBars.Checked then begin 6 b) u( n5 r& ~2 [+ t/ z: u
                               Minl = minlist(y1+ii*dy12, y1+ii*dy13); 
                               Maxl = maxlist(y1+ii*dy12, y1+ii*dy13); $ N# O7 E/ G1 ^2 ?
                               If ShoBars then begin 
                                       If c[bb] > minl and c[bb] < maxl then 
                                               plot4[bb](c[bb],"p4"); 
                                       If L[bb] < maxl And h[bb] > minl then begin 
                                               plot5[bb](minlist(maxl,h[bb]),"p5"); 
                                               plot6[bb](maxlist(minl,l[bb]),"p6"); $ T2 J  a' h; K( ]- `' i% u- v. n, r
                                       end; 5 h2 B8 t% V+ h
                               end; 
                       end; 7 N; D- b1 k6 c, J
               end;   ?* v. ?8 H" d% b: T$ h* h% k  Z
               for ii = 0 to x3-x2 begin 
                       bb = currentbar-x3+ii; 
                       plot80[bb](y3-ii*dy13,"p80",vcolr,default,siz); 
                       plot81[bb](y3-ii*dy23,"p81"); 
                       If chkShowBars.Checked then begin 
                               Minl = minlist(y3-ii*dy13, y3-ii*dy23); 
                               Maxl = maxlist(y3-ii*dy13, y3-ii*dy23); 
                               If ShoBars then begin 4 I/ P- m4 J$ H' j
                                       If c[bb] > minl and c[bb] < maxl then / G% V" F8 w6 S% S; }
                                               plot4[bb](c[bb],"p4"); 
                                       If L[bb] < maxl And h[bb] > minl then begin 
                                               plot5[bb](minlist(maxl,h[bb]),"p5"); - P; p/ T0 c% o+ a* F
                                               plot6[bb](maxlist(minl,l[bb]),"p6"); 
                                       end; 
                               end; " q* z3 W1 ^  R9 E6 m
                       end; / L# A# Q+ H; a+ h5 ^
               end; 
       case 1: ; 
               for ii = 0 to x2-x1 begin 8 d& z1 _7 z# K* \1 h# ]" H
                       bb = currentbar-x1-ii; 
                       plot82[bb](y1+ii*dy13,"p82",vcolr,default,siz); 
                       plot83[bb](y1+ii*dy12,"p83"); $ o* p+ {1 X/ ]3 ]: N0 a
                       If chkShowBars.Checked then begin , {+ L, g  P% _% g) X
                               Minl = minlist(y1+ii*dy13, y1+ii*dy12); " m  u6 l" {# O6 t" q& B) d
                               Maxl = maxlist(y1+ii*dy13, y1+ii*dy12); 
                               If ShoBars then begin 
                                       If c[bb] > minl and c[bb] < maxl then 3 b) q( e0 S) F& J3 e9 x; r
                                               plot4[bb](c[bb],"p4"); 7 E! @4 i* @1 h2 `, m! Z
                                       If L[bb] < maxl And h[bb] > minl then begin 
                                               plot5[bb](minlist(maxl,h[bb]),"p5"); - I) M6 S- N6 N  t- ^. ?# ?5 i
                                               plot6[bb](maxlist(minl,l[bb]),"p6"); $ ]+ B- \' D) m. l  J8 N
                                       end; 6 l: Z$ P; v; L2 m' c
                               end; ) q' E! U6 g; D
                       end; 
               end; # \) T" K" \1 H) J. F  {
               for ii = 0 to x3-x2 begin 
                       plot82[currentbar-x3+ii](y3-ii*dy13,"p82",vcolr,default,siz); 
                       plot83[currentbar-x3+ii](y3-ii*dy23,"p83"); 
               end; 
       end; 

end; 

///////////////////////////////////////////////////////////////////////////// ( L' o- p& G4 B! r: X
// LOCAL METHODS & V. _, r- S" y4 B& f; U% ~
///////////////////////////////////////////////////////////////////////////// 

Method double Ratio(string top, string bot) % e$ g4 o' n# ~* \. B3 t; [
var: double dtop, double dbot, double rat; 7 k% u0 Y1 ]( D) g- Z4 n
Begin 
       rat = 0; ' j0 q2 Q8 d: q
       Switch top begin 2 v2 @( J9 N! e# ]& A
       Case "XA","AX": dtop = XX - AA; 
       Case "AB","AB": dtop = AA - BB; & n' A5 T5 C2 s, b" T
       Case "BC","CB": dtop = BB - CC; 
       Case "CD","DC": dtop = CC - DD; 
       Case "AC","CA": dtop = AA - CC; 
       Case "XD","DX": dtop = XX - DD; 
       end; 
       Switch bot begin 
       Case "XA","AX": dbot = XX - AA; 
       Case "AB","AB": dbot = AA - BB; 
       Case "BC","CB": dbot = BB - CC; ; I7 S& K6 O( b& J" D0 s
       Case "CD","DC": dbot = CC - DD; 
       Case "AC","CA": dbot = AA - CC; 
       Case "XD","DX": dbot = XX - DD; 
       end; 
       If dbot <> 0 then rat = absvalue(dtop/dbot); / m. I" I% R5 ?9 m% b4 s
       Return rat; 
end;         
* ]+ G9 |& z2 l) ?
array: fibs[100](0); 
var: fibs.count(0); 1 s; {/ |# q, {" n. y) J
method void InitFibs() , B( P7 J5 p6 M( O$ ~
var: int ii, int ij; : {0 `6 a9 c3 z3 w! Z* d4 r
begin 
       ii = 0; 
       // primary $ a: ^; _3 S7 L6 l* w' ]* {
       fibs[ii] = .618; ii += 1; 
       fibs[ii] = 1.618; ii += 1; 
       // primary derived 4 K. m2 ~- A5 V" ~) a7 @% Q5 O
       fibs[ii] = .786; ii += 1; 9 V, n( l/ M* X0 z) O  ^
       fibs[ii] = .886; ii += 1; & u% u" j3 ~2 [$ g. K0 x4 A: r, |  j
       fibs[ii] = 1.13; ii += 1; 2 E9 l4 r/ K$ N
       fibs[ii] = 1.27; ii += 1; 7 Q5 q5 A0 W# x
       // complementary derived 
       fibs[ii] = .382; ii += 1;  5 z4 C4 A- t% b* M- t3 H! i
       fibs[ii] = .500; ii += 1;  
       fibs[ii] = .707; ii += 1; 7 R) w+ Q0 s% L$ K
       fibs[ii] = 1.41; ii += 1; 
       fibs[ii] = 2.0; ii += 1; 
       fibs[ii] = 2.24; ii += 1; 3 Z  u7 ?' n( [/ e+ |, |4 C
       fibs[ii] = 2.618; ii += 1; * q7 b7 B( B' P8 \4 E; ^
       fibs[ii] = 3.14; ii += 1; * q  i- `2 D( u* g% M, t4 A& z* G
       fibs[ii] = 3.618; ii += 1; . b& `2 H, B3 X7 m( d
       fibs[ii] = 4.618; ii += 1; 0 p3 I7 j- a0 C
       fibs.count = ii; 3 U! A* u- w: D7 l' U, K
end; 

const: fnear(.07); 
method double NearestFib(double valu) 
var: int ii; 
begin 
       for ii = 0 to fibs.count - 1 begin % f. u' Q# p- t# E/ s) C
               if valu < fibs[ii] * (1+fnear) and valu > fibs[ii] * (1-fnear) then begin 
                       return fibs[ii]; 1 ]3 w& D) W6 C
               end; 
       end; 6 @* F& d! C% r( `5 W
       return valu; 0 S" D' W2 R' ~/ K7 c& ~
end; * v. `7 X6 n4 X9 v9 R" d7 q" _3 J

///////////////////////////////////////////////////////////////////////////// 0 C: Q$ i2 d7 a7 @7 J( [  Z& T
// FOR DEBUGING ) }8 a# L2 p3 _: K
///////////////////////////////////////////////////////////////////////////// 9 A8 L" s# I; q/ N9 F% a( {5 p

once begin 
       var: handl(0), ss(""), itxt(0); 
       array: date1[20](0), time1[20](0), price1[20](0), MyDir[20](0); 

       handl = text_getfirst(2); 
       while handl >= 0 begin 
               ss = upperstr(text_getstring(handl));  6 k0 \: A, I3 `0 `( n! N# _
                 if ss = "BREAK" then begin  6 M- s9 A* d9 i7 z- }
               date1[itxt] = text_getdate(handl); + b: @7 M  E9 Y3 P, T
               time1[itxt] = text_gettime(handl); 
               price1[itxt] = text_getvalue(handl); # t5 s6 u/ ?. n$ L% o3 w
               itxt = itxt + 1; 9 T" [4 K+ J5 \, R
             end; 
             handl = text_getnext(handl,2); { IMPORTANT -- infinite loop if this is missing!  } 
          end; " C) }; D* N. B7 i- F9 G
end; 7 i* Z; n6 j9 u3 q& A% N4 A) y
var: ok2plotsys(false); ok2plotsys = date1[0] = 0 or Date < date1[0] or (Date = date1[0] and time <= time1[0]); 
IF OK2PLOTSYS THEN BEGIN 
0 ?' U$ F1 y! V, w  ~5 ~
///////////////////////////////////////////////////////////////////////////// 0 g5 T/ y/ v# l' C
// CONTINUE 
///////////////////////////////////////////////////////////////////////////// 
2 |4 f. I+ Q4 n, A  V
Once Begin   n7 X- m) P( `
       InitFibs(); 
       Value1 = c[max_b];  ; S4 c. Z* S+ F, g& _( q2 R
end; 
9 o( F- ^7 O* f. B" F. f
var: zighh(0); zighh = highestFC(h,zigback); 
var: zigll(0); zigll = lowestFC(l,zigback); 
var: zigdir(0); If H > zighh[1] then zigdir = 1; If L < zigll[1] then zigdir = -1; + b! _6 k% x, p! w5 O3 ?  I
var: ii(0); 
var: r(0);  
var: near_r(0);  
If zigdir <> zigdir[1] then begin 7 W2 Y) J. j) @. \- w
       For ii = 10 downto 1 begin 9 S7 S5 q' i2 R' F; b
               p[ii] = p[ii-1]; 
               pb[ii] = pb[ii-1]; 
               patrn[ii] = patrn[ii-1]; 
               confrm[ii] = confrm[ii-1]; 3 Y: o- g6 N) N8 Q2 |' @/ P
       end; 
       Switch zigdir begin 
       Case 1: 
               p[0] = zighh; ! ?' O, K2 z# n5 H+ d
               pb[0] = currentbar; : O+ C3 L5 r  ?
               patrn[0] = 0; 4 D- m: G5 S9 T- T
               confrm[0] = 0; 
       Case -1: . u3 \/ T  G# b) t
               p[0] = zigll; 
               pb[0] = currentbar; 
               patrn[0] = 0; 
               confrm[0] = 0; # [% S( C# r( h- R/ Z
       end; 

       XX = p[4]; XXb = pb[4]; 
       AA = p[3]; AAb = pb[3]; 
       BB = p[2]; BBb = pb[2]; 
       CC = p[1]; CCb = pb[1]; 

       If ShoZigZag then . y5 t: T* M5 u# i8 C# F& Q+ X
       If BB > 0 then 
               plotline(5, BB,BBb,  CC,CCb, darkcyan, 1); 
) E: I3 g# v0 M$ X+ U1 Q7 l
       r = ratio("AB","XA"); 0 k/ n! @" |: i% m8 P  s0 F
       near_r = NearestFib(r); 
       If ShoFibLabel then , H! L  }9 N- d. Q( w
               oo_plotstring(BB,numtostr(near_r,3),oo_iff(near_r=r,darkcyan,cyan),currentbar-BBb,-1); ) W* E6 `% N/ R( t9 i( |; d
7 P5 X7 I( u4 U. ~8 u5 m
       // HARMONIC SETUPS 
. C* z: a. Q9 L/ r& N& T
       // The order here reflects the priority of which supersedes which . P! V1 w0 c% n0 d( U) p
       If ShoBat then  , L4 I! M  v: x6 n0 t+ X" V
               patrn[1] = BatSetup(); 3 Q' {) h% O$ s+ K
       If ShoButterfly then 
               patrn[1] = ButterflySetup(); 
       If ShoGartley then : @/ Y2 H, t% N/ I
               patrn[1] = GartleySetup(); " n& I5 F# G( T1 W+ Y$ R  c; A7 b& g
       If ShoCrab then 
               patrn[1] = CrabSetup(); 
       If ShoDeepCrab then $ d1 P0 [5 R9 \$ \# z
               patrn[1] = DeepCrabSetup(); - [$ _) u. [$ O1 E1 p# a
       If ShoFiveOh then  $ u8 D; B( B! g% J6 Z
               patrn[1] = FiveOhSetup(); 0 J) J1 h/ ?0 h, `* _( X
0 g: p  I; o9 |% p
       If patrn[1] <> 0 then begin 
               plot7[currentbar-BBb](BB,"p7",black,default,3); 
               plot8[currentbar-BBb](BB,"p8",cyan,default,5); # G% O" }% o) _" I$ ]3 I2 ~: d' {

               PlotLine(1, XX,XXb, AA,AAb, cyan, 1); ' R: i; k: w; _  F) ?" _* Y
               PlotLine(1, AA,AAb, BB,BBb, cyan, 1); 
               PlotLine(2, XX,XXb, BB,BBb, cyan, 1); ! _0 V- i) w6 ?
               FillTriangle( 1, BB,BBb, AA,AAb, XX,XXb, Darkcyan ); ) X/ J! }" z& l' B  B4 V$ b
        ; t: {9 H* Q6 e  @  R8 K+ M
               PlotLine(1, BB,BBb, CC,CCb, cyan, 1);   
                          1 l+ K% X8 y- e- U* N
               oo_plotstring(targI,"Inner entry ->",cyan,1,-1); 
               oo_plotstring(targO,"Outer entry ->",cyan,1,-1); 
               oo_plotstring(bestConfirm,"Best confirm ->",cyan,1,-1); 
               var: tcolr(getplotcolor(55)); ! g: Q6 h' H6 ~; ]* k5 x
               oo_plotstring(targCD,"AB=CD ->",tcolr,1,-1); 6 |! h  n2 Q! u9 c# J) }4 w
               Switch patrn[1] begin 7 i+ D0 h0 E* P9 M
                       case bat.bullish: oo_plotstring(DD,"Bullish Bat ->",cyan,currentbar-DDb,-1);  . w0 @3 _9 T& ]. G
                       case bat.bearish: oo_plotstring(DD,"Bearish Bat ->",cyan,currentbar-DDb,-1);  : D3 q# x0 w! r6 U  h" Q
                       case butterfly.bullish: oo_plotstring(DD,"Bullish Butterfly ->",cyan,currentbar-DDb,-1);  ! J0 K9 h' l/ Y+ X
                       case butterfly.bearish: oo_plotstring(DD,"Bearish Butterfly ->",cyan,currentbar-DDb,-1);  ( l, d. R6 |# L" I- g! T
                       case gartley.bullish: oo_plotstring(DD,"Bullish Gartley ->",cyan,currentbar-DDb,-1);  
                       case gartley.bearish: oo_plotstring(DD,"Bearish Gartley ->",cyan,currentbar-DDb,-1);  : v7 z3 i4 M& i+ Y
                       case crab.bullish: oo_plotstring(DD,"Bullish Crab ->",cyan,currentbar-DDb,-1);    y$ f& _/ i" O; ]
                       case crab.bearish: oo_plotstring(DD,"Bearish Crab ->",cyan,currentbar-DDb,-1);  
                       case deepcrab.bullish: oo_plotstring(DD,"Bullish Deep Crab ->",cyan,currentbar-DDb,-1);  ( n  n8 D; ~* q
                       case deepcrab.bearish: oo_plotstring(DD,"Bearish Deep Crab ->",cyan,currentbar-DDb,-1);  4 B; T5 r4 F+ ?! w4 R2 u6 @7 I7 u
                       case fiveoh.bullish: oo_plotstring(DD,"Bullish 5-O ->",cyan,currentbar-DDb,-1);  
                       case fiveoh.bearish: oo_plotstring(DD,"Bearish 5-O ->",cyan,currentbar-DDb,-1);  
               end; * ?6 R# W, _0 m: w3 J2 ]# W/ l
       end; 8 p3 M& M, M7 K5 {% v

6 `! Q" a! r) d& A, B
       // HARMONIC CONFIRMATIONS 

       XX = p[5]; XXb = pb[5]; , K( Q5 n5 j' ?) G$ I0 D, Y4 X
       AA = p[4]; AAb = pb[4];   [- E9 x4 o3 n. r) Z5 B# f- W6 O
       BB = p[3]; BBb = pb[3]; 
       CC = p[2]; CCb = pb[2]; 
       DD = p[1]; DDb = pb[1]; 5 I. E! [  i2 Q1 _- h7 T
       EE = p[0]; EEb = pb[0]; 
% f) @3 v, m/ M; N" e
       If confrm[4] = pattern.limbo then begin // special continuation case 
               var: XX2(0), XX2b(0); XX2 = p[7]; XX2b = pb[7]; 
               var: AA2(0), AA2b(0); AA2 = p[6]; AA2b = pb[6]; 
               var: BB2(0), BB2b(0); BB2 = p[5]; BB2b = pb[5]; 
               var: CC2(0), CC2b(0); CC2 = p[4]; CC2b = pb[4]; 
               var: Pattern2(0); Pattern2 = patrn[4];   F+ [9 k+ @' @: M' y9 f* t! S4 E
6 B# K3 _+ J+ R
               For ii = 1 to 8 begin 
                       p[ii] = p[ii+2]; 
                       pb[ii] = pb[ii+2]; % {2 B7 T( r# k' B# ^7 S
                       patrn[ii] = patrn[ii+2]; 
                       confrm[ii] = confrm[ii+2]; 
               end; ; i5 Z. Z. v( ~! q/ N
 " x6 {) w  k' `' O1 {1 b8 x, A1 P
               If Pattern2 > 0 then begin // bullish 
                       If BB < DD then begin p[1] = BB; pb[1] = BBb; end + [% A6 G5 [) x0 e5 ]* k
                               Else begin p[1] = DD; pb[1] = DDb; end; 
                       If CC > AA then begin p[2] = CC; pb[2] = CCb; end 1 H5 ~) X! ^( i/ _: j/ s  ]
                               Else begin p[2] = AA; pb[2] = AAb; end; ) |% U" u( B/ E, I$ \! g/ o& P/ ^
                       plotline(3, p[2],pb[2], p[1],pb[1], darkcyan,2); * f. L, p% a- @4 F2 ?
               End else if Pattern2 < 0 then begin // bearish 
                       If BB > DD then begin p[1] = BB; pb[1] = BBb; end 9 K& m5 B# Q5 p0 {; t+ s: r/ a2 Q: G" t
                               Else begin p[1] = DD; pb[1] = DDb; end; 0 d/ ~# `1 j2 f. B# l5 I
                       If CC < AA then begin p[2] = CC; pb[2] = CCb; end ' b% l% l' |  x5 K/ J8 `% v
                               Else begin p[2] = AA; pb[2] = AAb; end; 
                       plotline(3, p[2],pb[2], p[1],pb[1], darkcyan,2); - ]. A# ~( ]5 S; }
               End else print("!!!error"); . R- ^! C; z9 \( z) h$ c
 % Q! s4 [7 H9 [& s' G
       end; ( T1 L/ J3 @% D7 J

       XX = p[5]; XXb = pb[5]; 
       AA = p[4]; AAb = pb[4]; 
       BB = p[3]; BBb = pb[3]; 
       CC = p[2]; CCb = pb[2]; : b: Z2 g- W* P  @! Q: z% r! _
       DD = p[1]; DDb = pb[1]; 1 V& e) N( k2 l% P" A8 k
       EE = p[0]; EEb = pb[0]; 3 D  y. f% h& j1 ]  n3 y) h/ Z, u
       Pattern = patrn[2]; 0 |( t2 v9 e8 I' J+ m

       Switch Pattern begin 6 U# [. U' T  W9 P8 Z4 I. \
       Case bat.bullish,bat.bearish: confrm[2] = BatConfirm(); ' z5 f) M/ ~1 Z( n! S
       Case butterfly.bullish,butterfly.bearish: confrm[2] = ButterflyConfirm(); 
       Case gartley.bullish,gartley.bearish: confrm[2] = GartleyConfirm(); ' r: |2 J. i4 F
       Case crab.bullish,crab.bearish: confrm[2] = CrabConfirm(); 2 h6 T, J2 A9 }  f# N9 T8 U9 Q9 r
       Case deepcrab.bullish,deepcrab.bearish: confrm[2] = DeepCrabConfirm(); 5 S8 f6 N3 n* l; M: I1 s
       Case fiveoh.bullish,fiveoh.bearish: confrm[2] = FiveOhConfirm(); 
       end; 1 e( k, S8 n; f/ J+ a
$ @0 T) o  x/ @' q/ ^0 D
       If confrm[2] <> 0 then  0 v& ?* g; H9 d7 A
       Switch confrm[2] begin 
       Case pattern.failed: - D; d( d+ |5 T, a! }5 p2 N
               Value1 = oo_plotstring(EE,"pattern failure ->",cyan,currentbar-EEb,-1); 2 o, i' [2 M, m4 V& K% f( r
               targI = 0; 
               targO = 0; , \$ D+ q( S- p5 S6 x9 a
               targCD = 0; # t+ M8 y1 k" J; ?2 q- ?
               bestConfirm = 0; 
       Case pattern.limbo: * I* o6 G0 }: M# v9 I
               Value1 = oo_plotstring(EE,"pattern continuing ->",cyan,currentbar-EEb,-1); 
       Case pattern.confirmed: ; . d5 h' s' I( t8 B3 d. g7 f
               PlotLine(3, CC,CCb, DD,DDb, cyan, 1); ) O. {; c$ B6 T, s% \$ S7 g, q  L& c
               PlotLine(3, BB,BBb, CC,CCb, cyan, 1); ) E6 O( d; v, i1 [$ {0 {4 f
               PlotLine(4, BB,BBb, DD,DDb, cyan, 1); 
               FillTriangle( 0, DD,DDb, CC,CCb, BB,BBb, oo_iff(pattern<0,BearishColor,BullishColor) ); : r# W! B; `* Z, R7 r! Q7 _" w
5 g* G0 x& h% m% k3 Y0 C( [
               targI = 0; 4 O& Z, R% K; Z  k' N  N3 w7 G
               targO = 0; / a4 Z9 {& L  v& C' T
               targCD = 0; 
               bestConfirm = 0; 5 Z* B5 I" `# E% X4 E) o2 j& X7 o
       default: ; O" Z5 {; a; `
               Value1 = oo_plotstring(EE,"???",cyan,currentbar-EEb,-1); 5 d' Z- k& T. n$ }# }) j
               print("pattern ???"); 
       end; 
end; 1 ?: w6 G; X( T/ \* T5 E& d7 x4 N

Switch zigdir begin 
Case 1: If p[0] < H then begin p[0] = h; pb[0] = currentbar; end; 1 X$ K* m& t7 r, G
Case -1: If p[0] > l then begin p[0] = l; pb[0] = currentbar; end; 
end; 
}
If ShoZZBands then begin 
       plot51(zighh,"p51",oo_iff(zigdir=1,green,red)); 6 y( U8 Y) `" `4 l3 P3 _
       plot52(zigll,"p52",oo_iff(zigdir=1,green,red)); ; i, ^4 T) K: O% Y, u
end; 4 o3 h7 N" Q: F8 ^
& f- e9 o/ B! O6 P4 J
if targI > 0 then plot53(targI,"p53",cyan); 
if targO > 0 then plot54(targO,"p54",cyan);  
if targCD > 0 then plot55(targCD,"p55");  
if bestConfirm > 0 then plot56(bestConfirm,"p56");  2 @# F  [0 V, }$ i3 W . y! \; ^  G! @8 E2 o$ oEND; 
 } }

Share this post


Link to post
Share on other sites

Hi Traders Laboratory

Mr zdo Thank you again for your time and patiance with this question

 

If anyone has access to the TradeStation Forum

the original artical is there re Marsella Marceau code pages1,2.3 ref:: Easylanguage Library

Link below:

 

https://community.tradestation.com/discussions/SearchResult.aspx?txtAll=&txtExact=&txtOr=&txtNot=&txtAuthor=MarsallaMarceau&radioAuthor=0&selAuthor=0&radioScope=0&selForum=0&selSortField=1&SelSortOrder=1&cbArchive=1&selFrom=-1&RadioResult=0&selResultCount=200&Session_ID=163816-00000000

 

Best regards

Derek

Edited by derek2209
http link corropted

Share this post


Link to post
Share on other sites

Hi Trader Laboratory

 

Thank you to zdo Market Wizard for his referring to the work of Marsalla Marceau

and to Marsalla Marceau for his great work on code writing of Auto Harmonics

 

I have attached the TS ELD using the original name

"2014123002314120121230 AUTOHARMONICS "

and a text file Auto Harmonics.txt

 

I used TradeStation 9.1 to verify the code and draw the Charts

If you do not get a plot of the indicator try loading more price bars

 

Also a screen shot of Formating the Indicator Parameters

I would like someone to advise on setting up the Indicator Parameters

And three screen shots of the Indicator

I hope that the attachments travel ok

 

Best regards

Derek

2014123002314120121230 AUTOHARMONICS.ELDFetching info...

Auto Harmonics.txtFetching info...

5aa7129dbb5fb_AutoHarmonics.thumb.PNG.34a4c19dbe4910354eee81e39771da3b.PNG

5aa7129e293b9_DJIAutoHarmonics.jpg.2d4e62d444399ad3c5c55329ea0beaa5.jpg

5aa7129e2fd20_DaxAutoHarmonics.jpg.3190c1075b61370ceb537d25a64a42ad.jpg

5aa7129e373e6_GoldAutoHarmonics.jpg.741fab325b6783c6796fa72fab26f400.jpg

Edited by derek2209

Share this post


Link to post
Share on other sites

Marsalla Marceau is no longer using Tradestation and the indicator is a work in progress. The Butterfly indicator seems to be as well. However there both worth having but I like to watch Tams's in a 30 minute chart.

surinotes sells an abc indicator worth having however you wouldn't be able to see the code! Most of the harmonic code logic seems to be well guarded . However some information is out there to kick start your efforts!

I would add a PRZ zone and fib zone to Tams's and Marsalla's indicator and go from there. May I add that Patterns are not the holy grail.Patterns work and they fail as well!

MQ4 indicator and pdf down below .

5ae3466b89b04_ESH184-29-18.thumb.jpg.d61329cd08ea38b18d628b5e8e669796.jpg

PRZ Backtesting with Harmonic Pattern Plus_v1.0.pdf

Harmonic.indicator.zip

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


  • Topics

  • Posts

    • My wife Robin just wanted some groceries.   Simple enough.   She parked the car for fifteen minutes, and returned to find a huge scratch on the side.   Someone keyed her car.   To be clear, this isn’t just any car.   It’s a Cybertruck—Elon Musk's stainless-steel spaceship on wheels. She bought it back in 2021, before Musk became everyone's favorite villain or savior.   Someone saw it parked in a grocery lot and felt compelled to carve their hatred directly into the metal.   That's what happens when you stand out.   Nobody keys a beige minivan.   When you're polarizing, you're impossible to ignore. But the irony is: the more attention something has, the harder it is to find the truth about it.   What’s Elon Musk really thinking? What are his plans? What will happen with DOGE? Is he deserving of all of this adoration and hate? Hard to say.   Ideas work the same way.   Take tariffs, for example.   Tariffs have become the Cybertrucks of economic policy. People either love them or hate them. Even if they don’t understand what they are and how they work. (Most don’t.)   That’s why, in my latest podcast (link below), I wanted to explore the “in-between” truth about tariffs.   And like Cybertrucks, I guess my thoughts on tariffs are polarizing.   Greg Gutfield mentioned me on Fox News. Harvard professors hate me now. (I wonder if they also key Cybertrucks?)   But before I show you what I think about tariffs… I have to mention something.   We’re Headed to Austin, Texas This weekend, my team and I are headed to Austin. By now, you should probably know why.   Yes, SXSW is happening. But my team and I are doing something I think is even better.   We’re putting on a FREE event on “Tech’s Turning Point.”   AI, quantum, biotech, crypto, and more—it’s all on the table.   Just now, we posted a special webpage with the agenda.   Click here to check it out and add it to your calendar.   The Truth About Tariffs People love to panic about tariffs causing inflation.   They wave around the ghost of the Smoot-Hawley Tariff from the Great Depression like it’s Exhibit A proving tariffs equal economic collapse.   But let me pop this myth:   Tariffs don’t cause inflation. And no, I'm not crazy (despite what angry professors from Harvard or Stanford might tweet at me).   Here's the deal.   Inflation isn’t when just a couple of things become pricier. It’s when your entire shopping basket—eggs, shirts, Netflix subscriptions, bananas, everything—starts costing more because your money’s worth less.   Inflation means your dollars aren’t stretching as far as they used to.   Take the 1800s.   For nearly a century, 97% of America’s revenue came from tariffs. Income tax? Didn’t exist. And guess what inflation was? Basically zero. Maybe 1% a year.   The economy was booming, and tariffs funded nearly everything. So, why do people suddenly think tariffs cause inflation today?   Tariffs are taxes on imports, yes, but prices are set by supply and demand—not tariffs.   Let me give you a simple example.   Imagine fancy potato chips from Canada cost $10, and a 20% tariff pushes that to $12. Everyone panics—prices rose! Inflation!   Nope.   If I only have $100 to spend and the price of my favorite chips goes up, I either stop buying chips or I buy, say, fewer newspapers.   If everyone stops buying newspapers because they’re overspending on chips, newspapers lower their prices or go out of business.   Overall spending stays the same, and inflation doesn’t budge.   Three quick scenarios:   We buy pricier chips, but fewer other things: Inflation unchanged. Manufacturers shift to the U.S. to avoid tariffs: Inflation unchanged (and more jobs here). We stop buying fancy chips: Prices drop again. Inflation? Still unchanged. The only thing that actually causes inflation is printing money.   Between 2020 and 2022 alone, 40% of all money ever created in history appeared overnight.   That’s why inflation shot up afterward—not because of tariffs.   Back to tariffs today.   Still No Inflation Unlike the infamous Smoot-Hawley blanket tariff (imagine Oprah handing out tariffs: "You get a tariff, and you get a tariff!"), today's tariffs are strategic.   Trump slapped tariffs on chips from Taiwan because we shouldn’t rely on a single foreign supplier for vital tech components—especially if that supplier might get invaded.   Now Taiwan Semiconductor is investing $100 billion in American manufacturing.   Strategic win, no inflation.   Then there’s Canada and Mexico—our friendly neighbors with weirdly huge tariffs on things like milk and butter (299% tariff on butter—really, Canada?).   Trump’s not blanketing everything with tariffs; he’s pressuring trade partners to lower theirs.   If they do, everybody wins. If they don’t, well, then we have a strategic trade chess game—but still no inflation.   In short, tariffs are about strategy, security, and fairness—not inflation.   Yes, blanket tariffs from the Great Depression era were dumb. Obviously. Today's targeted tariffs? Smart.   Listen to the whole podcast to hear why I think this.   And by the way, if you see a Cybertruck, don’t key it. Robin doesn’t care about your politics; she just likes her weird truck.   Maybe read a good book, relax, and leave cars alone.   (And yes, nobody keys Volkswagens, even though they were basically created by Hitler. Strange world we live in.) Source: https://altucherconfidential.com/posts/the-truth-about-tariffs-busting-the-inflation-myth    Profits from free accurate cryptos signals: https://www.predictmag.com/       
    • No, not if you are comparing apples to apples. What we call “poor” is obviously a pretty high bar but if you’re talking about like a total homeless shambling skexie in like San Fran then, no. The U.S.A. in not particularly kind to you. It is not an abuse so much as it is a sad relatively minor consequence of our optimism and industriousness.   What you consider rich changes with circumstances obviously. If you are genuinely poor in the U.S.A., you experience a quirky hodgepodge of unhelpful and/or abstract extreme lavishnesses while also being alienated from your social support network. It’s about the same as being a refugee. For a fraction of the ‘kindness’ available to you in non bio-available form, you could have simply stayed closer to your people and been MUCH better off.   It’s just a quirk of how we run the place and our values; we are more worried about interfering with people’s liberty and natural inclination to do for themselves than we are about no bums left behind. It is a slightly hurtful position and we know it; we are just scared to death of socialism cancer and we’re willing to put our money where our mouth is.   So, if you’re a bum; you got 5G, the ER will spend like $1,000,000 on you over a hangnail but then kick you out as soon as you’re “stabilized”, the logistics are surpremely efficient, you have total unchecked freedom of speech, real-estate, motels, and jobs are all natural healthy markets in perfect competition, you got compulsory three ‘R’’s, your military owns the sky, sea, space, night, information-space, and has the best hairdos, you can fill out paper and get all the stuff up to and including a Ph.D. Pretty much everything a very generous, eager, flawless go-getter with five minutes to spare would think you might need.   It’s worse. Our whole society is competitive and we do NOT value or make any kumbaya exception. The last kumbaya types we had werr the Shakers and they literally went extinct. Pueblo peoples are still around but they kind of don’t count since they were here before us. So basically, if you’re poor in the U.S.A., you are automatically a loser and a deadbeat too. You will be treated as such by anybody not specifically either paid to deal with you or shysters selling bejesus, Amway, and drugs. Plus, it ain’t safe out there. Not everybody uses muhfreedoms to lift their truck, people be thugging and bums are very vulnerable here. The history of a large mobile workforce means nobody has a village to go home to. Source: https://askdaddy.quora.com/Are-the-poor-people-in-the-United-States-the-richest-poor-people-in-the-world-6   Profits from free accurate cryptos signals: https://www.predictmag.com/ 
    • TDUP ThredUp stock, watch for a top of range breakout above 2.94 at https://stockconsultant.com/?TDUP
    • TDUP ThredUp stock, watch for a top of range breakout above 2.94 at https://stockconsultant.com/?TDUP
    • TDUP ThredUp stock, watch for a top of range breakout above 2.94 at https://stockconsultant.com/?TDUP
×
×
  • Create New...

Important Information

By using this site, you agree to our Terms of Use.