[citation

=" Wyckoff Supply & Demand CMD This has nowbeen coded using various sources of Volume Spread Analysis - Undeclared Secretsand Master of the Markets by Tom Williams, and Master Class 4/4/2010, andTrading in the Shadow of Smart Money Vol2 (TSSM), and That was the week thatwas by Tom Williams. VSA is largely judgemental.  The threshold weightings below allow myinterpreatation for the Bullchart coding CMD"]

{In summary there may be a number of indicators foreach of these

Principles of weakness

1 End of rising market

2 No Demand at Market Top

3 No Result from effort

4 Upthrusts

5 No Demand on Downtrend

6 Widespread down through previous support

7 Buying Climax

8 Top Reversal

Principles of Strength

1 Bottom Reversal

2 Stopping Volume

3 Tests

4 Absorption

5 Bagholding

6 Selling Climax

7 Shakeout

8 No Supply in a rising market}

{-------------------------------------------------------------------------------------------------------}

{ The selection of an appropriate trend calculationmethod is most critical as many SOS and SOW indicators depend on whther trendis up or down.}

[target=Price]

Vib:=input("Vibration", 4, .001,100);

Z:=Zig(If(Outside() AND Ref(H,-1)>Ref(H,-2),H,If(Outside() AND Ref(L,-1)<Ref(L,-2),L,If((Outside() OR Inside()) AND C>O,H,If((Outside() OR Inside()) AND O>C,L,If(H>Ref(H,-1),H,If(L<Ref(L,-1),L,If(Ref(H,-1)>Ref(H,-2),H,If(Ref(L,-1)<Ref(L,-2),L,C)))))))),Vib,%);

Trendup:=Z>ref(z,-1);

Trenddown:=Z<=ref(z,-1);

{-------------------------------------------------------------------------------------------------------}

prd1:=input("Period for  Volume MA", 30, 1, 200);

prd2:=input("Period for Total SpreadMA", 200, 1, 200);

Cut:=input("Narrow Spread Cutoff", 0.5, .05, 0.8);

Cut2:=input("UltraWS Cut off", 1.2, .05,2.0);

method:= inputma("Method",SIMPLE);

THExLo:=input("Extreme Low Vol MaximumThreshold", 0.70, .1, 2);

THLo:=input("Maximum for Low VolThreshold", 1.0, .1, 2);

THNo:=input("Ultra High Minimum VolThreshold", 1.3, .1, 2.00);

Uf:=input("Upthrust % on previousHigh", 1.0005, .05, 2.0);

Tf:=input("Test declinefactor", 0.9995, .05, 2.0);

Range:= H - L;

ExtremeLowVol:=If(V<=THExLo*ma(V,prd1,s),V,0);

LowVol:=If(V>THExLo*ma(V,prd1,s) and V<=THLo*ma(V,prd1,s), V, 0);

HighVol:=If(V>THLo*ma(V,prd1,s) and V<=THNo*ma(V,prd1,s), V,0) ;

UltraHighVol:=If(V>THNo*ma(V,prd1,s),V,0);

Upbar:=   C>Hist(C,1);

Levelbar:=Hist(C,1);  {used for TW EasyTrend rules}

Downbar:=C< Hist (C,1);

GapUp:=L>= Hist (H,1);

GapDown:=H<= Hist (L,1);

NS:=(Range<=Cut*ma(Range,prd2,method));

WS:=(Range>Cut*ma(Range,prd2,method)) and (Range<Cut2* ma(Range,prd2,method));

UltraWS:=(Range>=Cut2*ma(Range,prd2,method) );

UltraBear:=C<=((Range*0.2)+L);

Bear:=C>((Range*0.2)+L) AND C<=((Range*0.50)+L);

Bull:=C>((Range*0.50)+L) AND C<=((Range*0.80)+L);

UltraBull:=C>((Range*0.80)+L);

{SOS 1 Bottom Reversal}

SOS1:=

If ( (TrendDown OR (Trendup and Hist(c,1)<Hist(c,15)))

ANDL<Hist(L,1)

ANDUltrabull

AND(upbar or C=Hist(c,1))

AND(Hist(Bull,1) OR Hist(Bear,1) OR Hist(Ultrabear,1))

AND(WS OR UltraWS) {Distinguish fromversion 1a}

AND(HighVol ORUltrahighvol)

AND(Hist(C,1)<=Hist(C,2) AND Hist(C,1)<=Hist(C,3) AND Hist(C,1)<=Hist(C,4) AND Hist(C,1)<=Hist(C,5))

AND(Hist(L,1)<=Hist(L,2) AND Hist(L,1)<=Hist(L,3) AND Hist(L,1)<=Hist(L,4) AND Hist(L,1)<=Hist(L,5)),1,0);

[name=1 brS; linestyle=marker; marker=long; fontsize=8; tooltip="SOS 1 Bottom Reversal - based on two bars a varietyof versions. Second bar is rapidly marked up to lock in traders that shorted orto lock you out if you want to buy the market. People hesitate buying as the shares look expensive relative toyesterday. 

THIS VERSION HAS HIGH VOLUME INDICATING SUPPLY ISSTILL PRESENT. We can expect the market to come back down within a few days totest to see if supply has dried up.  (SeeSOS1a There is high volume on the second day it indicates supply and we canexpect the market to come back down within a few days to test to see if supplyhas dried up).  Gavin Holmes Trading intheShadow of the Smart Money78,79,97.";];

SOS1;

{SOW 1S End of Rising Market.  Similar to SOW 81b Selling Pressure.  Per TW 061110 Markets TOP OUT on NS upbars}

SOW1S:=

If(H=Highest(H,25)

ANDTrendUP

AND(Upbar Or C=Hist(c,1))

ANDUltraHighVol {Vol=Supply Or See V2 Extreme low Vol No Demand}

AND(NS OR WS) {Added WS as some TGNS indicators were not getting picked up}

{Added Ultrabull as TG indicators sometimes showclose=High}

AND(Ultrabear ORBear ),1,0);

[name=1 ermSup;  marker=short;  fontsize=8; tooltip="SOW 1S Endof rising market Supply - Don't see too often Fresh new ground to the left isnot 10 bars but 2 to 3 months or a year per Tom Williams.  Gavin Holmes uses 500 bars

Psychology: a) Uptrend to the left into fresh newground.  . b) GapUp in the morning is astrong sign but some variations have no Gap Up c)SM is selling to satisfysurges of demand hence putting a cap on higher prices and the NS. d) Buy ordersare being rapidly satisfied. If SM had been buying there would be a wide spreadf)the Close does not make a difference what counts is the NS g)Ultrahighvol.  This is a serious sign ofweakness

Gavin conservative approach Follow Up:Wait formarket to mushroom over if you are going to short.  Mkt should make lower highs each day.  Wait for at least 10 bars in any time frameto see the result of weakness. TW would jump[ in.

In strong down trend there should be increasing volon Down bars and decreasing Vol on Up bars. Wait for a No Demand up bar, an upthrust on either high or low volume inorder to short.  The end of a down trendis often 2 consecutive Up bars followed by a Test or No Supply Down bar. TSSM5,14,21,22,23,24,30,71 ";];

SOW1S;

{-------------------------------------------------------------------------------------------}

{This section takes up price colour bars equal toVolume bars for VSA codes}

{ Volume Spread Analysis

[description="VSA Volume Indicator CMD"]}

[target=Price; linestyle=PriceColor]

[name=Low Vol; Color=Lime Green] { Low volume}

LowVol;

[name=High Vol; Color=Dark Violet] { High Volume climax}

HighVol;

[name=Ultra High Vol; Color=Red] { Ultra High Volume}

UltraHighVol;

[name=Extreme Low Vol; Color=Orange] {Extremely Low Volume}

ExtremeLowVol;

{End of Indicator 1 }

{ Volume Spread Analysis Colour Volume Bars }

[description="VSA VOLUME Bars Colours adj weightings "]

prd1:=input("Period for MAs", 50, 1,200);

THExLo:=input("Extreme Low MaximumThreshold", 0.7, .1, 2);

THLo:=input("Maximum for LowThreshold", 1.0, .1, 2);

THNo:=input("Extreme High MinimumThreshold",1.3, .1, 2);

Range:= High - Low;

Value1:= Volume;

[linestyle=Bar; width=4]

{[name=Normal Vol; Color=Gray] { Normal }

Volume;}

[name=Extreme Low Vol;Color=Orange] {Extremely Low Volume}

If(Value1 <=THExLo*ma(V,prd1,s),V,0);

[name=Low Vol;Color=Lime Green] { Low volume}

If(Value1 >THExLo* ma(V,prd1,s) and v <=THLo*ma(V,prd1,s), V, 0);

[name=High Vol;Color=Dark Violet] { High Volume climax}

If(Value1 >THLo* ma(V,prd1,s) and v<=THNo*ma(V,prd1,s), V,0) ;

[name=Ultra High Vol;Color=Red] { Ultra High Volume}

If(Value1 >THNo*ma(V,prd1,s),V,0);