to jA
nevím jestli je to ještě aktuální, ale co třeba toto? Je to vytáhnul jsem to z kódu WCCI a Pivot Points od Denise z Woodieho fóra.
Snad vám to trochu pomůže
// Angle EMA34
barcolor = IIf(C > Open, colorBlack, IIf(C == Open, colorBlack, colorBlack));
EMA34 = EMA(C,34);
PI = atan(1.00) * 4;
periods = 30;
HighHigh = HHV(H, periods);
LowLow = LLV(L, periods);
range = 25 / (HighHigh - LowLow) * LowLow;
x1_EMA34 = 0;
x2_EMA34 = 1;
y1_EMA34 = 0;
y2_EMA34 = (Ref(EMA34, -1) - EMA34) / Avg * range;
c_EMA34 = sqrt((x2_EMA34 - x1_EMA34)*(x2_EMA34 - x1_EMA34) + (y2_EMA34 - y1_EMA34)*(y2_EMA34 - y1_EMA34));
angle_EMA34 = round(180 * acos((x2_EMA34 - x1_EMA34)/c_EMA34) / PI);
angle_EMA34 = IIf(y2_EMA34 > 0, - angle_EMA34, angle_EMA34);
TitleAngleEMA34 = "EMA34 angle = " + angle_EMA34;
Plot(EMA34,"EMA 34",ParamColor( "EMA Color", colorCycle ), ParamStyle( "EMA Style" ) );
Plot( C, "Close", barcolor, styleNoTitle | ParamStyle("Price Style") | GetPriceStyle() );
//Title
Title = "\n" + "" + Name() + ", " + Interval(2) + ", " + Date() + "\n" + TitleAngleEMA34;