Hi, thanks in advance.

I’m merging to consecutive meshes, one with sofimshA and other with sofimshC.

My purposes are two:

- That the
**sofimshC mesh elements become progressively bigger**than the ones in sofimshA. - That in de
**edge between meshes the nodes become exactly coincidental.**

(I know that nodes in meshes must be coincidental, the drawing it’s just a quick doodle )

I’ve created a simplified Teddy to illustrate the problem:

- First all nodes are generated, as a regular grid of 1mx1m.
- Then the sofimshC mesh, which generates elements of 0.5mx0.5m. (I can’t change this )
- Finally the sofimshA elements are 1mx1m

Thank you very much for your time and knowledge!!!

-PROG AQUA urs:2

HEAD MATERIALES

ECHO FULL FULL

STEE 11 S 500 FT 500 FYC 1 Ftc 1 $ REINFORCEMENT

CONC NO 1 TYPE C 60 $ C50

END

+PROG sofimshc urs:53

HEAD GEOMETRÍA

CTRL MESH 1

CTRL EDRL 1

CTRL HMIN VAL 1[m]

CTRL EFAC VAL 3

SYST 3D GDIV 999 GDIR NEGZ

spt (1 22 1) X 0 y (0 1) z (0)

spt (101 122 1) X 1 y (0 1) z (0)

spt (201 222 1) X 2 y (0 1) z (0)

spt (301 322 1) X 3 y (0 1) z (0)

spt (401 422 1) X 4 y (0 1) z (0)

spt (501 522 1) X 5 y (0 1) z (0)

spt (601 622 1) X 6 y (0 1) z (0)

spt (701 722 1) X 7 y (0 1) z (0)

spt (801 822 1) X 8 y (0 1) z (0)

spt (901 922 1) X 9 y (0 1) z (0)

spt (1001 1022 1) X 10 y (0 1) z (0)

sln no 1 npa 401 npe 422

sln no 2 npa 422 npe 1022

sln no 3 npa 1022 npe 1001

sln no 4 npa 1001 npe 401

SAR 1 MNO 1 MRF 11 T 1*100[mm]

sarb nl 1,2,3,4

end

+PROG SOFIMSHa urs:1

HEAD GEOMETRÍA

syst rest

LOOP#J 4

LOOP#I 21

GRP NO 2

QUAD NO #I+1+(#J)*100 MNO 1 MRF 11 T 100[mm] $$

N1 #I+1+(#J+0)*100 $$

N2 #I+1+(#J+1)*100 $$

N3 #I+2+(#J+1)*100 $$

N4 #I+2+(#J+0)*100

iF #J<=3

GRP ‘MEN’

QUAD (1000 2000 1000)

ELSE

GRP ‘MAS’

QUAD (1100 2100 1000)

ENDIF

ENDLOOP

ENDLOOP

END