I tried olso such solution, but it didn't works:(
can somebody help me please?
Sub RunScript(ByVal arrRad As List(Of Double), ByVal factor_green As
Double, ByVal factor_magenta As Double, ByVal factor_blue As Double,
ByVal factor_black As Double, ByVal radi_green As Double, ByVal
radi_magenta As Double, ByVal radi_blue As Double, ByVal radi_black As
Double, ByVal radi_red As Double, ByVal factor_red As Double)
Dim tree As New DataTree(Of Double)
For i As Int32 = 0 To arrRad.Count - 1
Dim path As New EH_Path(i)
Dim dblTemp As Double = arrRad(i)
If dblTemp.Equals(radi_green) Then tree.Add(factor_green,
path)
If dblTemp.Equals(radi_red) Then tree.Add(factor_red, path)
If dblTemp.Equals(radi_black) Then tree.Add(factor_black,
path)
If dblTemp.Equals(radi_blue) Then tree.Add(factor_blue,
path)
If dblTemp.Equals(radi_magenta) Then tree.Add(factor_magenta,
path)
Next
A = tree
End Sub
[email protected] wrote:
> Hey David,
> hey Everyone,
>
> I tried to sort data with you new trees component, but it seems to be
> a tough nut to crack for me.
> the logic is very simple I put the list of duobles in, and compare it
> with input of doubles
> if the element the same I put a new parameter in.
> But it didn't work:(
> could you help me?
>
> Best!
> Dima
>
> Sub RunScript(ByVal arrRad As List(Of Double), ByVal factor_green As
> Double, ByVal factor_magenta As Double, ByVal factor_blue As Double,
> ByVal factor_black As Double, ByVal radi_green As Double, ByVal
> radi_magenta As Double, ByVal radi_blue As Double, ByVal radi_black As
> Double, ByVal radi_red As Double, ByVal factor_red As Double)
>
> Dim tree As New DataTree(Of Double)
>
> Dim arrNewRadi As New List(Of Double)
>
> For i As Int32 = 0 To arrRad.Count - 1
>
> Dim path As New EH_Path(i)
>
> If (arrRad(i) = radi_green) Then tree.Add(factor_green, path)
> If (arrRad(i) = radi_green) Then arrNewRadi.Add(factor_green)
>
> If (arrRad(i) = radi_red) Then tree.Add(factor_red, path)
> If (arrRad(i) = radi_red) Then arrNewRadi.Add(factor_red)
>
> If (arrRad(i) = radi_black) Then tree.Add(factor_black, path)
> If (arrRad(i) = radi_black) Then arrNewRadi.Add(factor_black)
>
> If (arrRad(i) = radi_blue) Then tree.Add(factor_blue, path)
> If (arrRad(i) = radi_blue) Then arrNewRadi.Add(factor_blue)
>
> If (arrRad(i) = radi_magenta) Then tree.Add(factor_magenta,
> path)
> If (arrRad(i) = radi_magenta) Then arrNewRadi.Add
> (factor_magenta)
>
> 'tree.Add(radi_temp, path)
> 'arrNewRadi.Add(radi_temp)
> Next
>
> A = tree
> B = arrNewRadi
> End Sub
