EJEMPLOS UTILIZACION MODULOS ANTERIORES

01 - EJEMPLO TEST

01 - 00a- REPRESENTACION DE LA SKYMATRIZ ORIGINAL MEDIANTE EL VECTOR S

p={0,1,2,5,8,9,15};

s={11,22,13,0,33,24,34,44,55,16,0,0,46,56,66};

S={p,s};

01 - 00b- VECTOR DE FUERZAS NODALES CONSISTENTES

f={11,22,13,0,33,24};

f//MatrixForm

01 - 00c- MATRIZ DE VECTORES DE FUERZAS NODALES CONSISTENTES - UN VECTOR PARA CADA CASO DE CARGA

f1={11,22,13,0,33,24};
f2={24,33,0,13,22,11};

B=Transpose[{f1,f2}];

B//MatrixForm

05 - 01a- RECONSTRUCCION DE LA SKYMATRIZ ORIGINAL A PARTIR DEL VECTOR S

Ko=X[S];

Ko//MatrixForm

01 - 01b - METODO DIRECTO DE OBTENCION DE  DESPLAZAMIENTOS SOLUCION - A COMPROBAR MEDIANTE EL PROCEDIMIENTO DE FACTORIZACION (1a FASE) Y SOLUCION (2a FASE)

us=X.f

%//MatrixForm

05 - 02a- 1a FASE - FACTORIZACION DE LA SKYMATRIZ ORIGINAL A PARTIR DEL VECTOR S

{F,fail}=X[S,10.^(-12)]

Sf=F

X[Sf];

%//MatrixForm

DESPLAZAMIENTOS SOLUCION - OBTENIDOS DIRECTAMENTE A PARTIR DE LA FACTORIZACION DE LA SKYMATRIZ ORIGINAL

uf=X[Sf,f]

%//MatrixForm

DESPLAZAMIENTOS SOLUCION - OBTENIDOS DIRECTAMENTE A PARTIR DE LA FACTORIZACION DE LA SKYMATRIZ ORIGINAL - MATRIZ DE CASOS DE CARGA

ufm=X[Sf,B];

%//MatrixForm

(*SymmSkyMatrixRowLengths[S]*)

05 - 02b- MATRICES QUE CONSTITUYEN LA FACTORIZACION DE LA SKYMATRIZ ORIGINAL

D INVERSA - D1

D1=X;

X[Sf];

%//MatrixForm

U

U=X;

X[Sf];

%//MatrixForm

L=X[U];

%//MatrixForm

Df=X[D1];

%//MatrixForm

05 - 02c- COMPROBACION DE LA FACTORIZACION DE LA SKYMATRIZ ORIGINAL

Kc=X;

%//MatrixForm

So=X[Sf]

X[So];

%//MatrixForm

05 - 03c- 2a FASE - 1a PARTE - SOLUCION INTERMEDIA

Xi=X.f

05 - 03c- 2a FASE - 2a PARTE - SOLUCION FINAL

uf=X.Xi

us

X[S,uf]

f1