15.07.2014 Views

Capítulo 1 Métodos de residuos ponderados Funciones de prueba ...

Capítulo 1 Métodos de residuos ponderados Funciones de prueba ...

Capítulo 1 Métodos de residuos ponderados Funciones de prueba ...

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

Rutina SKYLIN<br />

Esta rutina evalúa el perfil “skyline” <strong>de</strong> la matriz <strong>de</strong> coeficientes. Para ello previamente (a)<br />

llama a la rutina RENUMN que optimiza la numeración <strong>de</strong> los nudos <strong>de</strong> la malla en función <strong>de</strong> las<br />

conectivida<strong>de</strong>s <strong>de</strong> forma <strong>de</strong> minimizar la cantidad <strong>de</strong> elementos que existirán bajo el perfil, (b)<br />

numera los grados <strong>de</strong> libertad efectivos. Esta segunda tarea consiste en asociar a cada elemento <strong>de</strong><br />

IDNOD con valor 0 una ecuación. Una vez numerados los grados <strong>de</strong> libertad el perfil <strong>de</strong> la matriz <strong>de</strong><br />

coeficientes se <strong>de</strong>termina con la rutina UBICMX que <strong>de</strong>vuelve el número <strong>de</strong> elementos bajo el perfil<br />

MAXV y las posiciones que ocupan los elementos diagonales <strong>de</strong> la matriz <strong>de</strong> coeficientes en el vector<br />

don<strong>de</strong> se almacenan MAXAV(neq+1).<br />

Rutina SOLVES<br />

Esta rutina or<strong>de</strong>na los pasos necesarios para resolver el problema planteado. Calcula la matriz<br />

<strong>de</strong> rigi<strong>de</strong>z STIFF y el término in<strong>de</strong>pendiente asociado a los valores nodales conocidos (rutina<br />

STIFFG), lee las condiciones <strong>de</strong> bor<strong>de</strong> naturales (rutina PTLOAD), que en la presente versión sólo<br />

incluye valores puntuales <strong>de</strong> cargas o fuentes. Realiza la <strong>de</strong>scomposición en factores (LD L T ) <strong>de</strong><br />

la matriz (rutina COLSOL con índice 1), y la sustitución hacia atrás (rutina COLSOL con índice 2)<br />

que nos provee <strong>de</strong> los valores buscados <strong>de</strong> los grados <strong>de</strong> libertad efectivos. Finalmente en la rutina<br />

PRINTD se imprimen los valores <strong>de</strong> las variables nodales.<br />

Notar que en la presente versión “faltan” algunos elementos imprescindibles en un análisis por<br />

elementos finitos, que se proponen como ejercicio <strong>de</strong> <strong>de</strong>sarrollo y programación.<br />

Las siguientes variables se <strong>de</strong>finen localmente<br />

NDOFE número <strong>de</strong> grados <strong>de</strong> libertad <strong>de</strong>l elemento<br />

POSGT(dimen,ngaut) posición <strong>de</strong> los puntos <strong>de</strong> integración en el triángulo maestro.<br />

WEIGT(ngaut) peso <strong>de</strong> los puntos <strong>de</strong> integración para triángulos<br />

SHAPT(no<strong>de</strong>t,ngaut) funciones <strong>de</strong> forma <strong>de</strong>l triángulo evaluadas en los puntos <strong>de</strong> integración<br />

DERIT(no<strong>de</strong>t,dimen,ngaut) <strong>de</strong>rivadas <strong>de</strong> las funciones <strong>de</strong> forma <strong>de</strong>l triángulo respecto a las<br />

coor<strong>de</strong>nadas locales (ξ, η) evaluadas en los puntos <strong>de</strong> integración<br />

POSGQ(dimen,ngauq) posición <strong>de</strong> los puntos <strong>de</strong> integración en el cuadrado maestro.<br />

WEIGQ(ngauq) peso <strong>de</strong> los puntos <strong>de</strong> integración para cuadriláteros<br />

SHAPQ(no<strong>de</strong>q,ngaut) funciones <strong>de</strong> forma <strong>de</strong>l cuadrilátero evaluadas en los puntos <strong>de</strong> integración<br />

DERIQ(no<strong>de</strong>q,dimen,ngauq) <strong>de</strong>rivadas <strong>de</strong> las funciones <strong>de</strong> forma <strong>de</strong>l cuadrilátero respecto a las<br />

coor<strong>de</strong>nadas locales (ξ, η) evaluadas en los puntos <strong>de</strong> integración<br />

STIFF(maxv) matriz <strong>de</strong> rigi<strong>de</strong>z global almacenada como un vector.<br />

F(neq) vector global <strong>de</strong> términos in<strong>de</strong>pendientes<br />

R(nknow) vector global <strong>de</strong> reacciones (grados <strong>de</strong> libertad restringidos)<br />

Rutina STIFFG<br />

Esta rutina or<strong>de</strong>na la evaluación <strong>de</strong> las matrices <strong>de</strong> “rigi<strong>de</strong>z” elementales (rutina STIFFE), el<br />

ensamble sobre la matriz global y el ensamble sobre el término in<strong>de</strong>pendiente <strong>de</strong>bidos a condiciones<br />

esenciales <strong>de</strong> contorno. Para ello se <strong>de</strong>finen localmente las siguientes variables<br />

S(ndofe,ndofe) matriz <strong>de</strong> rigi<strong>de</strong>z elemental<br />

FL(ndofe) vector local <strong>de</strong> términos in<strong>de</strong>pendientes <strong>de</strong>bido a condiciones esenciales <strong>de</strong> contorno<br />

169

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!