Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 941
Réponses : 8
Type : discussion
Etat : réponses autorisées
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

Simplification

thomas le 18/05/2013 à 22:21
bonjour à tous
j'ai fais un petit programme qui quand on entre un angle en radian donne sa simplification (entre 0 et 2pi) ainsi que le nombre de tours de tours
le seul problème c'est que THETA sort en décimal et j'aurai voulu savoir si c'était possible que la calto sorte un truc du style pi/4
merci de votre aide
linkakro le 18/05/2013 à 22:59
Pour afficher en fonction de pi, tu divises par pi et tu affiche la fraction.
Code
ClrHome
Prompt theta
Disp "pi*
Disp theta/pi>Frac
Ou tu te procures le programme AUTOCALC sur Tiplanet ou tu achètes une ti plus puissante style nspire-cas.

Désolé d'voir posté un output avec un Frac dedans, cela ne marchait pas et maintenant c'est corrigé.
thomas le 19/05/2013 à 09:10
euh ben moi j'ai erreur syntaxe quand je marque ce que tu m'as dis
ya pas de parenthèses à mettre?
Kelk'1 le 19/05/2013 à 11:42
Citation
on entre un angle en radian donne sa simplification (entre 0 et 2pi)


Tu veux dire en "degré" j'imagine car la mesure en radian est déjà sous la forme Xpi/Y
thomas le 19/05/2013 à 12:12
non je voudrais quand j'entre 29pi j'ai en sortie theta=pi et nb tours=14
pito2901 le 19/05/2013 à 12:13
Mais non...
Kelk'1 le 19/05/2013 à 12:38
Ah d'accord, si cela est ton souhait ce n'est pas très compliqué,

Code

:Prompt N         // là tu rentreras 29, sans le pi
:EffEcr
:PartEnt(N/2 -> T
:Disp 2*(N/2-T) >Frac
:Output(1,1,"pi*
:Output(2,1,"TOURS=         
:Output(2,8,T
linkakro le 19/05/2013 à 13:57
Je signale que l'angle principal est dans ]-pi;pi], pas dans [0;2pi[
(De plus le calcul de Kelk'1 manque de rigueur dans le calcul du reste, qui poserait problème si on divisait autrement que par 2.)

Si vous voulez quand même dans [0;2pi[, rien de plus facile, on corrige le petit manque rigueur de Kelk'1.
Code
// programme de Kelk'1
:Prompt N         // là tu rentreras 29, sans le pi
:EffEcr
:PartEnt(N/2 -> T
:Disp N-2T >Frac    // c'est ça que j'ai modifié
:Output(1,1,"pi*
:Output(2,1,"TOURS=         
:Output(2,8,T


Ce que j'ai posté précédemment dans le sujet n'est qu'un moyen d'afficher selon pi un nombre donné en pi*radian.
Il est plus judicieux de faire comme Kelk'1 (et moi ci-après) qui propose de saisir sans le coefficient pi.

Voici le programme ultime actuellement. Donne R dans ]-pi;pi], mais vous pouvez récupérer dans [0;2pi[ avec le calcul intermédiaire.
https://tout82.pages-perso.fre[...]age=49876#49876
Code
// programme de Linkakro
Disp "A=Xpi=Rpi+2Kpi
Prompt X
int(X/2->K
X-2K->R    // premier jet , R e [0;2[
K+(R>1->K
R-2(R>1->R // second jet , R e ]-1;1]
Disp "K:",K,"R:",R>Frac
EDIT : remarque : int=partEnt, ce n'est pas une erreur, ou plutôt c'est TI qui a créé la confusion avec iPart=ent
Kelk'1 le 19/05/2013 à 18:32
Oups pas vu la simplification minied.gif
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.