


ICEREDUCEMATRIXFROMGTOF - reduce stiffness matrix from gset to fset
Usage:
[Kff Kfs]=IceReducematrixfromgtof(Kgg,Gmn)

0001 function [Kff Kfs]=IceReducematrixfromgtof(Kgg,Gmn) 0002 %ICEREDUCEMATRIXFROMGTOF - reduce stiffness matrix from gset to fset 0003 % 0004 % Usage: 0005 % [Kff Kfs]=IceReducematrixfromgtof(Kgg,Gmn) 0006 0007 global gridset 0008 0009 %Reduce matrix from g-size to n-size 0010 Knn= IceReducematrix( Kgg, Gmn, gridset.pv_m, gridset.pv_n, gridset.msize, 2 ); 0011 0012 %Reduce matrix from n-size to f-size 0013 0014 if gridset.ssize>0 0015 Kff= Knn(gridset.pv_f, gridset.pv_f); 0016 Kfs= Knn(gridset.pv_f,gridset.pv_s); 0017 else 0018 Kff= Knn; 0019 Kfs=[]; 0020 end