MaplePrimes Questions

I just noticed that Maple 2020.1 (but not plain 2020) has an issue with print to PDF if you have a plot3d on a page.

Anything after the plot3d output on the same page of the PDF file is simply not shown.

The issue seems to be with both Windows and Mac which makes me suspect its a Maple problem.

Any info on this? Any workarounds? We have students with written exams in a week so its a bit annoying.

Tried several things to get a neat grey box with Maple text in it 
What to do for making this ? 

Hi everyone...

How can anyone help me in the attached file? I want to know how the equation of the system turned into a dimensionless

dynamical system?

 

 

I did not know about these before. Was looking at 

https://fr.maplesoft.com/support/help/Maple/view.aspx?path=repository/management

And wanted to display the actual values of $MAPLE,$TOOLBOX, $VERSION,$HOME gives about. 

But everything I tried does not work. 

anames('environment');
getenv("$MAPLE");
print("$MAPLE/toolbox/$VERSION/$TOOLBOX/lib")

Where are these things defined and how to display them from inside Maple to see where they point to?

 

Maple 2020.1 on windows 10

 

dAlembert ode has the form

https://fr.maplesoft.com/support/help/Maple/view.aspx?path=odeadvisor/dAlembert

Which also agrees with textbooks and Wikipedia

 

https://en.wikipedia.org/wiki/D%27Alembert%27s_equation

 

 

So the ODE should have   x  in there (the independent variable).  

Then why  in the following, when I give Maple ode of form   y=f(p)+g(p)  it says it is d'Alembert? notice that there is no x in there

restart;
ode:=y(x)=ln(cos(diff(y(x),x)))+diff(y(x),x)*tan(diff(y(x),x))

DEtools:-odeadvisor(ode)

I am not saying Maple is wrong, as I am not sure, but I am just trying to understand what is going on. All references I've seen so far say x should be there.  Otherwise, how did Maple determine it is dAlembert if not using the orginal form to check against?

The strange thing is calling dsolve on the ode, with no option gives different answer if calling dsolve telling it is is dAlembert:

dsolve(ode,[dAlembert]);

but

dsolve(ode)

Why it did not give the same result? 

 

I'd like to convert  every row of matrix to list, but failed.  I want to use batch operations map(~) not for-loop.

data:=Matrix(3, 5, [[2, -6, 3, 0, 0], [5, -2, 4, 1, 2], [17, -4, 10, 20, 99]])

Matrix(3, 5, {(1, 1) = 2, (1, 2) = -6, (1, 3) = 3, (1, 4) = 0, (1, 5) = 0, (2, 1) = 5, (2, 2) = -2, (2, 3) = 4, (2, 4) = 1, (2, 5) = 2, (3, 1) = 17, (3, 2) = -4, (3, 3) = 10, (3, 4) = 20, (3, 5) = 99})

(2)

convert~(data,list)

Matrix(3, 5, {(1, 1) = [2], (1, 2) = [-6], (1, 3) = [3], (1, 4) = [0], (1, 5) = [0], (2, 1) = [5], (2, 2) = [-2], (2, 3) = [4], (2, 4) = [1], (2, 5) = [2], (3, 1) = [17], (3, 2) = [-4], (3, 3) = [10], (3, 4) = [20], (3, 5) = [99]})

(3)

convert(data,list)

[2, 5, 17, -6, -2, -4, 3, 4, 10, 0, 1, 20, 0, 2, 99]

(4)

The expected output is the following:

                        [2, -6, 3, 0, 0]
                        [5, -2, 4, 1, 2]
                      [17, -4, 10, 20, 99]

 

 

 

Download ss.mw

I noticed the following. I have 2 worksheets. A.mw and B.mw.  From A.mw, it does something as follows

libname := currentdir(), libname
foo();

Where foo() is entry inside my say TMP.mla in currentdir(). This works fine with no problems and foo() executes and complete OK.

Now I make changes to the code foo.mpl, and need to update TMP.mla. currently I use LibraryTools. But i'd like to delete TMP.mla each time and create new one so I am sure there is no problem. So from B.mw I run this code

libname:= currentdir(),libname;
FileTools:-Remove("TMP.mla");
LibraryTools:-Create("TMP.mla");
read "foo.mpl";
LibraryTools:-Save('foo',"TMP.mla");

This all works well, except it fails at the Remove line, since "TMP.mla" could not be removed, since it was open before when running the A workseet, and it seems to be still open and Maple could not delete the file.

So each time this happens, I close all worksheets, close Maple, open Maple again, and now I can run the above code OK to update the mla.

Is there a better way to do all of this?

I worry if I do not delete the mla each time, I could end up with old code there I do not want, if I rename things in my code. That is why I like to start with fresh mla file each time.  But I always have to restart Maple now to update the mla.

 

does maple provide a way to programatically get the name of the "current" worksheet file?

I'm looking for something analogous to
interface(worksheetdir);

which gives the directory the worksheet file is in.

thanks.

 

 

I need to get fine curved figure.

please suggest command.   Please also tell 6 differnt markers like symbol = asterisk.

Hello

Since my solutions are neither efficient nor concise, I wonder if someone could help me with the following problem. Suppose

 

L:=[[[],[],3,2,1,4],[1,4,[],5,8,[]],[5,6,7,8,[],1]]:

(Just a short and simplified version - L is a huge list). I need the elements to be rearranged as follows

newL:=[[1,5],[4,6],[3,7],[2,5,8],[1,8],[4,1]]:

that is, the first sublist of newL contains the first elements of all sublists of L without [], the second sublist of newL contains the second elements of all sublists of L without [] and so on.  

How can that be achieved without seq and remove?

Many thanks

Ed

PS. My solution 

newL:=[seq(remove(y->y=[],map(x->x[i],L)),i=1..nops(L[1]))]

The size of the sublists does not change.  

Hello everyone.

I am not really sure how to solve the following problem:

Given a parametriaztion of a surface as an interpolation in terms of given nodes as:
X(ξ,η)= Σ Νi(ξ,η) Xi, it is possible to calculate tangent and normal vectors as:
α1(ξ,η)= Σ Νi,ξ(ξ,η) Xi     α2(ξ,η)= Σ Νi,η(ξ,η) Xi  and a3(ξ,η)= cross(a1,a2) and their derivatives
α1,ξ α1,η α2,ξ α2,η etc.
For a variation of Xi i.e.  a variation of X can be calculated δX(ξ,η)= Σ Νi(ξ,η) δXi in terms of 
intermediate quantities that are as simple as  Σ Νi(ξ,η) for the position vector but get quite complicate
for the normal vector (δα3 that depends on a cross product) of given vectors  and for higher order derivatives,
or for the second variation. These variations can be also expressed with a directional derivative in the direction 
X,Y, or Z of a node i with initial position Xi.

To calculate those more complicate derivations I try to express them in terms of known less complicate ones.
Symbolizing r and s the first and second variation, and α,β firs and second derivative withh respect to ξ οr h or ξ,η.


Regarding the variation of the normal vector "a3_t" as known (i.e. a3_t,r)
and the variation of its norm "a3_n" (i.e. a3_n,r) as known too we can get the variation of
the of unit normal using the following commands:

a3 := a3_t(a, s, r)*(1/a3_n(a, s, r)): (vector-scalar operation) (1)
diff(a3, r):

the second variation
diff(a3, r):
diff(diff(a3, r), s) (2)

and even variations of its derivatives 
diff(diff(diff(a3, a), r), s): (3) 

That yield the results of the posted picture.

The problem is that if we want to calculate in the same way the variation of the derivative 
of expressions that involve the vector-vector operations i.e  variation of diff(a3_t, a)
where a3_t = CrossProduct(a1(a,r,s),a2(a,r,s)) it is not possible to do that as in (1)
we cannot substitute CrossProduct or dot product operation  with simple multiplication.

If we use the same strategy in VectorCalculus package we can get some results:
using the following commands: 

a1 := PositionVector([a1x(a, s, r), a1y(a, s, r), a1z(a, s, r)], cartesian[x, y, z])
a2 := PositionVector([a2x(a, s, r), a2y(a, s, r), a2z(a, s, r)], cartesian[x, y, z])
a3T := CrossProduct(a1, a2)
diff(a3T, r)

but then (as it is shown in the upload picture 2) the calculations are performed component-wise
are very lengthy so it is impossible to get second derivative or second derivation.

So I would like to ask is it possible to declare a1 as a vector but not give its components a1x, a1y etc explicitely but instead
declare it as a vector valued function of (a, r, s). so that it yields simpler expressions 
as "a3_t,r= a1,r(x)a2 + a1(x)a2,r".

I would also like to know if those calculations can be made simpler with and another package and if so is there an appropriate example
or a book that explains how to do that.

I would really appreciate  any idea.
Because this is a difficult problem Maple can make it very easy.

Thank you in advance.


upload1.mw

I am not geting value of F3.

question_1.mw
 

restart

A1 := diff(f[3](x), x, x, x, x)+2*R*(((A-1)*x+1)*(diff((1/210)*R^2*((1/72)*(-204*A*C1^2-408*A*C1*C2-204*A*C2^2+204*C1^2+408*C1*C2+204*C2^2)*x^9+(1/56)*(784*A*C1^2+1176*A*C1*C2+392*A*C2^2-1036*C1^2-1680*C1*C2-644*C2^2)*x^8+(1/42)*(2394*A*C1^2*L+4788*A*C1*C2*L+2394*A*C2^2*L-28*A^3-1064*A*C1^2-1064*A*C1*C2-140*A*C2^2-2394*C1^2*L-4788*C1*C2*L-2394*C2^2*L+84*A^2+2072*C1^2+2576*C1*C2+644*C2^2-84*A+28)*x^7+(1/30)*(-6300*A*C1^2*L-9450*A*C1*C2*L-3150*A*C2^2*L+420*A*C1^2+210*A*C1*C2+8820*C1^2*L+14490*C1*C2*L+5670*C2^2*L-140*A^2-1960*C1^2-1750*C1*C2-280*C2^2+280*A-140)*x^6+(1/20)*(-2520*A*C1^2*L^2-5040*A*C1*C2*L^2-2520*A*C2^2*L^2+70*A^3*L+5348*A*C1^2*L+5516*A*C1*C2*L+728*A*C2^2*L+2520*C1^2*L^2+5040*C1*C2*L^2+2520*C2^2*L^2+42*A^3-210*A^2*L+200*A*C1^2+120*A*C1*C2-80*A*C2^2-12068*C1^2*L-15596*C1*C2*L-4088*C2^2*L+14*A^2+210*A*L+780*C1^2+440*C1*C2+220*C2^2-294*A-70*L+238)*x^5+(1/12)*(5040*A*C1^2*L^2+7560*A*C1*C2*L^2+2520*A*C2^2*L^2-1176*A*C1^2*L-672*A*C1*C2*L+84*A*C2^2*L-5040*C1^2*L^2-7560*C1*C2*L^2-2520*C2^2*L^2-14*A^3+210*A^2*L-136*A*C1^2-34*A*C1*C2+32*A*C2^2+7308*C1^2*L+7056*C1*C2*L+1008*C2^2*L+70*A^2-420*A*L-12*C1^2+18*C1*C2-180*C2^2+112*A+210*L-168)*x^4+(1/6)*(-2772*A*C1^2*L^2-3024*A*C1*C2*L^2-252*A*C2^2*L^2-63*A^3*L-300*A*C1^2*L-180*A*C1*C2*L+120*A*C2^2*L+2772*C1^2*L^2+3024*C1*C2*L^2+252*C2^2*L^2-21*A^2*L-1842*C1^2*L-1164*C1*C2*L-162*C2^2*L-28*A^2+231*A*L-48*C1^2-12*C1*C2+36*C2^2-14*A-147*L+42)*x^3)+(1/2)*(-(2/15)*L*R^2*A-(1/30)*L*R^2*A^2+(24/35)*L*R^2*C1^2+(17/35)*L*R^2*C2^2+(1/15)*L*R^2*A^3+(6/35)*L*R^2*C1*C2-(6/5)*L^2*R^2*C1*C2+(68/105)*L*R^2*A*C1^2-(16/105)*L*R^2*A*C2^2+(8/5)*L^2*R^2*A*C1^2-(2/5)*L^2*R^2*C2^2*A+(17/105)*L*R^2*A*C1*C2+(6/5)*L^2*R^2*A*C1*C2-(8/5)*C1^2*R^2*L^2+(2/5)*L^2*R^2*C2^2+(1/10)*L*R^2)*x^2+(-(86/525)*L*R^2*A*C1^2-(29/1050)*L*R^2*A*C1*C2+(1/350)*L*R^2*A*C2^2-(2/1575)*R^2*A^3+(1/140)*R^2*A*C1^2-(1/1260)*R^2*A*C1*C2+(1/420)*R^2*A*C2^2-(19/525)*L*R^2*C1^2-(1/175)*L*R^2*C1*C2-(89/525)*L*R^2*C2^2+(2/525)*R^2*A^2+(1/126)*C1^2*R^2-(1/1260)*R^2*C1*C2+(1/315)*R^2*C2^2+(11/6300)*R^2*A-(3/700)*R^2)*x, x))+(-2*R*(-(1/10)*A*C1*x^5-(1/10)*A*C2*x^5+(1/2)*A*C1*L*x^3+(1/6)*A*C1*x^4+(1/2)*A*C2*L*x^3+(1/12)*A*C2*x^4+(1/10)*x^5*C1+(1/10)*x^5*C2-A*C1*L*x^2-(1/2)*A*C2*L*x^2-(1/2)*C1*x^3*L-(5/12)*x^4*C1-(1/2)*C2*L*x^3-(1/3)*x^4*C2+C1*x^2*L+(2/3)*C1*x^3+(1/2)*C2*L*x^2+(1/3)*x^3*C2-(1/2)*C1*x^2)+(-A*C1*L*R+(2/15)*R*C1*A-(1/30)*R*A*C2+C1*L*R-(3/10)*R*C1+(1/5)*R*C2)*x)*(diff(-2*R*(-(1/10)*A*C1*x^5-(1/10)*A*C2*x^5+(1/2)*A*C1*L*x^3+(1/6)*A*C1*x^4+(1/2)*A*C2*L*x^3+(1/12)*A*C2*x^4+(1/10)*x^5*C1+(1/10)*x^5*C2-A*C1*L*x^2-(1/2)*A*C2*L*x^2-(1/2)*C1*x^3*L-(5/12)*x^4*C1-(1/2)*C2*L*x^3-(1/3)*x^4*C2+C1*x^2*L+(2/3)*C1*x^3+(1/2)*C2*L*x^2+(1/3)*x^3*C2-(1/2)*C1*x^2)+(-A*C1*L*R+(2/15)*R*C1*A-(1/30)*R*A*C2+C1*L*R-(3/10)*R*C1+(1/5)*R*C2)*x, x))+((1/210)*R^2*((1/72)*(-204*A*C1^2-408*A*C1*C2-204*A*C2^2+204*C1^2+408*C1*C2+204*C2^2)*x^9+(1/56)*(784*A*C1^2+1176*A*C1*C2+392*A*C2^2-1036*C1^2-1680*C1*C2-644*C2^2)*x^8+(1/42)*(2394*A*C1^2*L+4788*A*C1*C2*L+2394*A*C2^2*L-28*A^3-1064*A*C1^2-1064*A*C1*C2-140*A*C2^2-2394*C1^2*L-4788*C1*C2*L-2394*C2^2*L+84*A^2+2072*C1^2+2576*C1*C2+644*C2^2-84*A+28)*x^7+(1/30)*(-6300*A*C1^2*L-9450*A*C1*C2*L-3150*A*C2^2*L+420*A*C1^2+210*A*C1*C2+8820*C1^2*L+14490*C1*C2*L+5670*C2^2*L-140*A^2-1960*C1^2-1750*C1*C2-280*C2^2+280*A-140)*x^6+(1/20)*(-2520*A*C1^2*L^2-5040*A*C1*C2*L^2-2520*A*C2^2*L^2+70*A^3*L+5348*A*C1^2*L+5516*A*C1*C2*L+728*A*C2^2*L+2520*C1^2*L^2+5040*C1*C2*L^2+2520*C2^2*L^2+42*A^3-210*A^2*L+200*A*C1^2+120*A*C1*C2-80*A*C2^2-12068*C1^2*L-15596*C1*C2*L-4088*C2^2*L+14*A^2+210*A*L+780*C1^2+440*C1*C2+220*C2^2-294*A-70*L+238)*x^5+(1/12)*(5040*A*C1^2*L^2+7560*A*C1*C2*L^2+2520*A*C2^2*L^2-1176*A*C1^2*L-672*A*C1*C2*L+84*A*C2^2*L-5040*C1^2*L^2-7560*C1*C2*L^2-2520*C2^2*L^2-14*A^3+210*A^2*L-136*A*C1^2-34*A*C1*C2+32*A*C2^2+7308*C1^2*L+7056*C1*C2*L+1008*C2^2*L+70*A^2-420*A*L-12*C1^2+18*C1*C2-180*C2^2+112*A+210*L-168)*x^4+(1/6)*(-2772*A*C1^2*L^2-3024*A*C1*C2*L^2-252*A*C2^2*L^2-63*A^3*L-300*A*C1^2*L-180*A*C1*C2*L+120*A*C2^2*L+2772*C1^2*L^2+3024*C1*C2*L^2+252*C2^2*L^2-21*A^2*L-1842*C1^2*L-1164*C1*C2*L-162*C2^2*L-28*A^2+231*A*L-48*C1^2-12*C1*C2+36*C2^2-14*A-147*L+42)*x^3)+(1/2)*(-(2/15)*L*R^2*A-(1/30)*L*R^2*A^2+(24/35)*L*R^2*C1^2+(17/35)*L*R^2*C2^2+(1/15)*L*R^2*A^3+(6/35)*L*R^2*C1*C2-(6/5)*L^2*R^2*C1*C2+(68/105)*L*R^2*A*C1^2-(16/105)*L*R^2*A*C2^2+(8/5)*L^2*R^2*A*C1^2-(2/5)*L^2*R^2*C2^2*A+(17/105)*L*R^2*A*C1*C2+(6/5)*L^2*R^2*A*C1*C2-(8/5)*C1^2*R^2*L^2+(2/5)*L^2*R^2*C2^2+(1/10)*L*R^2)*x^2+(-(86/525)*L*R^2*A*C1^2-(29/1050)*L*R^2*A*C1*C2+(1/350)*L*R^2*A*C2^2-(2/1575)*R^2*A^3+(1/140)*R^2*A*C1^2-(1/1260)*R^2*A*C1*C2+(1/420)*R^2*A*C2^2-(19/525)*L*R^2*C1^2-(1/175)*L*R^2*C1*C2-(89/525)*L*R^2*C2^2+(2/525)*R^2*A^2+(1/126)*C1^2*R^2-(1/1260)*R^2*C1*C2+(1/315)*R^2*C2^2+(11/6300)*R^2*A-(3/700)*R^2)*x)*(diff((A-1)*x+1, x))+((1/6)*(6*C2+6*C1)*x^3+(1/2)*(-2*C2-4*C1)*x^2+C1*x)*(diff(-(1/105)*R^2*((1/7920)*(-648*C1^3-1944*C1^2*C2-1944*C1*C2^2-648*C2^3)*x^11+(1/5040)*(3024*C1^3+7560*C1^2*C2+6048*C1*C2^2+1512*C2^3)*x^10+(1/3024)*(16632*C1^3*L+49896*C1^2*C2*L+49896*C1*C2^2*L+16632*C2^3*L+21*A^2*C1+21*A^2*C2-5376*C1^3-10752*C1^2*C2-6216*C1*C2^2-840*C2^3-42*A*C1-42*A*C2+21*C1+21*C2)*x^9+(1/1680)*(-55440*C1^3*L-138600*C1^2*C2*L-110880*C1*C2^2*L-27720*C2^3*L+70*A^2*C1+35*A^2*C2+4200*C1^3+6300*C1^2*C2+2100*C1*C2^2+70*A*C1+140*A*C2-140*C1-175*C2)*x^8+(1/840)*(-83160*C1^3*L^2-249480*C1^2*C2*L^2-249480*C1*C2^2*L^2-83160*C2^3*L^2+210*A^2*C1*L+210*A^2*C2*L+65184*C1^3*L+130872*C1^2*C2*L+75432*C1*C2^2*L+9744*C2^3*L-84*A^2*C1+126*A^2*C2-420*A*C1*L-420*A*C2*L-996*C1^3-888*C1^2*C2-48*C1*C2^2-156*C2^3+28*A*C1-112*A*C2+210*C1*L+210*C2*L+476*C1+406*C2)*x^7+(1/360)*(166320*C1^3*L^2+415800*C1^2*C2*L^2+332640*C1*C2^2*L^2+83160*C2^3*L^2+840*A^2*C1*L+420*A^2*C2*L-29232*C1^3*L-44604*C1^2*C2*L-15372*C1*C2^2*L-168*A^2*C1-105*A^2*C2+210*A*C1*L+1050*A*C2*L-336*C1^3-330*C1^2*C2+138*C1*C2^2+132*C2^3+21*A*C1-105*A*C2-1050*C1*L-1470*C2*L-693*C1-210*C2)*x^6+(1/120)*(1890*A^2*C1*L^2+1890*A^2*C2*L^2-101304*C1^3*L^2-205632*C1^2*C2*L^2-122472*C1*C2^2*L^2-18144*C2^3*L^2-966*A^2*C1*L-756*A^2*C2*L-3780*A*C1*L^2-3780*A*C2*L^2+2448*C1^3*L+2052*C1^2*C2*L+540*C1*C2^2*L+936*C2^3*L+119*A^2*C1-14*A^2*C2+252*A*C1*L-588*A*C2*L+132*C1^3+54*C1^2*C2-78*C1*C2^2+1890*C1*L^2+1890*C2*L^2-98*A*C1+98*A*C2+714*C1*L+1344*C2*L+399*C1-84*C2)*x^5)+(1/24)*(-2*L*R^2*A*C2-(1368/5)*L^2*R^2*C1^2*C2-(504/5)*L^2*R^2*C1*C2^2-(44/7)*L*R^2*C1^2*C2+(92/35)*L*R^2*C1*C2^2-(16/5)*L*R^2*A^2*C1-2*L*R^2*A^2*C2-24*L^2*R^2*A*C1-12*L^2*R^2*A*C2+12*L^2*R^2*A^2*C1+6*L^2*R^2*A^2*C2-(4/15)*R^2*A*C1+(12/5)*L*R^2*A*C1+(1/15)*R^2*A*C2+(4/5)*L*R^2*C1+4*L*R^2*C2+12*L^2*R^2*C1+6*L^2*R^2*C2-(864/5)*L^2*R^2*C1^3-(32/5)*L*R^2*C1^3+(88/35)*L*R^2*C2^3-(2/5)*R^2*C2+(3/5)*R^2*C1)*x^4+(1/6)*((157/6300)*R^2*A*C1-(446/525)*L*R^2*A*C1-(2777/242550)*R^2*C1*C2^2+(653/12600)*R^2*A^2*C1+(1783/121275)*R^2*C2^3+(1783/121275)*R^2*C1^3+(359/525)*L*R^2*A*C2+(3882/175)*L^2*R^2*C1^2*C2+(312/175)*L^2*R^2*C1*C2^2+(102/175)*L*R^2*C1^2*C2-(118/175)*L*R^2*C1*C2^2+(33/5)*L^2*R^2*A*C1-(61/1800)*R^2*C1+(13/525)*L*R^2*C1+(157/6300)*R^2*A*C2-(989/1050)*L*R^2*C2-(3/10)*L^2*R^2*C2+(3324/175)*L^2*R^2*C1^3-(61/1800)*R^2*A^2*C2+(209/175)*L*R^2*C1^3-(11/175)*L*R^2*C2^3-(2777/242550)*R^2*C1^2*C2-(246/175)*R^2*L^2*C2^3+(653/12600)*R^2*C2-(33/10)*L^2*R^2*C1+(433/525)*L*R^2*A^2*C1+(271/1050)*L*R^2*A^2*C2+(3/5)*L^2*R^2*A*C2-(33/10)*L^2*R^2*A^2*C1-(3/10)*L^2*R^2*A^2*C2)*x^3+(1/2)*((1/1575)*R^2*A*C1+(131/1050)*L*R^2*A*C1+(59/121275)*R^2*C1*C2^2-(13/1575)*R^2*A^2*C1-(314/121275)*R^2*C2^3-(83/121275)*R^2*C1^3-(19/175)*L*R^2*A*C2-(156/175)*L^2*R^2*C1^2*C2+(54/175)*L^2*R^2*C1*C2^2+(1/175)*L*R^2*C1^2*C2+(8/175)*L*R^2*C1*C2^2-(4/5)*L^2*R^2*A*C1-(17/6300)*R^2*C1-(13/1050)*L*R^2*C1-(8/1575)*R^2*A*C2+(127/1050)*L*R^2*C2-(1/10)*L^2*R^2*C2-(192/175)*L^2*R^2*C1^3+(29/4200)*R^2*A^2*C2-(12/175)*L*R^2*C1^3-(1/35)*L*R^2*C2^3+(58/24255)*R^2*C1^2*C2+(18/175)*R^2*L^2*C2^3-(13/12600)*R^2*C2+(2/5)*L^2*R^2*C1-(59/525)*L*R^2*A^2*C1-(13/1050)*L*R^2*A^2*C2+(1/5)*L^2*R^2*A*C2+(2/5)*L^2*R^2*A^2*C1-(1/10)*L^2*R^2*A^2*C2)*x^2, x, x, x))+(-2*R*((1/140)*C1^2*x^7+(1/70)*C1*C2*x^7+(1/140)*C2^2*x^7-(3/10)*C1^2*L*x^5-(1/30)*C1^2*x^6-(3/5)*C1*C2*L*x^5-(1/20)*C1*C2*x^6-(3/10)*C2^2*L*x^5-(1/60)*C2^2*x^6+(1/120)*A^2*x^5+C1^2*L*x^4+(1/20)*C1^2*x^5+(3/2)*C1*C2*L*x^4+(1/20)*C1*C2*x^5+(1/2)*C2^2*L*x^4-(1/60)*x^5*A+(1/24)*x^4*A+(1/120)*x^5-(1/24)*x^4)+(1/6)*((66/5)*C1^2*L*R+(72/5)*C1*C2*L*R+(6/5)*C2^2*L*R+(3/10)*R*A^2+(22/35)*R*C1^2+(9/35)*R*C1*C2-(13/35)*R*C2^2+(2/5)*R*A-(7/10)*R)*x^3+(1/2)*(-(8/5)*C1^2*L*R-(6/5)*C1*C2*L*R+(2/5)*C2^2*L*R-(1/15)*R*A^2-(4/35)*R*C1^2-(1/35)*R*C1*C2+(3/35)*R*C2^2-(1/30)*R*A+(1/10)*R)*x^2)*(diff(-2*R*((1/140)*C1^2*x^7+(1/70)*C1*C2*x^7+(1/140)*C2^2*x^7-(3/10)*C1^2*L*x^5-(1/30)*C1^2*x^6-(3/5)*C1*C2*L*x^5-(1/20)*C1*C2*x^6-(3/10)*C2^2*L*x^5-(1/60)*C2^2*x^6+(1/120)*A^2*x^5+C1^2*L*x^4+(1/20)*C1^2*x^5+(3/2)*C1*C2*L*x^4+(1/20)*C1*C2*x^5+(1/2)*C2^2*L*x^4-(1/60)*x^5*A+(1/24)*x^4*A+(1/120)*x^5-(1/24)*x^4)+(1/6)*((66/5)*C1^2*L*R+(72/5)*C1*C2*L*R+(6/5)*C2^2*L*R+(3/10)*R*A^2+(22/35)*R*C1^2+(9/35)*R*C1*C2-(13/35)*R*C2^2+(2/5)*R*A-(7/10)*R)*x^3+(1/2)*(-(8/5)*C1^2*L*R-(6/5)*C1*C2*L*R+(2/5)*C2^2*L*R-(1/15)*R*A^2-(4/35)*R*C1^2-(1/35)*R*C1*C2+(3/35)*R*C2^2-(1/30)*R*A+(1/10)*R)*x^2, x, x, x))+(-(1/105)*R^2*((1/7920)*(-648*C1^3-1944*C1^2*C2-1944*C1*C2^2-648*C2^3)*x^11+(1/5040)*(3024*C1^3+7560*C1^2*C2+6048*C1*C2^2+1512*C2^3)*x^10+(1/3024)*(16632*C1^3*L+49896*C1^2*C2*L+49896*C1*C2^2*L+16632*C2^3*L+21*A^2*C1+21*A^2*C2-5376*C1^3-10752*C1^2*C2-6216*C1*C2^2-840*C2^3-42*A*C1-42*A*C2+21*C1+21*C2)*x^9+(1/1680)*(-55440*C1^3*L-138600*C1^2*C2*L-110880*C1*C2^2*L-27720*C2^3*L+70*A^2*C1+35*A^2*C2+4200*C1^3+6300*C1^2*C2+2100*C1*C2^2+70*A*C1+140*A*C2-140*C1-175*C2)*x^8+(1/840)*(-83160*C1^3*L^2-249480*C1^2*C2*L^2-249480*C1*C2^2*L^2-83160*C2^3*L^2+210*A^2*C1*L+210*A^2*C2*L+65184*C1^3*L+130872*C1^2*C2*L+75432*C1*C2^2*L+9744*C2^3*L-84*A^2*C1+126*A^2*C2-420*A*C1*L-420*A*C2*L-996*C1^3-888*C1^2*C2-48*C1*C2^2-156*C2^3+28*A*C1-112*A*C2+210*C1*L+210*C2*L+476*C1+406*C2)*x^7+(1/360)*(166320*C1^3*L^2+415800*C1^2*C2*L^2+332640*C1*C2^2*L^2+83160*C2^3*L^2+840*A^2*C1*L+420*A^2*C2*L-29232*C1^3*L-44604*C1^2*C2*L-15372*C1*C2^2*L-168*A^2*C1-105*A^2*C2+210*A*C1*L+1050*A*C2*L-336*C1^3-330*C1^2*C2+138*C1*C2^2+132*C2^3+21*A*C1-105*A*C2-1050*C1*L-1470*C2*L-693*C1-210*C2)*x^6+(1/120)*(1890*A^2*C1*L^2+1890*A^2*C2*L^2-101304*C1^3*L^2-205632*C1^2*C2*L^2-122472*C1*C2^2*L^2-18144*C2^3*L^2-966*A^2*C1*L-756*A^2*C2*L-3780*A*C1*L^2-3780*A*C2*L^2+2448*C1^3*L+2052*C1^2*C2*L+540*C1*C2^2*L+936*C2^3*L+119*A^2*C1-14*A^2*C2+252*A*C1*L-588*A*C2*L+132*C1^3+54*C1^2*C2-78*C1*C2^2+1890*C1*L^2+1890*C2*L^2-98*A*C1+98*A*C2+714*C1*L+1344*C2*L+399*C1-84*C2)*x^5)+(1/24)*(-2*L*R^2*A*C2-(1368/5)*L^2*R^2*C1^2*C2-(504/5)*L^2*R^2*C1*C2^2-(44/7)*L*R^2*C1^2*C2+(92/35)*L*R^2*C1*C2^2-(16/5)*L*R^2*A^2*C1-2*L*R^2*A^2*C2-24*L^2*R^2*A*C1-12*L^2*R^2*A*C2+12*L^2*R^2*A^2*C1+6*L^2*R^2*A^2*C2-(4/15)*R^2*A*C1+(12/5)*L*R^2*A*C1+(1/15)*R^2*A*C2+(4/5)*L*R^2*C1+4*L*R^2*C2+12*L^2*R^2*C1+6*L^2*R^2*C2-(864/5)*L^2*R^2*C1^3-(32/5)*L*R^2*C1^3+(88/35)*L*R^2*C2^3-(2/5)*R^2*C2+(3/5)*R^2*C1)*x^4+(1/6)*((157/6300)*R^2*A*C1-(446/525)*L*R^2*A*C1-(2777/242550)*R^2*C1*C2^2+(653/12600)*R^2*A^2*C1+(1783/121275)*R^2*C2^3+(1783/121275)*R^2*C1^3+(359/525)*L*R^2*A*C2+(3882/175)*L^2*R^2*C1^2*C2+(312/175)*L^2*R^2*C1*C2^2+(102/175)*L*R^2*C1^2*C2-(118/175)*L*R^2*C1*C2^2+(33/5)*L^2*R^2*A*C1-(61/1800)*R^2*C1+(13/525)*L*R^2*C1+(157/6300)*R^2*A*C2-(989/1050)*L*R^2*C2-(3/10)*L^2*R^2*C2+(3324/175)*L^2*R^2*C1^3-(61/1800)*R^2*A^2*C2+(209/175)*L*R^2*C1^3-(11/175)*L*R^2*C2^3-(2777/242550)*R^2*C1^2*C2-(246/175)*R^2*L^2*C2^3+(653/12600)*R^2*C2-(33/10)*L^2*R^2*C1+(433/525)*L*R^2*A^2*C1+(271/1050)*L*R^2*A^2*C2+(3/5)*L^2*R^2*A*C2-(33/10)*L^2*R^2*A^2*C1-(3/10)*L^2*R^2*A^2*C2)*x^3+(1/2)*((1/1575)*R^2*A*C1+(131/1050)*L*R^2*A*C1+(59/121275)*R^2*C1*C2^2-(13/1575)*R^2*A^2*C1-(314/121275)*R^2*C2^3-(83/121275)*R^2*C1^3-(19/175)*L*R^2*A*C2-(156/175)*L^2*R^2*C1^2*C2+(54/175)*L^2*R^2*C1*C2^2+(1/175)*L*R^2*C1^2*C2+(8/175)*L*R^2*C1*C2^2-(4/5)*L^2*R^2*A*C1-(17/6300)*R^2*C1-(13/1050)*L*R^2*C1-(8/1575)*R^2*A*C2+(127/1050)*L*R^2*C2-(1/10)*L^2*R^2*C2-(192/175)*L^2*R^2*C1^3+(29/4200)*R^2*A^2*C2-(12/175)*L*R^2*C1^3-(1/35)*L*R^2*C2^3+(58/24255)*R^2*C1^2*C2+(18/175)*R^2*L^2*C2^3-(13/12600)*R^2*C2+(2/5)*L^2*R^2*C1-(59/525)*L*R^2*A^2*C1-(13/1050)*L*R^2*A^2*C2+(1/5)*L^2*R^2*A*C2+(2/5)*L^2*R^2*A^2*C1-(1/10)*L^2*R^2*A^2*C2)*x^2)*(diff((1/6)*(6*C2+6*C1)*x^3+(1/2)*(-2*C2-4*C1)*x^2+C1*x, x, x, x)))-L*R*((diff((1/6)*(6*C2+6*C1)*x^3+(1/2)*(-2*C2-4*C1)*x^2+C1*x, x))*(diff(-(1/105)*R^2*((1/7920)*(-648*C1^3-1944*C1^2*C2-1944*C1*C2^2-648*C2^3)*x^11+(1/5040)*(3024*C1^3+7560*C1^2*C2+6048*C1*C2^2+1512*C2^3)*x^10+(1/3024)*(16632*C1^3*L+49896*C1^2*C2*L+49896*C1*C2^2*L+16632*C2^3*L+21*A^2*C1+21*A^2*C2-5376*C1^3-10752*C1^2*C2-6216*C1*C2^2-840*C2^3-42*A*C1-42*A*C2+21*C1+21*C2)*x^9+(1/1680)*(-55440*C1^3*L-138600*C1^2*C2*L-110880*C1*C2^2*L-27720*C2^3*L+70*A^2*C1+35*A^2*C2+4200*C1^3+6300*C1^2*C2+2100*C1*C2^2+70*A*C1+140*A*C2-140*C1-175*C2)*x^8+(1/840)*(-83160*C1^3*L^2-249480*C1^2*C2*L^2-249480*C1*C2^2*L^2-83160*C2^3*L^2+210*A^2*C1*L+210*A^2*C2*L+65184*C1^3*L+130872*C1^2*C2*L+75432*C1*C2^2*L+9744*C2^3*L-84*A^2*C1+126*A^2*C2-420*A*C1*L-420*A*C2*L-996*C1^3-888*C1^2*C2-48*C1*C2^2-156*C2^3+28*A*C1-112*A*C2+210*C1*L+210*C2*L+476*C1+406*C2)*x^7+(1/360)*(166320*C1^3*L^2+415800*C1^2*C2*L^2+332640*C1*C2^2*L^2+83160*C2^3*L^2+840*A^2*C1*L+420*A^2*C2*L-29232*C1^3*L-44604*C1^2*C2*L-15372*C1*C2^2*L-168*A^2*C1-105*A^2*C2+210*A*C1*L+1050*A*C2*L-336*C1^3-330*C1^2*C2+138*C1*C2^2+132*C2^3+21*A*C1-105*A*C2-1050*C1*L-1470*C2*L-693*C1-210*C2)*x^6+(1/120)*(1890*A^2*C1*L^2+1890*A^2*C2*L^2-101304*C1^3*L^2-205632*C1^2*C2*L^2-122472*C1*C2^2*L^2-18144*C2^3*L^2-966*A^2*C1*L-756*A^2*C2*L-3780*A*C1*L^2-3780*A*C2*L^2+2448*C1^3*L+2052*C1^2*C2*L+540*C1*C2^2*L+936*C2^3*L+119*A^2*C1-14*A^2*C2+252*A*C1*L-588*A*C2*L+132*C1^3+54*C1^2*C2-78*C1*C2^2+1890*C1*L^2+1890*C2*L^2-98*A*C1+98*A*C2+714*C1*L+1344*C2*L+399*C1-84*C2)*x^5)+(1/24)*(-2*L*R^2*A*C2-(1368/5)*L^2*R^2*C1^2*C2-(504/5)*L^2*R^2*C1*C2^2-(44/7)*L*R^2*C1^2*C2+(92/35)*L*R^2*C1*C2^2-(16/5)*L*R^2*A^2*C1-2*L*R^2*A^2*C2-24*L^2*R^2*A*C1-12*L^2*R^2*A*C2+12*L^2*R^2*A^2*C1+6*L^2*R^2*A^2*C2-(4/15)*R^2*A*C1+(12/5)*L*R^2*A*C1+(1/15)*R^2*A*C2+(4/5)*L*R^2*C1+4*L*R^2*C2+12*L^2*R^2*C1+6*L^2*R^2*C2-(864/5)*L^2*R^2*C1^3-(32/5)*L*R^2*C1^3+(88/35)*L*R^2*C2^3-(2/5)*R^2*C2+(3/5)*R^2*C1)*x^4+(1/6)*((157/6300)*R^2*A*C1-(446/525)*L*R^2*A*C1-(2777/242550)*R^2*C1*C2^2+(653/12600)*R^2*A^2*C1+(1783/121275)*R^2*C2^3+(1783/121275)*R^2*C1^3+(359/525)*L*R^2*A*C2+(3882/175)*L^2*R^2*C1^2*C2+(312/175)*L^2*R^2*C1*C2^2+(102/175)*L*R^2*C1^2*C2-(118/175)*L*R^2*C1*C2^2+(33/5)*L^2*R^2*A*C1-(61/1800)*R^2*C1+(13/525)*L*R^2*C1+(157/6300)*R^2*A*C2-(989/1050)*L*R^2*C2-(3/10)*L^2*R^2*C2+(3324/175)*L^2*R^2*C1^3-(61/1800)*R^2*A^2*C2+(209/175)*L*R^2*C1^3-(11/175)*L*R^2*C2^3-(2777/242550)*R^2*C1^2*C2-(246/175)*R^2*L^2*C2^3+(653/12600)*R^2*C2-(33/10)*L^2*R^2*C1+(433/525)*L*R^2*A^2*C1+(271/1050)*L*R^2*A^2*C2+(3/5)*L^2*R^2*A*C2-(33/10)*L^2*R^2*A^2*C1-(3/10)*L^2*R^2*A^2*C2)*x^3+(1/2)*((1/1575)*R^2*A*C1+(131/1050)*L*R^2*A*C1+(59/121275)*R^2*C1*C2^2-(13/1575)*R^2*A^2*C1-(314/121275)*R^2*C2^3-(83/121275)*R^2*C1^3-(19/175)*L*R^2*A*C2-(156/175)*L^2*R^2*C1^2*C2+(54/175)*L^2*R^2*C1*C2^2+(1/175)*L*R^2*C1^2*C2+(8/175)*L*R^2*C1*C2^2-(4/5)*L^2*R^2*A*C1-(17/6300)*R^2*C1-(13/1050)*L*R^2*C1-(8/1575)*R^2*A*C2+(127/1050)*L*R^2*C2-(1/10)*L^2*R^2*C2-(192/175)*L^2*R^2*C1^3+(29/4200)*R^2*A^2*C2-(12/175)*L*R^2*C1^3-(1/35)*L*R^2*C2^3+(58/24255)*R^2*C1^2*C2+(18/175)*R^2*L^2*C2^3-(13/12600)*R^2*C2+(2/5)*L^2*R^2*C1-(59/525)*L*R^2*A^2*C1-(13/1050)*L*R^2*A^2*C2+(1/5)*L^2*R^2*A*C2+(2/5)*L^2*R^2*A^2*C1-(1/10)*L^2*R^2*A^2*C2)*x^2, x, x, x, x))+(diff(-2*R*((1/140)*C1^2*x^7+(1/70)*C1*C2*x^7+(1/140)*C2^2*x^7-(3/10)*C1^2*L*x^5-(1/30)*C1^2*x^6-(3/5)*C1*C2*L*x^5-(1/20)*C1*C2*x^6-(3/10)*C2^2*L*x^5-(1/60)*C2^2*x^6+(1/120)*A^2*x^5+C1^2*L*x^4+(1/20)*C1^2*x^5+(3/2)*C1*C2*L*x^4+(1/20)*C1*C2*x^5+(1/2)*C2^2*L*x^4-(1/60)*x^5*A+(1/24)*x^4*A+(1/120)*x^5-(1/24)*x^4)+(1/6)*((66/5)*C1^2*L*R+(72/5)*C1*C2*L*R+(6/5)*C2^2*L*R+(3/10)*R*A^2+(22/35)*R*C1^2+(9/35)*R*C1*C2-(13/35)*R*C2^2+(2/5)*R*A-(7/10)*R)*x^3+(1/2)*(-(8/5)*C1^2*L*R-(6/5)*C1*C2*L*R+(2/5)*C2^2*L*R-(1/15)*R*A^2-(4/35)*R*C1^2-(1/35)*R*C1*C2+(3/35)*R*C2^2-(1/30)*R*A+(1/10)*R)*x^2, x))*(diff(-2*R*((1/140)*C1^2*x^7+(1/70)*C1*C2*x^7+(1/140)*C2^2*x^7-(3/10)*C1^2*L*x^5-(1/30)*C1^2*x^6-(3/5)*C1*C2*L*x^5-(1/20)*C1*C2*x^6-(3/10)*C2^2*L*x^5-(1/60)*C2^2*x^6+(1/120)*A^2*x^5+C1^2*L*x^4+(1/20)*C1^2*x^5+(3/2)*C1*C2*L*x^4+(1/20)*C1*C2*x^5+(1/2)*C2^2*L*x^4-(1/60)*x^5*A+(1/24)*x^4*A+(1/120)*x^5-(1/24)*x^4)+(1/6)*((66/5)*C1^2*L*R+(72/5)*C1*C2*L*R+(6/5)*C2^2*L*R+(3/10)*R*A^2+(22/35)*R*C1^2+(9/35)*R*C1*C2-(13/35)*R*C2^2+(2/5)*R*A-(7/10)*R)*x^3+(1/2)*(-(8/5)*C1^2*L*R-(6/5)*C1*C2*L*R+(2/5)*C2^2*L*R-(1/15)*R*A^2-(4/35)*R*C1^2-(1/35)*R*C1*C2+(3/35)*R*C2^2-(1/30)*R*A+(1/10)*R)*x^2, x, x, x, x))+(diff(-(1/105)*R^2*((1/7920)*(-648*C1^3-1944*C1^2*C2-1944*C1*C2^2-648*C2^3)*x^11+(1/5040)*(3024*C1^3+7560*C1^2*C2+6048*C1*C2^2+1512*C2^3)*x^10+(1/3024)*(16632*C1^3*L+49896*C1^2*C2*L+49896*C1*C2^2*L+16632*C2^3*L+21*A^2*C1+21*A^2*C2-5376*C1^3-10752*C1^2*C2-6216*C1*C2^2-840*C2^3-42*A*C1-42*A*C2+21*C1+21*C2)*x^9+(1/1680)*(-55440*C1^3*L-138600*C1^2*C2*L-110880*C1*C2^2*L-27720*C2^3*L+70*A^2*C1+35*A^2*C2+4200*C1^3+6300*C1^2*C2+2100*C1*C2^2+70*A*C1+140*A*C2-140*C1-175*C2)*x^8+(1/840)*(-83160*C1^3*L^2-249480*C1^2*C2*L^2-249480*C1*C2^2*L^2-83160*C2^3*L^2+210*A^2*C1*L+210*A^2*C2*L+65184*C1^3*L+130872*C1^2*C2*L+75432*C1*C2^2*L+9744*C2^3*L-84*A^2*C1+126*A^2*C2-420*A*C1*L-420*A*C2*L-996*C1^3-888*C1^2*C2-48*C1*C2^2-156*C2^3+28*A*C1-112*A*C2+210*C1*L+210*C2*L+476*C1+406*C2)*x^7+(1/360)*(166320*C1^3*L^2+415800*C1^2*C2*L^2+332640*C1*C2^2*L^2+83160*C2^3*L^2+840*A^2*C1*L+420*A^2*C2*L-29232*C1^3*L-44604*C1^2*C2*L-15372*C1*C2^2*L-168*A^2*C1-105*A^2*C2+210*A*C1*L+1050*A*C2*L-336*C1^3-330*C1^2*C2+138*C1*C2^2+132*C2^3+21*A*C1-105*A*C2-1050*C1*L-1470*C2*L-693*C1-210*C2)*x^6+(1/120)*(1890*A^2*C1*L^2+1890*A^2*C2*L^2-101304*C1^3*L^2-205632*C1^2*C2*L^2-122472*C1*C2^2*L^2-18144*C2^3*L^2-966*A^2*C1*L-756*A^2*C2*L-3780*A*C1*L^2-3780*A*C2*L^2+2448*C1^3*L+2052*C1^2*C2*L+540*C1*C2^2*L+936*C2^3*L+119*A^2*C1-14*A^2*C2+252*A*C1*L-588*A*C2*L+132*C1^3+54*C1^2*C2-78*C1*C2^2+1890*C1*L^2+1890*C2*L^2-98*A*C1+98*A*C2+714*C1*L+1344*C2*L+399*C1-84*C2)*x^5)+(1/24)*(-2*L*R^2*A*C2-(1368/5)*L^2*R^2*C1^2*C2-(504/5)*L^2*R^2*C1*C2^2-(44/7)*L*R^2*C1^2*C2+(92/35)*L*R^2*C1*C2^2-(16/5)*L*R^2*A^2*C1-2*L*R^2*A^2*C2-24*L^2*R^2*A*C1-12*L^2*R^2*A*C2+12*L^2*R^2*A^2*C1+6*L^2*R^2*A^2*C2-(4/15)*R^2*A*C1+(12/5)*L*R^2*A*C1+(1/15)*R^2*A*C2+(4/5)*L*R^2*C1+4*L*R^2*C2+12*L^2*R^2*C1+6*L^2*R^2*C2-(864/5)*L^2*R^2*C1^3-(32/5)*L*R^2*C1^3+(88/35)*L*R^2*C2^3-(2/5)*R^2*C2+(3/5)*R^2*C1)*x^4+(1/6)*((157/6300)*R^2*A*C1-(446/525)*L*R^2*A*C1-(2777/242550)*R^2*C1*C2^2+(653/12600)*R^2*A^2*C1+(1783/121275)*R^2*C2^3+(1783/121275)*R^2*C1^3+(359/525)*L*R^2*A*C2+(3882/175)*L^2*R^2*C1^2*C2+(312/175)*L^2*R^2*C1*C2^2+(102/175)*L*R^2*C1^2*C2-(118/175)*L*R^2*C1*C2^2+(33/5)*L^2*R^2*A*C1-(61/1800)*R^2*C1+(13/525)*L*R^2*C1+(157/6300)*R^2*A*C2-(989/1050)*L*R^2*C2-(3/10)*L^2*R^2*C2+(3324/175)*L^2*R^2*C1^3-(61/1800)*R^2*A^2*C2+(209/175)*L*R^2*C1^3-(11/175)*L*R^2*C2^3-(2777/242550)*R^2*C1^2*C2-(246/175)*R^2*L^2*C2^3+(653/12600)*R^2*C2-(33/10)*L^2*R^2*C1+(433/525)*L*R^2*A^2*C1+(271/1050)*L*R^2*A^2*C2+(3/5)*L^2*R^2*A*C2-(33/10)*L^2*R^2*A^2*C1-(3/10)*L^2*R^2*A^2*C2)*x^3+(1/2)*((1/1575)*R^2*A*C1+(131/1050)*L*R^2*A*C1+(59/121275)*R^2*C1*C2^2-(13/1575)*R^2*A^2*C1-(314/121275)*R^2*C2^3-(83/121275)*R^2*C1^3-(19/175)*L*R^2*A*C2-(156/175)*L^2*R^2*C1^2*C2+(54/175)*L^2*R^2*C1*C2^2+(1/175)*L*R^2*C1^2*C2+(8/175)*L*R^2*C1*C2^2-(4/5)*L^2*R^2*A*C1-(17/6300)*R^2*C1-(13/1050)*L*R^2*C1-(8/1575)*R^2*A*C2+(127/1050)*L*R^2*C2-(1/10)*L^2*R^2*C2-(192/175)*L^2*R^2*C1^3+(29/4200)*R^2*A^2*C2-(12/175)*L*R^2*C1^3-(1/35)*L*R^2*C2^3+(58/24255)*R^2*C1^2*C2+(18/175)*R^2*L^2*C2^3-(13/12600)*R^2*C2+(2/5)*L^2*R^2*C1-(59/525)*L*R^2*A^2*C1-(13/1050)*L*R^2*A^2*C2+(1/5)*L^2*R^2*A*C2+(2/5)*L^2*R^2*A^2*C1-(1/10)*L^2*R^2*A^2*C2)*x^2, x))*(diff((1/6)*(6*C2+6*C1)*x^3+(1/2)*(-2*C2-4*C1)*x^2+C1*x, x, x, x, x))+3*(diff((A-1)*x+1, x))*(diff((1/210)*R^2*((1/72)*(-204*A*C1^2-408*A*C1*C2-204*A*C2^2+204*C1^2+408*C1*C2+204*C2^2)*x^9+(1/56)*(784*A*C1^2+1176*A*C1*C2+392*A*C2^2-1036*C1^2-1680*C1*C2-644*C2^2)*x^8+(1/42)*(2394*A*C1^2*L+4788*A*C1*C2*L+2394*A*C2^2*L-28*A^3-1064*A*C1^2-1064*A*C1*C2-140*A*C2^2-2394*C1^2*L-4788*C1*C2*L-2394*C2^2*L+84*A^2+2072*C1^2+2576*C1*C2+644*C2^2-84*A+28)*x^7+(1/30)*(-6300*A*C1^2*L-9450*A*C1*C2*L-3150*A*C2^2*L+420*A*C1^2+210*A*C1*C2+8820*C1^2*L+14490*C1*C2*L+5670*C2^2*L-140*A^2-1960*C1^2-1750*C1*C2-280*C2^2+280*A-140)*x^6+(1/20)*(-2520*A*C1^2*L^2-5040*A*C1*C2*L^2-2520*A*C2^2*L^2+70*A^3*L+5348*A*C1^2*L+5516*A*C1*C2*L+728*A*C2^2*L+2520*C1^2*L^2+5040*C1*C2*L^2+2520*C2^2*L^2+42*A^3-210*A^2*L+200*A*C1^2+120*A*C1*C2-80*A*C2^2-12068*C1^2*L-15596*C1*C2*L-4088*C2^2*L+14*A^2+210*A*L+780*C1^2+440*C1*C2+220*C2^2-294*A-70*L+238)*x^5+(1/12)*(5040*A*C1^2*L^2+7560*A*C1*C2*L^2+2520*A*C2^2*L^2-1176*A*C1^2*L-672*A*C1*C2*L+84*A*C2^2*L-5040*C1^2*L^2-7560*C1*C2*L^2-2520*C2^2*L^2-14*A^3+210*A^2*L-136*A*C1^2-34*A*C1*C2+32*A*C2^2+7308*C1^2*L+7056*C1*C2*L+1008*C2^2*L+70*A^2-420*A*L-12*C1^2+18*C1*C2-180*C2^2+112*A+210*L-168)*x^4+(1/6)*(-2772*A*C1^2*L^2-3024*A*C1*C2*L^2-252*A*C2^2*L^2-63*A^3*L-300*A*C1^2*L-180*A*C1*C2*L+120*A*C2^2*L+2772*C1^2*L^2+3024*C1*C2*L^2+252*C2^2*L^2-21*A^2*L-1842*C1^2*L-1164*C1*C2*L-162*C2^2*L-28*A^2+231*A*L-48*C1^2-12*C1*C2+36*C2^2-14*A-147*L+42)*x^3)+(1/2)*(-(2/15)*L*R^2*A-(1/30)*L*R^2*A^2+(24/35)*L*R^2*C1^2+(17/35)*L*R^2*C2^2+(1/15)*L*R^2*A^3+(6/35)*L*R^2*C1*C2-(6/5)*L^2*R^2*C1*C2+(68/105)*L*R^2*A*C1^2-(16/105)*L*R^2*A*C2^2+(8/5)*L^2*R^2*A*C1^2-(2/5)*L^2*R^2*C2^2*A+(17/105)*L*R^2*A*C1*C2+(6/5)*L^2*R^2*A*C1*C2-(8/5)*C1^2*R^2*L^2+(2/5)*L^2*R^2*C2^2+(1/10)*L*R^2)*x^2+(-(86/525)*L*R^2*A*C1^2-(29/1050)*L*R^2*A*C1*C2+(1/350)*L*R^2*A*C2^2-(2/1575)*R^2*A^3+(1/140)*R^2*A*C1^2-(1/1260)*R^2*A*C1*C2+(1/420)*R^2*A*C2^2-(19/525)*L*R^2*C1^2-(1/175)*L*R^2*C1*C2-(89/525)*L*R^2*C2^2+(2/525)*R^2*A^2+(1/126)*C1^2*R^2-(1/1260)*R^2*C1*C2+(1/315)*R^2*C2^2+(11/6300)*R^2*A-(3/700)*R^2)*x, x, x))+3*(diff(-2*R*(-(1/10)*A*C1*x^5-(1/10)*A*C2*x^5+(1/2)*A*C1*L*x^3+(1/6)*A*C1*x^4+(1/2)*A*C2*L*x^3+(1/12)*A*C2*x^4+(1/10)*x^5*C1+(1/10)*x^5*C2-A*C1*L*x^2-(1/2)*A*C2*L*x^2-(1/2)*C1*x^3*L-(5/12)*x^4*C1-(1/2)*C2*L*x^3-(1/3)*x^4*C2+C1*x^2*L+(2/3)*C1*x^3+(1/2)*C2*L*x^2+(1/3)*x^3*C2-(1/2)*C1*x^2)+(-A*C1*L*R+(2/15)*R*C1*A-(1/30)*R*A*C2+C1*L*R-(3/10)*R*C1+(1/5)*R*C2)*x, x))*(diff(-2*R*(-(1/10)*A*C1*x^5-(1/10)*A*C2*x^5+(1/2)*A*C1*L*x^3+(1/6)*A*C1*x^4+(1/2)*A*C2*L*x^3+(1/12)*A*C2*x^4+(1/10)*x^5*C1+(1/10)*x^5*C2-A*C1*L*x^2-(1/2)*A*C2*L*x^2-(1/2)*C1*x^3*L-(5/12)*x^4*C1-(1/2)*C2*L*x^3-(1/3)*x^4*C2+C1*x^2*L+(2/3)*C1*x^3+(1/2)*C2*L*x^2+(1/3)*x^3*C2-(1/2)*C1*x^2)+(-A*C1*L*R+(2/15)*R*C1*A-(1/30)*R*A*C2+C1*L*R-(3/10)*R*C1+(1/5)*R*C2)*x, x, x))+3*(diff((1/210)*R^2*((1/72)*(-204*A*C1^2-408*A*C1*C2-204*A*C2^2+204*C1^2+408*C1*C2+204*C2^2)*x^9+(1/56)*(784*A*C1^2+1176*A*C1*C2+392*A*C2^2-1036*C1^2-1680*C1*C2-644*C2^2)*x^8+(1/42)*(2394*A*C1^2*L+4788*A*C1*C2*L+2394*A*C2^2*L-28*A^3-1064*A*C1^2-1064*A*C1*C2-140*A*C2^2-2394*C1^2*L-4788*C1*C2*L-2394*C2^2*L+84*A^2+2072*C1^2+2576*C1*C2+644*C2^2-84*A+28)*x^7+(1/30)*(-6300*A*C1^2*L-9450*A*C1*C2*L-3150*A*C2^2*L+420*A*C1^2+210*A*C1*C2+8820*C1^2*L+14490*C1*C2*L+5670*C2^2*L-140*A^2-1960*C1^2-1750*C1*C2-280*C2^2+280*A-140)*x^6+(1/20)*(-2520*A*C1^2*L^2-5040*A*C1*C2*L^2-2520*A*C2^2*L^2+70*A^3*L+5348*A*C1^2*L+5516*A*C1*C2*L+728*A*C2^2*L+2520*C1^2*L^2+5040*C1*C2*L^2+2520*C2^2*L^2+42*A^3-210*A^2*L+200*A*C1^2+120*A*C1*C2-80*A*C2^2-12068*C1^2*L-15596*C1*C2*L-4088*C2^2*L+14*A^2+210*A*L+780*C1^2+440*C1*C2+220*C2^2-294*A-70*L+238)*x^5+(1/12)*(5040*A*C1^2*L^2+7560*A*C1*C2*L^2+2520*A*C2^2*L^2-1176*A*C1^2*L-672*A*C1*C2*L+84*A*C2^2*L-5040*C1^2*L^2-7560*C1*C2*L^2-2520*C2^2*L^2-14*A^3+210*A^2*L-136*A*C1^2-34*A*C1*C2+32*A*C2^2+7308*C1^2*L+7056*C1*C2*L+1008*C2^2*L+70*A^2-420*A*L-12*C1^2+18*C1*C2-180*C2^2+112*A+210*L-168)*x^4+(1/6)*(-2772*A*C1^2*L^2-3024*A*C1*C2*L^2-252*A*C2^2*L^2-63*A^3*L-300*A*C1^2*L-180*A*C1*C2*L+120*A*C2^2*L+2772*C1^2*L^2+3024*C1*C2*L^2+252*C2^2*L^2-21*A^2*L-1842*C1^2*L-1164*C1*C2*L-162*C2^2*L-28*A^2+231*A*L-48*C1^2-12*C1*C2+36*C2^2-14*A-147*L+42)*x^3)+(1/2)*(-(2/15)*L*R^2*A-(1/30)*L*R^2*A^2+(24/35)*L*R^2*C1^2+(17/35)*L*R^2*C2^2+(1/15)*L*R^2*A^3+(6/35)*L*R^2*C1*C2-(6/5)*L^2*R^2*C1*C2+(68/105)*L*R^2*A*C1^2-(16/105)*L*R^2*A*C2^2+(8/5)*L^2*R^2*A*C1^2-(2/5)*L^2*R^2*C2^2*A+(17/105)*L*R^2*A*C1*C2+(6/5)*L^2*R^2*A*C1*C2-(8/5)*C1^2*R^2*L^2+(2/5)*L^2*R^2*C2^2+(1/10)*L*R^2)*x^2+(-(86/525)*L*R^2*A*C1^2-(29/1050)*L*R^2*A*C1*C2+(1/350)*L*R^2*A*C2^2-(2/1575)*R^2*A^3+(1/140)*R^2*A*C1^2-(1/1260)*R^2*A*C1*C2+(1/420)*R^2*A*C2^2-(19/525)*L*R^2*C1^2-(1/175)*L*R^2*C1*C2-(89/525)*L*R^2*C2^2+(2/525)*R^2*A^2+(1/126)*C1^2*R^2-(1/1260)*R^2*C1*C2+(1/315)*R^2*C2^2+(11/6300)*R^2*A-(3/700)*R^2)*x, x))*(diff((A-1)*x+1, x, x))+2*(diff((1/6)*(6*C2+6*C1)*x^3+(1/2)*(-2*C2-4*C1)*x^2+C1*x, x, x))*(diff(-(1/105)*R^2*((1/7920)*(-648*C1^3-1944*C1^2*C2-1944*C1*C2^2-648*C2^3)*x^11+(1/5040)*(3024*C1^3+7560*C1^2*C2+6048*C1*C2^2+1512*C2^3)*x^10+(1/3024)*(16632*C1^3*L+49896*C1^2*C2*L+49896*C1*C2^2*L+16632*C2^3*L+21*A^2*C1+21*A^2*C2-5376*C1^3-10752*C1^2*C2-6216*C1*C2^2-840*C2^3-42*A*C1-42*A*C2+21*C1+21*C2)*x^9+(1/1680)*(-55440*C1^3*L-138600*C1^2*C2*L-110880*C1*C2^2*L-27720*C2^3*L+70*A^2*C1+35*A^2*C2+4200*C1^3+6300*C1^2*C2+2100*C1*C2^2+70*A*C1+140*A*C2-140*C1-175*C2)*x^8+(1/840)*(-83160*C1^3*L^2-249480*C1^2*C2*L^2-249480*C1*C2^2*L^2-83160*C2^3*L^2+210*A^2*C1*L+210*A^2*C2*L+65184*C1^3*L+130872*C1^2*C2*L+75432*C1*C2^2*L+9744*C2^3*L-84*A^2*C1+126*A^2*C2-420*A*C1*L-420*A*C2*L-996*C1^3-888*C1^2*C2-48*C1*C2^2-156*C2^3+28*A*C1-112*A*C2+210*C1*L+210*C2*L+476*C1+406*C2)*x^7+(1/360)*(166320*C1^3*L^2+415800*C1^2*C2*L^2+332640*C1*C2^2*L^2+83160*C2^3*L^2+840*A^2*C1*L+420*A^2*C2*L-29232*C1^3*L-44604*C1^2*C2*L-15372*C1*C2^2*L-168*A^2*C1-105*A^2*C2+210*A*C1*L+1050*A*C2*L-336*C1^3-330*C1^2*C2+138*C1*C2^2+132*C2^3+21*A*C1-105*A*C2-1050*C1*L-1470*C2*L-693*C1-210*C2)*x^6+(1/120)*(1890*A^2*C1*L^2+1890*A^2*C2*L^2-101304*C1^3*L^2-205632*C1^2*C2*L^2-122472*C1*C2^2*L^2-18144*C2^3*L^2-966*A^2*C1*L-756*A^2*C2*L-3780*A*C1*L^2-3780*A*C2*L^2+2448*C1^3*L+2052*C1^2*C2*L+540*C1*C2^2*L+936*C2^3*L+119*A^2*C1-14*A^2*C2+252*A*C1*L-588*A*C2*L+132*C1^3+54*C1^2*C2-78*C1*C2^2+1890*C1*L^2+1890*C2*L^2-98*A*C1+98*A*C2+714*C1*L+1344*C2*L+399*C1-84*C2)*x^5)+(1/24)*(-2*L*R^2*A*C2-(1368/5)*L^2*R^2*C1^2*C2-(504/5)*L^2*R^2*C1*C2^2-(44/7)*L*R^2*C1^2*C2+(92/35)*L*R^2*C1*C2^2-(16/5)*L*R^2*A^2*C1-2*L*R^2*A^2*C2-24*L^2*R^2*A*C1-12*L^2*R^2*A*C2+12*L^2*R^2*A^2*C1+6*L^2*R^2*A^2*C2-(4/15)*R^2*A*C1+(12/5)*L*R^2*A*C1+(1/15)*R^2*A*C2+(4/5)*L*R^2*C1+4*L*R^2*C2+12*L^2*R^2*C1+6*L^2*R^2*C2-(864/5)*L^2*R^2*C1^3-(32/5)*L*R^2*C1^3+(88/35)*L*R^2*C2^3-(2/5)*R^2*C2+(3/5)*R^2*C1)*x^4+(1/6)*((157/6300)*R^2*A*C1-(446/525)*L*R^2*A*C1-(2777/242550)*R^2*C1*C2^2+(653/12600)*R^2*A^2*C1+(1783/121275)*R^2*C2^3+(1783/121275)*R^2*C1^3+(359/525)*L*R^2*A*C2+(3882/175)*L^2*R^2*C1^2*C2+(312/175)*L^2*R^2*C1*C2^2+(102/175)*L*R^2*C1^2*C2-(118/175)*L*R^2*C1*C2^2+(33/5)*L^2*R^2*A*C1-(61/1800)*R^2*C1+(13/525)*L*R^2*C1+(157/6300)*R^2*A*C2-(989/1050)*L*R^2*C2-(3/10)*L^2*R^2*C2+(3324/175)*L^2*R^2*C1^3-(61/1800)*R^2*A^2*C2+(209/175)*L*R^2*C1^3-(11/175)*L*R^2*C2^3-(2777/242550)*R^2*C1^2*C2-(246/175)*R^2*L^2*C2^3+(653/12600)*R^2*C2-(33/10)*L^2*R^2*C1+(433/525)*L*R^2*A^2*C1+(271/1050)*L*R^2*A^2*C2+(3/5)*L^2*R^2*A*C2-(33/10)*L^2*R^2*A^2*C1-(3/10)*L^2*R^2*A^2*C2)*x^3+(1/2)*((1/1575)*R^2*A*C1+(131/1050)*L*R^2*A*C1+(59/121275)*R^2*C1*C2^2-(13/1575)*R^2*A^2*C1-(314/121275)*R^2*C2^3-(83/121275)*R^2*C1^3-(19/175)*L*R^2*A*C2-(156/175)*L^2*R^2*C1^2*C2+(54/175)*L^2*R^2*C1*C2^2+(1/175)*L*R^2*C1^2*C2+(8/175)*L*R^2*C1*C2^2-(4/5)*L^2*R^2*A*C1-(17/6300)*R^2*C1-(13/1050)*L*R^2*C1-(8/1575)*R^2*A*C2+(127/1050)*L*R^2*C2-(1/10)*L^2*R^2*C2-(192/175)*L^2*R^2*C1^3+(29/4200)*R^2*A^2*C2-(12/175)*L*R^2*C1^3-(1/35)*L*R^2*C2^3+(58/24255)*R^2*C1^2*C2+(18/175)*R^2*L^2*C2^3-(13/12600)*R^2*C2+(2/5)*L^2*R^2*C1-(59/525)*L*R^2*A^2*C1-(13/1050)*L*R^2*A^2*C2+(1/5)*L^2*R^2*A*C2+(2/5)*L^2*R^2*A^2*C1-(1/10)*L^2*R^2*A^2*C2)*x^2, x, x, x))+2*(diff(-2*R*((1/140)*C1^2*x^7+(1/70)*C1*C2*x^7+(1/140)*C2^2*x^7-(3/10)*C1^2*L*x^5-(1/30)*C1^2*x^6-(3/5)*C1*C2*L*x^5-(1/20)*C1*C2*x^6-(3/10)*C2^2*L*x^5-(1/60)*C2^2*x^6+(1/120)*A^2*x^5+C1^2*L*x^4+(1/20)*C1^2*x^5+(3/2)*C1*C2*L*x^4+(1/20)*C1*C2*x^5+(1/2)*C2^2*L*x^4-(1/60)*x^5*A+(1/24)*x^4*A+(1/120)*x^5-(1/24)*x^4)+(1/6)*((66/5)*C1^2*L*R+(72/5)*C1*C2*L*R+(6/5)*C2^2*L*R+(3/10)*R*A^2+(22/35)*R*C1^2+(9/35)*R*C1*C2-(13/35)*R*C2^2+(2/5)*R*A-(7/10)*R)*x^3+(1/2)*(-(8/5)*C1^2*L*R-(6/5)*C1*C2*L*R+(2/5)*C2^2*L*R-(1/15)*R*A^2-(4/35)*R*C1^2-(1/35)*R*C1*C2+(3/35)*R*C2^2-(1/30)*R*A+(1/10)*R)*x^2, x, x))*(diff(-2*R*((1/140)*C1^2*x^7+(1/70)*C1*C2*x^7+(1/140)*C2^2*x^7-(3/10)*C1^2*L*x^5-(1/30)*C1^2*x^6-(3/5)*C1*C2*L*x^5-(1/20)*C1*C2*x^6-(3/10)*C2^2*L*x^5-(1/60)*C2^2*x^6+(1/120)*A^2*x^5+C1^2*L*x^4+(1/20)*C1^2*x^5+(3/2)*C1*C2*L*x^4+(1/20)*C1*C2*x^5+(1/2)*C2^2*L*x^4-(1/60)*x^5*A+(1/24)*x^4*A+(1/120)*x^5-(1/24)*x^4)+(1/6)*((66/5)*C1^2*L*R+(72/5)*C1*C2*L*R+(6/5)*C2^2*L*R+(3/10)*R*A^2+(22/35)*R*C1^2+(9/35)*R*C1*C2-(13/35)*R*C2^2+(2/5)*R*A-(7/10)*R)*x^3+(1/2)*(-(8/5)*C1^2*L*R-(6/5)*C1*C2*L*R+(2/5)*C2^2*L*R-(1/15)*R*A^2-(4/35)*R*C1^2-(1/35)*R*C1*C2+(3/35)*R*C2^2-(1/30)*R*A+(1/10)*R)*x^2, x, x, x))+2*(diff(-(1/105)*R^2*((1/7920)*(-648*C1^3-1944*C1^2*C2-1944*C1*C2^2-648*C2^3)*x^11+(1/5040)*(3024*C1^3+7560*C1^2*C2+6048*C1*C2^2+1512*C2^3)*x^10+(1/3024)*(16632*C1^3*L+49896*C1^2*C2*L+49896*C1*C2^2*L+16632*C2^3*L+21*A^2*C1+21*A^2*C2-5376*C1^3-10752*C1^2*C2-6216*C1*C2^2-840*C2^3-42*A*C1-42*A*C2+21*C1+21*C2)*x^9+(1/1680)*(-55440*C1^3*L-138600*C1^2*C2*L-110880*C1*C2^2*L-27720*C2^3*L+70*A^2*C1+35*A^2*C2+4200*C1^3+6300*C1^2*C2+2100*C1*C2^2+70*A*C1+140*A*C2-140*C1-175*C2)*x^8+(1/840)*(-83160*C1^3*L^2-249480*C1^2*C2*L^2-249480*C1*C2^2*L^2-83160*C2^3*L^2+210*A^2*C1*L+210*A^2*C2*L+65184*C1^3*L+130872*C1^2*C2*L+75432*C1*C2^2*L+9744*C2^3*L-84*A^2*C1+126*A^2*C2-420*A*C1*L-420*A*C2*L-996*C1^3-888*C1^2*C2-48*C1*C2^2-156*C2^3+28*A*C1-112*A*C2+210*C1*L+210*C2*L+476*C1+406*C2)*x^7+(1/360)*(166320*C1^3*L^2+415800*C1^2*C2*L^2+332640*C1*C2^2*L^2+83160*C2^3*L^2+840*A^2*C1*L+420*A^2*C2*L-29232*C1^3*L-44604*C1^2*C2*L-15372*C1*C2^2*L-168*A^2*C1-105*A^2*C2+210*A*C1*L+1050*A*C2*L-336*C1^3-330*C1^2*C2+138*C1*C2^2+132*C2^3+21*A*C1-105*A*C2-1050*C1*L-1470*C2*L-693*C1-210*C2)*x^6+(1/120)*(1890*A^2*C1*L^2+1890*A^2*C2*L^2-101304*C1^3*L^2-205632*C1^2*C2*L^2-122472*C1*C2^2*L^2-18144*C2^3*L^2-966*A^2*C1*L-756*A^2*C2*L-3780*A*C1*L^2-3780*A*C2*L^2+2448*C1^3*L+2052*C1^2*C2*L+540*C1*C2^2*L+936*C2^3*L+119*A^2*C1-14*A^2*C2+252*A*C1*L-588*A*C2*L+132*C1^3+54*C1^2*C2-78*C1*C2^2+1890*C1*L^2+1890*C2*L^2-98*A*C1+98*A*C2+714*C1*L+1344*C2*L+399*C1-84*C2)*x^5)+(1/24)*(-2*L*R^2*A*C2-(1368/5)*L^2*R^2*C1^2*C2-(504/5)*L^2*R^2*C1*C2^2-(44/7)*L*R^2*C1^2*C2+(92/35)*L*R^2*C1*C2^2-(16/5)*L*R^2*A^2*C1-2*L*R^2*A^2*C2-24*L^2*R^2*A*C1-12*L^2*R^2*A*C2+12*L^2*R^2*A^2*C1+6*L^2*R^2*A^2*C2-(4/15)*R^2*A*C1+(12/5)*L*R^2*A*C1+(1/15)*R^2*A*C2+(4/5)*L*R^2*C1+4*L*R^2*C2+12*L^2*R^2*C1+6*L^2*R^2*C2-(864/5)*L^2*R^2*C1^3-(32/5)*L*R^2*C1^3+(88/35)*L*R^2*C2^3-(2/5)*R^2*C2+(3/5)*R^2*C1)*x^4+(1/6)*((157/6300)*R^2*A*C1-(446/525)*L*R^2*A*C1-(2777/242550)*R^2*C1*C2^2+(653/12600)*R^2*A^2*C1+(1783/121275)*R^2*C2^3+(1783/121275)*R^2*C1^3+(359/525)*L*R^2*A*C2+(3882/175)*L^2*R^2*C1^2*C2+(312/175)*L^2*R^2*C1*C2^2+(102/175)*L*R^2*C1^2*C2-(118/175)*L*R^2*C1*C2^2+(33/5)*L^2*R^2*A*C1-(61/1800)*R^2*C1+(13/525)*L*R^2*C1+(157/6300)*R^2*A*C2-(989/1050)*L*R^2*C2-(3/10)*L^2*R^2*C2+(3324/175)*L^2*R^2*C1^3-(61/1800)*R^2*A^2*C2+(209/175)*L*R^2*C1^3-(11/175)*L*R^2*C2^3-(2777/242550)*R^2*C1^2*C2-(246/175)*R^2*L^2*C2^3+(653/12600)*R^2*C2-(33/10)*L^2*R^2*C1+(433/525)*L*R^2*A^2*C1+(271/1050)*L*R^2*A^2*C2+(3/5)*L^2*R^2*A*C2-(33/10)*L^2*R^2*A^2*C1-(3/10)*L^2*R^2*A^2*C2)*x^3+(1/2)*((1/1575)*R^2*A*C1+(131/1050)*L*R^2*A*C1+(59/121275)*R^2*C1*C2^2-(13/1575)*R^2*A^2*C1-(314/121275)*R^2*C2^3-(83/121275)*R^2*C1^3-(19/175)*L*R^2*A*C2-(156/175)*L^2*R^2*C1^2*C2+(54/175)*L^2*R^2*C1*C2^2+(1/175)*L*R^2*C1^2*C2+(8/175)*L*R^2*C1*C2^2-(4/5)*L^2*R^2*A*C1-(17/6300)*R^2*C1-(13/1050)*L*R^2*C1-(8/1575)*R^2*A*C2+(127/1050)*L*R^2*C2-(1/10)*L^2*R^2*C2-(192/175)*L^2*R^2*C1^3+(29/4200)*R^2*A^2*C2-(12/175)*L*R^2*C1^3-(1/35)*L*R^2*C2^3+(58/24255)*R^2*C1^2*C2+(18/175)*R^2*L^2*C2^3-(13/12600)*R^2*C2+(2/5)*L^2*R^2*C1-(59/525)*L*R^2*A^2*C1-(13/1050)*L*R^2*A^2*C2+(1/5)*L^2*R^2*A*C2+(2/5)*L^2*R^2*A^2*C1-(1/10)*L^2*R^2*A^2*C2)*x^2, x, x))*(diff((1/6)*(6*C2+6*C1)*x^3+(1/2)*(-2*C2-4*C1)*x^2+C1*x, x, x, x))) = 0; Eq7 := dsolve({A1, f[3](0) = 0, f[3](1) = 0, (D(f[3]))(0) = 0, (D(f[3]))(1) = 0}, f[3](x))

(1)

``


 

Download question_1.mw

 

 

Hello Everyone
My maple is evaluating the following provided in figure. I have  attached MAPLE file. Kindly help me to solve this. Thanks in advance.

question.mw

what is the best way to "extract" a list of terms from a sum of terms.

So something like this::

split_expr(a+b+3) should return [a,b,3]

split_expr(diff(x(t),t)) should return  [ diff(x(t),t)]

split_expr(Int(abc(t), t=2..3) + 3) should return [Int(abc(t), t=2..3) , 3]

I very often have expressions with sums of many terms, and need to run some command on each element (say simplify, or collect, etc)... i've been using convert(expr, list) to split things up, apply a command and recombine, but the convert command breaks on some cases. Maybe this is something that maple can do natively?

thanks!

First 398 399 400 401 402 403 404 Last Page 400 of 2308