Registered User
Joined: 2/24/2013
Posts: 16
|
Hello,
I have another issue I'm trying to fix and searching hasn't turned up a solution. I am telling a variable to be defined as price.Close(X) where X is user defined. But really what I want is for that variable to store the value of price.Close(X) for future bars to compare against until the variable is redefined as a new value. Is there a way to do this?
Thresh and Hold are the variables that are not sticking to the value for the bar in which they are defined. Clearly I'm doing it wrong and need the proper coding to do what I'm after. As an aside the code might have some redundant elements like Exit Function and Plots as I've been troubleshooting but this is where it's at right now. Also Starting Trend as "Down" is sort of a workaround at the moment.
Thank you in advance,
Connor
Here is the code:
'# Smoothing = UserInput.Integer = 5
Dim Ind As Single
Dim Check As Boolean = False
Dim Thresh As Single
Dim Hold As Single
Dim Trend As String = "Down"
Select Case Trend
Case = "Up"
Select Case price.Close
Case > price.Close(1) And Check = False
Thresh = price.Close(Smoothing)
Ind = price.Close
Plot = Ind
Exit Function
Case > price.Close(1) And Check = True And price.Close <= Hold
Ind = Hold
Plot = Ind
Exit Function
Case > price.Close(1) And Check = True And price.Close > Hold
Check = False
Thresh = price.Close(Smoothing)
Ind = price.Close
Plot = Ind
Exit Function
Case <= price.Close(1) And Check = False And price.Close > price.Close(Smoothing)
Hold = price.Close(1)
Thresh = price.Close(Smoothing)
Check = True
Ind = price.Close(1)
Plot = Ind
Exit Function
Case <= price.Close(1) And Check = True And price.Close > Thresh
Ind = Hold
Plot = Ind
Exit Function
Case <= Thresh
Trend = "Down"
Check = False
Thresh = price.Close(Smoothing)
Ind = price.Close
Plot = Ind
Exit Function
End Select
Case = "Down"
Select Case price.Close
Case < price.Close(1) And Check = False
Thresh = price.Close(Smoothing)
Ind = price.Close
Plot = Ind
Exit Function
Case < price.Close(1) And Check = True And price.Close >= Hold
Ind = Hold
Plot = Ind
Exit Function
Case < price.Close(1) And Check = True And price.Close < Hold
Check = False
Thresh = price.Close(Smoothing)
Ind = price.Close
Plot = Ind
Exit Function
Case >= price.Close(1) And Check = False And price.Close < price.Close(Smoothing)
Hold = price.Close(1)
Thresh = price.Close(Smoothing)
Check = True
Ind = price.Close(1)
Plot = Ind
Exit Function
Case >= price.Close(1) And Check = True And price.Close < Thresh
Ind = Hold
Plot = Ind
Exit Function
Case >= Thresh
Trend = "Up"
Check = False
Thresh = price.Close(Smoothing)
Ind = price.Close
Plot = Ind
Exit Function
End Select
End Select
|
Worden Trainer
Joined: 10/7/2004
Posts: 65,138
|
Use Static instead of Dim.
-Bruce
Personal Criteria Formulas
TC2000 Support Articles
|