Skip to content

Fixed some issues when importing #1

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
KKockler wants to merge 2 commits into
base: main
Choose a base branch
from
Open

Fixed some issues when importing #1

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
3fac365
improving safeguard for error messages when calling a function with t…
Mar 25, 2026
9b85833
commented out safeguards leading to error when importing
Mar 25, 2026
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
44 changes: 15 additions & 29 deletions TensorBases.m
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -920,7 +920,7 @@ Returns a matrix for the transformation of coordinates (i.e. (!) vertex dressing
\!\(\*SubscriptBox[\(\[Epsilon]\), \(abc\)]\) is the fully anti-symmetric Levi-Civita symbol.
The \!\(\*SuperscriptBox[\(T\), \(a\)]\) are normalised as
tr[\!\(\*SuperscriptBox[\(T\), \(a\)]\)\!\(\*SuperscriptBox[\(T\), \(b\)]\)] = \!\(\*FractionBox[\(1\), \(2\)]\)\!\(\*SubscriptBox[\(\[Delta]\), \(ab\)]\).
The \!\(\*SubscriptBox[\(\[Gamma]\), \(\[Mu]\(\\\ \)\)]\)denote Euclidean gamma matrices and accordingly \!\(\*SubscriptBox[\(\[Gamma]\), \(5\(\\\ \)\)]\)= \!\(\*SubscriptBox[\(\[Gamma]\), \(0\)]\)\!\(\*SubscriptBox[\(\[Gamma]\), \(1\)]\)\!\(\*SubscriptBox[\(\[Gamma]\), \(2\)]\)\!\(\*SubscriptBox[\(\[Gamma]\), \(3\)]\)
The \!\(\*SubscriptBox[\(\[Gamma]\), \(\(\[Mu]\)\(\\\ \)\)]\)denote Euclidean gamma matrices and accordingly \!\(\*SubscriptBox[\(\[Gamma]\), \(\(5\)\(\\\ \)\)]\)= \!\(\*SubscriptBox[\(\[Gamma]\), \(0\)]\)\!\(\*SubscriptBox[\(\[Gamma]\), \(1\)]\)\!\(\*SubscriptBox[\(\[Gamma]\), \(2\)]\)\!\(\*SubscriptBox[\(\[Gamma]\), \(3\)]\)
";


Expand Down Expand Up @@ -1146,12 +1146,7 @@ Returns a matrix for the transformation of coordinates (i.e. (!) vertex dressing
TBGetBasisElement[name_String,n_Integer]:=Module[{},
Print["Unknown basis "~~name~~". Aborting"];Abort[]
];
TBGetBasisElement[name_String]:=Module[{},
Print["TBGetBasisElement[...] requires at least two arguments! Aborting"];Abort[]
];
TBGetBasisElement[]:=Module[{},
Print["TBGetBasisElement[...] requires at least two arguments! Aborting"];Abort[]
];
TBGetBasisElement[args___]/;Length[{args}]<2:=Module[{},Print["TBGetBasisElement[...] requires at least two arguments! Aborting"];Abort[]];


TBGetVertex[name_String,All,indices___]:=Module[{},
Expand All @@ -1166,28 +1161,19 @@ Returns a matrix for the transformation of coordinates (i.e. (!) vertex dressing
TBGetVertex[name_String,n_Integer]:=Module[{},
Print["Unknown basis "~~name~~". Aborting"];Abort[]
];
TBGetVertex[name_String]:=Module[{},
Print["TBGetVertex[...] requires at least two arguments! Aborting"];Abort[]
];
TBGetVertex[]:=Module[{},
Print["TBGetVertex[...] requires at least two arguments! Aborting"];Abort[]
];
TBGetVertex[args___]/;Length[{args}]<2:=Module[{},Print["TBGetVertex[...] requires at least two arguments! Aborting"];Abort[]];


TBGetMetric[name_String]:=Module[{},
Print["Unknown basis "~~name~~". Aborting"];Abort[]
];
TBGetMetric[]:=Module[{},
Print["TBGetMetric[...] requires an argument. Aborting"];Abort[]
];
TBGetMetric[args___]/;Length[{args}]<1:=Module[{},Print["TBGetMetric[...] requires an argument! Aborting"];Abort[]];


TBGetInverseMetric[name_String]:=Module[{},
Print["Unknown basis "~~name~~". Aborting"];Abort[]
];
TBGetInverseMetric[]:=Module[{},
Print["TBGetInverseMetric[...] requires an argument. Aborting"];Abort[]
];
TBGetInverseMetric[args___]/;Length[{args}]<1:=Module[{},Print["TBGetInverseMetric[...] requires an argument! Aborting"];Abort[]];


TBGetProjector[name_String,All,indices___]:=Module[{},
Expand All @@ -1202,12 +1188,7 @@ Returns a matrix for the transformation of coordinates (i.e. (!) vertex dressing
TBGetProjector[name_String,n_Integer]:=Module[{},
Print["Unknown basis "~~name~~". Aborting"];Abort[]
];
TBGetProjector[name_String]:=Module[{},
Print["TBGetProjector[...] requires at least two arguments! Aborting"];Abort[]
];
TBGetProjector[]:=Module[{},
Print["TBGetProjector[...] requires at least two arguments! Aborting"];Abort[]
];
TBGetProjector[args___]/;Length[{args}]<2:=Module[{},Print["TBGetProjector[...] requires at least two arguments! Aborting"];Abort[]];


GetBasisName[BasisDefinitionFile_String]:=Module[{},
Expand Down Expand Up @@ -1509,7 +1490,8 @@ Returns a matrix for the transformation of coordinates (i.e. (!) vertex dressing
Print[BasisName~~" is a Vertex basis - no basis elements are available!"];Abort[];
];
TBGetBasisElement[BasisName,All]:=Module[{},
Print[BasisName~~" is a Vertex basis - no basis elements are available!"];Abort[];
Nothing
(*Print[BasisName~~" is a Vertex basis - no basis elements are available!"];Abort[];*)
];
];

Expand Down Expand Up @@ -1591,7 +1573,8 @@ Returns a matrix for the transformation of coordinates (i.e. (!) vertex dressing
];
TBUnDefineTBGetInnerProduct[BasisName_String]:=Module[{},
TBGetInnerProduct[BasisName]:=Module[{},
Print[BasisName~~" is a Vertex basis - no inner product is available!"];Abort[];
Nothing
(*Print[BasisName~~" is a Vertex basis - no inner product is available!"];Abort[];*)
];
];
TBDefineTBGetInverseMetric[BasisName_String]:=Module[{},
Expand Down Expand Up @@ -1632,9 +1615,12 @@ Returns a matrix for the transformation of coordinates (i.e. (!) vertex dressing


TBDefineTBInfo[BasisName_String]:=Module[{},
TBInfo[BasisName]:=Module[{},
(*TBInfo[BasisName]:=Module[{},
Print@@TBUsage[BasisName];
];*)
];
TBInfo[BasisName_String]:=Module[{},
Print@@TBUsage[BasisName];
];


Expand Down Expand Up @@ -1797,7 +1783,7 @@ Returns a matrix for the transformation of coordinates (i.e. (!) vertex dressing


Unprotect[TBInfo];
TBInfo[]:=Module[{data},
TBInfo[args___]/;Length[{args}]<1:=Module[{data},
data=Map[{#["Name"],#["Vertex"],Grid[#["Indices"]],#["InnerProduct"],Grid[#["Groups"]],#["Comment"],#["Author"]}&,TBBasisDocs];
Grid[
Join[{{"Name","Vertex","Indices","Inner product","Groups","Comment","Author"}},data],
Expand Down
Loading