Main Page | Modules | Class List | File List | Class Members | File Members
linalg

2x2matrix.h

Go to the documentation of this file.
00001 
00014 /* This library is free software; you can redistribute it and/or
00015    modify it under the terms of the GNU Lesser General Public
00016    License as published by the Free Software Foundation; either
00017    version 2.1 of the License, or (at your option) any later version.
00018 
00019    This library is distributed in the hope that it will be useful,
00020    but WITHOUT ANY WARRANTY; without even the implied warranty of
00021    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
00022    Lesser General Public License for more details.
00023 
00024    You should have received a copy of the GNU Lesser General Public
00025    License along with this library; if not, write to the Free Software
00026    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
00027 */
00028 
00029 #ifndef _GAN_2X2MATRIX_H
00030 #define _GAN_2X2MATRIX_H
00031 
00032 #include <stdlib.h>
00033 #include <math.h>
00034 #include <stdio.h>
00035 #include <gandalf/common/misc_defs.h>
00049 /* This library is free software; you can redistribute it and/or
00050    modify it under the terms of the GNU Lesser General Public
00051    License as published by the Free Software Foundation; either
00052    version 2.1 of the License, or (at your option) any later version.
00053 
00054    This library is distributed in the hope that it will be useful,
00055    but WITHOUT ANY WARRANTY; without even the implied warranty of
00056    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
00057    Lesser General Public License for more details.
00058 
00059    You should have received a copy of the GNU Lesser General Public
00060    License along with this library; if not, write to the Free Software
00061    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
00062 */
00063 
00064 #ifndef _GAN_REPEAT22_H
00065 #define _GAN_REPEAT22_H
00066 
00080 /* This library is free software; you can redistribute it and/or
00081    modify it under the terms of the GNU Lesser General Public
00082    License as published by the Free Software Foundation; either
00083    version 2.1 of the License, or (at your option) any later version.
00084 
00085    This library is distributed in the hope that it will be useful,
00086    but WITHOUT ANY WARRANTY; without even the implied warranty of
00087    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
00088    Lesser General Public License for more details.
00089 
00090    You should have received a copy of the GNU Lesser General Public
00091    License along with this library; if not, write to the Free Software
00092    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
00093 */
00094 
00095 #ifndef _GAN_REPEAT1_H
00096 #define _GAN_REPEAT1_H
00097 
00098 #ifdef __cplusplus
00099 extern "C" {
00100 #endif
00101 
00102 /* macros for constructing one-fold repetitions (for consistency) */
00103 #define GAN_REP1_AS(a,b,p1) (a p1 b)
00104 #define GAN_REP1_A(a,p1) (a p1)
00105 #define GAN_REP1_A_C(a,b) GAN_REP1_A(a,b,x)
00106 
00107 #define GAN_FREP1_A(a,b,p1,q1) (a p1 b q1)
00108 #define GAN_FREP1_A_C(a,b,p1) GAN_FREP1_A(a,b,x,p1)
00109 
00110 #define GAN_REP1_ABS(a,b,c,p1,q1) (a p1 b q1 c)
00111 #define GAN_REP1_AAS(a,b,c,p1) GAN_REP1_ABS(a,b,c,p1,p1)
00112 #define GAN_REP1_AAS_C(a,b,c) GAN_REP1_AAS(a,b,c,x)
00113 
00114 #define GAN_REP1_AB(a,b,p1,q1) (a p1 b q1)
00115 #define GAN_REP1_AA(a,b,p1) GAN_REP1_AB(a,b,p1,p1)
00116 #define GAN_REP1_AA_C(a,b) GAN_REP1_AA(a,b,x)
00117 
00118 #define GAN_REP1_ABCS(a,b,c,d,p1,q1,r1) (a p1 b q1 c r1 d)
00119 #define GAN_REP1_ABC(a,b,c,p1,q1,r1) (a p1 b q1 c r1)
00120 #define GAN_REP1_AAA(a,b,c,p1) GAN_REP1_ABC(a,b,c,p1,p1,p1)
00121 #define GAN_REP1_AAA_C(a,b,c) GAN_REP1_AAA(a,b,c,x)
00122 
00123 #define GAN_REP1_OP_AB(a,b,p1,q1,op) (a p1 b q1)
00124 #define GAN_REP1_OP_AA(a,b,p1,op) GAN_REP1_OP_AB(a,b,p1,p1,op)
00125 #define GAN_REP1_OP_AA_C(a,b,op) GAN_REP1_OP_AA(a,b,x,op)
00126 
00127 #ifdef __cplusplus
00128 }
00129 #endif
00130 
00131 #endif /* #ifndef _GAN_REPEAT1_H */
00132 
00145 /* This library is free software; you can redistribute it and/or
00146    modify it under the terms of the GNU Lesser General Public
00147    License as published by the Free Software Foundation; either
00148    version 2.1 of the License, or (at your option) any later version.
00149 
00150    This library is distributed in the hope that it will be useful,
00151    but WITHOUT ANY WARRANTY; without even the implied warranty of
00152    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
00153    Lesser General Public License for more details.
00154 
00155    You should have received a copy of the GNU Lesser General Public
00156    License along with this library; if not, write to the Free Software
00157    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
00158 */
00159 
00160 #ifndef _GAN_REPEAT2_H
00161 #define _GAN_REPEAT2_H
00162 
00163 #ifdef __cplusplus
00164 extern "C" {
00165 #endif
00166 
00167 /* macros for constructing two-fold repetitions */
00168 #define GAN_REP2_AS(a,b,p1,p2) (a p1 b, a p2 b)
00169 #define GAN_REP2_A(a,p1,p2) (a p1, a p2)
00170 #define GAN_REP2_AS_C(a,b) GAN_REP2_AS(a,b,x,y)
00171 #define GAN_REP2_A_C(a) GAN_REP2_A(a,x,y)
00172 
00173 #define GAN_FREP2_A(a,b,p1,p2,q1,q2) (a p1 b q1, a p2 b q2)
00174 #define GAN_FREP2_A_C(a,b,p1,p2) GAN_FREP2_A(a,b,x,y,p1,p2)
00175 
00176 #define GAN_REP2_AB(a,b,p1,p2,q1,q2) (a p1 b q1, a p2 b q2)
00177 #define GAN_REP2_AA(a,b,p1,p2) GAN_REP2_AB(a,b,p1,p2,p1,p2)
00178 #define GAN_REP2_AA_C(a,b) GAN_REP2_AA(a,b,x,y)
00179 
00180 #define GAN_REP2_ABS(a,b,c,p1,p2,q1,q2) (a p1 b q1 c, a p2 b q2 c)
00181 #define GAN_REP2_AAS(a,b,c,p1,p2) GAN_REP2_ABS(a,b,c,p1,p2,p1,p2)
00182 #define GAN_REP2_AAS_C(a,b,c) GAN_REP2_AAS(a,b,c,x,y)
00183 
00184 #define GAN_REP2_AB(a,b,p1,p2,q1,q2) (a p1 b q1, a p2 b q2)
00185 #define GAN_REP2_AA(a,b,p1,p2) GAN_REP2_AB(a,b,p1,p2,p1,p2)
00186 #define GAN_REP2_AA_C(a,b) GAN_REP2_AA(a,b,x,y)
00187 
00188 #define GAN_REP2_ABCS(a,b,c,d,p1,p2,q1,q2,r1,r2)\
00189            (a p1 b q1 c r1 d, a p2 b q2 c r2 d)
00190 #define GAN_REP2_ABC(a,b,c,p1,p2,q1,q2,r1,r2)\
00191            (a p1 b q1 c r1, a p2 b q2 c r2)
00192 #define GAN_REP2_AAA(a,b,c,p1,p2) GAN_REP2_ABC(a,b,c,p1,p2,p1,p2,p1,p2)
00193 #define GAN_REP2_AAA_C(a,b,c) GAN_REP2_AAA(a,b,c,x,y)
00194 
00195 #define GAN_REP2_OP_AB(a,b,p1,p2,q1,q2,op)\
00196            (a p1 b q1 op a p2 b q2)
00197 #define GAN_REP2_OP_AA(a,b,p1,p2,op) GAN_REP2_OP_AB(a,b,p1,p2,p1,p2,op)
00198 #define GAN_REP2_OP_AA_C(a,b,op) GAN_REP2_OP_AA(a,b,x,y,op)
00199 
00200 #ifdef __cplusplus
00201 }
00202 #endif
00203 
00204 #endif /* #ifndef _GAN_REPEAT2_H */
00205 
00206 #ifdef __cplusplus
00207 extern "C" {
00208 #endif
00209 
00210 /* macros for constructing dual two-fold repetitions */
00211 
00212 #define GAN_FREP22_A(a,b,p1,p2,q1,q2,r11,r12,r21,r22)\
00213            (GAN_FREP2_A(a,b,p1##q1,p1##q2,r11,r12),\
00214             GAN_FREP2_A(a,b,p2##q1,p2##q2,r21,r22))
00215 #define GAN_FREP22_A_C(a,b,r11,r12,r21,r22) \
00216            GAN_FREP22_A(a,b,x,y,x,y,r11,r12,r21,r22)
00217 
00218 /* most general macros */
00219 #define GAN_REP22_ABCS(a,b,c,d,p1,p2,q1,q2,r1,r2,s1,s2,t1,t2,u1,u2)\
00220  (GAN_REP2_ABCS(a,b,c,d,p1##q1,p1##q2,r1##s1,r1##s2,t1##u1,t1##u2),\
00221   GAN_REP2_ABCS(a,b,c,d,p2##q1,p2##q2,r2##s1,r2##s2,t2##u1,t2##u2))
00222 #define GAN_REP22_ABC(a,b,c,p1,p2,q1,q2,r1,r2,s1,s2,t1,t2,u1,u2)\
00223  (GAN_REP2_ABC(a,b,c,p1##q1,p1##q2,r1##s1,r1##s2,t1##u1,t1##u2),\
00224   GAN_REP2_ABC(a,b,c,p2##q1,p2##q2,r2##s1,r2##s2,t2##u1,t2##u2))
00225 
00226 #define GAN_REP22_AAAS(a,b,c,d,p1,p2,q1,q2)\
00227            GAN_REP22_ABCS(a,b,c,d,p1,p2,q1,q2,p1,p2,q1,q2,p1,p2,q1,q2)
00228 #define GAN_REP22_AAA(a,b,c,p1,p2,q1,q2)\
00229            GAN_REP22_ABC(a,b,c,p1,p2,q1,q2,p1,p2,q1,q2,p1,p2,q1,q2)
00230 
00231 #define GAN_REP22_ABS(a,b,c,p1,p2,q1,q2,r1,r2,s1,s2)\
00232  (GAN_REP2_ABS(a,b,c,p1##q1,p1##q2,r1##s1,r1##s2),\
00233   GAN_REP2_ABS(a,b,c,p2##q1,p2##q2,r2##s1,r2##s2))
00234 #define GAN_REP22_AB(a,b,p1,p2,q1,q2,r1,r2,s1,s2)\
00235  (GAN_REP2_AB(a,b,p1##q1,p1##q2,r1##s1,r1##s2),\
00236   GAN_REP2_AB(a,b,p2##q1,p2##q2,r2##s1,r2##s2))
00237 
00238 #define GAN_REP22_AAS(a,b,c,p1,p2,q1,q2)\
00239             GAN_REP22_ABS(a,b,c,p1,p2,q1,q2,p1,p2,q1,q2)
00240 #define GAN_REP22_AA(a,b,p1,p2,q1,q2)\
00241             GAN_REP22_AB(a,b,p1,p2,q1,q2,p1,p2,q1,q2)
00242 
00243 #define GAN_REP22_AS(a,b,p1,p2,q1,q2)\
00244  (GAN_REP2_AS(a,b,p1##q1,p1##q2), GAN_REP2_AS(a,b,p2##q1,p2##q2))
00245 #define GAN_REP22_A(a,p1,p2,q1,q2)\
00246  (GAN_REP2_A(a,p1##q1,p1##q2), GAN_REP2_A(a,p2##q1,p2##q2))
00247 
00248 /* macros specific to xx, xy etc coordinates */
00249 #define GAN_REP22_AS_C(a,b) GAN_REP22_AS(a,b,x,y,x,y)
00250 #define GAN_REP22_AAS_C(a,b,c) GAN_REP22_AAS(a,b,c,x,y,x,y)
00251 #define GAN_REP22_AAAS_C(a,b,c,d) GAN_REP22_AAAS(a,b,c,d,x,y,x,y)
00252 #define GAN_REP22_A_C(a) GAN_REP22_A(a,x,y,x,y)
00253 #define GAN_REP22_AA_C(a,b) GAN_REP22_AA(a,b,x,y,x,y)
00254 #define GAN_REP22_AAA_C(a,b,c) GAN_REP22_AAA(a,b,c,x,y,x,y)
00255 
00256 /* macro for transpose operation */
00257 #define GAN_REP22_AAT(a,b,p1,p2,q1,q2)\
00258  (GAN_REP2_AB(a,b,p1##q1,p1##q2,p1##q1,p2##q1),\
00259   GAN_REP2_AB(a,b,p2##q1,p2##q2,p1##q2,p2##q2))
00260 #define GAN_REP22_AAT_C(a,b) GAN_REP22_AAT(a,b,x,y,x,y)
00261 
00262 /* macros for operations on lower triangle of matrices only */
00263 #define GAN_FREP22L_A(a,b,p1,p2,q1,q2,r11,r21,r22)\
00264  (GAN_FREP1_A(a,b,p1##q1,r11),\
00265   GAN_FREP2_A(a,b,p2##q1,p2##q2,r21,r22))
00266 #define GAN_FREP22L_A_C(a,b,r11,r21,r22) \
00267            GAN_FREP22L_A(a,b,x,y,x,y,r11,r21,r22)
00268 
00269 #define GAN_REP22L_ABCS(a,b,c,d,p1,p2,q1,q2,r1,r2,s1,s2,t1,t2,u1,u2)\
00270  (GAN_REP1_ABCS(a,b,c,d,p1##q1,r1##s1,t1##u1),\
00271   GAN_REP2_ABCS(a,b,c,d,p2##q1,p2##q2,r2##s1,r2##s2,t2##u1,t2##u2))
00272 #define GAN_REP22L_ABC(a,b,c,p1,p2,q1,q2,r1,r2,s1,s2,t1,t2,u1,u2)\
00273  (GAN_REP1_ABC(a,b,c,p1##q1,r1##s1,t1##u1),\
00274   GAN_REP2_ABC(a,b,c,p2##q1,p2##q2,r2##s1,r2##s2,t2##u1,t2##u2))
00275 #define GAN_REP22L_AAAS(a,b,c,d,p1,p2,q1,q2)\
00276            GAN_REP22L_ABCS(a,b,c,d,p1,p2,q1,q2,p1,p2,q1,q2,p1,p2,q1,q2)
00277 #define GAN_REP22L_AAA(a,b,c,p1,p2,q1,q2)\
00278            GAN_REP22L_ABC(a,b,c,p1,p2,q1,q2,p1,p2,q1,q2,p1,p2,q1,q2)
00279 #define GAN_REP22L_ABS(a,b,c,p1,p2,q1,q2,r1,r2,s1,s2)\
00280  (GAN_REP1_ABS(a,b,c,p1##q1,r1##s1),\
00281   GAN_REP2_ABS(a,b,c,p2##q1,p2##q2,r2##s1,r2##s2))
00282 #define GAN_REP22L_AB(a,b,p1,p2,q1,q2,r1,r2,s1,s2)\
00283  (GAN_REP1_AB(a,b,p1##q1,r1##s1),\
00284   GAN_REP2_AB(a,b,p2##q1,p2##q2,r2##s1,r2##s2))
00285 #define GAN_REP22L_AAS(a,b,c,p1,p2,q1,q2)\
00286            GAN_REP22L_ABS(a,b,c,p1,p2,q1,q2,p1,p2,q1,q2)
00287 #define GAN_REP22L_AA(a,b,p1,p2,q1,q2)\
00288            GAN_REP22L_AB(a,b,p1,p2,q1,q2,p1,p2,q1,q2)
00289 #define GAN_REP22L_AS(a,b,p1,p2,q1,q2)\
00290  (GAN_REP1_AS(a,b,p1##q1),\
00291   GAN_REP2_AS(a,b,p2##q1,p2##q2))
00292 #define GAN_REP22L_A(a,p1,p2,q1,q2)\
00293  (GAN_REP1_A(a,p1##q1),\
00294   GAN_REP2_A(a,p2##q1,p2##q2))
00295 #define GAN_REP22L_AS_C(a,b) GAN_REP22L_AS(a,b,x,y,x,y)
00296 #define GAN_REP22L_AAS_C(a,b,c) GAN_REP22L_AAS(a,b,c,x,y,x,y)
00297 #define GAN_REP22L_AAAS_C(a,b,c,d) GAN_REP22L_AAAS(a,b,c,d,x,y,x,y)
00298 #define GAN_REP22L_A_C(a) GAN_REP22L_A(a,x,y,x,y)
00299 #define GAN_REP22L_AA_C(a,b) GAN_REP22L_AA(a,b,x,y,x,y)
00300 #define GAN_REP22L_AAA_C(a,b,c) GAN_REP22L_AAA(a,b,c,x,y,x,y)
00301 #define GAN_FREP22L_A_C(a,b,r11,r21,r22)\
00302            GAN_FREP22L_A(a,b,x,y,x,y,r11,r21,r22)
00303 
00304 #ifdef __cplusplus
00305 }
00306 #endif
00307 
00308 #endif /* #ifndef _GAN_REPEAT22_H */
00309 #include <gandalf/linalg/2vector.h>
00323 /* This library is free software; you can redistribute it and/or
00324    modify it under the terms of the GNU Lesser General Public
00325    License as published by the Free Software Foundation; either
00326    version 2.1 of the License, or (at your option) any later version.
00327 
00328    This library is distributed in the hope that it will be useful,
00329    but WITHOUT ANY WARRANTY; without even the implied warranty of
00330    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
00331    Lesser General Public License for more details.
00332 
00333    You should have received a copy of the GNU Lesser General Public
00334    License along with this library; if not, write to the Free Software
00335    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
00336 */
00337 
00338 #endif /* #ifndef _GAN_MATVECF_MACROS_H */
00339 #include <gandalf/linalg/mat_gen.h>
00340 #include <gandalf/linalg/mat_square.h>
00341 
00342 #ifdef __cplusplus
00343 extern "C" {
00344 #endif
00345 
00361 
00362 typedef struct Gan_Matrix22
00363 {
00364    double xx, xy,
00365           yx, yy;
00366 } Gan_Matrix22;
00367 
00368 #ifndef NDEBUG
00369 
00370 typedef enum { GAN_SYMMETRIC_MATRIX22, GAN_LOWER_TRI_MATRIX22 }
00371  Gan_SquMatrix22Type;
00372 #endif /* #ifndef NDEBUG */
00373 
00375 typedef struct Gan_SquMatrix22
00376 {
00377 #ifndef NDEBUG
00378    /* square matrix type, for setting and checking in debug mode */
00379    Gan_SquMatrix22Type type;
00380 #endif /* #ifndef NDEBUG */
00381 
00382    /* matrix data */
00383    double xx,
00384           yx, yy;
00385 } Gan_SquMatrix22;
00386 
00387 /* matrix definitions specific to 2x2 matrices */
00388 #define GAN_ST22_FILL(A,t,XX,YX,YY)\
00389            (GAN_TEST_OP1(A,Gan_SquMatrix22),gan_eval((A)->type=t),\
00390             GAN_FREP22L_A_C((A)->,=,(XX),(YX),(YY)))
00391 #define GAN_ST22_IDENT(A,t)\
00392            (GAN_TEST_OP1(A,Gan_SquMatrix22),gan_eval((A)->type=t),\
00393             GAN_FREP22L_A_C((A)->,=,1.0,0.0,1.0))
00394 
00395 /* generic matrix multiply operations */
00396 #define GAN_MAT22_MULT1D(a,b,c,p1,p2,q1,q2)\
00397  (a p1 = GAN_REP2_OP_AB(b,* c,xx,xy,q1,q2,+),\
00398   a p2 = GAN_REP2_OP_AB(b,* c,yx,yy,q1,q2,+))
00399 #define GAN_MAT22T_MULT1D(a,b,c,p1,p2,q1,q2)\
00400  (a p1 = GAN_REP2_OP_AB(b,* c,xx,yx,q1,q2,+),\
00401   a p2 = GAN_REP2_OP_AB(b,* c,xy,yy,q1,q2,+))
00402 
00403 /* symmetric matrix multiply operation */
00404 #define GAN_SYM22_MULT1D(a,b,c,p1,p2,q1,q2)\
00405  (a p1 = GAN_REP2_OP_AB(b,* c,xx,yx,q1,q2,+),\
00406   a p2 = GAN_REP2_OP_AB(b,* c,yx,yy,q1,q2,+))
00407 
00408 /* lower triangular matrix multiply operations */
00409 #define GAN_LOW22_MULT1D(a,b,c,p1,p2,q1,q2)\
00410  (a p2 = GAN_REP2_OP_AB(b,* c,yx,yy,q1,q2,+),\
00411   a p1 = GAN_REP1_OP_AB(b,* c,xx,q1,+))
00412 #define GAN_LOW22I_MULT1D(a,b,c,p1,p2,q1,q2)\
00413  (a p1 =  c q1 / b xx,\
00414   a p2 = (c q2 - b yx * a p1) / b yy)
00415 
00416 /* upper triangular matrix multiply operations */
00417 #define GAN_UPP22_MULT1D(a,b,c,p1,p2,q1,q2)\
00418  (a p1 = GAN_REP2_OP_AB(b,* c,xx,yx,q1,q2,+),\
00419   a p2 = GAN_REP1_OP_AB(b,* c,yy,q2,+))
00420 #define GAN_UPP22I_MULT1D(a,b,c,p1,p2,q1,q2)\
00421  (a p2 =  c q2 / b yy,\
00422   a p1 = (c q1 - b yx * a p2) / b xx)
00423 
00424 /* symmetric/lower triangular square matrix definitions */
00425 #define GAN_ST22_ZERO(A,t)\
00426            (GAN_TEST_OP1(A,Gan_SquMatrix22), gan_eval((A)->type=t),\
00427             GAN_REP22L_AS_C((A)->,=0.0))
00428 #define GAN_ST22_COPY(A,B,t)\
00429            (GAN_TEST_OP2(A,B,Gan_SquMatrix22,Gan_SquMatrix22),\
00430             assert((A)->type==t), gan_eval((B)->type=(A)->type),\
00431             GAN_REP22L_AA_C((B)->,=(A)->))
00432 #define GAN_ST22_SCALE(A,a,B,t)\
00433            (GAN_TEST_OP2(A,B,Gan_SquMatrix22,Gan_SquMatrix22),\
00434             assert((A)->type==t), gan_eval((B)->type=(A)->type),\
00435             GAN_REP22L_AAS_C((B)->,=(A)->,*(a)))
00436 #define GAN_ST22_DIVIDE(A,a,B,t)\
00437            (GAN_TEST_OP2(A,B,Gan_SquMatrix22,Gan_SquMatrix22),\
00438             assert((A)->type==t), gan_eval((B)->type=(A)->type),\
00439             GAN_REP22L_AAS_C((B)->,=(A)->,/(a)))
00440 #define GAN_ST22_NEGATE(A,B,t)\
00441            (GAN_TEST_OP2(A,B,Gan_SquMatrix22,Gan_SquMatrix22),\
00442             assert((A)->type==t), gan_eval((B)->type=(A)->type),\
00443             GAN_REP22L_AA_C((B)->,=-(A)->))
00444 #define GAN_ST22_ADD(A,B,C,t)\
00445          (GAN_TEST_OP3(A,B,C,Gan_SquMatrix22,Gan_SquMatrix22,Gan_SquMatrix22),\
00446           assert((A)->type==t && (B)->type==t), gan_eval((C)->type=(A)->type),\
00447           GAN_REP22L_AAA_C((C)->,=(A)->,+(B)->))
00448 #define GAN_ST22_SUB(A,B,C,t)\
00449          (GAN_TEST_OP3(A,B,C,Gan_SquMatrix22,Gan_SquMatrix22,Gan_SquMatrix22),\
00450           assert((A)->type==t && (B)->type==t), gan_eval((C)->type=(A)->type),\
00451           GAN_REP22L_AAA_C((C)->,=(A)->,-(B)->))
00452 
00453 /* declare functions specific to generic 2x2 matrices */
00467 /* This library is free software; you can redistribute it and/or
00468    modify it under the terms of the GNU Lesser General Public
00469    License as published by the Free Software Foundation; either
00470    version 2.1 of the License, or (at your option) any later version.
00471 
00472    This library is distributed in the hope that it will be useful,
00473    but WITHOUT ANY WARRANTY; without even the implied warranty of
00474    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
00475    Lesser General Public License for more details.
00476 
00477    You should have received a copy of the GNU Lesser General Public
00478    License along with this library; if not, write to the Free Software
00479    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
00480 */
00481 
00482 #ifndef _GAN_2X2MAT_H
00483 
00498  Gan_Matrix22 *gan_mat22_fill_q ( Gan_Matrix22 *A, double XX, double XY,
00499                                  double YX, double YY );
00500 
00521  void gan_mat22_get_rows_q ( const Gan_Matrix22 *A, Gan_Vector2 *p, Gan_Vector2 *q );
00522 
00534  void gan_mat22_get_cols_q ( const Gan_Matrix22 *A, Gan_Vector2 *p, Gan_Vector2 *q );
00535 
00541 #endif /* #ifndef _GAN_2X2MAT_H */
00542 
00543 #define GAN_MATTYPE Gan_Matrix22
00544 #define GAN_MATRIX_TYPE Gan_Matrix
00545 #define GAN_SQUMATRIX_TYPE Gan_SquMatrix
00546 #define GAN_VECTOR_TYPE Gan_Vector
00547 #define GAN_MAT_ELEMENT_TYPE GAN_DOUBLE
00548 #define GAN_REALTYPE double
00549 #define GAN_FWRITE_LENDIAN gan_fwrite_lendian_f64
00550 #define GAN_FREAD_LENDIAN  gan_fread_lendian_f64
00551 #define GAN_VECTYPE1 Gan_Vector2
00552 #define GAN_VECTYPE2 Gan_Vector2
00553 #define GAN_MATTYPEL Gan_Matrix22
00554 #define GAN_MATTYPER Gan_Matrix22
00555 #define GAN_SQUMATTYPEL Gan_SquMatrix22
00556 #define GAN_SQUMATTYPER Gan_SquMatrix22
00557 #define GAN_MAT_FPRINT                     gan_mat22_fprint
00558 #define GAN_MAT_PRINT                      gan_mat22_print
00559 #define GAN_MAT_FSCANF                     gan_mat22_fscanf
00560 #define GAN_MAT_FWRITE                     gan_mat22_fwrite
00561 #define GAN_MAT_FREAD                      gan_mat22_fread
00562 #define GAN_MAT_ZERO_Q                     gan_mat22_zero_q
00563 #define GAN_MAT_ZERO_S                     gan_mat22_zero_s
00564 #define GAN_MAT_COPY_Q                     gan_mat22_copy_q
00565 #define GAN_MAT_COPY_S                     gan_mat22_copy_s
00566 #define GAN_MAT_SCALE_Q                    gan_mat22_scale_q
00567 #define GAN_MAT_SCALE_I                    gan_mat22_scale_i
00568 #define GAN_MAT_SCALE_S                    gan_mat22_scale_s
00569 #define GAN_MAT_DIVIDE_Q                   gan_mat22_divide_q
00570 #define GAN_MAT_DIVIDE_I                   gan_mat22_divide_i
00571 #define GAN_MAT_DIVIDE_S                   gan_mat22_divide_s
00572 #define GAN_MAT_NEGATE_Q                   gan_mat22_negate_q
00573 #define GAN_MAT_NEGATE_I                   gan_mat22_negate_i
00574 #define GAN_MAT_NEGATE_S                   gan_mat22_negate_s
00575 #define GAN_MAT_UNIT_Q                     gan_mat22_unit_q
00576 #define GAN_MAT_UNIT_I                     gan_mat22_unit_i
00577 #define GAN_MAT_UNIT_S                     gan_mat22_unit_s
00578 #define GAN_MAT_ADD_Q                      gan_mat22_add_q
00579 #define GAN_MAT_ADD_I1                     gan_mat22_add_i1
00580 #define GAN_MAT_ADD_I2                     gan_mat22_add_i2
00581 #define GAN_MAT_INCREMENT                  gan_mat22_increment
00582 #define GAN_MAT_ADD_S                      gan_mat22_add_s
00583 #define GAN_MAT_SUB_Q                      gan_mat22_sub_q
00584 #define GAN_MAT_SUB_I1                     gan_mat22_sub_i1
00585 #define GAN_MAT_SUB_I2                     gan_mat22_sub_i2
00586 #define GAN_MAT_DECREMENT                  gan_mat22_decrement
00587 #define GAN_MAT_SUB_S                      gan_mat22_sub_s
00588 #define GAN_VEC_OUTER_Q                    gan_vec22_outer_q
00589 #define GAN_VEC_OUTER_S                    gan_vec22_outer_s
00590 #define GAN_MAT_MULTV_Q                    gan_mat22_multv2_q
00591 #define GAN_MAT_MULTV_S                    gan_mat22_multv2_s
00592 #define GAN_MATT_MULTV_Q                   gan_mat22T_multv2_q
00593 #define GAN_MATT_MULTV_S                   gan_mat22T_multv2_s
00594 #define GAN_MAT_LMULTMT_Q                  gan_mat22_lmultm22T_q
00595 #define GAN_MAT_LMULTMT_S                  gan_mat22_lmultm22T_s
00596 #define GAN_MAT_RMULTM_Q                   gan_mat22_rmultm22_q
00597 #define GAN_MAT_RMULTM_S                   gan_mat22_rmultm22_s
00598 #define GAN_MAT_RMULTMT_Q                  gan_mat22_rmultm22T_q
00599 #define GAN_MAT_RMULTMT_S                  gan_mat22_rmultm22T_s
00600 #define GAN_MAT_LMULTMT_SYM_Q              gan_mat22_lmultm22T_sym_q
00601 #define GAN_MAT_LMULTMT_SYM_S              gan_mat22_lmultm22T_sym_s
00602 #define GAN_MAT_RMULTMT_SYM_Q              gan_mat22_rmultm22T_sym_q
00603 #define GAN_MAT_RMULTMT_SYM_S              gan_mat22_rmultm22T_sym_s
00604 #define GAN_MAT_SLMULTT_Q                  gan_mat22_slmultT_q
00605 #define GAN_MAT_SLMULTT_S                  gan_mat22_slmultT_s
00606 #define GAN_MAT_SRMULTT_Q                  gan_mat22_srmultT_q
00607 #define GAN_MAT_SRMULTT_S                  gan_mat22_srmultT_s
00608 #define GAN_MAT_LMULTS_Q                   gan_mat22_lmults22_q
00609 #define GAN_MAT_LMULTS_S                   gan_mat22_lmults22_s
00610 #define GAN_MAT_RMULTS_Q                   gan_mat22_rmults22_q
00611 #define GAN_MAT_RMULTS_S                   gan_mat22_rmults22_s
00612 #define GAN_SYMMATL_LRMULT_Q               gan_symmat22_lrmultm22T_q
00613 #define GAN_SYMMATL_LRMULT_S               gan_symmat22_lrmultm22T_s
00614 #define GAN_SYMMATR_LRMULT_Q               gan_symmat22_lrmultm22_q
00615 #define GAN_SYMMATR_LRMULT_S               gan_symmat22_lrmultm22_s
00616 #define GAN_MAT_LMULTL_Q                   gan_mat22_lmultl22_q
00617 #define GAN_MAT_LMULTL_S                   gan_mat22_lmultl22_s
00618 #define GAN_MAT_LMULTL_I                   gan_mat22_lmultl22_i
00619 #define GAN_MAT_LMULTLI_Q                  gan_mat22_lmultl22I_q
00620 #define GAN_MAT_LMULTLI_S                  gan_mat22_lmultl22I_s
00621 #define GAN_MAT_LMULTLI_I                  gan_mat22_lmultl22I_i
00622 #define GAN_MAT_LMULTLT_Q                  gan_mat22_lmultl22T_q
00623 #define GAN_MAT_LMULTLT_S                  gan_mat22_lmultl22T_s
00624 #define GAN_MAT_LMULTLT_I                  gan_mat22_lmultl22T_i
00625 #define GAN_MAT_LMULTLIT_Q                 gan_mat22_lmultl22IT_q
00626 #define GAN_MAT_LMULTLIT_S                 gan_mat22_lmultl22IT_s
00627 #define GAN_MAT_LMULTLIT_I                 gan_mat22_lmultl22IT_i
00628 #define GAN_MAT_RMULTL_Q                   gan_mat22_rmultl22_q
00629 #define GAN_MAT_RMULTL_S                   gan_mat22_rmultl22_s
00630 #define GAN_MAT_RMULTL_I                   gan_mat22_rmultl22_i
00631 #define GAN_MAT_RMULTLI_Q                  gan_mat22_rmultl22I_q
00632 #define GAN_MAT_RMULTLI_S                  gan_mat22_rmultl22I_s
00633 #define GAN_MAT_RMULTLI_I                  gan_mat22_rmultl22I_i
00634 #define GAN_MAT_RMULTLT_Q                  gan_mat22_rmultl22T_q
00635 #define GAN_MAT_RMULTLT_S                  gan_mat22_rmultl22T_s
00636 #define GAN_MAT_RMULTLT_I                  gan_mat22_rmultl22T_i
00637 #define GAN_MAT_RMULTLIT_Q                 gan_mat22_rmultl22IT_q
00638 #define GAN_MAT_RMULTLIT_S                 gan_mat22_rmultl22IT_s
00639 #define GAN_MAT_RMULTLIT_I                 gan_mat22_rmultl22IT_i
00640 #define GAN_MAT_SUMSQR_Q                   gan_mat22_sumsqr_q
00641 #define GAN_MAT_SUMSQR_S                   gan_mat22_sumsqr_s
00642 #define GAN_MAT_FNORM_Q                    gan_mat22_Fnorm_q
00643 #define GAN_MAT_FNORM_S                    gan_mat22_Fnorm_s
00644 #define GAN_MAT_FROM_MAT_Q                 gan_mat22_from_mat_q
00645 #define GAN_MAT_FROM_MAT_S                 gan_mat22_from_mat_s
00646 #define GAN_MAT_FROM_SQUMAT_Q              gan_mat22_from_squmat_q
00647 #define GAN_MAT_FROM_SQUMAT_S              gan_mat22_from_squmat_s
00648 #define GAN_SQUMAT_FROM_SQUMAT_Q           gan_squmat22_from_squmat_q
00649 #define GAN_SQUMAT_FROM_SQUMAT_S           gan_squmat22_from_squmat_s
00650 
00651 #define GAN_SQUMAT_IDENT_Q    gan_mat22_ident_q
00652 #define GAN_SQUMAT_IDENT_S    gan_mat22_ident_s
00653 #define GAN_SQUMAT_TPOSE_Q    gan_mat22_tpose_q
00654 #define GAN_SQUMAT_TPOSE_S    gan_mat22_tpose_s
00655 #define GAN_SQUMAT_TPOSE_I    gan_mat22_tpose_i
00656 #define GAN_MAT_SADDT_Q       gan_mat22_saddT_q
00657 #define GAN_MAT_SADDT_S       gan_mat22_saddT_s
00658 #define GAN_SQUMAT_INVERT     gan_mat22_invert
00659 #define GAN_SQUMAT_INVERT_Q   gan_mat22_invert_q
00660 #define GAN_SQUMAT_INVERT_S   gan_mat22_invert_s
00661 #define GAN_SQUMAT_INVERT_I   gan_mat22_invert_i
00662 #define GAN_SQUMAT_ADJOINT_Q  gan_mat22_adjoint_q
00663 #define GAN_SQUMAT_ADJOINT_S  gan_mat22_adjoint_s
00664 #define GAN_SQUMAT_ADJOINTT_Q gan_mat22_adjointT_q
00665 #define GAN_SQUMAT_ADJOINTT_S gan_mat22_adjointT_s
00666 #define GAN_SQUMAT_DET_Q      gan_mat22_det_q
00667 #define GAN_SQUMAT_DET_S      gan_mat22_det_s
00668 #define GAN_SQUMAT_TRACE_Q    gan_mat22_trace_q
00669 #define GAN_SQUMAT_TRACE_S    gan_mat22_trace_s
00670 
00671 #ifndef _GAN_2X2MAT_H
00672 #define _GAN_2X2MAT_H
00673 
00674 
00675 #endif /* #ifndef _GAN_2X2MAT_H */
00676 
00689 /* This library is free software; you can redistribute it and/or
00690    modify it under the terms of the GNU Lesser General Public
00691    License as published by the Free Software Foundation; either
00692    version 2.1 of the License, or (at your option) any later version.
00693 
00694    This library is distributed in the hope that it will be useful,
00695    but WITHOUT ANY WARRANTY; without even the implied warranty of
00696    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
00697    Lesser General Public License for more details.
00698 
00699    You should have received a copy of the GNU Lesser General Public
00700    License along with this library; if not, write to the Free Software
00701    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
00702 */
00703 
00704 /* function declarations for functions common to all small square matrix
00705  * types */
00706 
00707 
00708 
00709 /* documentation for macros defined in individual header files */
00710 
00723  Gan_Matrix22 *gan_mat22_ident_q ( Gan_Matrix22 *A );
00724 
00742  Gan_Matrix22 *gan_mat22_tpose_q ( Gan_Matrix22 *A, Gan_Matrix22 *B );
00743 
00761  Gan_SquMatrix22 *gan_mat22_saddT_q ( const Gan_Matrix22 *A, Gan_SquMatrix22 *B );
00762 
00793  Gan_Matrix22 *gan_mat22_invert_q ( Gan_Matrix22 *A, Gan_Matrix22 *B );
00794 
00803  Gan_Matrix22 *gan_mat22_invert_i ( Gan_Matrix22 *A );
00804 
00819  double gan_mat22_det_q ( const Gan_Matrix22 *A );
00820 
00826  double gan_mat22_trace_q ( const Gan_Matrix22 *A );
00827 
00833 #undef GAN_SQUMAT_IDENT_Q
00834 #undef GAN_SQUMAT_IDENT_S
00835 #undef GAN_SQUMAT_TPOSE_Q
00836 #undef GAN_SQUMAT_TPOSE_S
00837 #undef GAN_SQUMAT_TPOSE_I
00838 #undef GAN_MAT_SADDT_Q
00839 #undef GAN_MAT_SADDT_S
00840 #undef GAN_SQUMATI_MULTV_Q
00841 #undef GAN_SQUMATI_MULTV_S
00842 #undef GAN_SQUMATI_MULTV_I
00843 #undef GAN_SQUMATIT_MULTV_Q
00844 #undef GAN_SQUMATIT_MULTV_S
00845 #undef GAN_SQUMATIT_MULTV_I
00846 #undef GAN_SQUMAT_INVERT
00847 #undef GAN_SQUMAT_INVERT_Q
00848 #undef GAN_SQUMAT_INVERT_S
00849 #undef GAN_SQUMAT_INVERT_I
00850 #undef GAN_SQUMAT_ADJOINT_Q
00851 #undef GAN_SQUMAT_ADJOINT_S
00852 #undef GAN_SQUMAT_ADJOINTT_Q
00853 #undef GAN_SQUMAT_ADJOINTT_S
00854 #undef GAN_SQUMAT_DET_Q
00855 #undef GAN_SQUMAT_DET_S
00856 #undef GAN_SQUMAT_TRACE_Q
00857 #undef GAN_SQUMAT_TRACE_S
00858 
00871 /* This library is free software; you can redistribute it and/or
00872    modify it under the terms of the GNU Lesser General Public
00873    License as published by the Free Software Foundation; either
00874    version 2.1 of the License, or (at your option) any later version.
00875 
00876    This library is distributed in the hope that it will be useful,
00877    but WITHOUT ANY WARRANTY; without even the implied warranty of
00878    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
00879    Lesser General Public License for more details.
00880 
00881    You should have received a copy of the GNU Lesser General Public
00882    License along with this library; if not, write to the Free Software
00883    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
00884 */
00885 
00886 /* function declarations for functions common to all small vector types */
00887 
00888 
00889 
00890 /* documentation for macros defined in individual header files */
00891 
00902  Gan_Matrix22 *gan_mat22_zero_q ( const Gan_Matrix22 *A );
00903 
00920  Gan_Matrix22 *gan_mat22_copy_q ( Gan_Matrix22 *A, Gan_Matrix22 *B );
00921 
00939  Gan_Matrix22 *gan_mat22_scale_q ( Gan_Matrix22 *A, double a,
00940                                Gan_Matrix22 *B );
00941 
00949  Gan_Matrix22 *gan_mat22_scale_i ( Gan_Matrix22 *A, double a );
00950 
00959  Gan_Matrix22 *gan_mat22_divide_q ( Gan_Matrix22 *A, double a,
00960                                 Gan_Matrix22 *B );
00961 
00969  Gan_Matrix22 *gan_mat22_divide_i ( Gan_Matrix22 *A, double a );
00970 
00978  Gan_Matrix22 *gan_mat22_negate_q ( Gan_Matrix22 *A, Gan_Matrix22 *B );
00979 
00987  Gan_Matrix22 *gan_mat22_negate_i ( Gan_Matrix22 *A );
00988 
00996  Gan_Matrix22 *gan_mat22_unit_i ( Gan_Matrix22 *A );
00997 
01015  Gan_Matrix22 *gan_mat22_add_q ( Gan_Matrix22 *A, Gan_Matrix22 *B, Gan_Matrix22 *C );
01016 
01025  Gan_Matrix22 *gan_mat22_add_i1 ( Gan_Matrix22 *A, Gan_Matrix22 *B );
01026 
01035  Gan_Matrix22 *gan_mat22_add_i2 ( Gan_Matrix22 *A, Gan_Matrix22 *B );
01036 
01045  Gan_Matrix22 *gan_mat22_increment ( Gan_Matrix22 *A, Gan_Matrix22 *B );
01046 
01064  Gan_Matrix22 *gan_mat22_sub_q ( Gan_Matrix22 *A, Gan_Matrix22 *B, Gan_Matrix22 *C );
01065 
01074  Gan_Matrix22 *gan_mat22_sub_i1 ( Gan_Matrix22 *A, Gan_Matrix22 *B );
01075 
01084  Gan_Matrix22 *gan_mat22_sub_i2 ( Gan_Matrix22 *A, Gan_Matrix22 *B );
01085 
01094  Gan_Matrix22 *gan_mat22_decrement ( Gan_Matrix22 *A, Gan_Matrix22 *B );
01095 
01113  Gan_Matrix22 *gan_vec22_outer_q ( const Gan_Vector2 *p, const Gan_Vector2 *q,
01114                                Gan_Matrix22 *A );
01115 
01124  Gan_Vector2 *gan_mat22_multv2_q ( const Gan_Matrix22 *A, Gan_Vector2 *p,
01125                                 Gan_Vector2 *q );
01126 
01127 
01136  Gan_Vector2 *gan_mat22T_multv2_q ( const Gan_Matrix22 *A, Gan_Vector2 *p,
01137                                  Gan_Vector2 *q );
01138 
01139 
01159  Gan_Matrix22 *gan_mat22_lmultm22T_q ( Gan_Matrix22 *A, const Gan_Matrix22 *B,
01160                                  Gan_Matrix22 *C );
01161 
01171  Gan_Matrix22 *gan_mat22_rmultm22_q ( Gan_Matrix22 *A, const Gan_Matrix22 *B,
01172                                 Gan_Matrix22 *C );
01173 
01183  Gan_Matrix22 *gan_mat22_rmultm22T_q ( Gan_Matrix22 *A, const Gan_Matrix22 *B,
01184                                  Gan_Matrix22 *C );
01185 
01197  Gan_SquMatrix22 *gan_mat22_lmultm22T_sym_q ( const Gan_Matrix22 *A, const Gan_Matrix22 *B,
01198                                          Gan_SquMatrix22 *C );
01199 
01211  Gan_SquMatrix22 *gan_mat22_rmultm22T_sym_q ( const Gan_Matrix22 *A, const Gan_Matrix22 *B,
01212                                          Gan_SquMatrix22 *C );
01213 
01222  Gan_Matrix22 *gan_mat22_lmults22_q ( Gan_Matrix22 *A, const Gan_SquMatrix22 *B,
01223                                 Gan_Matrix22 *C );
01224 
01233  Gan_Matrix22 *gan_mat22_rmults22_q ( Gan_Matrix22 *A, const Gan_SquMatrix22 *B,
01234                                 Gan_Matrix22 *C );
01235 
01255  Gan_SquMatrix22 *gan_symmat22_lrmultm22T_q ( const Gan_SquMatrix22 *A, const Gan_Matrix22 *B,
01256                                         const Gan_Matrix22 *C, Gan_SquMatrix22 *D );
01257 
01268  Gan_SquMatrix22 *gan_symmat22_lrmultm22_q ( const Gan_SquMatrix22 *A, const Gan_Matrix22 *B,
01269                                         const Gan_Matrix22 *C, Gan_SquMatrix22 *D );
01270 
01289  Gan_Matrix22 *gan_mat22_lmultl22_q ( Gan_Matrix22 *A, const Gan_SquMatrix22 *B,
01290                                 Gan_Matrix22 *C );
01291 
01301  Gan_Matrix22 *gan_mat22_lmultl22I_q ( Gan_Matrix22 *A, const Gan_SquMatrix22 *B,
01302                                  Gan_Matrix22 *C );
01303 
01313  Gan_Matrix22 *gan_mat22_lmultl22T_q ( Gan_Matrix22 *A, const Gan_SquMatrix22 *B,
01314                                  Gan_Matrix22 *C );
01315 
01325  Gan_Matrix22 *gan_mat22_lmultl22IT_q ( Gan_Matrix22 *A, const Gan_SquMatrix22 *B,
01326                                   Gan_Matrix22 *C );
01327 
01337  Gan_Matrix22 *gan_mat22_rmultl22_q ( Gan_Matrix22 *A, const Gan_SquMatrix22 *B,
01338                                 Gan_Matrix22 *C );
01339 
01349  Gan_Matrix22 *gan_mat22_rmultl22I_q ( Gan_Matrix22 *A, const Gan_SquMatrix22 *B,
01350                                  Gan_Matrix22 *C );
01351 
01361  Gan_Matrix22 *gan_mat22_rmultl22T_q ( Gan_Matrix22 *A, const Gan_SquMatrix22 *B,
01362                                  Gan_Matrix22 *C );
01363 
01373  Gan_Matrix22 *gan_mat22_rmultl22IT_q ( Gan_Matrix22 *A, const Gan_SquMatrix22 *B,
01374                                   Gan_Matrix22 *C );
01375 
01385  Gan_Matrix22 *gan_mat22_lmultl22_i ( Gan_Matrix22 *A, const Gan_SquMatrix22 *B );
01386 
01396  Gan_Matrix22 *gan_mat22_lmultl22I_i ( Gan_Matrix22 *A, const Gan_SquMatrix22 *B );
01397 
01407  Gan_Matrix22 *gan_mat22_lmultl22T_i ( Gan_Matrix22 *A, const Gan_SquMatrix22 *B );
01408 
01418  Gan_Matrix22 *gan_mat22_lmultl22IT_i ( Gan_Matrix22 *A, const Gan_SquMatrix22 *B );
01419 
01429  Gan_Matrix22 *gan_mat22_rmultl22_i ( Gan_Matrix22 *A, const Gan_SquMatrix22 *B );
01430 
01440  Gan_Matrix22 *gan_mat22_rmultl22I_i ( Gan_Matrix22 *A, const Gan_SquMatrix22 *B );
01441 
01451  Gan_Matrix22 *gan_mat22_rmultl22T_i ( Gan_Matrix22 *A, const Gan_SquMatrix22 *B );
01452 
01462  Gan_Matrix22 *gan_mat22_rmultl22IT_i ( Gan_Matrix22 *A, const Gan_SquMatrix22 *B );
01463 
01472  Gan_SquMatrix22 *gan_mat22_slmultT_q ( Gan_Matrix22 *A, const Gan_SquMatrix22 *B );
01473 
01474 
01483  Gan_SquMatrix22 *gan_mat22_srmultT_q ( const Gan_Matrix22 *A, Gan_SquMatrix22 *B );
01484 
01485 
01500  double gan_mat22_sumsqr_q ( const Gan_Matrix22 *A );
01501 
01508  double gan_mat22_Fnorm_q ( const Gan_Matrix22 *A );
01509 
01519  Gan_Matrix22 *gan_mat22_from_mat_q ( const Gan_Matrix *A, Gan_Matrix22 *B );
01520 
01521  Gan_Matrix22 *gan_mat22_from_squmat_q ( const Gan_SquMatrix *A, Gan_Matrix22 *B );
01522 
01523  Gan_SquMatrix22 *gan_squmat22_from_squmat_q ( const Gan_SquMatrix *A,
01524                                             Gan_SquMatrix22 *B );
01525 
01544 /* This library is free software; you can redistribute it and/or
01545    modify it under the terms of the GNU Lesser General Public
01546    License as published by the Free Software Foundation; either
01547    version 2.1 of the License, or (at your option) any later version.
01548 
01549    This library is distributed in the hope that it will be useful,
01550    but WITHOUT ANY WARRANTY; without even the implied warranty of
01551    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
01552    Lesser General Public License for more details.
01553 
01554    You should have received a copy of the GNU Lesser General Public
01555    License along with this library; if not, write to the Free Software
01556    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
01557 */
01558 
01559 #undef GAN_MATTYPE
01560 #undef GAN_MATRIX_TYPE
01561 #undef GAN_SQUMATRIX_TYPE
01562 #undef GAN_VECTOR_TYPE
01563 #undef GAN_MAT_ELEMENT_TYPE
01564 #undef GAN_REALTYPE
01565 #undef GAN_FWRITE_LENDIAN
01566 #undef GAN_FREAD_LENDIAN
01567 #undef GAN_VECTYPE1
01568 #undef GAN_VECTYPE2
01569 #undef GAN_MATTYPEL
01570 #undef GAN_MATTYPER
01571 #undef GAN_SQUMATTYPEL
01572 #undef GAN_SQUMATTYPER
01573 #undef GAN_FIXED_MATRIX_TYPE
01574 #undef GAN_MAT_FPRINT
01575 #undef GAN_MAT_PRINT
01576 #undef GAN_MAT_FSCANF
01577 #undef GAN_MAT_FWRITE
01578 #undef GAN_MAT_FREAD
01579 #undef GAN_MAT_ZERO_Q
01580 #undef GAN_MAT_ZERO_S
01581 #undef GAN_MAT_COPY_Q
01582 #undef GAN_MAT_COPY_S
01583 #undef GAN_MAT_SCALE_Q
01584 #undef GAN_MAT_SCALE_S
01585 #undef GAN_MAT_SCALE_I
01586 #undef GAN_MAT_DIVIDE_Q
01587 #undef GAN_MAT_DIVIDE_S
01588 #undef GAN_MAT_DIVIDE_I
01589 #undef GAN_MAT_NEGATE_Q
01590 #undef GAN_MAT_NEGATE_S
01591 #undef GAN_MAT_NEGATE_I
01592 #undef GAN_MAT_UNIT_Q
01593 #undef GAN_MAT_UNIT_S
01594 #undef GAN_MAT_UNIT_I
01595 #undef GAN_MAT_ADD_Q
01596 #undef GAN_MAT_ADD_I1
01597 #undef GAN_MAT_ADD_I2
01598 #undef GAN_MAT_INCREMENT
01599 #undef GAN_MAT_ADD_S
01600 #undef GAN_MAT_SUB_Q
01601 #undef GAN_MAT_SUB_I1
01602 #undef GAN_MAT_SUB_I2
01603 #undef GAN_MAT_DECREMENT
01604 #undef GAN_MAT_SUB_S
01605 #undef GAN_VEC_OUTER_Q
01606 #undef GAN_VEC_OUTER_S
01607 #undef GAN_MAT_MULTV_Q
01608 #undef GAN_MAT_MULTV_S
01609 #undef GAN_MAT_MULTV_I
01610 #undef GAN_MATT_MULTV_Q
01611 #undef GAN_MATT_MULTV_S
01612 #undef GAN_MATT_MULTV_I
01613 #undef GAN_MAT_LMULTM_Q
01614 #undef GAN_MAT_LMULTM_S
01615 #undef GAN_MAT_LMULTMT_Q
01616 #undef GAN_MAT_LMULTMT_S
01617 #undef GAN_MAT_RMULTM_Q
01618 #undef GAN_MAT_RMULTM_S
01619 #undef GAN_MAT_RMULTMT_Q
01620 #undef GAN_MAT_RMULTMT_S
01621 #undef GAN_MAT_LMULTMT_SYM_Q
01622 #undef GAN_MAT_LMULTMT_SYM_S
01623 #undef GAN_MAT_RMULTMT_SYM_Q
01624 #undef GAN_MAT_RMULTMT_SYM_S
01625 #undef GAN_MAT_LMULTS_Q
01626 #undef GAN_MAT_LMULTS_S
01627 #undef GAN_MAT_RMULTS_Q
01628 #undef GAN_MAT_RMULTS_S
01629 #undef GAN_SYMMATL_LRMULT_Q
01630 #undef GAN_SYMMATL_LRMULT_S
01631 #undef GAN_SYMMATR_LRMULT_Q
01632 #undef GAN_SYMMATR_LRMULT_S
01633 #undef GAN_MAT_LMULTL_Q
01634 #undef GAN_MAT_LMULTL_S
01635 #undef GAN_MAT_LMULTL_I
01636 #undef GAN_MAT_LMULTLI_Q
01637 #undef GAN_MAT_LMULTLI_S
01638 #undef GAN_MAT_LMULTLI_I
01639 #undef GAN_MAT_LMULTLT_Q
01640 #undef GAN_MAT_LMULTLT_S
01641 #undef GAN_MAT_LMULTLT_I
01642 #undef GAN_MAT_LMULTLIT_Q
01643 #undef GAN_MAT_LMULTLIT_S
01644 #undef GAN_MAT_LMULTLIT_I
01645 #undef GAN_MAT_RMULTL_Q
01646 #undef GAN_MAT_RMULTL_S
01647 #undef GAN_MAT_RMULTL_I
01648 #undef GAN_MAT_RMULTLI_Q
01649 #undef GAN_MAT_RMULTLI_S
01650 #undef GAN_MAT_RMULTLI_I
01651 #undef GAN_MAT_RMULTLT_Q
01652 #undef GAN_MAT_RMULTLT_S
01653 #undef GAN_MAT_RMULTLT_I
01654 #undef GAN_MAT_RMULTLIT_Q
01655 #undef GAN_MAT_RMULTLIT_S
01656 #undef GAN_MAT_RMULTLIT_I
01657 #undef GAN_MAT_SRMULTT_Q
01658 #undef GAN_MAT_SRMULTT_S
01659 #undef GAN_MAT_SRMULTT_I
01660 #undef GAN_MAT_SLMULTT_Q
01661 #undef GAN_MAT_SLMULTT_S
01662 #undef GAN_MAT_SLMULTT_I
01663 #undef GAN_MAT_RMULTLIT_S
01664 #undef GAN_MAT_SUMSQR_Q
01665 #undef GAN_MAT_SUMSQR_S
01666 #undef GAN_MAT_FNORM_Q
01667 #undef GAN_MAT_FNORM_S
01668 #undef GAN_MAT_FROM_MAT_Q
01669 #undef GAN_MAT_FROM_MAT_S
01670 #undef GAN_MAT_FROM_SQUMAT_Q
01671 #undef GAN_MAT_FROM_SQUMAT_S
01672 #undef GAN_SQUMAT_FROM_SQUMAT_Q
01673 #undef GAN_SQUMAT_FROM_SQUMAT_S
01674 
01675 /* declare functions specific to symmetric 2x2 matrices */
01689 /* This library is free software; you can redistribute it and/or
01690    modify it under the terms of the GNU Lesser General Public
01691    License as published by the Free Software Foundation; either
01692    version 2.1 of the License, or (at your option) any later version.
01693 
01694    This library is distributed in the hope that it will be useful,
01695    but WITHOUT ANY WARRANTY; without even the implied warranty of
01696    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
01697    Lesser General Public License for more details.
01698 
01699    You should have received a copy of the GNU Lesser General Public
01700    License along with this library; if not, write to the Free Software
01701    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
01702 */
01703 
01704 #ifndef _GAN_2X2SYMMAT_H
01705 
01721  Gan_SquMatrix22 *gan_symmat22_fill_q ( Gan_SquMatrix22 *A, double XX,
01722                                        double YX, double YY );
01723 
01729 #endif /* #ifndef _GAN_2X2SYMMAT_H */
01730 
01731 #define GAN_MATTYPE Gan_SquMatrix22
01732 #define GAN_MATRIX_TYPE Gan_SquMatrix
01733 #define GAN_SQUMATRIX_TYPE Gan_SquMatrix
01734 #define GAN_VECTOR_TYPE Gan_Vector
01735 #define GAN_MAT_ELEMENT_TYPE GAN_DOUBLE
01736 #define GAN_REALTYPE double
01737 #define GAN_FWRITE_LENDIAN gan_fwrite_lendian_f64
01738 #define GAN_FREAD_LENDIAN  gan_fread_lendian_f64
01739 #define GAN_VECTYPE1 Gan_Vector2
01740 #define GAN_VECTYPE2 Gan_Vector2
01741 #define GAN_FIXED_MATRIX_TYPE GAN_SYMMETRIC_MATRIX22
01742 #define GAN_MAT_FPRINT      gan_symmat22_fprint
01743 #define GAN_MAT_PRINT       gan_symmat22_print
01744 #define GAN_MAT_FSCANF      gan_symmat22_fscanf
01745 #define GAN_MAT_FWRITE      gan_symmat22_fwrite
01746 #define GAN_MAT_FREAD       gan_symmat22_fread
01747 #define GAN_MAT_ZERO_Q      gan_symmat22_zero_q
01748 #define GAN_MAT_ZERO_S      gan_symmat22_zero_s
01749 #define GAN_MAT_COPY_Q      gan_symmat22_copy_q
01750 #define GAN_MAT_COPY_S      gan_symmat22_copy_s
01751 #define GAN_MAT_SCALE_Q     gan_symmat22_scale_q
01752 #define GAN_MAT_SCALE_S     gan_symmat22_scale_s
01753 #define GAN_MAT_SCALE_I     gan_symmat22_scale_i
01754 #define GAN_MAT_DIVIDE_Q    gan_symmat22_divide_q
01755 #define GAN_MAT_DIVIDE_S    gan_symmat22_divide_s
01756 #define GAN_MAT_DIVIDE_I    gan_symmat22_divide_i
01757 #define GAN_MAT_NEGATE_Q    gan_symmat22_negate_q
01758 #define GAN_MAT_NEGATE_S    gan_symmat22_negate_s
01759 #define GAN_MAT_NEGATE_I    gan_symmat22_negate_i
01760 #define GAN_MAT_UNIT_Q      gan_symmat22_unit_q
01761 #define GAN_MAT_UNIT_S      gan_symmat22_unit_s
01762 #define GAN_MAT_UNIT_I      gan_symmat22_unit_i
01763 #define GAN_MAT_ADD_Q       gan_symmat22_add_q
01764 #define GAN_MAT_ADD_I1      gan_symmat22_add_i1
01765 #define GAN_MAT_ADD_I2      gan_symmat22_add_i2
01766 #define GAN_MAT_INCREMENT   gan_symmat22_increment
01767 #define GAN_MAT_ADD_S       gan_symmat22_add_s
01768 #define GAN_MAT_SUB_Q       gan_symmat22_sub_q
01769 #define GAN_MAT_SUB_I1      gan_symmat22_sub_i1
01770 #define GAN_MAT_SUB_I2      gan_symmat22_sub_i2
01771 #define GAN_MAT_DECREMENT   gan_symmat22_decrement
01772 #define GAN_MAT_SUB_S       gan_symmat22_sub_s
01773 #define GAN_MAT_MULTV_Q     gan_symmat22_multv2_q
01774 #define GAN_MAT_MULTV_S     gan_symmat22_multv2_s
01775 #define GAN_MAT_SUMSQR_Q    gan_symmat22_sumsqr_q
01776 #define GAN_MAT_SUMSQR_S    gan_symmat22_sumsqr_s
01777 #define GAN_MAT_FNORM_Q     gan_symmat22_Fnorm_q
01778 #define GAN_MAT_FNORM_S     gan_symmat22_Fnorm_s
01779 
01780 #define GAN_SQUMAT_IDENT_Q       gan_symmat22_ident_q
01781 #define GAN_SQUMAT_IDENT_S       gan_symmat22_ident_s
01782 #define GAN_SQUMAT_INVERT        gan_symmat22_invert
01783 #define GAN_SQUMAT_INVERT_Q      gan_symmat22_invert_q
01784 #define GAN_SQUMAT_INVERT_S      gan_symmat22_invert_s
01785 #define GAN_SQUMAT_INVERT_I      gan_symmat22_invert_i
01786 #define GAN_SQUMAT_DET_Q         gan_symmat22_det_q
01787 #define GAN_SQUMAT_DET_S         gan_symmat22_det_s
01788 #define GAN_SQUMAT_TRACE_Q       gan_symmat22_trace_q
01789 #define GAN_SQUMAT_TRACE_S       gan_symmat22_trace_s
01790 
01791 #define GAN_VEC_OUTER_SYM_Q    gan_vec22_outer_sym_q
01792 #define GAN_VEC_OUTER_SYM_S    gan_vec22_outer_sym_s
01793 #define GAN_SYMMAT_CHOLESKY    gan_symmat22_cholesky
01794 #define GAN_SYMMAT_CHOLESKY_Q  gan_symmat22_cholesky_q
01795 #define GAN_SYMMAT_CHOLESKY_S  gan_symmat22_cholesky_s
01796 #define GAN_SYMMAT_CHOLESKY_I  gan_symmat22_cholesky_i
01797 
01798 #ifndef _GAN_2X2SYMMAT_H
01799 #define _GAN_2X2SYMMAT_H
01800 
01801 
01802 #endif /* #ifndef _GAN_2X2SYMMAT_H */
01803 
01816 /* This library is free software; you can redistribute it and/or
01817    modify it under the terms of the GNU Lesser General Public
01818    License as published by the Free Software Foundation; either
01819    version 2.1 of the License, or (at your option) any later version.
01820 
01821    This library is distributed in the hope that it will be useful,
01822    but WITHOUT ANY WARRANTY; without even the implied warranty of
01823    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
01824    Lesser General Public License for more details.
01825 
01826    You should have received a copy of the GNU Lesser General Public
01827    License along with this library; if not, write to the Free Software
01828    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
01829 */
01830 
01831 /* function declarations for functions common to all small symmetric matrix
01832  * types */
01833 
01834 
01835 
01836 /* documentation for macros defined in individual header files */
01837 
01848  Gan_SquMatrix22 *gan_vec22_outer_sym_q ( const Gan_Vector2 *p, Gan_SquMatrix22 *A );
01849 
01871  Gan_SquMatrix22 *gan_symmat22_cholesky_q ( Gan_SquMatrix22 *A, Gan_SquMatrix22 *B );
01872 
01881  Gan_SquMatrix22 *gan_symmat22_cholesky_i ( Gan_SquMatrix22 *A );
01882 
01888 #undef GAN_VEC_OUTER_SYM_Q
01889 #undef GAN_VEC_OUTER_SYM_S
01890 #undef GAN_SYMMAT_CHOLESKY
01891 #undef GAN_SYMMAT_CHOLESKY_Q
01892 #undef GAN_SYMMAT_CHOLESKY_S
01893 #undef GAN_SYMMAT_CHOLESKY_I
01894 
01907 /* This library is free software; you can redistribute it and/or
01908    modify it under the terms of the GNU Lesser General Public
01909    License as published by the Free Software Foundation; either
01910    version 2.1 of the License, or (at your option) any later version.
01911 
01912    This library is distributed in the hope that it will be useful,
01913    but WITHOUT ANY WARRANTY; without even the implied warranty of
01914    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
01915    Lesser General Public License for more details.
01916 
01917    You should have received a copy of the GNU Lesser General Public
01918    License along with this library; if not, write to the Free Software
01919    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
01920 */
01921 
01922 /* function declarations for functions common to all small square matrix
01923  * types */
01924 
01925 
01926 
01927 /* documentation for macros defined in individual header files */
01928 
01941  Gan_SquMatrix22 *gan_symmat22_ident_q ( Gan_SquMatrix22 *A );
01942 
01993  Gan_SquMatrix22 *gan_symmat22_invert_q ( Gan_SquMatrix22 *A, Gan_SquMatrix22 *B );
01994 
02003  Gan_SquMatrix22 *gan_symmat22_invert_i ( Gan_SquMatrix22 *A );
02004 
02019  double gan_symmat22_det_q ( const Gan_SquMatrix22 *A );
02020 
02026  double gan_symmat22_trace_q ( const Gan_SquMatrix22 *A );
02027 
02033 #undef GAN_SQUMAT_IDENT_Q
02034 #undef GAN_SQUMAT_IDENT_S
02035 #undef GAN_SQUMAT_TPOSE_Q
02036 #undef GAN_SQUMAT_TPOSE_S
02037 #undef GAN_SQUMAT_TPOSE_I
02038 #undef GAN_MAT_SADDT_Q
02039 #undef GAN_MAT_SADDT_S
02040 #undef GAN_SQUMATI_MULTV_Q
02041 #undef GAN_SQUMATI_MULTV_S
02042 #undef GAN_SQUMATI_MULTV_I
02043 #undef GAN_SQUMATIT_MULTV_Q
02044 #undef GAN_SQUMATIT_MULTV_S
02045 #undef GAN_SQUMATIT_MULTV_I
02046 #undef GAN_SQUMAT_INVERT
02047 #undef GAN_SQUMAT_INVERT_Q
02048 #undef GAN_SQUMAT_INVERT_S
02049 #undef GAN_SQUMAT_INVERT_I
02050 #undef GAN_SQUMAT_ADJOINT_Q
02051 #undef GAN_SQUMAT_ADJOINT_S
02052 #undef GAN_SQUMAT_ADJOINTT_Q
02053 #undef GAN_SQUMAT_ADJOINTT_S
02054 #undef GAN_SQUMAT_DET_Q
02055 #undef GAN_SQUMAT_DET_S
02056 #undef GAN_SQUMAT_TRACE_Q
02057 #undef GAN_SQUMAT_TRACE_S
02058 
02071 /* This library is free software; you can redistribute it and/or
02072    modify it under the terms of the GNU Lesser General Public
02073    License as published by the Free Software Foundation; either
02074    version 2.1 of the License, or (at your option) any later version.
02075 
02076    This library is distributed in the hope that it will be useful,
02077    but WITHOUT ANY WARRANTY; without even the implied warranty of
02078    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
02079    Lesser General Public License for more details.
02080 
02081    You should have received a copy of the GNU Lesser General Public
02082    License along with this library; if not, write to the Free Software
02083    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
02084 */
02085 
02086 /* function declarations for functions common to all small vector types */
02087 
02088 
02089 
02090 /* documentation for macros defined in individual header files */
02091 
02102  Gan_SquMatrix22 *gan_symmat22_zero_q ( const Gan_SquMatrix22 *A );
02103 
02120  Gan_SquMatrix22 *gan_symmat22_copy_q ( Gan_SquMatrix22 *A, Gan_SquMatrix22 *B );
02121 
02139  Gan_SquMatrix22 *gan_symmat22_scale_q ( Gan_SquMatrix22 *A, double a,
02140                                Gan_SquMatrix22 *B );
02141 
02149  Gan_SquMatrix22 *gan_symmat22_scale_i ( Gan_SquMatrix22 *A, double a );
02150 
02159  Gan_SquMatrix22 *gan_symmat22_divide_q ( Gan_SquMatrix22 *A, double a,
02160                                 Gan_SquMatrix22 *B );
02161 
02169  Gan_SquMatrix22 *gan_symmat22_divide_i ( Gan_SquMatrix22 *A, double a );
02170 
02178  Gan_SquMatrix22 *gan_symmat22_negate_q ( Gan_SquMatrix22 *A, Gan_SquMatrix22 *B );
02179 
02187  Gan_SquMatrix22 *gan_symmat22_negate_i ( Gan_SquMatrix22 *A );
02188 
02196  Gan_SquMatrix22 *gan_symmat22_unit_i ( Gan_SquMatrix22 *A );
02197 
02215  Gan_SquMatrix22 *gan_symmat22_add_q ( Gan_SquMatrix22 *A, Gan_SquMatrix22 *B, Gan_SquMatrix22 *C );
02216 
02225  Gan_SquMatrix22 *gan_symmat22_add_i1 ( Gan_SquMatrix22 *A, Gan_SquMatrix22 *B );
02226 
02235  Gan_SquMatrix22 *gan_symmat22_add_i2 ( Gan_SquMatrix22 *A, Gan_SquMatrix22 *B );
02236 
02245  Gan_SquMatrix22 *gan_symmat22_increment ( Gan_SquMatrix22 *A, Gan_SquMatrix22 *B );
02246 
02264  Gan_SquMatrix22 *gan_symmat22_sub_q ( Gan_SquMatrix22 *A, Gan_SquMatrix22 *B, Gan_SquMatrix22 *C );
02265 
02274  Gan_SquMatrix22 *gan_symmat22_sub_i1 ( Gan_SquMatrix22 *A, Gan_SquMatrix22 *B );
02275 
02284  Gan_SquMatrix22 *gan_symmat22_sub_i2 ( Gan_SquMatrix22 *A, Gan_SquMatrix22 *B );
02285 
02294  Gan_SquMatrix22 *gan_symmat22_decrement ( Gan_SquMatrix22 *A, Gan_SquMatrix22 *B );
02295 
02314  Gan_Vector2 *gan_symmat22_multv2_q ( const Gan_SquMatrix22 *A, Gan_Vector2 *p,
02315                                 Gan_Vector2 *q );
02316 
02317 
02318 
02319 
02391  double gan_symmat22_sumsqr_q ( const Gan_SquMatrix22 *A );
02392 
02399  double gan_symmat22_Fnorm_q ( const Gan_SquMatrix22 *A );
02400 
02431 /* This library is free software; you can redistribute it and/or
02432    modify it under the terms of the GNU Lesser General Public
02433    License as published by the Free Software Foundation; either
02434    version 2.1 of the License, or (at your option) any later version.
02435 
02436    This library is distributed in the hope that it will be useful,
02437    but WITHOUT ANY WARRANTY; without even the implied warranty of
02438    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
02439    Lesser General Public License for more details.
02440 
02441    You should have received a copy of the GNU Lesser General Public
02442    License along with this library; if not, write to the Free Software
02443    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
02444 */
02445 
02446 #undef GAN_MATTYPE
02447 #undef GAN_MATRIX_TYPE
02448 #undef GAN_SQUMATRIX_TYPE
02449 #undef GAN_VECTOR_TYPE
02450 #undef GAN_MAT_ELEMENT_TYPE
02451 #undef GAN_REALTYPE
02452 #undef GAN_FWRITE_LENDIAN
02453 #undef GAN_FREAD_LENDIAN
02454 #undef GAN_VECTYPE1
02455 #undef GAN_VECTYPE2
02456 #undef GAN_MATTYPEL
02457 #undef GAN_MATTYPER
02458 #undef GAN_SQUMATTYPEL
02459 #undef GAN_SQUMATTYPER
02460 #undef GAN_FIXED_MATRIX_TYPE
02461 #undef GAN_MAT_FPRINT
02462 #undef GAN_MAT_PRINT
02463 #undef GAN_MAT_FSCANF
02464 #undef GAN_MAT_FWRITE
02465 #undef GAN_MAT_FREAD
02466 #undef GAN_MAT_ZERO_Q
02467 #undef GAN_MAT_ZERO_S
02468 #undef GAN_MAT_COPY_Q
02469 #undef GAN_MAT_COPY_S
02470 #undef GAN_MAT_SCALE_Q
02471 #undef GAN_MAT_SCALE_S
02472 #undef GAN_MAT_SCALE_I
02473 #undef GAN_MAT_DIVIDE_Q
02474 #undef GAN_MAT_DIVIDE_S
02475 #undef GAN_MAT_DIVIDE_I
02476 #undef GAN_MAT_NEGATE_Q
02477 #undef GAN_MAT_NEGATE_S
02478 #undef GAN_MAT_NEGATE_I
02479 #undef GAN_MAT_UNIT_Q
02480 #undef GAN_MAT_UNIT_S
02481 #undef GAN_MAT_UNIT_I
02482 #undef GAN_MAT_ADD_Q
02483 #undef GAN_MAT_ADD_I1
02484 #undef GAN_MAT_ADD_I2
02485 #undef GAN_MAT_INCREMENT
02486 #undef GAN_MAT_ADD_S
02487 #undef GAN_MAT_SUB_Q
02488 #undef GAN_MAT_SUB_I1
02489 #undef GAN_MAT_SUB_I2
02490 #undef GAN_MAT_DECREMENT
02491 #undef GAN_MAT_SUB_S
02492 #undef GAN_VEC_OUTER_Q
02493 #undef GAN_VEC_OUTER_S
02494 #undef GAN_MAT_MULTV_Q
02495 #undef GAN_MAT_MULTV_S
02496 #undef GAN_MAT_MULTV_I
02497 #undef GAN_MATT_MULTV_Q
02498 #undef GAN_MATT_MULTV_S
02499 #undef GAN_MATT_MULTV_I
02500 #undef GAN_MAT_LMULTM_Q
02501 #undef GAN_MAT_LMULTM_S
02502 #undef GAN_MAT_LMULTMT_Q
02503 #undef GAN_MAT_LMULTMT_S
02504 #undef GAN_MAT_RMULTM_Q
02505 #undef GAN_MAT_RMULTM_S
02506 #undef GAN_MAT_RMULTMT_Q
02507 #undef GAN_MAT_RMULTMT_S
02508 #undef GAN_MAT_LMULTMT_SYM_Q
02509 #undef GAN_MAT_LMULTMT_SYM_S
02510 #undef GAN_MAT_RMULTMT_SYM_Q
02511 #undef GAN_MAT_RMULTMT_SYM_S
02512 #undef GAN_MAT_LMULTS_Q
02513 #undef GAN_MAT_LMULTS_S
02514 #undef GAN_MAT_RMULTS_Q
02515 #undef GAN_MAT_RMULTS_S
02516 #undef GAN_SYMMATL_LRMULT_Q
02517 #undef GAN_SYMMATL_LRMULT_S
02518 #undef GAN_SYMMATR_LRMULT_Q
02519 #undef GAN_SYMMATR_LRMULT_S
02520 #undef GAN_MAT_LMULTL_Q
02521 #undef GAN_MAT_LMULTL_S
02522 #undef GAN_MAT_LMULTL_I
02523 #undef GAN_MAT_LMULTLI_Q
02524 #undef GAN_MAT_LMULTLI_S
02525 #undef GAN_MAT_LMULTLI_I
02526 #undef GAN_MAT_LMULTLT_Q
02527 #undef GAN_MAT_LMULTLT_S
02528 #undef GAN_MAT_LMULTLT_I
02529 #undef GAN_MAT_LMULTLIT_Q
02530 #undef GAN_MAT_LMULTLIT_S
02531 #undef GAN_MAT_LMULTLIT_I
02532 #undef GAN_MAT_RMULTL_Q
02533 #undef GAN_MAT_RMULTL_S
02534 #undef GAN_MAT_RMULTL_I
02535 #undef GAN_MAT_RMULTLI_Q
02536 #undef GAN_MAT_RMULTLI_S
02537 #undef GAN_MAT_RMULTLI_I
02538 #undef GAN_MAT_RMULTLT_Q
02539 #undef GAN_MAT_RMULTLT_S
02540 #undef GAN_MAT_RMULTLT_I
02541 #undef GAN_MAT_RMULTLIT_Q
02542 #undef GAN_MAT_RMULTLIT_S
02543 #undef GAN_MAT_RMULTLIT_I
02544 #undef GAN_MAT_SRMULTT_Q
02545 #undef GAN_MAT_SRMULTT_S
02546 #undef GAN_MAT_SRMULTT_I
02547 #undef GAN_MAT_SLMULTT_Q
02548 #undef GAN_MAT_SLMULTT_S
02549 #undef GAN_MAT_SLMULTT_I
02550 #undef GAN_MAT_RMULTLIT_S
02551 #undef GAN_MAT_SUMSQR_Q
02552 #undef GAN_MAT_SUMSQR_S
02553 #undef GAN_MAT_FNORM_Q
02554 #undef GAN_MAT_FNORM_S
02555 #undef GAN_MAT_FROM_MAT_Q
02556 #undef GAN_MAT_FROM_MAT_S
02557 #undef GAN_MAT_FROM_SQUMAT_Q
02558 #undef GAN_MAT_FROM_SQUMAT_S
02559 #undef GAN_SQUMAT_FROM_SQUMAT_Q
02560 #undef GAN_SQUMAT_FROM_SQUMAT_S
02561 
02562 /* declare functions specific to lower triangular 2x2 matrices */
02576 /* This library is free software; you can redistribute it and/or
02577    modify it under the terms of the GNU Lesser General Public
02578    License as published by the Free Software Foundation; either
02579    version 2.1 of the License, or (at your option) any later version.
02580 
02581    This library is distributed in the hope that it will be useful,
02582    but WITHOUT ANY WARRANTY; without even the implied warranty of
02583    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
02584    Lesser General Public License for more details.
02585 
02586    You should have received a copy of the GNU Lesser General Public
02587    License along with this library; if not, write to the Free Software
02588    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
02589 */
02590 
02591 #ifndef _GAN_2X2LTMAT_H
02592 
02608  Gan_SquMatrix22 *gan_ltmat22_fill_q ( Gan_SquMatrix22 *A, double XX,
02609                                       double YX, double YY );
02610 
02616 #endif /* #ifndef _GAN_2X2LTMAT_H */
02617 
02618 #define GAN_MATTYPE Gan_SquMatrix22
02619 #define GAN_MATRIX_TYPE Gan_SquMatrix
02620 #define GAN_SQUMATRIX_TYPE Gan_SquMatrix
02621 #define GAN_VECTOR_TYPE Gan_Vector
02622 #define GAN_MAT_ELEMENT_TYPE GAN_DOUBLE
02623 #define GAN_REALTYPE double
02624 #define GAN_FWRITE_LENDIAN gan_fwrite_lendian_f64
02625 #define GAN_FREAD_LENDIAN  gan_fread_lendian_f64
02626 #define GAN_VECTYPE1 Gan_Vector2
02627 #define GAN_VECTYPE2 Gan_Vector2
02628 #define GAN_SQUMATTYPEL Gan_SquMatrix22
02629 #define GAN_SQUMATTYPER Gan_SquMatrix22
02630 #define GAN_FIXED_MATRIX_TYPE GAN_LOWER_TRI_MATRIX22
02631 #define GAN_MAT_FPRINT     gan_ltmat22_fprint
02632 #define GAN_MAT_PRINT      gan_ltmat22_print
02633 #define GAN_MAT_FSCANF     gan_ltmat22_fscanf
02634 #define GAN_MAT_FWRITE     gan_ltmat22_fwrite
02635 #define GAN_MAT_FREAD      gan_ltmat22_fread
02636 #define GAN_MAT_ZERO_Q     gan_ltmat22_zero_q
02637 #define GAN_MAT_ZERO_S     gan_ltmat22_zero_s
02638 #define GAN_MAT_COPY_Q     gan_ltmat22_copy_q
02639 #define GAN_MAT_COPY_S     gan_ltmat22_copy_s
02640 #define GAN_MAT_SCALE_Q    gan_ltmat22_scale_q
02641 #define GAN_MAT_SCALE_S    gan_ltmat22_scale_s
02642 #define GAN_MAT_SCALE_I    gan_ltmat22_scale_i
02643 #define GAN_MAT_DIVIDE_Q   gan_ltmat22_divide_q
02644 #define GAN_MAT_DIVIDE_S   gan_ltmat22_divide_s
02645 #define GAN_MAT_DIVIDE_I   gan_ltmat22_divide_i
02646 #define GAN_MAT_NEGATE_Q   gan_ltmat22_negate_q
02647 #define GAN_MAT_NEGATE_S   gan_ltmat22_negate_s
02648 #define GAN_MAT_NEGATE_I   gan_ltmat22_negate_i
02649 #define GAN_MAT_UNIT_Q     gan_ltmat22_unit_q
02650 #define GAN_MAT_UNIT_S     gan_ltmat22_unit_s
02651 #define GAN_MAT_UNIT_I     gan_ltmat22_unit_i
02652 #define GAN_MAT_ADD_Q      gan_ltmat22_add_q
02653 #define GAN_MAT_ADD_I1     gan_ltmat22_add_i1
02654 #define GAN_MAT_ADD_I2     gan_ltmat22_add_i2
02655 #define GAN_MAT_INCREMENT  gan_ltmat22_increment
02656 #define GAN_MAT_ADD_S      gan_ltmat22_add_s
02657 #define GAN_MAT_SUB_Q      gan_ltmat22_sub_q
02658 #define GAN_MAT_SUB_I1     gan_ltmat22_sub_i1
02659 #define GAN_MAT_SUB_I2     gan_ltmat22_sub_i2
02660 #define GAN_MAT_DECREMENT  gan_ltmat22_decrement
02661 #define GAN_MAT_SUB_S      gan_ltmat22_sub_s
02662 #define GAN_MAT_MULTV_Q    gan_ltmat22_multv2_q
02663 #define GAN_MAT_MULTV_S    gan_ltmat22_multv2_s
02664 #define GAN_MAT_MULTV_I    gan_ltmat22_multv2_i
02665 #define GAN_MATT_MULTV_Q   gan_ltmat22T_multv2_q
02666 #define GAN_MATT_MULTV_S   gan_ltmat22T_multv2_s
02667 #define GAN_MATT_MULTV_I   gan_ltmat22T_multv2_i
02668 #define GAN_MAT_SRMULTT_Q  gan_ltmat22_srmultT_q
02669 #define GAN_MAT_SRMULTT_S  gan_ltmat22_srmultT_s
02670 #define GAN_MAT_SRMULTT_I  gan_ltmat22_srmultT_i
02671 #define GAN_MAT_SLMULTT_Q  gan_ltmat22_slmultT_q
02672 #define GAN_MAT_SLMULTT_S  gan_ltmat22_slmultT_s
02673 #define GAN_MAT_SLMULTT_I  gan_ltmat22_slmultT_i
02674 #define GAN_MAT_SUMSQR_Q   gan_ltmat22_sumsqr_q
02675 #define GAN_MAT_SUMSQR_S   gan_ltmat22_sumsqr_s
02676 #define GAN_MAT_FNORM_Q    gan_ltmat22_Fnorm_q
02677 #define GAN_MAT_FNORM_S    gan_ltmat22_Fnorm_s
02678 
02679 #define GAN_SQUMAT_IDENT_Q    gan_ltmat22_ident_q
02680 #define GAN_SQUMAT_IDENT_S    gan_ltmat22_ident_s
02681 #define GAN_SQUMATI_MULTV_Q   gan_ltmat22I_multv2_q
02682 #define GAN_SQUMATI_MULTV_S   gan_ltmat22I_multv2_s
02683 #define GAN_SQUMATI_MULTV_I   gan_ltmat22I_multv2_i
02684 #define GAN_SQUMATIT_MULTV_Q  gan_ltmat22IT_multv2_q
02685 #define GAN_SQUMATIT_MULTV_S  gan_ltmat22IT_multv2_s
02686 #define GAN_SQUMATIT_MULTV_I  gan_ltmat22IT_multv2_i
02687 #define GAN_SQUMAT_INVERT     gan_ltmat22_invert
02688 #define GAN_SQUMAT_INVERT_Q   gan_ltmat22_invert_q
02689 #define GAN_SQUMAT_INVERT_S   gan_ltmat22_invert_s
02690 #define GAN_SQUMAT_INVERT_I   gan_ltmat22_invert_i
02691 #define GAN_SQUMAT_DET_Q      gan_ltmat22_det_q
02692 #define GAN_SQUMAT_DET_S      gan_ltmat22_det_s
02693 #define GAN_SQUMAT_TRACE_Q    gan_ltmat22_trace_q
02694 #define GAN_SQUMAT_TRACE_S    gan_ltmat22_trace_s
02695 
02696 #ifndef _GAN_2X2LTMAT_H
02697 #define _GAN_2X2LTMAT_H
02698 
02699 
02700 #endif /* #ifndef _GAN_2X2LTMAT_H */
02701 
02714 /* This library is free software; you can redistribute it and/or
02715    modify it under the terms of the GNU Lesser General Public
02716    License as published by the Free Software Foundation; either
02717    version 2.1 of the License, or (at your option) any later version.
02718 
02719    This library is distributed in the hope that it will be useful,
02720    but WITHOUT ANY WARRANTY; without even the implied warranty of
02721    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
02722    Lesser General Public License for more details.
02723 
02724    You should have received a copy of the GNU Lesser General Public
02725    License along with this library; if not, write to the Free Software
02726    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
02727 */
02728 
02729 /* function declarations for functions common to all small square matrix
02730  * types */
02731 
02732 
02733 
02734 /* documentation for macros defined in individual header files */
02735 
02748  Gan_SquMatrix22 *gan_ltmat22_ident_q ( Gan_SquMatrix22 *A );
02749 
02787  Gan_Vector2 *gan_ltmat22I_multv2_q ( const Gan_SquMatrix22 *A, Gan_Vector2 *p,
02788                                     Gan_Vector2 *q );
02789 
02798  Gan_Vector2 *gan_ltmat22I_multv2_i ( const Gan_SquMatrix22 *A, Gan_Vector2 *p );
02799 
02808  Gan_Vector2 *gan_ltmat22IT_multv2_q ( const Gan_SquMatrix22 *A, Gan_Vector2 *p,
02809                                      Gan_Vector2 *q );
02810 
02819  Gan_Vector2 *gan_ltmat22IT_multv2_i ( const Gan_SquMatrix22 *A, Gan_Vector2 *p );
02820 
02838  Gan_SquMatrix22 *gan_ltmat22_invert_q ( Gan_SquMatrix22 *A, Gan_SquMatrix22 *B );
02839 
02848  Gan_SquMatrix22 *gan_ltmat22_invert_i ( Gan_SquMatrix22 *A );
02849 
02864  double gan_ltmat22_det_q ( const Gan_SquMatrix22 *A );
02865 
02871  double gan_ltmat22_trace_q ( const Gan_SquMatrix22 *A );
02872 
02878 #undef GAN_SQUMAT_IDENT_Q
02879 #undef GAN_SQUMAT_IDENT_S
02880 #undef GAN_SQUMAT_TPOSE_Q
02881 #undef GAN_SQUMAT_TPOSE_S
02882 #undef GAN_SQUMAT_TPOSE_I
02883 #undef GAN_MAT_SADDT_Q
02884 #undef GAN_MAT_SADDT_S
02885 #undef GAN_SQUMATI_MULTV_Q
02886 #undef GAN_SQUMATI_MULTV_S
02887 #undef GAN_SQUMATI_MULTV_I
02888 #undef GAN_SQUMATIT_MULTV_Q
02889 #undef GAN_SQUMATIT_MULTV_S
02890 #undef GAN_SQUMATIT_MULTV_I
02891 #undef GAN_SQUMAT_INVERT
02892 #undef GAN_SQUMAT_INVERT_Q
02893 #undef GAN_SQUMAT_INVERT_S
02894 #undef GAN_SQUMAT_INVERT_I
02895 #undef GAN_SQUMAT_ADJOINT_Q
02896 #undef GAN_SQUMAT_ADJOINT_S
02897 #undef GAN_SQUMAT_ADJOINTT_Q
02898 #undef GAN_SQUMAT_ADJOINTT_S
02899 #undef GAN_SQUMAT_DET_Q
02900 #undef GAN_SQUMAT_DET_S
02901 #undef GAN_SQUMAT_TRACE_Q
02902 #undef GAN_SQUMAT_TRACE_S
02903 
02916 /* This library is free software; you can redistribute it and/or
02917    modify it under the terms of the GNU Lesser General Public
02918    License as published by the Free Software Foundation; either
02919    version 2.1 of the License, or (at your option) any later version.
02920 
02921    This library is distributed in the hope that it will be useful,
02922    but WITHOUT ANY WARRANTY; without even the implied warranty of
02923    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
02924    Lesser General Public License for more details.
02925 
02926    You should have received a copy of the GNU Lesser General Public
02927    License along with this library; if not, write to the Free Software
02928    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
02929 */
02930 
02931 /* function declarations for functions common to all small vector types */
02932 
02933 
02934 
02935 /* documentation for macros defined in individual header files */
02936 
02947  Gan_SquMatrix22 *gan_ltmat22_zero_q ( const Gan_SquMatrix22 *A );
02948 
02965  Gan_SquMatrix22 *gan_ltmat22_copy_q ( Gan_SquMatrix22 *A, Gan_SquMatrix22 *B );
02966 
02984  Gan_SquMatrix22 *gan_ltmat22_scale_q ( Gan_SquMatrix22 *A, double a,
02985                                Gan_SquMatrix22 *B );
02986 
02994  Gan_SquMatrix22 *gan_ltmat22_scale_i ( Gan_SquMatrix22 *A, double a );
02995 
03004  Gan_SquMatrix22 *gan_ltmat22_divide_q ( Gan_SquMatrix22 *A, double a,
03005                                 Gan_SquMatrix22 *B );
03006 
03014  Gan_SquMatrix22 *gan_ltmat22_divide_i ( Gan_SquMatrix22 *A, double a );
03015 
03023  Gan_SquMatrix22 *gan_ltmat22_negate_q ( Gan_SquMatrix22 *A, Gan_SquMatrix22 *B );
03024 
03032  Gan_SquMatrix22 *gan_ltmat22_negate_i ( Gan_SquMatrix22 *A );
03033 
03041  Gan_SquMatrix22 *gan_ltmat22_unit_i ( Gan_SquMatrix22 *A );
03042 
03060  Gan_SquMatrix22 *gan_ltmat22_add_q ( Gan_SquMatrix22 *A, Gan_SquMatrix22 *B, Gan_SquMatrix22 *C );
03061 
03070  Gan_SquMatrix22 *gan_ltmat22_add_i1 ( Gan_SquMatrix22 *A, Gan_SquMatrix22 *B );
03071 
03080  Gan_SquMatrix22 *gan_ltmat22_add_i2 ( Gan_SquMatrix22 *A, Gan_SquMatrix22 *B );
03081 
03090  Gan_SquMatrix22 *gan_ltmat22_increment ( Gan_SquMatrix22 *A, Gan_SquMatrix22 *B );
03091 
03109  Gan_SquMatrix22 *gan_ltmat22_sub_q ( Gan_SquMatrix22 *A, Gan_SquMatrix22 *B, Gan_SquMatrix22 *C );
03110 
03119  Gan_SquMatrix22 *gan_ltmat22_sub_i1 ( Gan_SquMatrix22 *A, Gan_SquMatrix22 *B );
03120 
03129  Gan_SquMatrix22 *gan_ltmat22_sub_i2 ( Gan_SquMatrix22 *A, Gan_SquMatrix22 *B );
03130 
03139  Gan_SquMatrix22 *gan_ltmat22_decrement ( Gan_SquMatrix22 *A, Gan_SquMatrix22 *B );
03140 
03159  Gan_Vector2 *gan_ltmat22_multv2_q ( const Gan_SquMatrix22 *A, Gan_Vector2 *p,
03160                                 Gan_Vector2 *q );
03161 
03170  Gan_Vector2 *gan_ltmat22_multv2_i ( const Gan_SquMatrix22 *A, Gan_Vector2 *p );
03171 
03180  Gan_Vector2 *gan_ltmat22T_multv2_q ( const Gan_SquMatrix22 *A, Gan_Vector2 *p,
03181                                  Gan_Vector2 *q );
03182 
03191  Gan_Vector2 *gan_ltmat22T_multv2_i ( const Gan_SquMatrix22 *A, Gan_Vector2 *p );
03192 
03254  Gan_SquMatrix22 *gan_ltmat22_slmultT_q ( Gan_SquMatrix22 *A, const Gan_SquMatrix22 *B );
03255 
03265  Gan_SquMatrix22 *gan_ltmat22_slmultT_i ( Gan_SquMatrix22 *A );
03266 
03275  Gan_SquMatrix22 *gan_ltmat22_srmultT_q ( const Gan_SquMatrix22 *A, Gan_SquMatrix22 *B );
03276 
03286  Gan_SquMatrix22 *gan_ltmat22_srmultT_i ( Gan_SquMatrix22 *A );
03287 
03302  double gan_ltmat22_sumsqr_q ( const Gan_SquMatrix22 *A );
03303 
03310  double gan_ltmat22_Fnorm_q ( const Gan_SquMatrix22 *A );
03311 
03342 /* This library is free software; you can redistribute it and/or
03343    modify it under the terms of the GNU Lesser General Public
03344    License as published by the Free Software Foundation; either
03345    version 2.1 of the License, or (at your option) any later version.
03346 
03347    This library is distributed in the hope that it will be useful,
03348    but WITHOUT ANY WARRANTY; without even the implied warranty of
03349    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
03350    Lesser General Public License for more details.
03351 
03352    You should have received a copy of the GNU Lesser General Public
03353    License along with this library; if not, write to the Free Software
03354    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
03355 */
03356 
03357 #undef GAN_MATTYPE
03358 #undef GAN_MATRIX_TYPE
03359 #undef GAN_SQUMATRIX_TYPE
03360 #undef GAN_VECTOR_TYPE
03361 #undef GAN_MAT_ELEMENT_TYPE
03362 #undef GAN_REALTYPE
03363 #undef GAN_FWRITE_LENDIAN
03364 #undef GAN_FREAD_LENDIAN
03365 #undef GAN_VECTYPE1
03366 #undef GAN_VECTYPE2
03367 #undef GAN_MATTYPEL
03368 #undef GAN_MATTYPER
03369 #undef GAN_SQUMATTYPEL
03370 #undef GAN_SQUMATTYPER
03371 #undef GAN_FIXED_MATRIX_TYPE
03372 #undef GAN_MAT_FPRINT
03373 #undef GAN_MAT_PRINT
03374 #undef GAN_MAT_FSCANF
03375 #undef GAN_MAT_FWRITE
03376 #undef GAN_MAT_FREAD
03377 #undef GAN_MAT_ZERO_Q
03378 #undef GAN_MAT_ZERO_S
03379 #undef GAN_MAT_COPY_Q
03380 #undef GAN_MAT_COPY_S
03381 #undef GAN_MAT_SCALE_Q
03382 #undef GAN_MAT_SCALE_S
03383 #undef GAN_MAT_SCALE_I
03384 #undef GAN_MAT_DIVIDE_Q
03385 #undef GAN_MAT_DIVIDE_S
03386 #undef GAN_MAT_DIVIDE_I
03387 #undef GAN_MAT_NEGATE_Q
03388 #undef GAN_MAT_NEGATE_S
03389 #undef GAN_MAT_NEGATE_I
03390 #undef GAN_MAT_UNIT_Q
03391 #undef GAN_MAT_UNIT_S
03392 #undef GAN_MAT_UNIT_I
03393 #undef GAN_MAT_ADD_Q
03394 #undef GAN_MAT_ADD_I1
03395 #undef GAN_MAT_ADD_I2
03396 #undef GAN_MAT_INCREMENT
03397 #undef GAN_MAT_ADD_S
03398 #undef GAN_MAT_SUB_Q
03399 #undef GAN_MAT_SUB_I1
03400 #undef GAN_MAT_SUB_I2
03401 #undef GAN_MAT_DECREMENT
03402 #undef GAN_MAT_SUB_S
03403 #undef GAN_VEC_OUTER_Q
03404 #undef GAN_VEC_OUTER_S
03405 #undef GAN_MAT_MULTV_Q
03406 #undef GAN_MAT_MULTV_S
03407 #undef GAN_MAT_MULTV_I
03408 #undef GAN_MATT_MULTV_Q
03409 #undef GAN_MATT_MULTV_S
03410 #undef GAN_MATT_MULTV_I
03411 #undef GAN_MAT_LMULTM_Q
03412 #undef GAN_MAT_LMULTM_S
03413 #undef GAN_MAT_LMULTMT_Q
03414 #undef GAN_MAT_LMULTMT_S
03415 #undef GAN_MAT_RMULTM_Q
03416 #undef GAN_MAT_RMULTM_S
03417 #undef GAN_MAT_RMULTMT_Q
03418 #undef GAN_MAT_RMULTMT_S
03419 #undef GAN_MAT_LMULTMT_SYM_Q
03420 #undef GAN_MAT_LMULTMT_SYM_S
03421 #undef GAN_MAT_RMULTMT_SYM_Q
03422 #undef GAN_MAT_RMULTMT_SYM_S
03423 #undef GAN_MAT_LMULTS_Q
03424 #undef GAN_MAT_LMULTS_S
03425 #undef GAN_MAT_RMULTS_Q
03426 #undef GAN_MAT_RMULTS_S
03427 #undef GAN_SYMMATL_LRMULT_Q
03428 #undef GAN_SYMMATL_LRMULT_S
03429 #undef GAN_SYMMATR_LRMULT_Q
03430 #undef GAN_SYMMATR_LRMULT_S
03431 #undef GAN_MAT_LMULTL_Q
03432 #undef GAN_MAT_LMULTL_S
03433 #undef GAN_MAT_LMULTL_I
03434 #undef GAN_MAT_LMULTLI_Q
03435 #undef GAN_MAT_LMULTLI_S
03436 #undef GAN_MAT_LMULTLI_I
03437 #undef GAN_MAT_LMULTLT_Q
03438 #undef GAN_MAT_LMULTLT_S
03439 #undef GAN_MAT_LMULTLT_I
03440 #undef GAN_MAT_LMULTLIT_Q
03441 #undef GAN_MAT_LMULTLIT_S
03442 #undef GAN_MAT_LMULTLIT_I
03443 #undef GAN_MAT_RMULTL_Q
03444 #undef GAN_MAT_RMULTL_S
03445 #undef GAN_MAT_RMULTL_I
03446 #undef GAN_MAT_RMULTLI_Q
03447 #undef GAN_MAT_RMULTLI_S
03448 #undef GAN_MAT_RMULTLI_I
03449 #undef GAN_MAT_RMULTLT_Q
03450 #undef GAN_MAT_RMULTLT_S
03451 #undef GAN_MAT_RMULTLT_I
03452 #undef GAN_MAT_RMULTLIT_Q
03453 #undef GAN_MAT_RMULTLIT_S
03454 #undef GAN_MAT_RMULTLIT_I
03455 #undef GAN_MAT_SRMULTT_Q
03456 #undef GAN_MAT_SRMULTT_S
03457 #undef GAN_MAT_SRMULTT_I
03458 #undef GAN_MAT_SLMULTT_Q
03459 #undef GAN_MAT_SLMULTT_S
03460 #undef GAN_MAT_SLMULTT_I
03461 #undef GAN_MAT_RMULTLIT_S
03462 #undef GAN_MAT_SUMSQR_Q
03463 #undef GAN_MAT_SUMSQR_S
03464 #undef GAN_MAT_FNORM_Q
03465 #undef GAN_MAT_FNORM_S
03466 #undef GAN_MAT_FROM_MAT_Q
03467 #undef GAN_MAT_FROM_MAT_S
03468 #undef GAN_MAT_FROM_SQUMAT_Q
03469 #undef GAN_MAT_FROM_SQUMAT_S
03470 #undef GAN_SQUMAT_FROM_SQUMAT_Q
03471 #undef GAN_SQUMAT_FROM_SQUMAT_S
03472 
03473 /* declare functions specific to upper triangular 2x2 matrices */
03487 /* This library is free software; you can redistribute it and/or
03488    modify it under the terms of the GNU Lesser General Public
03489    License as published by the Free Software Foundation; either
03490    version 2.1 of the License, or (at your option) any later version.
03491 
03492    This library is distributed in the hope that it will be useful,
03493    but WITHOUT ANY WARRANTY; without even the implied warranty of
03494    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
03495    Lesser General Public License for more details.
03496 
03497    You should have received a copy of the GNU Lesser General Public
03498    License along with this library; if not, write to the Free Software
03499    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
03500 */
03501 
03502 #define GAN_MATTYPE Gan_SquMatrix22
03503 #define GAN_MATRIX_TYPE Gan_SquMatrix
03504 #define GAN_SQUMATRIX_TYPE Gan_SquMatrix
03505 #define GAN_VECTOR_TYPE Gan_Vector
03506 #define GAN_MAT_ELEMENT_TYPE GAN_DOUBLE
03507 #define GAN_REALTYPE double
03508 #define GAN_MAT_FPRINT   gan_ltmat22T_fprint
03509 #define GAN_MAT_PRINT    gan_ltmat22T_print
03510 #define GAN_MAT_FSCANF   gan_ltmat22T_fscanf
03511 #define GAN_FIXED_MATRIX_TYPE GAN_LOWER_TRI_MATRIX22
03512 
03513 #define gan_ltmat22T_fwrite gan_ltmat22_fwrite
03514 #define gan_ltmat22T_fread  gan_ltmat22_fread
03515 
03528 /* This library is free software; you can redistribute it and/or
03529    modify it under the terms of the GNU Lesser General Public
03530    License as published by the Free Software Foundation; either
03531    version 2.1 of the License, or (at your option) any later version.
03532 
03533    This library is distributed in the hope that it will be useful,
03534    but WITHOUT ANY WARRANTY; without even the implied warranty of
03535    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
03536    Lesser General Public License for more details.
03537 
03538    You should have received a copy of the GNU Lesser General Public
03539    License along with this library; if not, write to the Free Software
03540    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
03541 */
03542 
03543 /* function declarations for functions common to all small square matrix
03544  * types */
03545 
03546 
03547 
03548 /* documentation for macros defined in individual header files */
03549 
03616 #undef GAN_SQUMAT_IDENT_Q
03617 #undef GAN_SQUMAT_IDENT_S
03618 #undef GAN_SQUMAT_TPOSE_Q
03619 #undef GAN_SQUMAT_TPOSE_S
03620 #undef GAN_SQUMAT_TPOSE_I
03621 #undef GAN_MAT_SADDT_Q
03622 #undef GAN_MAT_SADDT_S
03623 #undef GAN_SQUMATI_MULTV_Q
03624 #undef GAN_SQUMATI_MULTV_S
03625 #undef GAN_SQUMATI_MULTV_I
03626 #undef GAN_SQUMATIT_MULTV_Q
03627 #undef GAN_SQUMATIT_MULTV_S
03628 #undef GAN_SQUMATIT_MULTV_I
03629 #undef GAN_SQUMAT_INVERT
03630 #undef GAN_SQUMAT_INVERT_Q
03631 #undef GAN_SQUMAT_INVERT_S
03632 #undef GAN_SQUMAT_INVERT_I
03633 #undef GAN_SQUMAT_ADJOINT_Q
03634 #undef GAN_SQUMAT_ADJOINT_S
03635 #undef GAN_SQUMAT_ADJOINTT_Q
03636 #undef GAN_SQUMAT_ADJOINTT_S
03637 #undef GAN_SQUMAT_DET_Q
03638 #undef GAN_SQUMAT_DET_S
03639 #undef GAN_SQUMAT_TRACE_Q
03640 #undef GAN_SQUMAT_TRACE_S
03641 
03654 /* This library is free software; you can redistribute it and/or
03655    modify it under the terms of the GNU Lesser General Public
03656    License as published by the Free Software Foundation; either
03657    version 2.1 of the License, or (at your option) any later version.
03658 
03659    This library is distributed in the hope that it will be useful,
03660    but WITHOUT ANY WARRANTY; without even the implied warranty of
03661    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
03662    Lesser General Public License for more details.
03663 
03664    You should have received a copy of the GNU Lesser General Public
03665    License along with this library; if not, write to the Free Software
03666    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
03667 */
03668 
03669 /* function declarations for functions common to all small vector types */
03670 
03671 
03672 
03673 /* documentation for macros defined in individual header files */
03674 
03845 /* This library is free software; you can redistribute it and/or
03846    modify it under the terms of the GNU Lesser General Public
03847    License as published by the Free Software Foundation; either
03848    version 2.1 of the License, or (at your option) any later version.
03849 
03850    This library is distributed in the hope that it will be useful,
03851    but WITHOUT ANY WARRANTY; without even the implied warranty of
03852    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
03853    Lesser General Public License for more details.
03854 
03855    You should have received a copy of the GNU Lesser General Public
03856    License along with this library; if not, write to the Free Software
03857    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
03858 */
03859 
03860 #undef GAN_MATTYPE
03861 #undef GAN_MATRIX_TYPE
03862 #undef GAN_SQUMATRIX_TYPE
03863 #undef GAN_VECTOR_TYPE
03864 #undef GAN_MAT_ELEMENT_TYPE
03865 #undef GAN_REALTYPE
03866 #undef GAN_FWRITE_LENDIAN
03867 #undef GAN_FREAD_LENDIAN
03868 #undef GAN_VECTYPE1
03869 #undef GAN_VECTYPE2
03870 #undef GAN_MATTYPEL
03871 #undef GAN_MATTYPER
03872 #undef GAN_SQUMATTYPEL
03873 #undef GAN_SQUMATTYPER
03874 #undef GAN_FIXED_MATRIX_TYPE
03875 #undef GAN_MAT_FPRINT
03876 #undef GAN_MAT_PRINT
03877 #undef GAN_MAT_FSCANF
03878 #undef GAN_MAT_FWRITE
03879 #undef GAN_MAT_FREAD
03880 #undef GAN_MAT_ZERO_Q
03881 #undef GAN_MAT_ZERO_S
03882 #undef GAN_MAT_COPY_Q
03883 #undef GAN_MAT_COPY_S
03884 #undef GAN_MAT_SCALE_Q
03885 #undef GAN_MAT_SCALE_S
03886 #undef GAN_MAT_SCALE_I
03887 #undef GAN_MAT_DIVIDE_Q
03888 #undef GAN_MAT_DIVIDE_S
03889 #undef GAN_MAT_DIVIDE_I
03890 #undef GAN_MAT_NEGATE_Q
03891 #undef GAN_MAT_NEGATE_S
03892 #undef GAN_MAT_NEGATE_I
03893 #undef GAN_MAT_UNIT_Q
03894 #undef GAN_MAT_UNIT_S
03895 #undef GAN_MAT_UNIT_I
03896 #undef GAN_MAT_ADD_Q
03897 #undef GAN_MAT_ADD_I1
03898 #undef GAN_MAT_ADD_I2
03899 #undef GAN_MAT_INCREMENT
03900 #undef GAN_MAT_ADD_S
03901 #undef GAN_MAT_SUB_Q
03902 #undef GAN_MAT_SUB_I1
03903 #undef GAN_MAT_SUB_I2
03904 #undef GAN_MAT_DECREMENT
03905 #undef GAN_MAT_SUB_S
03906 #undef GAN_VEC_OUTER_Q
03907 #undef GAN_VEC_OUTER_S
03908 #undef GAN_MAT_MULTV_Q
03909 #undef GAN_MAT_MULTV_S
03910 #undef GAN_MAT_MULTV_I
03911 #undef GAN_MATT_MULTV_Q
03912 #undef GAN_MATT_MULTV_S
03913 #undef GAN_MATT_MULTV_I
03914 #undef GAN_MAT_LMULTM_Q
03915 #undef GAN_MAT_LMULTM_S
03916 #undef GAN_MAT_LMULTMT_Q
03917 #undef GAN_MAT_LMULTMT_S
03918 #undef GAN_MAT_RMULTM_Q
03919 #undef GAN_MAT_RMULTM_S
03920 #undef GAN_MAT_RMULTMT_Q
03921 #undef GAN_MAT_RMULTMT_S
03922 #undef GAN_MAT_LMULTMT_SYM_Q
03923 #undef GAN_MAT_LMULTMT_SYM_S
03924 #undef GAN_MAT_RMULTMT_SYM_Q
03925 #undef GAN_MAT_RMULTMT_SYM_S
03926 #undef GAN_MAT_LMULTS_Q
03927 #undef GAN_MAT_LMULTS_S
03928 #undef GAN_MAT_RMULTS_Q
03929 #undef GAN_MAT_RMULTS_S
03930 #undef GAN_SYMMATL_LRMULT_Q
03931 #undef GAN_SYMMATL_LRMULT_S
03932 #undef GAN_SYMMATR_LRMULT_Q
03933 #undef GAN_SYMMATR_LRMULT_S
03934 #undef GAN_MAT_LMULTL_Q
03935 #undef GAN_MAT_LMULTL_S
03936 #undef GAN_MAT_LMULTL_I
03937 #undef GAN_MAT_LMULTLI_Q
03938 #undef GAN_MAT_LMULTLI_S
03939 #undef GAN_MAT_LMULTLI_I
03940 #undef GAN_MAT_LMULTLT_Q
03941 #undef GAN_MAT_LMULTLT_S
03942 #undef GAN_MAT_LMULTLT_I
03943 #undef GAN_MAT_LMULTLIT_Q
03944 #undef GAN_MAT_LMULTLIT_S
03945 #undef GAN_MAT_LMULTLIT_I
03946 #undef GAN_MAT_RMULTL_Q
03947 #undef GAN_MAT_RMULTL_S
03948 #undef GAN_MAT_RMULTL_I
03949 #undef GAN_MAT_RMULTLI_Q
03950 #undef GAN_MAT_RMULTLI_S
03951 #undef GAN_MAT_RMULTLI_I
03952 #undef GAN_MAT_RMULTLT_Q
03953 #undef GAN_MAT_RMULTLT_S
03954 #undef GAN_MAT_RMULTLT_I
03955 #undef GAN_MAT_RMULTLIT_Q
03956 #undef GAN_MAT_RMULTLIT_S
03957 #undef GAN_MAT_RMULTLIT_I
03958 #undef GAN_MAT_SRMULTT_Q
03959 #undef GAN_MAT_SRMULTT_S
03960 #undef GAN_MAT_SRMULTT_I
03961 #undef GAN_MAT_SLMULTT_Q
03962 #undef GAN_MAT_SLMULTT_S
03963 #undef GAN_MAT_SLMULTT_I
03964 #undef GAN_MAT_RMULTLIT_S
03965 #undef GAN_MAT_SUMSQR_Q
03966 #undef GAN_MAT_SUMSQR_S
03967 #undef GAN_MAT_FNORM_Q
03968 #undef GAN_MAT_FNORM_S
03969 #undef GAN_MAT_FROM_MAT_Q
03970 #undef GAN_MAT_FROM_MAT_S
03971 #undef GAN_MAT_FROM_SQUMAT_Q
03972 #undef GAN_MAT_FROM_SQUMAT_S
03973 #undef GAN_SQUMAT_FROM_SQUMAT_Q
03974 #undef GAN_SQUMAT_FROM_SQUMAT_S
03975 
03988 #ifdef __cplusplus
03989 }
03990 #endif
03991 
03992 #endif /* #ifndef _GAN_2X2MATRIX_H */
Generated on Fri Mar 17 12:44:46 2006 by  doxygen 1.3.9.1