Mathc matrices/a131

Application

Installer ces fichiers dans votre répertoire de travail.

Ce fichier est spécifique pour ce travail. Il ne doit pas être conservé avec la bibliothèque..'.

	d_gpuv.h

/* ------------------------------------ */
/*  Save as :   d_gpuv.h                */
/* ------------------------------------ */
void G_p_uv_mR(
W_Ctrl   w,
double **A,
double **B,
double **P
)
{
FILE *fp;
int c;

        fp = fopen("a_main.plt","w");
fprintf(fp,"set zeroaxis\n"
           "set size ratio -1\n"
             " plot[%0.3f:%0.3f] [%0.3f:%0.3f]\\\n"
             " \"aU\" with line   lt 6 lw 3,\\\n"
             " \"aV\" with line   lt 9 lw 3,\\\n"
             " \"aP\" with linesp lt 7 ps 1\n",
             w.xmini,w.xmaxi,w.ymini,w.ymaxi);
 fclose(fp);

              fp = fopen("aU","w");
   for(c=C1; c<A[C_SIZE][R_SIZE]; c++)
      fprintf(fp,"  %+.3f  %+.3f \n",A[R1][c],A[R2][c]);
       fclose(fp);

              fp = fopen("aV","w");
   for(c=C1; c<B[C_SIZE][R_SIZE]; c++)
      fprintf(fp,"  %+.3f  %+.3f \n",B[R1][c],B[R2][c]);
       fclose(fp);

              fp = fopen("aP","w");
      fprintf(fp,"  %+.3f  %+.3f \n",P[R1][C1],P[R2][C1]);
       fclose(fp);
}
/* ------------------------------------ */
/* ------------------------------------ */

---