Mathematica file for the generation of the resource states and quantification of the entanglement distributed through a separable carrier. 

Generated through Wolfram Mathematica 12.3.1

No special instruction for opening or accessing