data(triMesh)
meshP = triMesh$MeshPts$p
meshT = triMesh$MeshPts$T
Y = matrix(20e9, nrow = NROW(meshT))
Nu = matrix(0.45, nrow = NROW(meshT))
Thick = 0.001
DOF = 6
fea_EM = ElementMat.2d(meshP, meshT, Nu, Y, Thick)
Run the code above in your browser using DataLab