π
<-
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.: 78.6%
 
Messages: 4
Inscription: 19 Oct 2014, 01:58
Genre: Homme
Calculatrice(s):
MyCalcs profile

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.: 69.5%
 
Messages: 5665
Inscription: 11 Mar 2008, 00:00
Localisation: Lyon
Genre: Homme
Calculatrice(s):
MyCalcs profile

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.: 78.6%
 
Messages: 4
Inscription: 19 Oct 2014, 01:58
Genre: Homme
Calculatrice(s):
MyCalcs profile

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.: 69.5%
 
Messages: 5665
Inscription: 11 Mar 2008, 00:00
Localisation: Lyon
Genre: Homme
Calculatrice(s):
MyCalcs profile

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):
MyCalcs profile

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.: 69.5%
 
Messages: 5665
Inscription: 11 Mar 2008, 00:00
Localisation: Lyon
Genre: Homme
Calculatrice(s):
MyCalcs profile

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é
Calculatrice(s):
MyCalcs profile

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.: 69.5%
 
Messages: 5665
Inscription: 11 Mar 2008, 00:00
Localisation: Lyon
Genre: Homme
Calculatrice(s):
MyCalcs profile

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):
MyCalcs profile

En ligne

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
HishamPremium
Niveau 8: ER (Espèce Rare: nerd)
Niveau 8: ER (Espèce Rare: nerd)
Prochain niv.: 10.5%
 
Messages: 139
Inscription: 01 Mar 2017, 20:52
Genre: Non spécifié
Calculatrice(s):
MyCalcs profile


Retourner vers Nspire-Basic

Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 12 invités

-
Rechercher
-
Social TI-Planet
-
Sujets à la une
Comparaisons des meilleurs prix pour acheter sa calculatrice !
Aidez la communauté à documenter les révisions matérielles en listant vos calculatrices graphiques !
Phi NumWorks jailbreak
123
-
Faire un don / Premium
Pour plus de concours, de lots, de tests, nous aider à payer le serveur et les domaines...
Faire un don
Découvrez les avantages d'un compte donateur !
JoinRejoignez the donors and/or premium!les donateurs et/ou premium !


Partenaires et pub
Notre partenaire Jarrety Calculatrices à acheter chez Calcuso
-
Stats.
775 utilisateurs:
>762 invités
>7 membres
>6 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)