Exemplo n.º 1
0
void AdjustBoundary(TPZGeoMesh *gmesh)
{
    int64_t nel = gmesh->NElements();
    for (int64_t el = 0; el<nel; el++) {
        TPZGeoEl *gel = gmesh->Element(el);
        if (gel->Dimension() == 3 || gel->HasSubElement()) {
            continue;
        }
        TPZGeoElSide gelside(gel,gel->NSides()-1);
        TPZGeoElSide neighbour = gelside.Neighbour();
        bool should_refine = false;
        int nsub = -1;
        int numneigh = 0;
        while (gelside != neighbour) {
            nsub = neighbour.Element()->NSideSubElements(neighbour.Side());
            if (neighbour.Element()->HasSubElement() && nsub > 1) {
                should_refine = true;
            }
            numneigh++;
            neighbour = neighbour.Neighbour();
        }
        if (should_refine == true) {
            TPZAutoPointer<TPZRefPattern> match = TPZRefPatternTools::PerfectMatchRefPattern(gel);
            if (!match) {
                DebugStop();
            }
            gel->SetRefPattern(match);
            TPZStack<TPZGeoEl *> subels;
            gel->Divide(subels);
        }
    }
}
Exemplo n.º 2
0
void TPZSurface::RefineMe(int i)
{
    int nref = i;
    TPZVec<TPZGeoEl *> sons;
    for (int iref = 0; iref < nref; iref++)
    {
        int nel = fgeometricmesh->NElements();
        for (int iel = 0; iel < nel; iel++)
        {
            TPZGeoEl *gel = fgeometricmesh->ElementVec()[iel];
            if (gel->HasSubElement()) {
                continue;
            }
            gel->Divide(sons);
        }
    }
}
Exemplo n.º 3
0
void GetElIndexCoarseMesh(TPZAutoPointer<TPZGeoMesh>  gmesh, std::set<int64_t> &coarseindex)
{
    int nel = gmesh->NElements();
    int iel;
    int hassubel=0;
    int dim = gmesh->Dimension();
    int eldim;
    for(iel = 0; iel<nel; iel++)
    {
        TPZGeoEl * gel = gmesh->ElementVec()[iel];
        if(!gel) DebugStop();
        
        hassubel = gel->HasSubElement();
        eldim = gel->Dimension();
        if(!hassubel && eldim ==dim)
        {
            coarseindex.insert(gel->Index());
        }
    }
    
}
Exemplo n.º 4
0
void TPZDarcyAnalysis::CreateInterfaces()
{
    fgmesh->ResetReference();
    fcmeshdarcy->LoadReferences();
    
    // Creation of interface elements
    int nel = fcmeshdarcy->ElementVec().NElements();
    for(int el = 0; el < nel; el++)
    {
        TPZCompEl * compEl = fcmeshdarcy->ElementVec()[el];
        if(!compEl) continue;
        TPZGeoEl * gel = compEl->Reference();
        if(!gel) {continue;}
        if(gel->HasSubElement()) {continue;}
        int index = compEl ->Index();
        if(compEl->Dimension() == fcmeshdarcy->Dimension())
        {
            TPZMultiphysicsElement * InterpEl = dynamic_cast<TPZMultiphysicsElement *>(fcmeshdarcy->ElementVec()[index]);
            if(!InterpEl) continue;
            InterpEl->CreateInterfaces();
        }
    }
}
Exemplo n.º 5
0
void RefineGMesh(TPZGeoMesh *gmesh)
{
    TPZManVector<REAL,3> center(3,0.), dir(3,0.);
    center[1] = 170.;
    dir[1] = 1.;
    CutByPlane(gmesh, 0, center, dir);
    CutByPlane(gmesh, 0, center, dir);
    CutByPlane(gmesh, 0, center, dir);
    center[1] = -170.;
    CutByPlane(gmesh, 0, center, dir);
    CutByPlane(gmesh, 0, center, dir);
    CutByPlane(gmesh, 0, center, dir);
    center[1] = 0.;
    center[2] = -35.;
    dir[1] = 0;
    dir[2] = 1.;
    CutByPlane(gmesh, 0, center, dir);
    CutByPlane(gmesh, 0, center, dir);
    CutByPlane(gmesh, 0, center, dir);
    CutByPlane(gmesh, 0, center, dir);
    
    dir[2] = 0;
    dir[0] = 1.;
    center[2] = 0.;
    for (int ndiv = 2; ndiv<16; ndiv *=2) {
        TPZManVector<REAL> xco(ndiv,0.);
        REAL delta = 740./ndiv;
        for (int i=0; i<ndiv; i++) {
            xco[i] = -370.+delta/2.+i*delta;
        }
        for (int i=0; i<ndiv; i++) {
            center[0] = xco[i];
            CutByPlane(gmesh, 0, center, dir);
        }
    }
    
    center[0] = 0.;
    dir[0] = 0.;
    center[2] = 0.;
    dir[2] = 0.;
    dir[1] = 1.;
    CutByPlaneAbove(gmesh, 0, center, dir, -400.);
    center[1] = 3.;
    CutByPlaneAbove(gmesh, 0, center, dir, -100.);
    center[1] = -3.;
    CutByPlaneAbove(gmesh, 0, center, dir, -100.);
    
    
    PutEnvelope(gmesh, 6, -30., 161.);
    
    for (int pass = 0; pass <2; pass++)
    {
        int64_t nel = gmesh->NElements();
        std::set<int> matids;
        matids.insert(6);
        for (int64_t el=0; el<nel; el++) {
            TPZGeoEl *gel = gmesh->Element(el);
            if (gel->HasSubElement()) {
                continue;
            }
            TPZRefPatternTools::RefineDirectional(gel, matids);
        }
    }
    
}
Exemplo n.º 6
0
void InsertBoundaryElements(TPZGeoMesh *gmesh)
{
    REAL xplane = 1435;
    REAL yplane = 1161;
    REAL zplane = -1530;
    REAL ztop = 122.8;
    REAL minx = 0;
    REAL minz = 0;
    REAL maxz = 0;
    
    int64_t nel = gmesh->NElements();
    for (int64_t el=0; el<nel; el++) {
        TPZGeoEl *gel = gmesh->Element(el);
        if (gel->HasSubElement()) {
            continue;
        }
        int nsides = gel->NSides();
        for (int is=0; is<nsides; is++) {
            int bccreated = 999;
            TPZGeoElSide gelside(gel,is);
            if (gel->SideDimension(is) == 1) {
                TPZManVector<REAL,3> xcenter(3);
                gelside.CenterX(xcenter);
                if (xcenter[2] > maxz) {
                    maxz = xcenter[2];
                }
                if (fabs(xcenter[0]) < 1 && fabs(xcenter[2]-ztop) < 1) {
                    bccreated = bcloadtop;
                    TPZGeoElSide neighbour = gelside.Neighbour();
                    while (neighbour != gelside) {
                        if (neighbour.Element()->MaterialId() == bcloadtop) {
                            bccreated = 999;
                        }
                        neighbour = neighbour.Neighbour();
                        
                    }
                    if (bccreated == bcloadtop)
                    {
                        std::cout << "Added boundary bcloadtop xcenter = " << xcenter << std::endl;
                    }
                }
            }
            if (gel->SideDimension(is) == 2)
            {
                TPZManVector<REAL,3> xcenter(3);
                gelside.CenterX(xcenter);
                if (xcenter[0] < minx) {
                    minx = xcenter[0];
                }
                if (xcenter[2] < minz) {
                    minz = xcenter[2];
                }
                if (fabs(xcenter[2] - zplane) < 1.) {
                    bccreated = bcbottom;
                }
                if (fabs(fabs(xcenter[0])-xplane) < 1) {
                    bccreated = bcsidex;
                }
                if (fabs(fabs(xcenter[1])-yplane) < 1) {
                    bccreated = bcsidey;
                }
                if (fabs(xcenter[2]-ztop) <1) {
                    bccreated = bctopsurface;
                }
            }
            if(bccreated != 999)
            {
                if (gelside.Dimension() == 2 && gelside.Neighbour() != gelside) {
                    DebugStop();;
                }
                gel->CreateBCGeoEl(is, bccreated);
            }
        }
    }
    std::cout << "minx = " << minx << " minz = " << minz << " maxz " << maxz << std::endl;
}