In the Wolfram Quantum Framework, one can test if parts of a quantum system are entangled and quantify the amount of entanglement using different measures.
One can calculate different quantum entanglement monotones using the function QuantumEntanglementMonotone. Many different monotones are supported, such as concurrence, negativity, log-negativity, entanglement entropy, Renyi entropy, and realignment.
Calculate the concurrence:
In[3]:=
QuantumEntanglementMonotone[ψ,"Concurrence"]
Out[3]=
3
2
Given a Werner state of 1-qubits, with the probability p, calculate the negativity: