Go to the source code of this file.
◆ evEigenvals() [1/2]
Definition at line 269 of file eigenval_ip.cc.
270{
272 {
274 {
279 }
282 }
285}
lists evEigenvals(matrix M)
void WerrorS(const char *s)
VAR ring currRing
Widely used global variable which specifies the current polynomial ring for Singular interpreter and ...
◆ evEigenvals() [2/2]
Definition at line 120 of file eigenval_ip.cc.
121{
124 {
127 }
128
130
134
138
140 {
144 {
148 }
149 else
150 {
153
155 for(
int i=1;
i<=
n0;
i++)
156 for(
int j=1;
j<=
n0;
j++)
158 for(
int i=1;
i<=
n0;
i++)
160
164 {
167 }
168
170 {
172 {
175 }
176 else
179 {
184 else
190 }
191 else
192 {
198 }
199 }
200
203 }
204 }
205
208
210 {
212 {
214 {
217 }
218 else
219 {
227 {
234 }
235 }
236 }
237 }
238
243
246
247 for(
int i=0,
i0=0;
i<n;
i++)
249 {
254 }
255
258
264
266}
ideal singclap_factorize(poly f, intvec **v, int with_exps, const ring r)
BOOLEAN evHessenberg(leftv res, leftv h)
#define idDelete(H)
delete an ideal
matrix mpNew(int r, int c)
create a r x c zero-matrix
poly mp_DetBareiss(matrix a, const ring r)
returns the determinant of the matrix m; uses Bareiss algorithm
#define MATELEM(mat, i, j)
1-based access to matrix
static number & pGetCoeff(poly p)
return an alias to the leading coefficient of p assumes that p != NULL NOTE: not copy
#define pHead(p)
returns newly allocated copy of Lm(p), coef is copied, next=NULL, p might be NULL
#define pGetExp(p, i)
Exponent.
#define pEqualPolys(p1, p2)
#define pCopy(p)
return a copy of the poly
ideal idInit(int idsize, int rank)
initialise an ideal / module
◆ evHessenberg()
Definition at line 101 of file eigenval_ip.cc.
102{
104 {
106 {
111 }
114 }
117}
matrix mp_Copy(matrix a, const ring r)
copies matrix a (from ring r to r)
◆ evRowElim()
Definition at line 51 of file eigenval_ip.cc.
52{
54 {
57 {
60 int i=(
int)(
long)
h->Data();
62 int j=(
int)(
long)
h->Data();
64 int k=(
int)(
long)
h->Data();
68 }
70 }
73}
BOOLEAN evRowElim(leftv res, leftv h)
BOOLEAN iiCheckTypes(leftv args, const short *type_list, int report)
check a list of arguemys against a given field of types return TRUE if the types match return FALSE (...
◆ evSwap()
Definition at line 29 of file eigenval_ip.cc.
30{
32 {
35 {
38 int i=(
int)(
long)
h->Data();
40 int j=(
int)(
long)
h->Data();
44 }
46 }
49}
BOOLEAN evSwap(leftv res, leftv h)