Wolfram Language Paclet Repository
Community-contributed installable additions to the Wolfram Language
Wolfram`TensorNetworks`
TensorNetworkDelete  |
|
| | ||||
|
| | ||||
|
| | ||||
Details and Options
Examples
(4)
Basic Examples
(1)
Create a tensor network on three tensors arranged in a triangle:
In[1]:=
t1=RandomReal[1,{2,3}];t2=RandomReal[1,{3,4}];t3=RandomReal[1,{4,2}];t4=RandomReal[1,{2,2}];{i,j,k,l,m,n,p,q}=Table[Symbol["idx"<>ToString[x]],{x,8}];indices={{i,j},{j,k},{k,i}};tn=TensorNetwork[{t1,t2,t3},indices];
Remove the last tensor (default):
In[2]:=
TensorNetworkDelete[tn]
Out[2]=
TensorNetwork
 |  |
|
Negative indices are explicit:
In[3]:=
TensorNetworkDelete[tn,-1]
Out[3]=
TensorNetwork
| |
|
Remove the first tensor:
In[4]:=
TensorNetworkDelete[tn,1]
Out[4]=
TensorNetwork
| |
|
Remove the middle tensor; the dangling indices become free:
In[5]:=
TensorNetworkDelete[tn,2]
Out[5]=
TensorNetwork
|  |
|
Round-trip with TensorNetworkAdd: add a fourth tensor, then delete it to recover the original:
In[6]:=
TensorNetworkDelete[TensorNetworkAdd[tn,t4,{m,n}],4]
Out[6]=
TensorNetwork
|  |
|
Integer indices work the same way:
In[7]:=
TensorNetworkDelete[TensorNetwork[{t1,t2,t3},{{1,2},{2,3},{3,1}}],2]
Out[7]=
TensorNetwork
| |
|
Scope
(1)
Applications
(1)
Properties & Relations
(1)
 |
|
 |
|
""