LECCION 7 - EJERCICIO 7 (18.7) v.2005

INICIO

Off[General::"spell1"]
Off[General::"spell"]

DEFINICION ELEMENTO CUBICO DE 8 NODOS

IMAGEN DEL ELEMENTO

CubR8=;

Show[CubR8, ImageSize->300]

DEFINICION SUPERFICIES DE SUS CARAS EN COORDENADAS NATURALES

CubR8c=;

Show[CubR8c, ImageSize->300]

OBTENCION FUNCION FORMA NODO 1 - METODO PRODUCTO DE SUPERFICIES - ###

SUPERFICIES A CONSIDERAR

Su=Table[0,{i,3}];

CARAS - 2376 - 43789 - 5678

Su[[1]]=ξ-1;Su[[2]]=X;Su[[3]]=μ-1;

DEFINICION PRODUCTO SUPERFICIES

N1p[ξ_,η_,μ_]=c Su[[1]]Su[[2]]X;

CONDICION VALOR 1 EN NODO 1

eq=1==N1p[-1,-1,-1]

CALCULO CONSTANTE

cs=c/.Solve[eq,c][[1]]

DEFINICION FUNCION DE FORMA

N1s[ξ_,η_,μ_]=N1p[ξ,η,μ]/.{c->cs}