HechtiDerLachs/AeCodimension
1
0
Fork 0
forked from nbreva/AeCodimension
Code Pull Requests Activity

remove old procedures

Browse Source
This commit is contained in:
Nelynx 2025-02-27 11:22:30 +01:00
parent 69b39c01b6
commit e73335cf6b
2 changed files with 3 additions and 94 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
.vscode/settings.json vendored Normal file
View File

@ -0,0 +1,3 @@
{
"C_Cpp.errorSquiggles": "disabled"
}

94
AeCodPruebas.lib
View File

@ -243,70 +243,6 @@ proc NormalOYModule(matrix GOX, matrix GOY, list #)
return(NOX);
}
//////////////////////////////////////////////////////////////////////////////
proc oldAeNormal(ideal f)
{
int i;
int j;
int p = ncols(f);
int n = nvars(basering);
string RName=nameof(basering);
//Split f as (w,h) (finite equidimensional map and extra components)
list L = SplitMap(f);
//Create ring with all necessary variables
def Q = MalgrRing(L[1]);
setring Q;
execute("def L = imap("+RName+",L)");
ideal w = L[1];
ideal h = L[2];
execute("ideal f = imap("+RName+",f)");
//Convert Span_{O_n}(jacobian matrix) to an O_p-module in malgrange form; add it to TAe module
module TAe;
matrix m;
matrix v;
matrix df = jacob(f);
int nGens = ncols(Gens);
for(i=1; i<=n; i++)
{
for(j=1; j<= nGens; j++)
{
m = MalgrFormVect(Gens[j]*submat(df,1..p,intvec(i)), Gens, GW);
//"New tf element:"; InvMalgrVec(m,Gens,w);
TAe = TAe + transpose(m);
}
}
//print(TAe);
//Convert h^k to Malgrange form, with k = 1, ... , mult(w);
module tmodule = freemodule(p);
for (i=1; i<= nGens; i++)
{
tmodule = tmodule + freemodule(p)*h^i;
}
//"Module:";print(tmodule);
//"Matrix:";print(matrix(tmodule));
matrix targetvec;
for(i=1; i<=p*(nGens+1); i++)
{
targetvec = MalgrFormVect(submat(matrix(tmodule),1..p,intvec(i)), Gens, GW);
//"New wf element:";InvMalgrVec(targetvec, Gens, w);
TAe = TAe + transpose(targetvec);
}
//"TAe:"; TAe;
//Compute generating set T of Ae-tangent space as O_p - module in Malgrange form
//Compute kbase of std(T)
ring S = 0,(X(1..n)),ds;
module TAe = imap(Q,TAe);
//"TAe:";TAe;
"#gens TAe: "+string(size(TAe));
vdim(std(TAe));
//Express the result in \theta(f) with inverse malgrange PROCEDURES
}
//////////////////////////////////////////////////////////////////////////////
proc GenerateOYModule(matrix GOX, matrix GOY, list #)
@ -425,36 +361,6 @@ proc MalgrRing(ideal J, int n, ideal f)
//////////////////////////////////////////////////////////////////////////////
proc OldMalgrFormVect(matrix M, ideal Gens, ideal GW)
{
//This returns a matrix of size a*b*size(Gens);
//"M=";M;
int a = nrows(M);
int b = ncols(M);
int i;
int j;
int k;
matrix v = MalgrFormPoly(M[1,1],Gens,GW);
//"v=";v;
for (j=2; j<= b; j++)
{
v = concat(v,MalgrFormPoly(M[1,j],Gens,GW));
//"v=";v;
}
for (i=2; i<= a; i++)
{
for (j=1; j<= b; j++)
{
v = concat(v,MalgrFormPoly(M[i,j],Gens,GW));
//"v=";v;
}
}
//"v=";v;
return(v);
}
//////////////////////////////////////////////////////////////////////////////
proc MalgrFormPoly(poly h, list #)