MaplePrimes Questions

can someone tell me how can I derive and solve d(g1(x))=0 a complicated function as

I tried with the instructions simplify and combine but without results.

Thanks in advance.

 

 

Plot.mw

Hi all


As you know  in Matlab many Maple Functions didn't define. One of that is   HeunT  function. Now I want to plot that in Matlab, I'm surfing in the net, Unfortunately I can't find it...!

Please help me to get all the data points from my Plot in Maple so that I could plot those in Matlab.

Hello

I have a complex set of Markov Processes in reliability application. To make them simpler for me, as a beginner in Maplesoft, I solve them manually to reach a point where I need inverse Laplace for a set of equations. For illustration, I used a simple example below. If I get the concepts for below example, I can apply them on more complicated systems, as following:

P0(s) = 1/(s+λ)+υ*P1(s)/(s+λ)

P1(s)=γ*P0(s)/(s+υ)

Mannuly I find that:

P0(t)=υ/(s+λ)+λ*exp(-(λ+υ)t)/(υ+λ)

P1(t)=υ/(s+λ)-λ*exp(-(λ+υ)t)/(υ+λ)

Please help me step by step to understand how to solve such inverse Laplace. 

Thank you,

How would I organize the data so I get the value "a" with it's following value in the first two positions on each set?

data:=[["a",13,"b",23],["c",2,"a",14],["d",4,"a",12],["a",8,"e",5],["f",3,"a",2]]

I want to get

[["a",13,"b",23],["a",14,"c",2],["a",12,"d",4],["a",8,"e",5],["a",2,"f",3]]

This is of course a smaller sample size of something larger.  Can someone help me?

 

Hi,

     I have a list of 603 integrals that I want to evaluate. Unfortunately, I can't get Maple to do most of them. Mathematica can do some that Maple can't, and returns an answer in terms of BesselJ functions. So my question is 2-fold

1) Is there a way to make Maple do this integral?
2) If not, is there a way to efficiently convert 603 expessions to Mathematica and back?

 

EXAMPLE INTEGRAL
restart;
assume(k1::real, k2::real, R::real, R>0);
a :=cos(x)*exp(I*(k1*R*sin(x)+k2*R*sin(x)-4*x))*sin(x):
int(a, x=-Pi/2..Pi/2) assuming real;


Thanks! 

restart;

assume(k1::real, k2::real, R::real, R>0);

a :=cos(x)*exp(I*(k1*R*sin(x)+k2*R*sin(x)-4*x))*sin(x)

cos(x)*exp(I*(k1*R*sin(x)+k2*R*sin(x)-4*x))*sin(x)

(1)

int(a, x=-Pi/2..Pi/2) assuming real;

int(cos(x)*exp(I*(k1*R*sin(x)+k2*R*sin(x)-4*x))*sin(x), x = -(1/2)*Pi .. (1/2)*Pi)

(2)

Mathematica Answer

ans := -(1/((k1 + k2)^6*R^6))*2*I*Pi*
(
10*(k1 + k2)^4*Pi*R^4*BesselJ(2, sqrt((k1 + k2)^2*R^2))
+ 2*Pi ((k1 + k2)^2*R^2)^(3/2) (-30 + (k1 + k2)^2*R^2) *BesselJ(3, sqrt((k1 + k2)^2*R^2))
- (k1 + k2)^4*R^4*(-(k1 + k2)*R*cos((k1 + k2)*R) + sin((k1 + k2)*R))
+ 8*(k1 + k2)^2*R^2*(-(k1 + k2)*R*(-6 + (k1 + k2)^2*R^2)*cos((k1 + k2)*R) + 3*(-2 + (k1 + k2)^2*R^2)*sin((k1 + k2)*R))
- 8*(-(k1 + k2)*R*(
120 - 20*k2^2*R^2 + k1^4*R^4 + 4*k1^3*k2*R^4 +

 k2^4*R^4 + 4*k1*k2*R^2*(-10 + k2^2*R^2) +

 k1^2*(-20*R^2 + 6*k2^2*R^4))*cos((k1 + k2)*R) +

 5*(24 - 12*k2^2*R^2 + k1^4*R^4 + 4*k1^3*k2*R^4 + k2^4*R^4 +

 4*k1*k2*R^2*(-6 + k2^2*R^2) +

 6*k1^2*R^2*(-2 + k2^2*R^2))*sin((k1 + k2)*R)
)
);

-(2*I)*Pi*(10*(k1+k2)^4*Pi*R^4*BesselJ(2, (k1+k2)*R)+2*Pi((k1+k2)^2*R^2)^(3/2)*BesselJ(3, (k1+k2)*R)-(k1+k2)^4*R^4*(-(k1+k2)*R*cos((k1+k2)*R)+sin((k1+k2)*R))+8*(k1+k2)^2*R^2*(-(k1+k2)*R*(-6+(k1+k2)^2*R^2)*cos((k1+k2)*R)+3*(-2+(k1+k2)^2*R^2)*sin((k1+k2)*R))+8*(k1+k2)*R*(120-20*R^2*k2^2+k1^4*R^4+4*k1^3*k2*R^4+k2^4*R^4+4*k1*k2*R^2*(R^2*k2^2-10)+k1^2*(6*R^4*k2^2-20*R^2))*cos((k1+k2)*R)-40*(24-12*R^2*k2^2+k1^4*R^4+4*k1^3*k2*R^4+k2^4*R^4+4*k1*k2*R^2*(R^2*k2^2-6)+6*k1^2*R^2*(R^2*k2^2-2))*sin((k1+k2)*R))/((k1+k2)^6*R^6)

(3)

 

 


Download ToughIntegral.mw

 

Hello,
I have defined a function f (x, e, y).  I give values of n: = i * h as follows:

f (x (n), w (n), t) = w * t * x;
n: = i * h;
r (n) = n;
Then I need to do this operation:
w (n) = w (n) + r (n);

w(n):=15; r(n):=30;

w(n):=w(n)+r(n);

w(n);
Error, (in w) too many levels of recursion.

How i can operate?.

Regards.

 

 

f:=proc(x)
return 2^x
n:=5
M:=-2,-1,0,1,2
P:=1
for k to n+1 do
L:=1
for i to n+1 do
if i<>k then
L:=L*(x-M[i])/(M[k]-M[i]); end if; end do;
P:=P+f(M[k])*L;
end do;
I write Lagran algorithm. sorry, my english is not very good

My goal is to plot the integral J with respect to t and as you can see J is a piecewise function.

This is my code.   hw2_numerical_2.mw

 

Actually it's a problem about adiabatic invariants.

If you want to know the backgroud please see this link.

www.mapleprimes.com/questions/206645-How-To--Numerically--Solve-It-

Hello,

I use Maple 18. How can I produce a table of 50 values of the fanction f(x) in the interval [a,b]? size step is (b-a)/n

 

The title pretty much says it, but I wrote a bunch of code that operates on a matrix of given size. Now I want to increment that size with a loop, how can I put a loop around all the code? It won't let me just copy paste it into my loop body for some reason. Thanks!

I am using solve() to give me a two variable solutions (e.g. a = 3, b = 5). Very often, I have 2 solutions, so the output will be something like {a = .8025072621, b = -.8025072621}, {a = 1.326426441, b = 1.326426441}. I store this output in a matrix called Answers, so that looks like:

Answers:= solve(equation that needs solving). 

Later when I want to access these answers, I'll do Answers[1][1] to get the first a, and Answers[1][2] to get the first b. Overwhelmingly this all works fine, but occassionaly Answers only has one set of solutions, so Answers[1][1] becomes meaningless, for example, if solve() returned {a = 3, b = 4}, then Answers[1] just returns a, and Answers[2] returns b, but Answers[1][1] gives an error. As I cannot predict when solve() will give me one solutions as opposed to 2, how can I write code to reliably access the first solution for use later?

hi, is there any maple command that will allow me to test the speed of a procedure? something like the ctime in c++ or time in java.thanks

example of non linear fractional integraL Equation 

 

x(t)=(t^3)+1/5 * x(t) * I^(1/2)x^2

how input the integral fraction int(^1/2) for the any function in maple ? 

Hello Please,

 

I was wondering if the moments(mean, variance,...) of this function bellow exists even if in approximate form.

 

f(x) = binomial(x+r-1, x)*((1/2)*b/(1+d*x+(1/2)*b))^r*((d*x+1)/(1+d*x+(1/2)*b))^x/(d*x+1)

 

Somebody, please help.

and why are there decimal points after certain numbers?

I'm taking 2nd semester calculus and in this maple lab, I can't seem to get Maple to evaluate this correctly. Any help is appreciated.

My friend did this and got the first constant, 392..., and just a2, so it was 392.07a2

First 1206 1207 1208 1209 1210 1211 1212 Last Page 1208 of 2428