Loading older invariants

SetDirectory["C:\\drorbn\\AcademicPensieve\\Talks\\KnotTheoryCongress-2502"]

θs=Get["../../Projects/HigherRank/Data/theta3-15.m"]

Length[θs]

Length[Hs=Get["../../Projects/HigherRank/Data/HOMFLYPT3-15.m"]]

Length[Khs=Get["../../Projects/HigherRank/Data/Kh3-15.m"]]

HKhs=MapThread[(#1[[1]]->Expand@{#1[[2]],#2[[2]]})&,{Hs,Khs}]

HKhθs=MapThread[(#1[[1]]->Expand@{#1[[2]],#2[[2]]})&,{HKhs,θs}]

Loading (Subscript[ρ, 2])

ρ2s=Join@@(Get["Rho2Data/"<>#]& /@ {"Rho2_3-10.m","Rho2_11.m","Rho2_12.m","Rho2_13.m","Rho2_14.m","Rho2_15.m"})

Length[ρ2s]

θρ2s=MapThread[(#1[[1]]->Expand@{#1[[2]],#2[[2]]})&,{Take[θs,Length[ρ2s]],ρ2s}]

HKhθρ2s=MapThread[(#1[[1]]->Expand@{#1[[2]],#2[[2]]})&,{Take[HKhs,Length@θρ2s],θρ2s}]

Stats

Stats[n_]:=Module[{a,b},
{"Knots", a=Length@Select[θs,#[[1,1]]<=n&],
"(H,Kh)",b=Length@Union@Expand[Last/@Select[HKhs,#[[1,1]]<=n&]],b-a,
"(Δ,(Subscript[ρ, 1]))",b=Length@Union@Expand[Last/@Select[θs,#[[1,1]]<=n&]/.T2->1],b-a,
"(Δ,θ)",b=Length@Union@Expand[Last/@Select[θs,#[[1,1]]<=n&]],b-a,
"(Δ,θ,(Subscript[ρ, 2]))",b=Length@Union@Expand[Last/@Select[θρ2s,#[[1,1]]<=n&]],b-a,
"(H,Kh,θ)",b=Length@Union@Expand[Last/@Select[HKhθs,#[[1,1]]<=n&]],b-a,
"(H,Kh,θ,(Subscript[ρ, 2]))",b=Length@Union@Expand[Last/@Select[HKhθρ2s,#[[1,1]]<=n&]],b-a
}]

Stats[10]

Stats[11]

Stats[12]

Stats[13]

Stats[14]

Stats[15]