Hi chrfialia76,

This one is fairly easy to fix.  The reason that it's not calculation anything is because you have Dim'ed your Fuzzy and Retraction variables as Integer.  They should be Single as you are using decimals.   The way you have it they will be 0.

I don't completely understand everything you are doing but I do have a couple of other suggestions that might help:

#1) I don't think 'Low' is calculating a value.  When you initialize it using the Dim statement it will start off with a value of 0 and you can't get any lower than that with price.  

#2) The loop you use to calculate the high and low of the tradingrange can be replaced with the statement

High = Price.MaxHigh(Tradingrange)
Low = Price.MinLow(Tradingrange)

Now you can fix both #1 and #2  by using the following statements after the Dim statement for TradingRange:

Dim High as Single = Price.MaxHigh(TradingRange)
Dim Low as Single = Price.MinLow(TradingRange)


#3) To speed things up a bit you might want to calculate the fuzzy upper and lower limits outside the loop.  If you decide to use the suggestion above for High and Low then you can add the follow Dim statements right after (also after the Dim statement for Fuzzy):

Dim FHighUpper As Single = High * (1 + Fuzzy)
Dim FHighLower As Single = High * (1 - Fuzzy)
Dim FLowUpper As Single = Low * (1 + Fuzzy)
Dim FHighLower As Single = Low * (1 - Fuzzy)

You might want to do this for the Retraction calculation.

I pasted below what your second loop would look like if you use the above suggestion.  You may notice a few other minor things.  The "AndAlso" statement is used to speed things up a fraction.  It will not execute the remainder of the if statement if the first part is not true. Also, I assumed you only want to check 30 bars (tradingrange) therefore "i" should be from 0, which is the current bar, to 29 which is the 30th bar.

For i As Integer = 0 To TradingRange - 1
       
 If Price.High(i) < HighFuzzyUpper AndAlso Price.High(i) > HighFuzzyLower Then
  If LastIsHigh Then
   TouchHigh = TouchHigh + 1
  End If
  LastIsHigh = True
 End If
       
 If LastIsHigh And (Price.High(i) < High * (1 - Retraction)) Then
  LastIsHigh = False   
 End If
       
 If Price.Low(i) < LowFuzzyUpper AndAlso Price.Low(i) > LowFuzzyLower Then
  If LastIsLow Then
   TouchLow = TouchLow + 1
  End If
  LastIsLow = True
 End If
       
 If LastIsLow And (Price.Low(i) > Low * (1 + Retraction)) Then
  LastIsLow = False   
 End If

Next

Kind Regards,
Shawn