MaplePrimes Questions

Hey guys im still quite new to maple so bear with me on this one. 

Im trying to make it so when i press a button an some mathcontainers are going though some if statements, and then printing out the answer.

 

Heres the code 

 

use DocumentTools in 

Do(indkomst = %MathContainer2);
Do(fradrag = %MathContainer4);

if indkomst <= 44000 then 
    
    Do(%MathContainer3 = 0.08*indkomst);

elif 44000 < 0.92*indkomst and indomst <= 44000+fradrag then
    
    Do(%MathContainer3 = 0.08*indkomst + 0.0908*(0.92*indkomst - 44000));

elif 44000+fradrag < 0.92*indkomst and indkomst <= 467300 then

    Do(%MathContainer3 = 0.08*indkomst + 0.0908*(0.92*indkomst - 44000) + 0.276*(0.92*indkomst - 44000 - fradrag));

elif 0.92*indkomst > 467300 then

    Do(%MathContainer3 = 0.08*indkomst + 0.0908*(0.92*indkomst - 44000) + 0.276*(0.92*indkomst - 44000 - fradrag) + 0.15*(0.92*indkomst - 467300));
    
end if;

end use; 
 

It correctly chooses what statement to use, but it just cant determine if its true or false, how do i fix this?

I'm trying to solve this to set of equations :

EQ1:=-1958143.922*k*wr+2468.8339*k^3*wr-0.9481118254e16*k^2-114000.8376*k^4:

EQ2 :=-1186578.220*R*k^2*wr-312683.0293*k^5-288960.9621*k^3*R:

using a loop for different value of R in the range this range (wr=0..10,k=0..10)

eqns:={EQ1,EQ2}:
for i from 1 by 1 to 101 do R:=(i-1):S:=fsolve(eqns,{k, wr},{wr=0..10,k=0..10}):v(i):=(subs(S,(wr)));w(i):=(subs(S,(k)))end do:

but i get this instead :

Error, invalid input: subs received fsolve({-312683.0293*k^5, -1958143.922*k*wr+2468.8339*k^3*wr-0.9481118254e16*k^2-114000.8376*k^4}, {k, wr}, {k = 0 .. 10, wr = 0 .. 10}), which is not valid for its 1st argument

is there another way to solves this equations more easly .

Hello guys, 

I have a probelm with computing an integral by maple. I dont know why maple cannot compute.

 

integral.mw

Thank you for your attention

Best

I do not understand why Maple can simplify this expression below when told that n is integer and also positive using a "," to separate the assumptions, but does simpify the same expression when using "and" to build the assumptions.

Here is an example

restart;
result:=int(x*cos(n*Pi/5*x),x=0..5)
simplify(result) assuming n::integer and n>0

But this works

simplify(result) assuming n::integer, n>0

What are the semantic differences between writing assuming "n::integer and n>0" and "n::integer,n>0" ? I thought these would be the same, but clearly they are not.

Maple 2019.1 on windows.

1/0;
Error, numeric exception: division by zero
lastexception;
            0, "numeric exception: division by zero"
lastexception; # ???
            Typesetting:-Typeset, "invalid input: %1 expects %2 arguments, but received %3", type, 2, 3

 

So, printing lastexception produces a new error!
When typesetting=standard, it's OK.

 

Hello my Maple friends! :)
I was wondering if there is any command in Maple that can help me find the equation of a surface from it´s parametric form and the other way around, a parametric form from a surface equation!
For example, if
x :=(s, t) -> s cos(t)
y :=(s, t) -> s sin(t)
z :=(s, t) -> s^2

then S: x^2+y^2=z

Thank you for your help.
English is not my mother tongue; please excuse any errors on my part.

I have two data sets (time series) that appear to have similar profiles and am looking to find a way to establish a correlation measure. The linear (Pearson) coefficient is around 0.89, but since this particular function is nonlinear, can anyone suggest a method or routine that can be used to obtain this correlation?

Thank you!

 

Correlation.mw

Hello, would you please help with this problem

 I need to solve the system using polynomial coefficients

thank you 


 

restart

``

eq1 := diff(A(r), r, r)+(diff(A(r), r))/r+A(r)/r^2-a*r*A(r)+b*r^2*f*B(r)

diff(diff(A(r), r), r)+(diff(A(r), r))/r+A(r)/r^2-a*r*A(r)+b*r^2*f*B(r)

(1)

eq2 := diff(B(r), r, r)+(diff(B(r), r))/r+B(r)/r^2-c*r*A(r)+d*r^2*B(r)

diff(diff(B(r), r), r)+(diff(B(r), r))/r+B(r)/r^2-c*r*A(r)+d*r^2*B(r)

(2)

``

``

dsolve({eq1, eq2}, {A(r), B(r)});

{A(r) = DESol({-(-b*c*f*r^7+a*d*r^7-d*r^4+2*a*r^3-17)*_Y(r)/r^4-(-d*r^5-a*r^4-3*r)*(diff(_Y(r), r))/r^4-(-d*r^6+a*r^5-r^2)*(diff(diff(_Y(r), r), r))/r^4-2*(diff(diff(diff(_Y(r), r), r), r))/r+diff(diff(diff(diff(_Y(r), r), r), r), r)}, {_Y(r)}), B(r) = (a*r^3*A(r)-(diff(diff(A(r), r), r))*r^2-(diff(A(r), r))*r-A(r))/(b*f*r^4)}

(3)

dsolve({eq1, eq2}, {A(r), B(r)}, 'formal_series', 'coeffs' = 'polynomial')

Error, (in dsolve/FORMALSERIES) the first argument must be a homogeneous linear ode with polynomial coefficients

 

``

``

``


 

Download dsolve.mwdsolve.mw


 

``

restart;

N := 2

2

(1)

H1 := B*H(Zeta)/A+C*H(Zeta)/A+E/A

B*H(Zeta)/A+C*H(Zeta)/A+E/A

(2)

expand(subs(diff(H(Zeta), Zeta) = B*H(Zeta)/A+C*H(Zeta)/A+E/A, diff(H1, Zeta)))

B^2*H(Zeta)/A^2+2*B*C*H(Zeta)/A^2+B*E/A^2+C^2*H(Zeta)/A^2+C*E/A^2

(3)

s := sum(alpha[i]*(d+H(Zeta))^i, i = -N .. N)+sum(beta[i]*(d+H(Zeta))^(-i), i = 1 .. N)

alpha[-2]/(d+H(Zeta))^2+alpha[-1]/(d+H(Zeta))+alpha[0]+alpha[1]*(d+H(Zeta))+alpha[2]*(d+H(Zeta))^2+beta[1]/(d+H(Zeta))+beta[2]/(d+H(Zeta))^2

(4)

``

s1 := expand(subs(diff(H(Zeta), Zeta) = B*H(Zeta)/A+C*H(Zeta)/A+E/A, diff(s, Zeta)))

-2*alpha[-2]*B*H(Zeta)/((d+H(Zeta))^3*A)-2*alpha[-2]*C*H(Zeta)/((d+H(Zeta))^3*A)-2*alpha[-2]*E/((d+H(Zeta))^3*A)-alpha[-1]*B*H(Zeta)/((d+H(Zeta))^2*A)-alpha[-1]*C*H(Zeta)/((d+H(Zeta))^2*A)-alpha[-1]*E/((d+H(Zeta))^2*A)+alpha[1]*B*H(Zeta)/A+alpha[1]*C*H(Zeta)/A+alpha[1]*E/A+2*alpha[2]*d*B*H(Zeta)/A+2*alpha[2]*d*C*H(Zeta)/A+2*alpha[2]*d*E/A+2*alpha[2]*B*H(Zeta)^2/A+2*alpha[2]*C*H(Zeta)^2/A+2*alpha[2]*H(Zeta)*E/A-beta[1]*B*H(Zeta)/((d+H(Zeta))^2*A)-beta[1]*C*H(Zeta)/((d+H(Zeta))^2*A)-beta[1]*E/((d+H(Zeta))^2*A)-2*beta[2]*B*H(Zeta)/((d+H(Zeta))^3*A)-2*beta[2]*C*H(Zeta)/((d+H(Zeta))^3*A)-2*beta[2]*E/((d+H(Zeta))^3*A)

(5)

s2 := expand(subs(diff(H(Zeta), Zeta) = B*H(Zeta)/A+C*H(Zeta)/A+E/A, diff(s1, Zeta)))

alpha[1]*B^2*H(Zeta)/A^2+alpha[1]*B*E/A^2+alpha[1]*C^2*H(Zeta)/A^2+alpha[1]*C*E/A^2+6*alpha[-2]*E^2/((d+H(Zeta))^4*A^2)+2*alpha[-1]*E^2/((d+H(Zeta))^3*A^2)+4*alpha[2]*B^2*H(Zeta)^2/A^2+4*alpha[2]*C^2*H(Zeta)^2/A^2+2*beta[1]*E^2/((d+H(Zeta))^3*A^2)+6*beta[2]*E^2/((d+H(Zeta))^4*A^2)+2*alpha[2]*E^2/A^2+6*alpha[2]*E*B*H(Zeta)/A^2+6*alpha[2]*E*C*H(Zeta)/A^2-2*alpha[-2]*B^2*H(Zeta)/((d+H(Zeta))^3*A^2)-2*alpha[-2]*B*E/((d+H(Zeta))^3*A^2)-2*alpha[-2]*C^2*H(Zeta)/((d+H(Zeta))^3*A^2)-2*alpha[-2]*C*E/((d+H(Zeta))^3*A^2)-alpha[-1]*B^2*H(Zeta)/((d+H(Zeta))^2*A^2)-alpha[-1]*B*E/((d+H(Zeta))^2*A^2)-alpha[-1]*C^2*H(Zeta)/((d+H(Zeta))^2*A^2)-alpha[-1]*C*E/((d+H(Zeta))^2*A^2)+2*alpha[2]*d*B^2*H(Zeta)/A^2+2*alpha[2]*d*B*E/A^2+2*alpha[2]*d*C^2*H(Zeta)/A^2+2*alpha[2]*d*C*E/A^2+8*alpha[2]*B*H(Zeta)^2*C/A^2-beta[1]*B^2*H(Zeta)/((d+H(Zeta))^2*A^2)-beta[1]*B*E/((d+H(Zeta))^2*A^2)-beta[1]*C^2*H(Zeta)/((d+H(Zeta))^2*A^2)-beta[1]*C*E/((d+H(Zeta))^2*A^2)-2*beta[2]*B^2*H(Zeta)/((d+H(Zeta))^3*A^2)-2*beta[2]*B*E/((d+H(Zeta))^3*A^2)-2*beta[2]*C^2*H(Zeta)/((d+H(Zeta))^3*A^2)-2*beta[2]*C*E/((d+H(Zeta))^3*A^2)+6*alpha[-2]*B^2*H(Zeta)^2/((d+H(Zeta))^4*A^2)+6*alpha[-2]*C^2*H(Zeta)^2/((d+H(Zeta))^4*A^2)+2*alpha[-1]*B^2*H(Zeta)^2/((d+H(Zeta))^3*A^2)+2*alpha[-1]*C^2*H(Zeta)^2/((d+H(Zeta))^3*A^2)+2*beta[1]*B^2*H(Zeta)^2/((d+H(Zeta))^3*A^2)+2*beta[1]*C^2*H(Zeta)^2/((d+H(Zeta))^3*A^2)+6*beta[2]*B^2*H(Zeta)^2/((d+H(Zeta))^4*A^2)+6*beta[2]*C^2*H(Zeta)^2/((d+H(Zeta))^4*A^2)+2*alpha[1]*B*C*H(Zeta)/A^2+4*alpha[-1]*B*H(Zeta)^2*C/((d+H(Zeta))^3*A^2)+4*beta[1]*B*H(Zeta)^2*C/((d+H(Zeta))^3*A^2)+12*beta[2]*B*H(Zeta)^2*C/((d+H(Zeta))^4*A^2)-4*alpha[-2]*B*C*H(Zeta)/((d+H(Zeta))^3*A^2)+12*alpha[-2]*E*B*H(Zeta)/((d+H(Zeta))^4*A^2)+12*alpha[-2]*E*C*H(Zeta)/((d+H(Zeta))^4*A^2)-2*alpha[-1]*B*C*H(Zeta)/((d+H(Zeta))^2*A^2)+4*alpha[-1]*E*B*H(Zeta)/((d+H(Zeta))^3*A^2)+4*alpha[-1]*E*C*H(Zeta)/((d+H(Zeta))^3*A^2)+4*alpha[2]*d*B*C*H(Zeta)/A^2-2*beta[1]*B*C*H(Zeta)/((d+H(Zeta))^2*A^2)+4*beta[1]*E*B*H(Zeta)/((d+H(Zeta))^3*A^2)+4*beta[1]*E*C*H(Zeta)/((d+H(Zeta))^3*A^2)-4*beta[2]*B*C*H(Zeta)/((d+H(Zeta))^3*A^2)+12*beta[2]*E*B*H(Zeta)/((d+H(Zeta))^4*A^2)+12*beta[2]*E*C*H(Zeta)/((d+H(Zeta))^4*A^2)+12*alpha[-2]*B*H(Zeta)^2*C/((d+H(Zeta))^4*A^2)

(6)

s22 := expand(subs(diff(H(Zeta), Zeta) = B*H(Zeta)/A+C*H(Zeta)/A+E/A, s^2))

2*alpha[-2]*alpha[1]*d/(d+H(Zeta))^2+2*alpha[-2]*alpha[1]*H(Zeta)/(d+H(Zeta))^2+2*alpha[-2]*alpha[2]*d^2/(d+H(Zeta))^2+2*alpha[-2]*alpha[2]*H(Zeta)^2/(d+H(Zeta))^2+2*alpha[-1]*alpha[1]*d/(d+H(Zeta))+2*alpha[-1]*alpha[1]*H(Zeta)/(d+H(Zeta))+2*alpha[-1]*alpha[2]*d^2/(d+H(Zeta))+2*alpha[-1]*alpha[2]*H(Zeta)^2/(d+H(Zeta))+4*alpha[0]*alpha[2]*d*H(Zeta)+6*alpha[1]*d^2*alpha[2]*H(Zeta)+6*alpha[1]*d*alpha[2]*H(Zeta)^2+2*alpha[1]*d*beta[1]/(d+H(Zeta))+2*alpha[1]*d*beta[2]/(d+H(Zeta))^2+2*alpha[1]*H(Zeta)*beta[1]/(d+H(Zeta))+2*alpha[1]*H(Zeta)*beta[2]/(d+H(Zeta))^2+2*alpha[2]*d^2*beta[1]/(d+H(Zeta))+2*alpha[2]*d^2*beta[2]/(d+H(Zeta))^2+2*alpha[2]*H(Zeta)^2*beta[1]/(d+H(Zeta))+2*alpha[2]*H(Zeta)^2*beta[2]/(d+H(Zeta))^2+alpha[-2]^2/(d+H(Zeta))^4+alpha[-1]^2/(d+H(Zeta))^2+alpha[0]^2+alpha[1]^2*d^2+alpha[1]^2*H(Zeta)^2+alpha[2]^2*d^4+alpha[2]^2*H(Zeta)^4+beta[1]^2/(d+H(Zeta))^2+beta[2]^2/(d+H(Zeta))^4+4*alpha[2]^2*d^3*H(Zeta)+2*alpha[0]*alpha[1]*d+2*alpha[-1]*beta[2]/(d+H(Zeta))^3+4*alpha[2]^2*d*H(Zeta)^3+2*alpha[0]*alpha[2]*d^2+2*alpha[-1]*alpha[0]/(d+H(Zeta))+2*alpha[0]*beta[1]/(d+H(Zeta))+2*alpha[-2]*alpha[-1]/(d+H(Zeta))^3+2*beta[1]*beta[2]/(d+H(Zeta))^3+2*alpha[-2]*beta[2]/(d+H(Zeta))^4+2*alpha[-2]*alpha[0]/(d+H(Zeta))^2+2*alpha[0]*beta[2]/(d+H(Zeta))^2+2*alpha[0]*alpha[2]*H(Zeta)^2+2*alpha[-1]*beta[1]/(d+H(Zeta))^2+2*alpha[0]*alpha[1]*H(Zeta)+2*alpha[1]^2*d*H(Zeta)+2*alpha[1]*d^3*alpha[2]+2*alpha[1]*H(Zeta)^3*alpha[2]+6*alpha[2]^2*d^2*H(Zeta)^2+2*alpha[-2]*beta[1]/(d+H(Zeta))^3+4*alpha[-2]*alpha[2]*d*H(Zeta)/(d+H(Zeta))^2+4*alpha[-1]*alpha[2]*d*H(Zeta)/(d+H(Zeta))+4*alpha[2]*d*H(Zeta)*beta[1]/(d+H(Zeta))+4*alpha[2]*d*H(Zeta)*beta[2]/(d+H(Zeta))^2

(7)

``

eq := expand(K+(1+w)*s-a*s22-b*V*s2)

alpha[-2]/(d+H(Zeta))^2+alpha[-1]/(d+H(Zeta))+beta[1]/(d+H(Zeta))+beta[2]/(d+H(Zeta))^2+alpha[0]+2*w*alpha[2]*d*H(Zeta)-4*a*alpha[2]^2*d^3*H(Zeta)-2*a*alpha[0]*alpha[1]*d-2*a*alpha[-1]*beta[2]/(d+H(Zeta))^3-4*a*alpha[2]^2*d*H(Zeta)^3-2*a*alpha[0]*alpha[2]*d^2-2*a*alpha[-1]*alpha[0]/(d+H(Zeta))-2*a*alpha[0]*beta[1]/(d+H(Zeta))-2*a*alpha[-2]*alpha[-1]/(d+H(Zeta))^3-2*a*beta[1]*beta[2]/(d+H(Zeta))^3-2*a*alpha[-2]*beta[2]/(d+H(Zeta))^4-2*a*alpha[-2]*alpha[0]/(d+H(Zeta))^2-2*a*alpha[0]*beta[2]/(d+H(Zeta))^2-2*a*alpha[0]*alpha[2]*H(Zeta)^2-2*a*alpha[-1]*beta[1]/(d+H(Zeta))^2-2*a*alpha[0]*alpha[1]*H(Zeta)-2*a*alpha[1]^2*d*H(Zeta)-2*a*alpha[1]*d^3*alpha[2]-2*a*alpha[1]*H(Zeta)^3*alpha[2]-6*a*alpha[2]^2*d^2*H(Zeta)^2-2*a*alpha[-2]*beta[1]/(d+H(Zeta))^3-4*b*V*beta[1]*E*B*H(Zeta)/((d+H(Zeta))^3*A^2)-12*b*V*beta[2]*B*H(Zeta)^2*C/((d+H(Zeta))^4*A^2)-12*b*V*alpha[-2]*E*C*H(Zeta)/((d+H(Zeta))^4*A^2)-4*b*V*beta[1]*E*C*H(Zeta)/((d+H(Zeta))^3*A^2)-12*b*V*beta[2]*E*C*H(Zeta)/((d+H(Zeta))^4*A^2)-4*b*V*alpha[-1]*E*C*H(Zeta)/((d+H(Zeta))^3*A^2)-4*b*V*alpha[2]*d*B*C*H(Zeta)/A^2-4*b*V*beta[1]*B*H(Zeta)^2*C/((d+H(Zeta))^3*A^2)-12*b*V*alpha[-2]*E*B*H(Zeta)/((d+H(Zeta))^4*A^2)+4*b*V*alpha[-2]*B*C*H(Zeta)/((d+H(Zeta))^3*A^2)+2*b*V*beta[1]*B*C*H(Zeta)/((d+H(Zeta))^2*A^2)+2*b*V*alpha[-1]*B*C*H(Zeta)/((d+H(Zeta))^2*A^2)-4*b*V*alpha[-1]*B*H(Zeta)^2*C/((d+H(Zeta))^3*A^2)-12*b*V*beta[2]*E*B*H(Zeta)/((d+H(Zeta))^4*A^2)+4*b*V*beta[2]*B*C*H(Zeta)/((d+H(Zeta))^3*A^2)-12*b*V*alpha[-2]*B*H(Zeta)^2*C/((d+H(Zeta))^4*A^2)-4*b*V*alpha[-1]*E*B*H(Zeta)/((d+H(Zeta))^3*A^2)+K+alpha[1]*d+alpha[1]*H(Zeta)+alpha[2]*d^2+alpha[2]*H(Zeta)^2+w*alpha[0]-a*alpha[0]^2-6*b*V*alpha[2]*E*B*H(Zeta)/A^2-6*b*V*alpha[2]*E*C*H(Zeta)/A^2+2*b*V*alpha[-2]*B^2*H(Zeta)/((d+H(Zeta))^3*A^2)+2*b*V*alpha[-2]*B*E/((d+H(Zeta))^3*A^2)+2*b*V*alpha[-2]*C^2*H(Zeta)/((d+H(Zeta))^3*A^2)+2*b*V*alpha[-2]*C*E/((d+H(Zeta))^3*A^2)+b*V*alpha[-1]*B^2*H(Zeta)/((d+H(Zeta))^2*A^2)+b*V*alpha[-1]*B*E/((d+H(Zeta))^2*A^2)+b*V*alpha[-1]*C^2*H(Zeta)/((d+H(Zeta))^2*A^2)+b*V*alpha[-1]*C*E/((d+H(Zeta))^2*A^2)-2*b*V*alpha[2]*d*B^2*H(Zeta)/A^2-2*b*V*alpha[2]*d*B*E/A^2-2*b*V*alpha[2]*d*C^2*H(Zeta)/A^2-2*b*V*alpha[2]*d*C*E/A^2-8*b*V*alpha[2]*B*H(Zeta)^2*C/A^2+b*V*beta[1]*B^2*H(Zeta)/((d+H(Zeta))^2*A^2)+b*V*beta[1]*B*E/((d+H(Zeta))^2*A^2)+b*V*beta[1]*C^2*H(Zeta)/((d+H(Zeta))^2*A^2)+b*V*beta[1]*C*E/((d+H(Zeta))^2*A^2)+2*b*V*beta[2]*B^2*H(Zeta)/((d+H(Zeta))^3*A^2)+2*b*V*beta[2]*B*E/((d+H(Zeta))^3*A^2)+2*b*V*beta[2]*C^2*H(Zeta)/((d+H(Zeta))^3*A^2)+2*b*V*beta[2]*C*E/((d+H(Zeta))^3*A^2)-6*b*V*alpha[-2]*B^2*H(Zeta)^2/((d+H(Zeta))^4*A^2)-6*b*V*alpha[-2]*C^2*H(Zeta)^2/((d+H(Zeta))^4*A^2)-2*b*V*alpha[-1]*B^2*H(Zeta)^2/((d+H(Zeta))^3*A^2)-2*b*V*alpha[-1]*C^2*H(Zeta)^2/((d+H(Zeta))^3*A^2)-2*b*V*beta[1]*B^2*H(Zeta)^2/((d+H(Zeta))^3*A^2)-2*b*V*beta[1]*C^2*H(Zeta)^2/((d+H(Zeta))^3*A^2)-6*b*V*beta[2]*B^2*H(Zeta)^2/((d+H(Zeta))^4*A^2)-6*b*V*beta[2]*C^2*H(Zeta)^2/((d+H(Zeta))^4*A^2)-2*b*V*alpha[1]*B*C*H(Zeta)/A^2-a*alpha[1]^2*H(Zeta)^2-a*alpha[1]^2*d^2-a*beta[1]^2/(d+H(Zeta))^2+w*alpha[-1]/(d+H(Zeta))-a*alpha[-2]^2/(d+H(Zeta))^4-a*beta[2]^2/(d+H(Zeta))^4+w*beta[1]/(d+H(Zeta))+w*alpha[1]*d-a*alpha[2]^2*H(Zeta)^4-a*alpha[2]^2*d^4+w*alpha[2]*d^2-a*alpha[-1]^2/(d+H(Zeta))^2+w*alpha[2]*H(Zeta)^2+w*alpha[1]*H(Zeta)+w*beta[2]/(d+H(Zeta))^2+w*alpha[-2]/(d+H(Zeta))^2+2*alpha[2]*d*H(Zeta)-2*a*alpha[-2]*alpha[1]*d/(d+H(Zeta))^2-2*a*alpha[-2]*alpha[1]*H(Zeta)/(d+H(Zeta))^2-2*a*alpha[-2]*alpha[2]*d^2/(d+H(Zeta))^2-2*a*alpha[-2]*alpha[2]*H(Zeta)^2/(d+H(Zeta))^2-2*a*alpha[-1]*alpha[1]*d/(d+H(Zeta))-2*a*alpha[-1]*alpha[1]*H(Zeta)/(d+H(Zeta))-2*a*alpha[-1]*alpha[2]*d^2/(d+H(Zeta))-2*a*alpha[-1]*alpha[2]*H(Zeta)^2/(d+H(Zeta))-4*a*alpha[0]*alpha[2]*d*H(Zeta)-6*a*alpha[1]*d^2*alpha[2]*H(Zeta)-6*a*alpha[1]*d*alpha[2]*H(Zeta)^2-2*a*alpha[1]*d*beta[1]/(d+H(Zeta))-2*a*alpha[1]*d*beta[2]/(d+H(Zeta))^2-2*a*alpha[1]*H(Zeta)*beta[1]/(d+H(Zeta))-2*a*alpha[1]*H(Zeta)*beta[2]/(d+H(Zeta))^2-2*a*alpha[2]*d^2*beta[1]/(d+H(Zeta))-2*a*alpha[2]*d^2*beta[2]/(d+H(Zeta))^2-2*a*alpha[2]*H(Zeta)^2*beta[1]/(d+H(Zeta))-2*a*alpha[2]*H(Zeta)^2*beta[2]/(d+H(Zeta))^2-2*b*V*alpha[2]*E^2/A^2-4*a*alpha[-2]*alpha[2]*d*H(Zeta)/(d+H(Zeta))^2-4*a*alpha[-1]*alpha[2]*d*H(Zeta)/(d+H(Zeta))-4*a*alpha[2]*d*H(Zeta)*beta[1]/(d+H(Zeta))-4*a*alpha[2]*d*H(Zeta)*beta[2]/(d+H(Zeta))^2-b*V*alpha[1]*B^2*H(Zeta)/A^2-b*V*alpha[1]*B*E/A^2-b*V*alpha[1]*C^2*H(Zeta)/A^2-b*V*alpha[1]*C*E/A^2-6*b*V*alpha[-2]*E^2/((d+H(Zeta))^4*A^2)-2*b*V*alpha[-1]*E^2/((d+H(Zeta))^3*A^2)-4*b*V*alpha[2]*B^2*H(Zeta)^2/A^2-4*b*V*alpha[2]*C^2*H(Zeta)^2/A^2-2*b*V*beta[1]*E^2/((d+H(Zeta))^3*A^2)-6*b*V*beta[2]*E^2/((d+H(Zeta))^4*A^2)

(8)

collect(eq, [H, d], recursive):

eqq := subs(H(Zeta) = H, eq)

alpha[0]-2*a*alpha[0]*alpha[1]*d-2*a*alpha[0]*alpha[2]*d^2-2*a*alpha[1]*d^3*alpha[2]+2*w*alpha[2]*d*H-4*a*alpha[2]^2*d^3*H-2*a*alpha[-1]*beta[2]/(d+H)^3-4*a*alpha[2]^2*d*H^3-2*a*alpha[-1]*alpha[0]/(d+H)-2*a*alpha[0]*beta[1]/(d+H)-2*a*alpha[-2]*alpha[-1]/(d+H)^3-2*a*beta[1]*beta[2]/(d+H)^3-2*a*alpha[-2]*beta[2]/(d+H)^4-2*a*alpha[-2]*alpha[0]/(d+H)^2-2*a*alpha[0]*beta[2]/(d+H)^2-2*a*alpha[0]*alpha[2]*H^2-2*a*alpha[-1]*beta[1]/(d+H)^2-2*a*alpha[0]*alpha[1]*H-2*a*alpha[1]^2*d*H-2*a*alpha[1]*H^3*alpha[2]-6*a*alpha[2]^2*d^2*H^2-2*a*alpha[-2]*beta[1]/(d+H)^3+alpha[-2]/(d+H)^2+alpha[-1]/(d+H)+beta[1]/(d+H)+beta[2]/(d+H)^2+alpha[1]*H+alpha[2]*H^2-2*a*alpha[-2]*alpha[1]*d/(d+H)^2-2*a*alpha[-2]*alpha[1]*H/(d+H)^2-2*a*alpha[-2]*alpha[2]*d^2/(d+H)^2-2*a*alpha[-2]*alpha[2]*H^2/(d+H)^2-2*a*alpha[-1]*alpha[1]*d/(d+H)-2*a*alpha[-1]*alpha[1]*H/(d+H)-2*a*alpha[-1]*alpha[2]*d^2/(d+H)-2*a*alpha[-1]*alpha[2]*H^2/(d+H)-4*a*alpha[0]*alpha[2]*d*H-6*a*alpha[1]*d^2*alpha[2]*H-6*a*alpha[1]*d*alpha[2]*H^2-2*a*alpha[1]*d*beta[1]/(d+H)-2*a*alpha[1]*d*beta[2]/(d+H)^2-2*a*alpha[1]*H*beta[1]/(d+H)-2*a*alpha[1]*H*beta[2]/(d+H)^2-2*a*alpha[2]*d^2*beta[1]/(d+H)-2*a*alpha[2]*d^2*beta[2]/(d+H)^2-2*a*alpha[2]*H^2*beta[1]/(d+H)-2*a*alpha[2]*H^2*beta[2]/(d+H)^2-4*b*V*alpha[-1]*B*H^2*C/((d+H)^3*A^2)-12*b*V*beta[2]*E*B*H/((d+H)^4*A^2)+4*b*V*beta[2]*B*C*H/((d+H)^3*A^2)-12*b*V*alpha[-2]*B*H^2*C/((d+H)^4*A^2)-4*b*V*alpha[-1]*E*B*H/((d+H)^3*A^2)-12*b*V*beta[2]*B*H^2*C/((d+H)^4*A^2)-4*b*V*beta[1]*E*C*H/((d+H)^3*A^2)-12*b*V*alpha[-2]*E*C*H/((d+H)^4*A^2)-4*b*V*beta[1]*E*B*H/((d+H)^3*A^2)-12*b*V*beta[2]*E*C*H/((d+H)^4*A^2)-4*b*V*alpha[-1]*E*C*H/((d+H)^3*A^2)-4*b*V*alpha[2]*d*B*C*H/A^2-4*b*V*beta[1]*B*H^2*C/((d+H)^3*A^2)-12*b*V*alpha[-2]*E*B*H/((d+H)^4*A^2)+4*b*V*alpha[-2]*B*C*H/((d+H)^3*A^2)+2*b*V*beta[1]*B*C*H/((d+H)^2*A^2)+2*b*V*alpha[-1]*B*C*H/((d+H)^2*A^2)-a*alpha[1]^2*H^2+w*beta[2]/(d+H)^2-a*beta[2]^2/(d+H)^4+w*alpha[-2]/(d+H)^2-a*alpha[-1]^2/(d+H)^2+w*beta[1]/(d+H)-a*alpha[-2]^2/(d+H)^4+2*alpha[2]*d*H-a*alpha[2]^2*H^4+w*alpha[2]*H^2+w*alpha[-1]/(d+H)+w*alpha[1]*H-a*beta[1]^2/(d+H)^2+K+alpha[1]*d+alpha[2]*d^2+w*alpha[0]-a*alpha[0]^2-6*b*V*alpha[2]*E*B*H/A^2-6*b*V*alpha[2]*E*C*H/A^2+2*b*V*alpha[-2]*B^2*H/((d+H)^3*A^2)+2*b*V*alpha[-2]*B*E/((d+H)^3*A^2)+2*b*V*alpha[-2]*C^2*H/((d+H)^3*A^2)+2*b*V*alpha[-2]*C*E/((d+H)^3*A^2)+b*V*alpha[-1]*B^2*H/((d+H)^2*A^2)+b*V*alpha[-1]*B*E/((d+H)^2*A^2)+b*V*alpha[-1]*C^2*H/((d+H)^2*A^2)+b*V*alpha[-1]*C*E/((d+H)^2*A^2)-2*b*V*alpha[2]*d*B^2*H/A^2-2*b*V*alpha[2]*d*C^2*H/A^2-8*b*V*alpha[2]*B*H^2*C/A^2+b*V*beta[1]*B^2*H/((d+H)^2*A^2)+b*V*beta[1]*B*E/((d+H)^2*A^2)+b*V*beta[1]*C^2*H/((d+H)^2*A^2)+b*V*beta[1]*C*E/((d+H)^2*A^2)+2*b*V*beta[2]*B^2*H/((d+H)^3*A^2)+2*b*V*beta[2]*B*E/((d+H)^3*A^2)+2*b*V*beta[2]*C^2*H/((d+H)^3*A^2)+2*b*V*beta[2]*C*E/((d+H)^3*A^2)-6*b*V*alpha[-2]*B^2*H^2/((d+H)^4*A^2)-6*b*V*alpha[-2]*C^2*H^2/((d+H)^4*A^2)-2*b*V*alpha[-1]*B^2*H^2/((d+H)^3*A^2)-2*b*V*alpha[-1]*C^2*H^2/((d+H)^3*A^2)-2*b*V*beta[1]*B^2*H^2/((d+H)^3*A^2)-2*b*V*beta[1]*C^2*H^2/((d+H)^3*A^2)-6*b*V*beta[2]*B^2*H^2/((d+H)^4*A^2)-6*b*V*beta[2]*C^2*H^2/((d+H)^4*A^2)-2*b*V*alpha[1]*B*C*H/A^2-2*b*V*alpha[2]*d*B*E/A^2-2*b*V*alpha[2]*d*C*E/A^2-a*alpha[1]^2*d^2+w*alpha[1]*d-a*alpha[2]^2*d^4+w*alpha[2]*d^2-2*b*V*alpha[2]*E^2/A^2-4*a*alpha[-2]*alpha[2]*d*H/(d+H)^2-4*a*alpha[-1]*alpha[2]*d*H/(d+H)-4*a*alpha[2]*d*H*beta[1]/(d+H)-4*a*alpha[2]*d*H*beta[2]/(d+H)^2-b*V*alpha[1]*B^2*H/A^2-b*V*alpha[1]*C^2*H/A^2-6*b*V*alpha[-2]*E^2/((d+H)^4*A^2)-2*b*V*alpha[-1]*E^2/((d+H)^3*A^2)-4*b*V*alpha[2]*B^2*H^2/A^2-4*b*V*alpha[2]*C^2*H^2/A^2-2*b*V*beta[1]*E^2/((d+H)^3*A^2)-6*b*V*beta[2]*E^2/((d+H)^4*A^2)-b*V*alpha[1]*B*E/A^2-b*V*alpha[1]*C*E/A^2

(9)

collect(eqq, {d+H})

Error, (in collect) cannot collect d+H

 

``

NULL

``


 

Download SHAFEEG2.mwSHAFEEG2.mw

Hey.. AoA,
How to combine a specific rows of two different Matrix?

Hi, I have a procedure named f1. In it, it calls another procedure f couple of times. procedure f does not have recursive calls implemented.

I have no idea what caused the error. Could anyone give a hint?

Thanks a million in advance,

Best,

Jie

I like Maple the most for calculation of difficult parts. But when it comes to display, I am ignorant and do not know how to command the maple for showing me what is visible in the document.

I attach herewith my document which shows in print view only top half of the sketch. What should I do to show all three figures in the portrait page.
(Here below, after uploading it is shown alright, but in the print preview it is not showing!!).

I want to convert the doc to pdf. Therefore, in the doc preview itself it should be complete.

Thanks for help.

Ramakrishnan V
 

NULL

 

NULL

 

 

 

NULL

 

 

``

NULL


 

Download sketchesNotComing_in_full.mw

Hello,

do not work well and U functions are not replaced with series form.

Please see equation 5.

Also, How me can differential with respect to the constant Amnr], Bmnr], Cmnr] as shown in   attached figure?

For Differentiation I need a

Diff.pdf

Hello! I have a Maple sheet that is functional in some versions of Maple but not others. It works perfectly in Maple 18 (which is the version with which it was written), but when running it in Maple 2019, I see the following error:

  • "Error, (in Matrix) cannot determine if this expression is true or false: Distance(Vector[row](3, {(1) = 0., (2) = 1.313799622, (3) = 0}), Vector[row](3, {(1) = 0., (2) = -1.313799622, (3) = 0})) < 99999999999999999999/100000000000000000000"

And believe that it is related to the following lines of code:

  • R := Matrix(N, (i, j) -> Distance(coords[i], coords[j]) ;
  • S := Matrix(N, (i, j) -> if i = j then 1 elif R[i, j] < 3 then (1+C*R[i, j]+(2/5)*C^2*R[i, j]^2+(1/15)*C^3*R[i, j]^3)*exp(-C*R[i, j]) else 0 end if)

It seems as if it cannot compute a distance between two points (as given in the form of two vectors). I have imported the Student:-Precalculus package, along with ArrayTools and LinearAlgebra, at the start of the sheet, but am wondering if there is an issue with this package in other versions of Maple. The full sheet can be provided if more information is needed, but I'm pretty sure that portion is the problem. Any help would be greatly appreciated.

 

Sheet: testsheet.mw

First 698 699 700 701 702 703 704 Last Page 700 of 2451