π
<-

## Complex partial fraction

Pour le TI-Basic sur Nspire

### Complex partial fraction

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.

m_elborolossy

Niveau 6: SM (Super Membre)
Level up: 78.6%

Posts: 4
Joined: 19 Oct 2014, 01:58
Gender:
Calculator(s):
MyCalcs profile

### Re: Complex partial fraction

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 ?

Niveau 15: CC (Chevalier des Calculatrices)
Level up: 69.6%

Posts: 5667
Joined: 11 Mar 2008, 00:00
Location: Lyon
Gender:
Calculator(s):
MyCalcs profile

### Re: Complex partial fraction

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.

m_elborolossy

Niveau 6: SM (Super Membre)
Level up: 78.6%

Posts: 4
Joined: 19 Oct 2014, 01:58
Gender:
Calculator(s):
MyCalcs profile

### Re: Complex partial fraction

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.

Niveau 15: CC (Chevalier des Calculatrices)
Level up: 69.6%

Posts: 5667
Joined: 11 Mar 2008, 00:00
Location: Lyon
Gender:
Calculator(s):
MyCalcs profile

### Re: Complex partial fraction

wonderful !!We hope this program

jmat

Niveau 7: EP (Espèce Protégée: geek)
Level up: 12.5%

Posts: 50
Joined: 24 Jul 2013, 01:03
Gender:
Calculator(s):
MyCalcs profile

### Re: Complex partial fraction

Uh ?
Seems to be an early posting...

Niveau 15: CC (Chevalier des Calculatrices)
Level up: 69.6%

Posts: 5667
Joined: 11 Mar 2008, 00:00
Location: Lyon
Gender:
Calculator(s):
MyCalcs profile

### Re: Complex partial fraction

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

mike martin

Niveau 0: MI (Membre Inactif)
Level up: 0%

Posts: 1
Joined: 31 Jul 2016, 14:10
Gender:
Calculator(s):
MyCalcs profile

### Re: Complex partial fraction

Just try to create it yourself by copying the code which is on the 3rd post.

Niveau 15: CC (Chevalier des Calculatrices)
Level up: 69.6%

Posts: 5667
Joined: 11 Mar 2008, 00:00
Location: Lyon
Gender:
Calculator(s):
MyCalcs profile

### Re: Complex partial fraction

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?

endothes

Niveau 0: MI (Membre Inactif)
Level up: 0%

Posts: 1
Joined: 07 Oct 2018, 03:18
Gender:
Calculator(s):
MyCalcs profile

### Re: Complex partial fraction

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

Niveau 8: ER (Espèce Rare: nerd)
Level up: 10.5%

Posts: 139
Joined: 01 Mar 2017, 20:52
Gender:
Calculator(s):
MyCalcs profile

Next

### Who is online

Users browsing this forum: No registered users and 8 guests

-
Search
-
Social TI-Planet
-
Featured topics
12345
-
For more contests, prizes, reviews, helping us pay the server and domains...

Discover the the advantages of a donor account !

-
Stats.
1048 utilisateurs:
>1042 invités
>1 membre
>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)