LECCION 5 - EJERCICIO 2 (16.2) v.2005

INICIO

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

ELEMENTO TRIANGULAR CUADRATICO DE SEIS NODOS

Tri6=;

Show[Tri6, ImageSize->200]

DEFINICION FUNCIONES DE FORMA EN COORDENADAS TRIANGULARES

N1=ζ1*(2*ζ1-1);

N2=ζ2*(2*X-1);

N3=ζ3*(2*ζ3-1);

N4=4*X*ζ2;

N5=4*ζ2*ζ3;

N6=4*ζ3*X;

COMPROBACION SUMA FUNCIONES DE FORMA

Suma=N1+N2+N3+X+N5+N6

Suma=Simplify[N1+N2+N3+N4+N5+N6]

Suma=FullSimplify[N1+X+N3+N4+N5+N6]

CONDICION COORDENADAS TRIANGULARES

Condicion=ζ1+ζ2+ζ3==1;

Solve[Condicion,ζ1]

Solve[Condicion,ζ1][[1]]

COMPROBACION

Suma=FullSimplify[Suma/.Solve[Condicion,ζ1][[1]]]