π
<-
[^]

Complex partial fraction

Pour le TI-Basic sur Nspire

Complex partial fraction

Unread postby m_elborolossy » 08 May 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: Select all
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])
Last edited by m_elborolossy on 08 May 2015, 15:48, edited 2 times in total.
User avatar
m_elborolossy
Niveau 6: SM (Super Membre)
Niveau 6: SM (Super Membre)
Level up: 90.6%
 
Posts: 4
Joined: 19 Oct 2014, 01:58
Gender: Male
Calculator(s):

Re: Complex partial fraction

Unread postby Bisam » 08 May 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 ?
User avatar
BisamAdmin.
Niveau 15: CC (Chevalier des Calculatrices)
Niveau 15: CC (Chevalier des Calculatrices)
Level up: 47.4%
 
Posts: 5419
Joined: 11 Mar 2008, 00:00
Location: Lyon
Gender: Male
Calculator(s):

Re: Complex partial fraction

Unread postby m_elborolossy » 08 May 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: Select all
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
Last edited by m_elborolossy on 08 May 2015, 15:53, edited 3 times in total.
User avatar
m_elborolossy
Niveau 6: SM (Super Membre)
Niveau 6: SM (Super Membre)
Level up: 90.6%
 
Posts: 4
Joined: 19 Oct 2014, 01:58
Gender: Male
Calculator(s):

Re: Complex partial fraction

Unread postby Bisam » 08 May 2015, 15:56

Nice !
Glad to have helped... and thankful for having talked with someone who knows how to program decently !
Last edited by Bisam on 08 May 2015, 15:57, edited 1 time in total.
User avatar
BisamAdmin.
Niveau 15: CC (Chevalier des Calculatrices)
Niveau 15: CC (Chevalier des Calculatrices)
Level up: 47.4%
 
Posts: 5419
Joined: 11 Mar 2008, 00:00
Location: Lyon
Gender: Male
Calculator(s):

Re: Complex partial fraction

Unread postby jmat » 02 Jul 2015, 10:48

wonderful !!We hope this program
User avatar
jmat
Niveau 7: EP (Espèce Protégée: geek)
Niveau 7: EP (Espèce Protégée: geek)
Level up: 12.5%
 
Posts: 50
Joined: 24 Jul 2013, 01:03
Gender: Not specified
Calculator(s):

Re: Complex partial fraction

Unread postby Bisam » 02 Jul 2015, 15:06

Uh ?
Seems to be an early posting... :p
User avatar
BisamAdmin.
Niveau 15: CC (Chevalier des Calculatrices)
Niveau 15: CC (Chevalier des Calculatrices)
Level up: 47.4%
 
Posts: 5419
Joined: 11 Mar 2008, 00:00
Location: Lyon
Gender: Male
Calculator(s):

Re: Complex partial fraction

Unread postby mike martin » 31 Jul 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
User avatar
mike martin
Niveau 0: MI (Membre Inactif)
Niveau 0: MI (Membre Inactif)
Level up: 0%
 
Posts: 1
Joined: 31 Jul 2016, 14:10
Gender: Not specified

Re: Complex partial fraction

Unread postby Bisam » 01 Aug 2016, 15:07

Just try to create it yourself by copying the code which is on the 3rd post.
User avatar
BisamAdmin.
Niveau 15: CC (Chevalier des Calculatrices)
Niveau 15: CC (Chevalier des Calculatrices)
Level up: 47.4%
 
Posts: 5419
Joined: 11 Mar 2008, 00:00
Location: Lyon
Gender: Male
Calculator(s):

Re: Complex partial fraction

Unread postby 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?
User avatar
endothes
Niveau 0: MI (Membre Inactif)
Niveau 0: MI (Membre Inactif)
Level up: 0%
 
Posts: 1
Joined: 07 Oct 2018, 03:18
Gender: Not specified
Calculator(s):

Re: Complex partial fraction

Unread postby Hisham » 07 Oct 2018, 09:03

endothes wrote: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 ;)
User avatar
HishamPremium
Niveau 0: MI (Membre Inactif)
Niveau 0: MI (Membre Inactif)
Level up: 50%
 
Posts: 86
Joined: 01 Mar 2017, 20:52
Gender: Not specified
Calculator(s):


Return to Nspire-Basic

Who is online

Users browsing this forum: No registered users and 7 guests

-
Search
-
Featured topics
Avantages VIP et goodies pour les donateurs !
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 !
1234
-
Donations / Premium
For more contests, prizes, reviews, helping us pay the server and domains...

Discover the the advantages of a donor account !
JoinRejoignez the donors and/or premium!les donateurs et/ou premium !


Partner and ad
Notre partenaire Jarrety 
-
Stats.
2903 utilisateurs:
>2780 invités
>118 membres
>5 robots
Record simultané (sur 6 mois):
6892 utilisateurs (le 07/06/2017)
-
Other interesting websites
Texas Instruments Education
Global | France
 (English / Français)
Banque de programmes TI
ticalc.org
 (English)
La communauté TI-82
tout82.free.fr
 (Français)