00001 #ifndef H_EGSL_MACROS 00002 #define H_EGSL_MACROS 00003 00004 #include "egsl.h" 00005 00006 #define atv(v,i) egsl_atv(v,i) 00007 #define atm(v,i,j) egsl_atm(v,i,j) 00008 #define sub(v1,v2) egsl_sub(v1,v2) 00009 #define minus(v) egsl_scale(-1.0,v) 00010 #define sum(v1,v2) egsl_sum(v1,v2) 00011 #define sum3(v1,v2,v3) egsl_sum(v1,egsl_sum(v2,v3)) 00012 #define tr(v) egsl_transpose(v) 00013 #define m(v1,v2) egsl_mult(v1,v2) 00014 #define m3(v1,v2,v3) egsl_mult(v1,egsl_mult(v2,v3)) 00015 #define m4(v1,v2,v3,v4) egsl_mult(v1,egsl_mult(v2,egsl_mult(v3,v4))) 00016 #define comp_col(v1,v2) egsl_compose_col(v1,v2) 00017 #define comp_row(v1,v2) egsl_compose_row(v1,v2) 00018 00019 #define zeros(rows,cols) egsl_zeros(rows,cols) 00020 #define ones(rows,cols) egsl_ones(rows,cols) 00021 #define vers(th) egsl_vers(th) 00022 #define rot(theta) egsl_rot(theta) 00023 00024 #define sc(d,v) egsl_scale(d, v) 00025 #define add_to(v1,v2) egsl_add_to(v1, v2) 00026 #define add_to_col(v1,j,v2) egsl_add_to_col(v1, j, v2) 00027 #define inv(v) egsl_inverse(v) 00028 00029 00030 #endif