Torque Analysis

CHART UPLOAD NOT WORKING SO I WILL TRY IT AGAIN LATER HERE IS CODE:

[description="Chapter 4 Torque analysis of Stock Market Cycles - formula for allocating buying and selling volume - on a standardised scale. cmacdon Note: this was independently developed formula by Garrett for allocating buying and selling price movement which he then applied to volume measures applied to Cycle analysis. It differs from Larry Williams definition previously discussed in the Bullcharts "Smart Money" post, as the Garret Formula picks up the price movement from hte previous bar close to the current bar close. Whereas Williams formula is an allocation the each bars H to L only. Also, converts to a standadised measure of buying and selling volume per movement between price bars. As an indicator this helps overcome distortions otherise due to outliers in raw data"]
[citation="Investing for Profit with Torque Analysis "]
[author=Garrett, William C.; Investment Book Publishers ; ]


{Note I added ability to apply moving average - concept not in original formula}
prdp:=input("MA of Path", 1, 1, 200);

{Note this was also added to fine tune Bullcharts indicator for cut off level}
bs:=input("Buy Sell Cutoff", 0.5, .0001, 2);

Value1a := If(H>=Hist(C,1),- (H-L), H-Hist(c,1)-(H-L)); {Price movement representing Selling Vol}
Value2 := If(H>=Hist(C,1),(H-Hist(c,1) + (C-L)), (C-L)) ; {Price movement representing Buying Vol}
Path:=Value2-Value1a; { Note this effectively is used to standardise each bars relative movement due to buyers or sellers}
Value1aa:=Value1a/Path; {Relative Selling price movement}
Value22:=Value2/Path; {Relative Buying price movement}

Value3 := Value2 - Value1a; {Net of buying and Selling Vol - Used in other indicators not this one}

[linestyle=Bar; width=6]
Spress:=ma((-Value1aa+Value22),prdp,s);

[name= Standardised Total price movement; color=GOLD;]
Spress;

Bpress:=ma(Value22,prdp,s);

[color=Royal Blue ;]
Bpress;

[color=cyan ;]
if(Bpress>Hist(Bpress,1),Bpress,undefined);

[Name= Threshold levels; color=Black; linestyle=solid;width=2;]
d:=0.5;
d;

d1:=0.75;
d1;

d4:=0.25;
d4;


[color=Black; linestyle=solid;width=1;]
d2:=0.625;
d2;

d3:=0.375;
d3;

[Name= Approx mid point cut off level];
cutoff:=bs;
cutoff;

{ Fill }
[name=Higlight buying or selling above or below cutoff; linestyle=fill]
[color=Cyan]Bpress;
[color=red] bs;

[visible=True]
[linestyle=Bar; color=cyan ; width=6;]
if(Bpress>Cutoff,Bpress,undefined);