It's really important to use reduction of strength for lindex references:

set j [ lindex $red $i ]

set k [ lindex $green $i ]

set m [ lindex $blue $k ]

set x [ expr $j - $m ]