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
