Linear Algebra and the C Language/a0aw

__NOTOC__ Install and compile this file in your working directory. /* ------------------------------------ */ /* Save as : c00k.c */ /* ------------------------------------ */ #include "v_a.h" /* ------------------------------------ */ void fun(int r) { double **u = r_mR( i_mR(r,C1),9.); double **v = r_mR( i_mR(r,C1),9.); clrscrn(); printf(" u :"); p_mR(u,S3,P0,C6); printf(" v :"); p_mR(v,S3,P0,C6); printf(" Cauchy-Schwarz : |<u,v>| <= ||u|| ||v|| \n\n" " |<u,v>| = %+.0f\t ||u|| ||v|| = %+.0f\n\n\n" " |<u,v>|\t <= ||u|| ||v|| \n" " %+.0f\t <= %+.0f \n", fabs( dot_R(u, v)), norm_R(u) * norm_R(v), fabs( dot_R(u, v)), norm_R(u) * norm_R(v) ); f_mR(u); f_mR(v); } /* ------------------------------------ */ int main(void) { time_t t; srand(time(&t)); do { fun(rp_I(R3)+R2); } while(stop_w()); return 0; } /* ------------------------------------ */ /* ------------------------------------ */ Screen output example: u : -3 -1 +7 +8 -6 v : -6 +3 +9 +8 +5 Cauchy-Schwarz : |<u,v>| <= ||u|| ||v|| |<u,v>| = +112 ||u|| ||v|| = +185 |<u,v>| <= ||u|| ||v|| +112 <= +185 Press return to continue Press X return to stop