2021-09-07 09:51:43 +02:00
|
|
|
// This file is part of the Herezh++ application.
|
|
|
|
|
//
|
|
|
|
|
// The finite element software Herezh++ is dedicated to the field
|
|
|
|
|
// of mechanics for large transformations of solid structures.
|
|
|
|
|
// It is developed by Gérard Rio (APP: IDDN.FR.010.0106078.000.R.P.2006.035.20600)
|
|
|
|
|
// INSTITUT DE RECHERCHE DUPUY DE LÔME (IRDL) <https://www.irdl.fr/>.
|
|
|
|
|
//
|
|
|
|
|
// Herezh++ is distributed under GPL 3 license ou ultérieure.
|
|
|
|
|
//
|
2023-05-03 17:23:49 +02:00
|
|
|
// Copyright (C) 1997-2022 Université Bretagne Sud (France)
|
2021-09-07 09:51:43 +02:00
|
|
|
// AUTHOR : Gérard Rio
|
|
|
|
|
// E-MAIL : gerardrio56@free.fr
|
|
|
|
|
//
|
|
|
|
|
// This program is free software: you can redistribute it and/or modify
|
|
|
|
|
// it under the terms of the GNU General Public License as published by
|
|
|
|
|
// the Free Software Foundation, either version 3 of the License,
|
|
|
|
|
// or (at your option) any later version.
|
|
|
|
|
//
|
|
|
|
|
// This program is distributed in the hope that it will be useful,
|
|
|
|
|
// but WITHOUT ANY WARRANTY; without even the implied warranty
|
|
|
|
|
// of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
|
|
|
// See the GNU General Public License for more details.
|
|
|
|
|
//
|
|
|
|
|
// You should have received a copy of the GNU General Public License
|
|
|
|
|
// along with this program. If not, see <https://www.gnu.org/licenses/>.
|
|
|
|
|
//
|
|
|
|
|
// For more information, please consult: <https://herezh.irdl.fr/>.
|
|
|
|
|
|
|
|
|
|
#include "Suite_equidistante.h"
|
|
|
|
|
|
|
|
|
|
#include "Sortie.h"
|
|
|
|
|
|
|
|
|
|
// affichage de la courbe
|
|
|
|
|
void Suite_equidistante::Affiche() const
|
|
|
|
|
{ cout << "\n suite equidistante de terme courant= " << U_0 << " ";
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
// interactif écran-clavier pour saisir les paramètres d'une suite
|
|
|
|
|
// si amplitude != 0 alors il faut n non négatif et:
|
|
|
|
|
// on a Somme_suite(n) = amplitude, ce qui permet pour les suites de réduire le nombre de paramètre à lire
|
|
|
|
|
void Suite_equidistante::Def_suite(double amplitude, int n)
|
|
|
|
|
{ if (amplitude == 0.)
|
|
|
|
|
{ cout << "\n valeur du terme initial U_0 de la suite ";
|
|
|
|
|
U_0=lect_double();
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{ if (n < 0)
|
|
|
|
|
{ cout << "\n erreur pour la definition d'une suite geometrique, n est negatif ! "
|
|
|
|
|
<< "\n Suite_equidistante::Def_suite(double amplitude, int n) ";
|
|
|
|
|
Sortie(1);
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{ U_0 = amplitude / (n+1);};
|
|
|
|
|
};
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
// ramène la somme de la suite de m à n
|
|
|
|
|
// de manière arbitraire pour n=-1 ==> 0
|
|
|
|
|
// pour n < -1 --> erreur
|
|
|
|
|
double Suite_equidistante::Somme_Suite(int n)
|
|
|
|
|
{ if (n > -2)
|
|
|
|
|
{ double ret = (n+1) * U_0;
|
|
|
|
|
return ret;
|
|
|
|
|
}
|
|
|
|
|
else
|
|
|
|
|
{ cout << "\n erreur n est inf a -1 "
|
|
|
|
|
<< "\n Suite_equidistante::Somme_Suite(int n)";
|
|
|
|
|
Sortie(1);
|
|
|
|
|
};
|
|
|
|
|
return 0.;
|
|
|
|
|
};
|
