Linear Algebra and the C Language/a0as

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