imported>Stefano Fanton: /* Vedi anche: */

2012-03-22T07:55:36Z

Vedi anche:

Nuova pagina

'''''Trading System "Support and Resistance System"'''''

Formula per Tradestation™:

INIZIO FORMULA

Type: Function, Name: WSO Inputs: Strength(Numeric), Length(Numeric); Vars: SCalc(0);

Array: Support[100](0); Condition1 = SwingLow(1, Low, Strength, Strength+1) <> -1; IF Condition1 Then Begin For value1 = 100 DownTo 2 Begin Support[value1] = Support[value1-1]; End; Support[1] = Low[Strength]; End; IF Support[Length] <> 0 Then Begin SCalc = 0; For value1 = 1 To Length Begin SCalc = SCalc + IntPortion(Support[value1] / Close); End; WSO = 100 * (1 - (SCalc / Length)); End Else WSO = 0;

 

Type: Function, Name: WRO

Inputs: Strength(Numeric), Length(Numeric); Vars: RCalc(0);

Array: Resist[100](0); Condition1 = SwingHigh(1, High, Strength, Strength+1) <> -1; IF Condition1 Then Begin For value1 = 100 DownTo 2 Begin Resist[value1] = Resist[value1-1]; End; Resist[1] = High[Strength]; End; IF Resist[Length] <> 0 Then Begin RCalc = 0; For value1 = 1 To Length Begin RCalc = RCalc + IntPortion(Resist[value1] / Close); End; WRO = 100 * (1 - (RCalc / Length)); WRO = 0; end

 Type: System, Name: Support-Resistance

Inputs: Strength(4), Length(6), AvgLen(30), BuyLen(4), BuyLev(95);

IF MRO(WSO(Strength, Length)>Average(WSO(Strength, Length), AvgLen), BuyLen, 1) <> -1 Then Buy This Bar on Close; IF Average(WRO(Strength, Length), AvgLen) Crosses Above BuyLev Then Buy This Bar on Close;

 FINE FORMULA

== Vedi anche: ==

*[[Indice sequenziale Trading System|Indice sequenziale Trading System]]

[[Category:Formule_Trading_System]]

TS Support and Resistance System - Cronologia

imported>Stefano Fanton: /* Vedi anche: */