MaplePrimes Questions

Greetings, seeking an expert to animate a plot.

see worksheet.posterior_graphs_(encapsulted)_1D.mw

before they play each other, each have a law (a normal distribution) plot-output 6.

after DD defeats CC, and a numerical integration is performed the new laws are given by plot-output 18.

as you can see, the laws of DD and CC are closer together.

if the calc was repeated (DD defeats CC again), the laws would be closer again.

so what i require is an animation of the new laws from game 1 to (say) game 6 (DD defeats CC every time). seeing the red and blue distributions merging would be ideal.

as an aside I heard maples FFT could simplify the complicated integration. any suggestions?

cheers

(http://imgur.com/SDBP0sw)


Hello, everyone!


I was given this week's Maple assignment in my class and I've come across a problem. I'll say this now so I don't get sent away, I am NOT asking for the answer. For this question there is a part A and part B, but also a preliminary check to make sure our code is wokring (as seen in the picture link). The issue I'm here for is that I can't figure out the code for the preliminary check... I've been here for hours and I'm stumped.

 

This is my attemp so far; 

 

f := x^(6*ln(x))

Digits:=15;

T2 := convert(%, polynom)

f_value := evalf(subs(x = 5, T2))

 

I'm very confused what to do next in order to get that preliminary test amount of 5121425.461.

Thanks in advance! :)

I have been Maple  18 with no problem. Then, today, the  "=" symbol and  "+" symbol don't work.  Does anyone know what to do about this?

 

Hi,
There a lot of symbols that don't work in Maple.
The symbols that dont work are shown as an "A".
Almost half of the symbols in the pallets are shown as an "A".

Hi,

I am trying to discretize a kernel of the form $K(x,y,t,s)$. I want to evaluate a four dimensional integral of the form

\int\int\int\int K(x,y,t,s)*h_m(x)*h_n(y)*h_p(t)*h_q(s) dsdtdxdy, where limits of integration are from 0 to 1.

$h_m()$ are function of one variable.

please suggest how to evaluate this.

thanks

 

In the attached Maple worksheet I attempt to plot the solution of an initial value problem for a first order ODE.  DEplot fails with a cryptic message.  Strangely enough, if I give the "arrows=none" option to DEplot, it produces the correct plot!

I see this behavior in Maple 17 and 18.

Maple 11, however, works fine with or without the "arrows=none" option.

Is there an explanation for this or is it a bug?

DEplot-bug.mw

restart; macro(x = eta); einf := 4; gm1 := 10; gm2 := 5; mf := .5; pr := 6.2; le := 10; nb := .2; nt := .2; r := 2; tr := 2; bi := .5; m := 2; tr1 := 1.5;
a1 := (m+1)*(1/2);
eqs1 := diff(f(x), [`$`(x, 3)])+a1*f(x)*(diff(f(x), [`$`(x, 2)]))-m*(diff(f(x), [`$`(xx, 2)]))^2+gm1*g(x)-gm2*h(x)-mf*(diff(f(x), [`$`(x, 1)])) = 0;
eqs2 := diff(g(x), [`$`(x, 2)])+a1*pr*f(x)*(diff(g(x), [`$`(x, 1)]))+pr*nb*(diff(g(x), [`$`(x, 1)]))*(diff(h(x), [`$`(x, 1)]))+pr*nt*(diff(g(x), [`$`(x, 1)]))^2+(4/3)*r1*(diff((1+(tr-1)*g(x))^3*(diff(g(x), [`$`(x, 1)])), x)) = 0;
eqs3 := diff(h(x), [`$`(x, 2)])+a1*le*f(x)*(diff(h(x), [`$`(x, 1)]))+nt*(diff(g(x), [`$`(x, 2)]))/nb = 0;
bcs1 := f(0) = 0, (D(f))(0) = 1, (D(f))(einf) = 0;
bcs2 := (D(g))(0) = bi*(g(0)-1), g(einf) = 0;
bcs3 := h(0) = 1, h(einf) = 0;
eqs := {bcs1, bcs2, bcs3, eqs1, eqs2, eqs3};
sol1 := dsolve(eqs, [f(x), g(x), h(x)], numeric, output = listprocedure);

If I typed the above line it's showing 

Error, (in dsolve/numeric/process_input) missing differential equations and initial or boundary conditions in the first argument: eqs

Kindly, I request you to do the needful as early as possible.

hai everyone. i am currently trying to solve an integration of the following ∫g(η)dη . integrate from 0 to 10.

from the following odes.

f ''' +1-(f ')2 +ff ''=0,

g''-gf'+fg'=0,

with boundary conditions f(0)=0, f'(0)=λ, f'(∞)=1, g(0)=1,g(∞)=0

First, i solve the odes using the shooting method. then i used the trapezoidal rule to solve for the integration of g(eta) using the following codes

> with(student);
> trapezoid(g(eta), eta = 0 .. 10, 10);
> evalf(%);

it seems that it can not read the data from the shooting method. can anyone suggest why it is happening?

thank you verymuch for your concern :)

Hi

I need a command for adding screentip to maple textbox.When user select textbox field, a comment appear and guide him to write correct format of algebric expression, e.g. when user writes 2sin(x) the format scanner can't specify 2 from 2sin, and user must write 2*sin(x) instead of 2sin(x).

I want explain these hints with screentip.

 

Hello every one.

I want to do some tensor computations in maple in a specified coordinate system but I don't know how! As an example I ask the follwing question.

Consider a second order symmetric tensor "A". I want to compute the components of "curl(curl(A))" in cylinderical coordinates. How should I do this in maple?

This is related to a famous equation in elasticity known as "small strain compatibility" equation.

Thanks for the help

Hi

I am trying to implement the following basis functions $h_n(t)$. Please suggest how to implement. thanks

 

Hello i want to solve the differentiel equation but i have these problem i don't understund  why !?

drive.mw

restart

ode1 := (K[Q]*T*R[a]/K[kol]+R[a]*B[m]*sqrt(T/K[kol]))/K[i]+K[b]*sqrt(T/K[kol]) = 0

(K[Q]*T*R[a]/K[kol]+R[a]*B[m]*(T/K[kol])^(1/2))/K[i]+K[b]*(T/K[kol])^(1/2) = 0

(1)

ode2 := (1/2)*(-(4*(diff(theta(t), t)+theta(t)))*M+2*B1*(diff(theta(t), t)+theta(t))-2*w[2]*sin(theta(t))+m1*g*sin(theta(t))*l[kol]-2*B1*theta(t)+2*w[1]*sin(theta(t))-2*m1*g*sin(theta(t))*l[2])/l[1]

(1/2)*(-4*(diff(theta(t), t)+theta(t))*M+2*B1*(diff(theta(t), t)+theta(t))-2*w[2]*sin(theta(t))+m1*g*sin(theta(t))*l[kol]-2*B1*theta(t)+2*w[1]*sin(theta(t))-2*m1*g*sin(theta(t))*l[2])/l[1]

(2)

 

ode3 := subs(T = (1/2)*(-(4*(diff(theta(t), t)+theta(t)))*M+2*B1*(diff(theta(t), t)+theta(t))-2*w[2]*sin(theta(t))+m1*g*sin(theta(t))*l[kol]-2*B1*theta(t)+2*w[1]*sin(theta(t))-2*m1*g*sin(theta(t))*l[2])/l[1], ode1)

((1/2)*K[Q]*(-4*(diff(theta(t), t)+theta(t))*M+2*B1*(diff(theta(t), t)+theta(t))-2*w[2]*sin(theta(t))+m1*g*sin(theta(t))*l[kol]-2*B1*theta(t)+2*w[1]*sin(theta(t))-2*m1*g*sin(theta(t))*l[2])*R[a]/(l[1]*K[kol])+(1/2)*R[a]*B[m]*2^(1/2)*((-4*(diff(theta(t), t)+theta(t))*M+2*B1*(diff(theta(t), t)+theta(t))-2*w[2]*sin(theta(t))+m1*g*sin(theta(t))*l[kol]-2*B1*theta(t)+2*w[1]*sin(theta(t))-2*m1*g*sin(theta(t))*l[2])/(l[1]*K[kol]))^(1/2))/K[i]+(1/2)*K[b]*2^(1/2)*((-4*(diff(theta(t), t)+theta(t))*M+2*B1*(diff(theta(t), t)+theta(t))-2*w[2]*sin(theta(t))+m1*g*sin(theta(t))*l[kol]-2*B1*theta(t)+2*w[1]*sin(theta(t))-2*m1*g*sin(theta(t))*l[2])/(l[1]*K[kol]))^(1/2) = 0

(3)

simplify(ode3)

(1/2)*(-4*R[a]*K[Q]*M*(diff(theta(t), t))-4*R[a]*K[Q]*M*theta(t)+2*R[a]*K[Q]*B1*(diff(theta(t), t))-2*R[a]*K[Q]*w[2]*sin(theta(t))+R[a]*K[Q]*m1*g*sin(theta(t))*l[kol]+2*R[a]*K[Q]*w[1]*sin(theta(t))-2*R[a]*K[Q]*m1*g*sin(theta(t))*l[2]+R[a]*B[m]*2^(1/2)*((-4*M*(diff(theta(t), t))-4*M*theta(t)+2*B1*(diff(theta(t), t))-2*w[2]*sin(theta(t))+m1*g*sin(theta(t))*l[kol]+2*w[1]*sin(theta(t))-2*m1*g*sin(theta(t))*l[2])/(l[1]*K[kol]))^(1/2)*l[1]*K[kol]+K[b]*2^(1/2)*((-4*M*(diff(theta(t), t))-4*M*theta(t)+2*B1*(diff(theta(t), t))-2*w[2]*sin(theta(t))+m1*g*sin(theta(t))*l[kol]+2*w[1]*sin(theta(t))-2*m1*g*sin(theta(t))*l[2])/(l[1]*K[kol]))^(1/2)*l[1]*K[kol]*K[i])/(l[1]*K[kol]*K[i]) = 0

(4)

eol := (1/2)*(-4*R[a]*K[Q]*M*(diff(theta(t), t))-4*R[a]*K[Q]*M*theta(t)+2*R[a]*K[Q]*B1*(diff(theta(t), t))-2*R[a]*K[Q]*w[2]*sin(theta(t))+R[a]*K[Q]*m1*g*sin(theta(t))*l[kol]+2*R[a]*K[Q]*w[1]*sin(theta(t))-2*R[a]*K[Q]*m1*g*sin(theta(t))*l[2]+R[a]*B[m]*sqrt(2)*sqrt((-4*M*(diff(theta(t), t))-4*M*theta(t)+2*B1*(diff(theta(t), t))-2*w[2]*sin(theta(t))+m1*g*sin(theta(t))*l[kol]+2*w[1]*sin(theta(t))-2*m1*g*sin(theta(t))*l[2])/(l[1]*K[kol]))*l[1]*K[kol]+K[b]*sqrt(2)*sqrt((-4*M*(diff(theta(t), t))-4*M*theta(t)+2*B1*(diff(theta(t), t))-2*w[2]*sin(theta(t))+m1*g*sin(theta(t))*l[kol]+2*w[1]*sin(theta(t))-2*m1*g*sin(theta(t))*l[2])/(l[1]*K[kol]))*l[1]*K[kol]*K[i])/(l[1]*K[kol]*K[i])

 

(5)

R[a] := 1.42;

1.42

(6)

K[b] := 0.649e-2;

0.649e-2

(7)

K[i] := 0.649e-2

0.649e-2

(8)

K[Q] := 0.1051618298e-6

0.1051618298e-6

(9)

l[kol] := 1

1

(10)

l[1] := .7

.7

(11)

l[2] := .3

.3

(12)

K[kol] := 0.1168464776e-5

0.1168464776e-5

(13)

B1 := 0.955e-3

0.955e-3

(14)

B[m] := 0.955e-3

0.955e-3

(15)

J := 0.475e-6

0.475e-6

(16)

M := 0.91e-2

0.91e-2

(17)

m1 := 0.726e-1

0.726e-1

(18)

w[1] := 0.72e-1

0.72e-1

(19)

w[2] := .45

.45

(20)

g := 9.81

9.81

(21)

a1 := 0

0

(22)

eol

-.4851223862*(diff(theta(t), t))-.5119876735*theta(t)-6.626549550*sin(theta(t))+.1077211171*2^(1/2)*(-42167.66273*(diff(theta(t), t))-44502.83918*theta(t)-575990.9557*sin(theta(t)))^(1/2)

(23)

simplify(eol)

-.4851223862*(diff(theta(t), t))-.5119876735*theta(t)-6.626549550*sin(theta(t))+0.1523406647e-3*(-0.4216766273e11*(diff(theta(t), t))-0.4450283918e11*theta(t)-0.5759909557e12*sin(theta(t)))^(1/2)

(24)

with(plots)

ic1 := theta(0) = a1

theta(0) = 0

(25)

``

dsol1 := dsolve({eol, ic1}, numeric, output = listprocedure, range = 0 .. 10)

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

 

plots[odeplot](dsol1, [t, theta(t)], 0 .. 10)

Error, (in plots/odeplot) input is not a valid dsolve/numeric solution

 

``


thanks for your help

Download drive.mw



So I am trying to solve a given ODE using calculated christoffel symbols found by maple, and in order to get the correct christoffel symbols, I need my function to be r=x-x_s, where x is not a function of t. However, I then have to solve the ODE where x is a function of t. Maple used the r value to find the christoffel symbols which has x in it, and now I want to find the origonal function of x(t), but I can't have x and x(t) in the same ODE. If I change r=x-x_s to r=x(t)-x_s, I get the wrong christoffel symbols. How can I solve my ODE?

I have a markov matrix that is 500x500. I need to take the standard deviation of the top row of this matrix after I raise it to high powers, like 10^17 by 10^12, (from a do loop.) I would also like ot make a histogram of this data too. 

 

Any ideas what I can do? 

I have a pair of markov matrices that are 250x250 and 500x500 in size. I am raising these matrices to high powers, like 10^17 by 10^12. (I'm using a do loop.) If I set digits:=15, Maple will use 100% of the processor that is available. If I set digits:=16+ Maple will only use 1 thread of my processor. Why? It is the same matrix same program. The only thing that changes is the digits of accuracy. This seems exactly backwards from what it should be. As a result, my AMD9590 processor will run full blast when I choose 15 digits of accuracy and gets the biggest matrix done in 1-2 hours. If i set the accuracy to 17 digits, it takes half a day or more to do the same thing!!! 2 digits of greater accuracy should not take an additional 20 hours!

 

Thanks 

First 1319 1320 1321 1322 1323 1324 1325 Last Page 1321 of 2434