Mathc initiation/Fichiers h : x 20a2

Sommaire

Installer ce fichier dans votre répertoire de travail.

	kg_3dpx.h

/* --------------------------------- */
/* save as kg_3dpx.h                 */
/* --------------------------------- */
void G_3d_px(
CTRL_splot w,
  char     feq[],
double   (*P_f)(double x, double y),
double     x,
double     stepy
)
{
double   y;

FILE   *fp = fopen("a_main.plt","w");
        
fprintf(fp," reset\n");

fprintf(fp,"set xlabel   \"<x>\"\n");
fprintf(fp,"set ylabel   \"<y>\"\n");
fprintf(fp,"set zlabel   \"<z>\"\n");

fprintf(fp,"set    samples 40\n");
fprintf(fp,"set isosamples 40\n");
fprintf(fp,"set view %0.3f, %0.3f, %0.3f, %0.3f \n",
                    w.rot_x,w.rot_z,w.scale,w.scale_z);
                    
fprintf(fp,"set xrange [%0.3f:%0.3f]\n",w.xmin,w.xmax);
fprintf(fp,"set yrange [%0.3f:%0.3f]\n",w.ymin,w.ymax);
fprintf(fp,"set zrange [%0.3f:%0.3f]\n",w.zmin,w.zmax);

fprintf(fp,"splot ");
fprintf(fp," \"a_ka\" pt 20,\\\n");
fprintf(fp,"%s\n\n",feq);
 fclose(fp);

  fp = fopen("a_ka","w");
   for(y = w.ymin; y <= w.xmax; y += stepy)
        fprintf(fp," %6.3f   %6.3f   %6.3f\n", x, y, ((*P_f)(x,y)) );
 fclose(fp);

 printf(" ... load \"a_main.plt\" ... with gnuplot.\n\n");
}
/* --------------------------------- */
/* --------------------------------- */

Déclaration des utilitaires.

---