Linear Algebra and the C Language/a0at

__NOTOC__ Install and compile this file in your working directory. /* ------------------------------------ */ /* Save as : c00g.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.); double **w = r_mR(i_mR(r,C1),9.); double **vmnsw = i_mR(r,C1); clrscrn(); printf(" u :"); p_mR(u,S3,P0,C6); printf(" v :"); p_mR(v,S3,P0,C6); printf(" v-w :"); p_mR(sub_mR(v,w,vmnsw),S3,P0,C6); stop(); clrscrn(); printf(" <u,v-w> = <u,v>-<u,w> \n\n"); printf(" <u,v-w> = %.0f \n", dot_R(u,vmnsw)); printf(" <u,v>-<u,w> = %.0f \n\n", dot_R(u,v)-dot_R(u,w)); f_mR(u); f_mR(v); f_mR(w); f_mR(vmnsw); } /* ------------------------------------ */ int main(void) { time_t t; srand(time(&t)); do { fun(rp_I(R3)+R2); } while(stop_w()); return 0; } /* ------------------------------------ */ /* ------------------------------------ */ Screen output example: u : +5 +6 +1 +4 -4 v : -4 +6 +7 -5 +7 v-w : -3 -2 +0 -8 +6 Press return to continue. <u,v-w> = <u,v>-<u,w> <u,v-w> = -83 <u,v>-<u,w> = -83 Press return to continue Press X return to stop