I wrote some Mathematica files to compute the colored Jones polynomial for some families of links. The files are provided with interactive pictures to show which link is being computed. The integer in the picture refers to the number of crossings in the region and the sign of the integer refers to the type of the crossing. I am using the Skein theory approach to the CJP here.