Dim i,j,k,last As Integer
Dim swing As Single = Me.CodeBlock.ParameterValue
Dim curhigh,curlow,swhigh,swlow,lowp,highp As Single
Dim pcswing As Single
Dim highbar, lowbar, chighbar, clowbar As Integer

pcswing = swing/100

For i = 1 To InputCount-1
	If i = 1
	curhigh = inputlast(0)
	curlow = inputlast(0)
	End If

	If last <> 1
		If inputlow(i) < (curhigh-curhigh*pcswing)
			last = 1
			swhigh=curhigh
			highbar = chighbar
			curlow = inputlow(i)
			clowbar = i
			addtooutput(inputdate(chighbar),swhigh)

		ElseIf inputhigh(i) > curhigh
			curhigh = inputhigh(i)
			chighbar = i

		End If
	End If

	If last <> -1
		If inputhigh(i) > curlow+(curlow*pcswing)
			last = -1
			swlow = curlow
			curhigh = inputhigh(i)
			chighbar = i
			addtooutput(inputdate(clowbar),swlow)

		ElseIf inputlow(i) < curlow
			curlow = inputlow(i)
			clowbar = i
		End If
	End If
Next