π
<-
Chat plein-écran
[^]

Complex partial fraction

Pour le TI-Basic sur Nspire

Complex partial fraction

Message non lude m_elborolossy » 08 Mai 2015, 14:43

Hi all
My calc is Nspire cx cas
I try to make a complex partial fraction because the calc make only real one using expand
I try to write a function but there is an error that is not clear to me why
I make the same steps in a Document or scratchpad and work good
Here is my code :
Code: Tout sélectionner
Define LibPub partialf(expre)=
:Func
:Local ex,r,rc,exc,k,x,kc
:expr("ex(s):="&string(expre))
:r:=polyRoots(getDenom(ex(s)),s)
:exc(s):=ex(s)*s
:rc:=cPolyRoots(getDenom(exc(s)),s)
:k(s):=((getNum(ex(s)))/(2*s*imag(rc[2])*i))
:kc:=k(rc[2])
:Return kc
:EndFunc


This is only the start and i assume that the i have a real root (s = 0) and two conj complex roots s={(-a+b*i),(-a-b*i)}
The error in this line : kc:=k(rc[2])
Dernière édition par m_elborolossy le 08 Mai 2015, 15:48, édité 2 fois.
Avatar de l’utilisateur
m_elborolossy
Niveau 6: SM (Super Membre)
Niveau 6: SM (Super Membre)
Prochain niv.: 90.6%
 
Messages: 4
Inscription: 19 Oct 2014, 01:58
Genre: Homme
Calculatrice(s):

Re: Complex partial fraction

Message non lude Bisam » 08 Mai 2015, 15:01

I spotted a possible (and quite usual) problem.

When you create a function by using f(s):= anything, the right member is NOT evaluated.
It will only be evaluated when you will use the function and replace the value of "s" by any expression.

At this time, the calc may see an error such as a "division by zero" that couldn't be seen earlier.
I think that, in your case, exc(s) still has zero as a root of denominator... or something like that.

Did you try to "disp" some intermediate results to spot the problem more precisely ?
And what is the error returned ?
Avatar de l’utilisateur
BisamAdmin.
Niveau 15: CC (Chevalier des Calculatrices)
Niveau 15: CC (Chevalier des Calculatrices)
Prochain niv.: 45.8%
 
Messages: 5400
Inscription: 11 Mar 2008, 00:00
Localisation: Lyon
Genre: Homme
Calculatrice(s):
Classe: Prof de Math en Maths Spé PSI

Re: Complex partial fraction

Message non lude m_elborolossy » 08 Mai 2015, 15:49

Thanks Bisam
I think it works now good
When I finish it i will upload it
This is the updated code :
Code: Tout sélectionner
Define LibPub partialf(expre)=
Func
:Local ex,r,rc,exc,k,x,kc
:expr("ex(s):="&string(expre))
:r:=polyRoots(getDenom(ex(s)),s)
:expr("exc(s):="&string(ex(s)*s))
:rc:=cPolyRoots(getDenom(exc(s)),s)
:expr("k(s):="&string(((getNum(ex(s)))/(2*s*imag(rc[2])*i))))
:kc:=k(rc[2])
:Return kc
:EndFunc
Dernière édition par m_elborolossy le 08 Mai 2015, 15:53, édité 3 fois.
Avatar de l’utilisateur
m_elborolossy
Niveau 6: SM (Super Membre)
Niveau 6: SM (Super Membre)
Prochain niv.: 90.6%
 
Messages: 4
Inscription: 19 Oct 2014, 01:58
Genre: Homme
Calculatrice(s):

Re: Complex partial fraction

Message non lude Bisam » 08 Mai 2015, 15:56

Nice !
Glad to have helped... and thankful for having talked with someone who knows how to program decently !
Dernière édition par Bisam le 08 Mai 2015, 15:57, édité 1 fois.
Avatar de l’utilisateur
BisamAdmin.
Niveau 15: CC (Chevalier des Calculatrices)
Niveau 15: CC (Chevalier des Calculatrices)
Prochain niv.: 45.8%
 
Messages: 5400
Inscription: 11 Mar 2008, 00:00
Localisation: Lyon
Genre: Homme
Calculatrice(s):
Classe: Prof de Math en Maths Spé PSI

Re: Complex partial fraction

Message non lude jmat » 02 Juil 2015, 10:48

wonderful !!We hope this program
Avatar de l’utilisateur
jmat
Niveau 7: EP (Espèce Protégée: geek)
Niveau 7: EP (Espèce Protégée: geek)
Prochain niv.: 12.5%
 
Messages: 50
Inscription: 24 Juil 2013, 01:03
Genre: Non spécifié
Calculatrice(s):

Re: Complex partial fraction

Message non lude Bisam » 02 Juil 2015, 15:06

Uh ?
Seems to be an early posting... :p
Avatar de l’utilisateur
BisamAdmin.
Niveau 15: CC (Chevalier des Calculatrices)
Niveau 15: CC (Chevalier des Calculatrices)
Prochain niv.: 45.8%
 
Messages: 5400
Inscription: 11 Mar 2008, 00:00
Localisation: Lyon
Genre: Homme
Calculatrice(s):
Classe: Prof de Math en Maths Spé PSI

Re: Complex partial fraction

Message non lude mike martin » 31 Juil 2016, 14:11

Hi there,
Did you ever finish the code for this? If so, is there somewhere I can download it?

I really need something like this on my nspire.

Thanks
Mike
Avatar de l’utilisateur
mike martin
Niveau 0: MI (Membre Inactif)
Niveau 0: MI (Membre Inactif)
Prochain niv.: 0%
 
Messages: 1
Inscription: 31 Juil 2016, 14:10
Genre: Non spécifié

Re: Complex partial fraction

Message non lude Bisam » 01 Aoû 2016, 15:07

Just try to create it yourself by copying the code which is on the 3rd post.
Avatar de l’utilisateur
BisamAdmin.
Niveau 15: CC (Chevalier des Calculatrices)
Niveau 15: CC (Chevalier des Calculatrices)
Prochain niv.: 45.8%
 
Messages: 5400
Inscription: 11 Mar 2008, 00:00
Localisation: Lyon
Genre: Homme
Calculatrice(s):
Classe: Prof de Math en Maths Spé PSI

Re: Complex partial fraction

Message non lude endothes » 07 Oct 2018, 03:19

When I use the code in the third post with a function such as:

(0.4)*(s-1500)/(s^2+1000*s+1.25*10^6)

I get too many arguments error. Does the program listed above work for anyone else?
Avatar de l’utilisateur
endothes
Niveau 0: MI (Membre Inactif)
Niveau 0: MI (Membre Inactif)
Prochain niv.: 0%
 
Messages: 1
Inscription: 07 Oct 2018, 03:18
Genre: Non spécifié
Calculatrice(s):

Re: Complex partial fraction

Message non lude Hisham » 07 Oct 2018, 09:03

endothes a écrit:When I use the code in the third post with a function such as:

(0.4)*(s-1500)/(s^2+1000*s+1.25*10^6)

I get too many arguments error. Does the program listed above work for anyone else?


http://www.allcalc.tk/10272 (PFE)
http://www.allcalc.tk/4982 (PFE + inverse L-Transformation)

Best,

Hisham ;)
Avatar de l’utilisateur
Hisham
Niveau 0: MI (Membre Inactif)
Niveau 0: MI (Membre Inactif)
Prochain niv.: 0%
 
Messages: 23
Inscription: 01 Mar 2017, 20:52
Genre: Non spécifié
Calculatrice(s):


Retourner vers Nspire-Basic

Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 1 invité

-
Rechercher
-
Sujets à la une
"NumWorks++": Challenge de modification matérielle pour rajouter une puce de mémoire Flash !
Offre TI-Planet/Jarrety pour avoir la TI-83 Premium CE avec son chargeur pour 79,79€ port inclus !
Offre TI-Planet/Jarrety pour avoir la TI-Nspire CX CAS à seulement 130€ TTC port inclus!
Jailbreake ta TI-Nspire avec Ndless et profite des meilleurs jeux et applications !
Transforme ta TI-Nspire CX en console Game Boy Advance!
12345
-
Donations/Premium
Pour plus de concours, de lots, de tests, nous aider à payer le serveur et les domaines...
PayPal : paiement en ligne sécurisé - secure online payments
Découvrez les avantages d'un compte donateur !
JoinRejoignez the donors and/or premium!les donateurs et/ou premium !


-
Sélections fichiers
Partenaires et pub
Notre partenaire Jarrety 
-
Stats.
382 utilisateurs:
>317 invités
>60 membres
>5 robots
Record simultané (sur 6 mois):
6892 utilisateurs (le 07/06/2017)
-
Autres sites intéressants
Texas Instruments Education
Global | France
 (English / Français)
Banque de programmes TI
ticalc.org
 (English)
La communauté TI-82
tout82.free.fr
 (Français)
cron