Mathc gnuplot/Animation : Cycloïde
Apparence
Petit jeux sur les polygones 1
[modifier | modifier le wikicode]N'oubliez pas les fichiers h de la librairie.
![]() |
c00a.c |
---|
/* ------------------------------------ */
/* save as : c00a.c */
/* ------------------------------------ */
#include "v_a.h"
#include "y_r.h"
/* ------------------------------------ */
void duopoly(
double **U,
double **Sides,
double **Angles,
double alpha,
int n
)
{
int i=1;
int c;
for(;i++<n;)
for(c=C1;c<Angles[C_SIZE][OF];c++)
vo(U,i*(Angles[R1][c])+alpha,Sides[R1][c]);
}
/* ------------------------------------ */
int main(void)
{
double alpha =-0;
double a[2] ={ 45., 46.};
double s[2] ={ 140., 140.};
double **U = G_main(-1000.,1000.,-1000.,1000.);
double **A = c_a_A_mR(a,I_mR(R1,C2));
double **S = c_a_A_mR(s,I_mR(R1,C2));
setup(U,-150, 350.);
duopoly(U,S,A,alpha,152);
setup(U, 800, 350.);
duopoly(U,S,A,alpha,200);
setup(U,-150,-600.);
duopoly(U,S,A,alpha,275);
setup(U, 800,-600.);
duopoly(U,S,A,alpha,400);
F_mR(U);
printf(" ... load \"a_main.plt\" ... with gnuplot.\n");
getchar();
return 0;
}
/* ------------------------------------ */
/* ------------------------------------ */
Résultat dans gnuplot |
---|
![]() |