SPDTVariable::SPDTVariable(integer dim, integer num) { SPDVariable SV(dim); Element **SVs = new Element *[num]; for (integer i = 0; i < num; i++) { SVs[i] = &SV; } integer *powsintev = new integer[2]; powsintev[0] = 0; powsintev[1] = num; ProductElementInitialization(SVs, num, powsintev, 1); delete[] powsintev; delete[] SVs; };
ObliqueVector::ObliqueVector(integer n, integer num) { SphereVector SV(n); Element **SVs = new Element *[num]; for (integer i = 0; i < num; i++) { SVs[i] = &SV; } integer *powsintev = new integer[2]; powsintev[0] = 0; powsintev[1] = num; ProductElementInitialization(SVs, num, powsintev, 1); delete[] powsintev; delete[] SVs; };
LowRankVector::LowRankVector(integer Ur, integer Uc, integer Drc, integer Vr, integer Vc) { StieVector dU(Ur, Uc); EucVector dD(Drc, Drc); StieVector dV(Vr, Vc); Element **Elems = new Element *[3]; Elems[0] = &dU; Elems[1] = &dD; Elems[2] = &dV; integer *powsintev = new integer[4]; powsintev[0] = 0; powsintev[1] = 1; powsintev[2] = 2; powsintev[3] = 3; ProductElementInitialization(Elems, 3, powsintev, 3); delete[] powsintev; delete[] Elems; };
ProductElement::ProductElement(Element **inelements, integer innumofelements, integer *inpowsinterval, integer innumoftypes) { ProductElementInitialization(inelements, innumofelements, inpowsinterval, innumoftypes); };