Items tagged with equation equation Tagged Items Feed

Hi, I'm trying to solve without success numerically the following system of 15 nonlinear equations. Could anyone help, please? Thanks
 

restart

n := 0.27231149e-1:

x := 0.5116034663e-1:

F := .1561816797:

eq1 := sigma*C0 = pgamma*W*H1*(1-E0-L0)/(1+n):

eq2 := sigma*C1 = W*H1*(1-L1):

eq3 := (1+R)*C0 = (1+rho)*exp(x)*C1:

eq4 := (1+R)*C1 = (1+rho)*exp(x)*C2:

eq5 := C1 = (1+phi)*C0:

eq6 := pgamma*L0+pgamma*(1+(1+n)*F/(pgamma*W*H1))*E0+L1 = (1+R)*(1+(1+n)*F/(pgamma*W*H1))/(ppsi*exp(x))-pgamma*(1+(1+n)*F/(pgamma*W*H1))/ppsi:

eq7 := 1 = pgamma*(1+ppsi*E0)/(1+n):

eq8 := exp(x)*A1 = pgamma*W*L0*H1/(1+n)+Epsilon1-C0-F*E0:

eq9 := exp(x)*A2 = W*L1*H1+(1+R)*A1-C1-(1+n)*Epsilon1:

eq10 := (1+R)*A2 = C2:

eq11 := Y = H^alpha*K^(1-alpha):

eq12 := alpha*Y = W*H:

eq13 := (1-alpha)*Y = (1+R)*K:

eq14 := K = A1/(1+n)+A2/(1+n)^2:

eq15 := H = (pgamma*L0+L1)*H1/(1+n):

eq := {eq1, eq2, eq3, eq4, eq5, eq6, eq7, eq8, eq9, eq10, eq11, eq12, eq13, eq14, eq15}:

vars := {A1, A2, C0, C1, C2, E0, H, H1, K, L0, L1, R, W, Y, Epsilon1}:

NULL

fsolve(eq, vars); 1; assign(%)

fsolve({1 = .6865382886+.1072247031*E0, C1 = 1.475639047*C0, H = .9734907289*(.7052335150*L0+L1)*H1, K = .9734907289*A1+.9476841993*A2, Y = H^.6874443*K^.3125557, (1+R)*A2 = C2, (1+R)*C0 = 1.121850394*C1, (1+R)*C1 = 1.121850394*C2, 1.052491643*A1 = .6865382886*W*L0*H1+Epsilon1-C0-.1561816797*E0, 1.052491643*A2 = W*L1*H1+(1+R)*A1-C1-1.027231149*Epsilon1, 5.171201776*C0 = .6865382886*W*H1*(1-E0-L0), 5.171201776*C1 = W*H1*(1-L1), .3125557*Y = (1+R)*K, .6874443*Y = W*H, .7052335150*L0+.7052335150*(1+.2274915796/(W*H1))*E0+L1 = 6.083468374*(1+R)*(1+.2274915796/(W*H1))-4.515468884-1.027231149/(W*H1)}, {A1, A2, C0, C1, C2, E0, H, H1, K, L0, L1, R, W, Y, Epsilon1})

(1)

``

 

Download DDGE.mw

my project supervisor has made it mandatory that i build a maple maplet of the bessel equation:

hello every one

i need to solve this equation

> A1 := Matrix([[a11, a12, a13], [a12, a22, a23], [a13, a23, a33]]);
> A2 := Matrix([[A], [B], [C]]);
> A3 := Matrix([[15], [0], [0]]);
> eq := multiply(A1, A2)=A3;

> solve(eq, {A, B, C});

thank you :)

I want to reduce all solution of the equation sin(x)^2=1/4

restart:
sol:=solve(sin(x)^2=1/4, x, AllSolutions);

and

restart:
k:=combine((sin(x))^2);
sol:=solve(k=1/4, x, AllSolutions = true, explicit);
simplify(sol);

How can I reduce solution sol := -1/3*Pi*_B3+1/6*Pi+Pi*_Z3 ?

How can I get x= pi/6+k*pi and x= -pi/6+k*pi?

hi.I want to dsolve set of nonlinear equations with one unknown parameter ...is this possible with dsolve rule.in matlab this possible with bvp4c rule..please help me for this problem.if we should another rule please attached file reform.Thanks alot12.mw

A pirate ship is persuing a merchant ship when a fog descends, obscuring the merchant ship in front. What path must the pirate ship take to guarantee intercepting the other ship? [the pirate ship can go 5x faster than the merchant, and the merchant can move in any direction as long as it's in a straight line].

ok, so the pirate needs to move in a straight line for a little bit, then move in an ever increasing spiral, a logarithmic spiral. r=a.e^(b.theta) and in parametric form x(t)=a.e^(b.t).cos(t), y(t)=a.e^(b.t).sin(t)

So im asking if there is an underlying ODE and if Maple can derive the above equations (and the numbers a and b).

the tv show i got this from displayed the following eq: t=d/(v1+v2).e^(theta/sqrt((v1/v2)^2-1))

BTW if you're an internet troll reading this, and don't believe this question belongs on this forum, other members might disagree.

 

Here we develop the factoring in common factor, simple and complete square blade, plus simple equation systems with graphic and design, and graphic solution of the quadratic equation using components in maple 2015.

 

Factorizacion.mw

(in spanish)

L.AraujoC.

 

 

 

If there is  an equation or are several equations, I need to obtain all the roots, how can I do???

 

fsolve ? rootfindings? or what?

 

If an examples of actual is given,  That will be perfect  !!!

 

Thanks 

hi guys , i have this warning for solving a complicated equation with 7 parameters. how can i overcome to this warning ?

 


odesys := {(1/4)*(-4*r^(2+p+a)*p*a-11*r^(2+a+c)*a*c-4*r^(2+p+c)*p*c+22*r^(2+a+n)*a*n+8*r^(2+p+n)*p*n-22*r^(2+a+c)*a+8*r^(2+p+a)*p-8*r^(2+p+c)*p+22*r^(2+b)*b+32*r^(2+p)*p^2+32*r^(2+p)*p+22*r^(2+b)*b^2+22*r^(2+2*a)*a+65*r^(2+2*a)*a^2-8*r^(2+p+c)*p^2+8*r^(2+p+a)*p^2-22*r^(2+a+c)*a^2)/r^4+(1/4)*(4*r^(a+n)*n^2-2*r^(n+c)*n*c-4*r^(n+c)*n^2+3*r^(2*n)*n^2-4*r^(a+c)*c+8*r^(a+n)*n+4*r^(2*c)*c-8*r^(n+c)*n+4*r^m*m^2-4*r^d*d+8*r^m*m+4*r^m-4*r^d)/r^2}

{(1/4)*(-4*r^(2+p+a)*p*a-11*r^(2+a+c)*a*c-4*r^(2+p+c)*p*c+22*r^(2+a+n)*a*n+8*r^(2+p+n)*p*n-22*r^(2+a+c)*a+8*r^(2+p+a)*p-8*r^(2+p+c)*p+22*r^(2+b)*b+32*r^(2+p)*p^2+32*r^(2+p)*p+22*r^(2+b)*b^2+22*r^(2+2*a)*a+65*r^(2+2*a)*a^2-8*r^(2+p+c)*p^2+8*r^(2+p+a)*p^2-22*r^(2+a+c)*a^2)/r^4+(1/4)*(4*r^(a+n)*n^2-2*r^(n+c)*n*c-4*r^(n+c)*n^2+3*r^(2*n)*n^2-4*r^(a+c)*c+8*r^(a+n)*n+4*r^(2*c)*c-8*r^(n+c)*n+4*r^m*m^2-4*r^d*d+8*r^m*m+4*r^m-4*r^d)/r^2}

(1)

res := op(odesys);

(1/4)*(-4*r^(2+p+a)*p*a-11*r^(2+a+c)*a*c-4*r^(2+p+c)*p*c+22*r^(2+a+n)*a*n+8*r^(2+p+n)*p*n-22*r^(2+a+c)*a+8*r^(2+p+a)*p-8*r^(2+p+c)*p+22*r^(2+b)*b+32*r^(2+p)*p^2+32*r^(2+p)*p+22*r^(2+b)*b^2+22*r^(2+2*a)*a+65*r^(2+2*a)*a^2-8*r^(2+p+c)*p^2+8*r^(2+p+a)*p^2-22*r^(2+a+c)*a^2)/r^4+(1/4)*(4*r^(a+n)*n^2-2*r^(n+c)*n*c-4*r^(n+c)*n^2+3*r^(2*n)*n^2-4*r^(a+c)*c+8*r^(a+n)*n+4*r^(2*c)*c-8*r^(n+c)*n+4*r^m*m^2-4*r^d*d+8*r^m*m+4*r^m-4*r^d)/r^2

(2)

SOL1 := solve(identity(res = 0, r), {a, b, c, d, m, n, p})

Warning, solutions may have been lost

 

``


Download sol.mw

thanks

guys, i have this equation which a, n, c, phi[0] are parameters and r is variable. maple solved this equation with n=0,c=c,phi[0]=5/4-1/4 c but i obtained another solution for this equation : a = 1, c = 5, n = 1, phi[0] = 1 ( you can check). 

 

restart

odesys := {5*r^a+4*n-c*r^n-4*phi[0]}

{5*r^a+4*n-c*r^n-4*phi[0]}

(1)

res := op(odesys);

5*r^a+4*n-c*r^n-4*phi[0]

(2)

 

SOL := solve(identity(res = 0, r), [a, n, c, phi[0]]);

[[a = 0, n = 0, c = c, phi[0] = 5/4-(1/4)*c]]

(3)

NULL

eval(5*r^a+4*n-c*r^n-4*phi[0], [a = 1, c = 5, n = 1, phi[0] = 1])

0

(4)

NULL


how can i get all solutions for a equation like this ?

Download eq000.mw

hi guys ,

 

i have two set equations and i want to solve them. eq.mw

 

 

thanks guys

Is it possible to somehow extract a derivative from numeric solution of partial differential equation?

I know there is a command that does it for dsolve but i couldn't find the same thing for pdsolve.

The actual problem i have is that i have to take a numeric solution, calculate a derivative from it and later use it somewhere else, but the solution that i have is just a set of numbers an array of some sort and i can't really do that because obviously i will get a zero each time.

Perhaps there is a way to interpolate this numeric solution somehow?

I found that someone asked a similar question earlier but i couldn't find an answer for it.

Hello everyoene, please i have a problem solving this delay differential equation:

y'(x)=cos(x)+y(y(x)-2)    0<x<=10

y(x)=1      x<=0

tau=x-y(x)+2

please i need the solution urgently

guys ,

in a differential equation i want to expand its variable, but i  have some problem with it for exponential term :jadid.mw

 

 

thanks guys

 

 

2 3 4 5 6 7 8 Last Page 4 of 25