Hi,

I have a system of nonlinear equations in conjuction with boundary conditions, as below:

(all coefficients are constant.)

dsys3 := {a2*(diff(f1(x), x, x))+a3*(diff(f2(x), x, x, x))+a4*(diff(f2(x), x))+a6*(diff(f3(x), x))+a7*f1(x)+a1N*(diff(f3(x), x, x))*(diff(f3(x), x))+a2N*(diff(f3(x), x))*f3(x)+a3N*(diff(f3(x), x))*f3(x) = 0, a8*(diff(f2(x), x, x, x, x))+a9*(diff(f2(x), x, x))+a10*f2(x)+a11*(diff(f1(x), x, x, x))+a12*(diff(f1(x), x))+a13*(diff(f3(x), x, x))+a14*f3(x)+a4N*(f3(x)*f3(x))+a5N*((diff(f3(x), x))*(diff(f3(x), x)))+a6N*(diff(f3(x), x, x))*f3(x) = 0, (diff(f3(x), x, x, x, x))*a16+(diff(f3(x), x, x))*a18+(diff(f3(x), x, x))*a19+(diff(f1(x), x))*a22+(diff(f1(x), x))*a23+(diff(f2(x), x, x))*a24+f2(x)*a25+f2(x)*a26+f3(x)*a27+f3(x)*a29 = 0, f1(0) = 0, f1(1) = 0, f2(0) = 0, f2(1) = 0, f3(0) = 0, f3(1) = 0, ((D@@1)(f2))(0) = 0, ((D@@1)(f2))(1) = 0, ((D@@1)(f3))(0) = 0, ((D@@1)(f3))(1) = 0}:
dsol5 := dsolve(dsys3, 'maxmesh' = 500, abserr = .1, numeric, range = 0 .. 1, output = listprocedure)

but i encounter an error as:

Error, (in dsolve/numeric/bvp/convertsys) unable to convert to an explicit first-order system

what is your suggestion to solve this nonlinear equations?

Thank you.

cheese_division.mw

3 different dia circular cheeses. same depth. minimize cuts such that its divided equaly among four people.

can be done in 3 cuts. can evem be done in 2

could some erudite richard provide maple solution to this Q. thx

reinstalled m18, i used to have an ini file, but it got deleted.

so i made a text file, called it maple.ini with the following text: 

interface(prompt=""):
e:=exp(1);
digits:=15;
HelpBGColor=255,255,224;
print("maple init loaded...");

I placed it

 C:\Program Files\Maple 18\bin.win

and

 C:\Program Files\Maple 18\lib

and

C:\Program Files\Maple 18\Users

it doesnt load when i load maple!

Hi, I know this has been asked ( and answered before) but when I installed this package and pressed ?globalsearch the help page is void.how do I get it?

y'(t)=1-y'(t-y(t)^2 /4),      t>=0

with initial function

y(t)=1+t,   0<=t<=1

please solve

Hi Everyone,

I have a bunch polynomial systems of equations (all form zero-dimensional ideals, i.e. there is a finite number of complex solutions), and I would like to get a real solution for each of them, if available.

fsolve would be the tool to use. But it lead to some strange behaviour for me. Among some other inputs, the input

fsolve({81*x3^12+72*x3^10-614*x3^9+16*x3^8-384*x3^7+1884*x3^6+480*x3^4-2760*x3^3+1600, 81*x2*x3^11+72*x2*x3^9-452*x2*x3^8+16*x2*x3^7-240*x2*x3^6+980*x2*x3^5+32*x2*x3^4-144*x2*x3^3-800*x2*x3^2-220*x3^3+160*x2^2+480*x2+520, 81*x3^11+72*x3^9-452*x3^8+16*x3^7-240*x3^6+980*x3^5+32*x3^4-144*x3^3-800*x3^2+160*x1+160*x2+480},{x1, x2, x3});

somehow outputs itself, i.e.

fsolve({81*x3^12+72*x3^10-614*x3^9+16*x3^8-384*x3^7+1884*x3^6+480*x3^4-2760*x3^3+1600, 81*x2*x3^11+72*x2*x3^9-452*x2*x3^8+16*x2*x3^7-240*x2*x3^6+980*x2*x3^5+32*x2*x3^4-144*x2*x3^3-800*x2*x3^2-220*x3^3+160*x2^2+480*x2+520, 81*x3^11+72*x3^9-452*x3^8+16*x3^7-240*x3^6+980*x3^5+32*x3^4-144*x3^3-800*x3^2+160*x1+160*x2+480},{x1, x2, x3})

I know that this system has no real solutions, but only complex ones. But wouldn't the expected output then be just nothing (as e.g. "solve" does)?

I am confused by this output. Furthermore, how can I "check" with Maple if the output was a solution? By checking the type? There must be less hacky solutions. Thank you all in advance for your help.

Albert

PS.: When I add the keyword "complex" to the function call, then I receive a complex solution; hence, the syntax at least is correct (if someonw might have doubted that).

Dear Friends:

I am currently working on a calculation for phase velocity of acoustic waves and don’t get along.  

My equation has the following form:

equ := tan( (31 / 20000) * sqrt( -9610000/c^2 + 1) / Pi) / tan((961/1260000) * sqrt( -39690000/c^2 + 1)/ P i) = -(1191640000/63)*sqrt(-9610000/c^2 + 1)*sqrt (-39690000/c^2 + 1)/ (c^2*(19220000/c^2 - 1)^2)

Using ‘sol = solve(equ,c)’ returns

sol := 96100* RootOf(1 + (400000000 * Pi^2 * RootOf(40320000000000000000 * Pi^4 * tan(_Z)*_Z^4256000000000000 * Pi^3 * csgn(_Z) * _Z^3 * tan((1/157500) * sqrt(24806250000 * Pi^2 * _Z^2 - 45167) / Pi) * sqrt(24806250000 * Pi^2 * _Z^2 - 45167) -96868800000000 * Pi^2 * tan(_Z) * _Z^2 + 615040000 * Pi * csgn(_Z) * _Z * tan((1/157500) * sqrt(24806250000 * Pi^2 * _Z^2 - 45167) / Pi ) * sqrt(24806250000 * Pi^2 * _Z^2 - 45167)+58181823 * tan(_Z))^2 - 961)* _Z^2)

c should be in a range of 13,000.

Two questions:

1) How can I deal with _Z?

2) Any suggestion how I can calculate ‘c’? Maybe numerical?

I am relative new in maple…

Many thanks!

Alex

Hi, I'm having a problem regarding this equation:
                                                           sum(v(i), i = 1 .. 28)

where, v is a Data Table created under the Components Tab with 28 Rows, and 1 Column.

I keep on getting an error of: 

                                                     Error, unsupported type of index, i

I didn't use or declare 'i' in any part of the program.

Thank you for your help! 

The model of fixed-bed adsorption column

Fluid phase:

PDE:= diff(U(x, tau),tau)+ psi*Theta*diff(U(x, tau),x)-(1/Pe)*psi*Theta*diff(U(x, tau),$(x, 2))=-3*psi*xi*(U(x, tau)-Q/K);

IBC:={U(x, 0) = 0,U(0, tau) = 1+(1/Pe)*(D[1](U))(0, tau),(D[1](U))(1, tau)=0};

Particle:

PDE:= diff(Q(r, tau), tau) = diff(Q(r, tau), $(r, 2))+(2/r)*diff(Q(r, tau),r);

IBC:={Q(r, 0) = 0,(D[1](Q))(0, tau) = 0,(1/K)*(D[1](Q))(1, tau)=xi*(U-Q(1, tau)/K)};

Pe:=0.01:

psi:=6780:

Theta:=3.0:

xi:=10000:

I will really appreciate your help. Thanks in anticipation.

I want to plot this contour 4x^2+9y^2=160  onto the same f(x,y)=4x^2+9y^2.  The error I keep getting is

Error, (in plot3d) first argument must be either in standard or parametric form

Thanks

I can;t seem to get DSOLVE working.  Will some kindly soul please send me a complete example, starting with an f(x) & clearly documented?   Many thanks.

AB

restart;

with(plots);

Eq1 := diff(f(eta), eta, eta, eta)+f(eta)*(diff(f(eta), eta, eta))-(diff(f(eta), eta))^2-M^2*(diff(f(eta), eta))+B(f(eta)*(diff(f(eta), eta, eta))*(diff(f(eta), eta))-f(eta)^2*(diff(f(eta), eta, eta, eta))) = 0;

Eq2 := (diff(theta(eta), eta, eta))/Pr+f(eta)*(diff(theta(eta), eta))-2*(diff(f(eta), eta))*theta(eta) = 0;

Pr := 1

M := 1

S := 0

epsilon := 1

blt := 10

bcs1 := f(0) = S, (D(f))(0) = epsilon, (D(f))(blt) = 0;

bcs2 := theta(0) = 1, theta(blt) = 0;

L := [0, .2, .4, .6, .8, 1.2];

for k to 6 do R := dsolve(eval({Eq1, Eq2, bcs1, bcs2}, B = L[k]), [f(eta), theta(eta)], numeric, output = listprocedure); X1 || k := rhs(R[3]); X2 || k := rhs(R[4]); Y1 || k := rhs(R[5]); Y2 || k := -rhs(R[6]) end do:

print([(X2 || (1 .. 6))(0)])

Hello everyone,

I want to inseret a text arrow in the graph obtained by plot command to show increasing or decreasing trends of the graph, but I could not find any option to insert the textarrow or textbox in the graph. 

Thanks in advance.

hi,

I am trying to implement some data-intensive algorithms like: comuting similarity scores, clustering etc. How efficient Maple is in doing these operations? I mean is it comparable to MATLAB in these operations? What toolboxes are useful in these? I am trying to build a recommender system.

I am using Maple18 and not sure if Maple has any advantage in implementing these type of algorithms over MATALB??

thanks

siba

Please, i need help USING ODE1 and ODE2 with given BCS and Pr=0.714

it is needed to to generates   

                   [-0.2], [0.51553], [0.4000]
                  [-0.1], [0.57000], [0.4371]
                   [0.], [0.62756], [0.4764]
                  [0.1], [0.68811], [0.5176]
                  [0.2], [0.75153], [0.5609]

but it is generarting

                  [-0.2], [0.51553], [0.42342]
                  [-0.1], [0.57000], [0.46114]
                   [0.], [0.62756], [0.50088]
                  [0.1], [0.68811], [0.54261]
                  [0.2], [0.75153], [0.58628]

the values of D(theata)(0) is wrong. Please i need HELP. this the code below that i use:
>restart;
>with (plots):ode1:=diff(f(eta),eta,eta,eta)+f(eta)*diff(f(eta),eta,eta)-M*diff(f(eta),eta)=0:

>ode2:=diff(theta(eta),eta,eta)+Pr*f(eta)*diff(theta(eta),eta)=0:

>bcs1:= f(0)=w,D(f)(0)=1,D(f)(10)=0:
>bcs2theta(10)=0,theta(0)=1:
>fixedparameter1:=[M=0.0]:
>ode3:=eval(ode1,fixedparameter1):
>fixedparameter2:=[Pr=0.714]:
>ode4:=eval(ode2,fixedparameter2):

>G:=[-0.2,-0.1,0.0,0.1,0.2]:
>for ode3 and ode4:
  for k from 1 to 5 do
  sol_All:=dsolve(eval({ode3,ode4,bcs1},w=G[k]),    [f(eta),theta(eta)],numeric,output=listprocedure);
Y_sol||k:= -rhs(sol_All[4]);
YP_sol||k:=-rhs(sol_All[6]);
end do:
>Digits:=5:

>for k from 1 to 5 do
evalf([G[k]]),evalf([(Y_sol||k(0))]),evalf([YP_sol||k(0)]);    
od;
                  [-0.2], [0.51553], [0.42342]
                  [-0.1], [0.57000], [0.46114]
                   [0.], [0.62756], [0.50088]
                  [0.1], [0.68811], [0.54261]
                  [0.2], [0.75153], [0.58628]