Sponsored links: Algebra eBooks
 

Related

ratdisrep

? ratdisrep;

Calculate

ratdisrep-solve

eq1:x+y+z=3;

eq2:x+2*y+3*z=6;

ratdisrep(solve([eq1,...

Calculate

ratdisrep

? ratdisrep;

Calculate

ratdisrep-solve

eq1:x+y+z=3;

eq2:x+2*y+3*z=6;

ratdisrep(solve([eq1,...

Calculate

ratdisrep

Run Example
(%i1)H : [28,30,40,42];
(%o1)                          [28, 30, 40, 42]
(%i2) 1/apply("*",makelist(1-x^h,h,H));
                                       1
(%o2)               ---------------------------------------
                          28        30        40        42
                    (1 - x  ) (1 - x  ) (1 - x  ) (1 - x  )
(%i3) ratdisrep(taylor(1/(1-x),x,0,10));
               10    9    8    7    6    5    4    3    2
(%o3)         x   + x  + x  + x  + x  + x  + x  + x  + x  + x + 1
(%i4) 
Run Example
eq1:x+y+z=3;
(%o1)                            z + y + x = 3
(%i2)  eq2:x+2*y+3*z=6;
(%o2)                          3 z + 2 y + x = 6
(%i3) ratdisrep(solve([eq1, eq2], [x, y, z]));
(%o3)                 [[x = %r1, y = 3 - 2 %r1, z = %r1]]
(%i4) 
Run Example
H : [28,30,40,42];
(%o1)                          [28, 30, 40, 42]
(%i2) 1/apply("*",makelist(1-x^h,h,H));
                                       1
(%o2)               ---------------------------------------
                          28        30        40        42
                    (1 - x  ) (1 - x  ) (1 - x  ) (1 - x  )
(%i3) ratdisrep(taylor(%,x,0,100));
(%o3)             

Related Help

Help for Ratdisrep