MaplePrimes Questions

In attempting to store procedures in a table to create an extensible module, I used the following procedure to test whether a procedure could be queried from the table and executed.

proc() print("Metric is default") end proc;

The result was proc () print("Metric is default") end proc

I have checked the statement with mint in the code editor, but it reports no errors. I get the same result when I use an eval statement around the procedure.  I would be very interested in understanding what is wrong with the procedure as defined.

 


 

How to select imaginary part of the followig solution in Maple?

restart;
y := x^2+x+7;

A := solve({y}, {x});
        /      1   3    (1/2)\    /      1   3    (1/2)\
       { x = - - + - I 3      }, { x = - - - - I 3      }
        \      2   2         /    \      2   2         /
Im(A);
Error, invalid input: Im expects 1 argument, but received 2

 


 

Do implicit plots need to be strictly real valued because of the multivalued problem with complex functions? because i get this really funny output for this one, and if I increase Digits, it produces a blank axis for some reason.



 

Hi everyone, now I try to plot a graph by varying more than one variable. Is it possible to vary for more than one variable at a time (vary the two or more variable at one once) Please anybody can help in this regard?
 

``

``

``

``

w := .572433:

``

for j to nops(N) do sol1 := dsolve([diff(diff(diff(f(eta), eta), eta), eta)+w*x(f(eta)*(diff(diff(f(eta), eta), eta))-(m*m)*(diff(f(eta), eta))-(diff(f(eta), eta))^2) = 0, y*(diff(diff(theta(eta), eta), eta))/(pr*z)-b*f(eta)*(diff(f(eta), eta))*(diff(theta(eta), eta))-b*f(eta)^2*(diff(diff(theta(eta), eta), eta))+f(eta)*(diff(theta(eta), eta)) = 0, f(0) = N[j], (D(f))(0) = 1, (D(f))(20) = 0, theta(0) = 1, theta(20) = 0], numeric, method = bvp); plots[odeplot](sol1, [eta, ((D@@2)(f))(eta)], color = red); plots[odeplot](sol1, color = red); plots[odeplot](sol1, [eta, theta(eta)], color = K[j], linestyle = L[j]); fplt[j] := plots[odeplot](sol1, [eta, f(eta)], color = K[j], axes = boxed, linestyle = L[j]); tplt[j] := plots[odeplot](sol1, [[eta, theta(eta)]], color = K[j], axes = box, linestyle = L[j]) end do:

 

 

sol1(0)

[eta = 0., f(eta) = HFloat(29.999999999999986), diff(f(eta), eta) = HFloat(0.9999999999999996), diff(diff(f(eta), eta), eta) = HFloat(7.515045554999997), theta(eta) = HFloat(0.9999999999999996), diff(theta(eta), eta) = HFloat(-0.42693869190857225)]

(1)

odeplot(sol1, [x, y(x)], -4 .. 4, numpoints = 25)

odeplot(sol1, [1.32156, 5.29387], -4 .. 4, numpoints = 25)

(2)

 

 

``

``

NULL

NULL

NULL

NULL

``


 

Download MHD_cchf.mw
 

``

``

``

``

w := .572433:

``

for j to nops(N) do sol1 := dsolve([diff(diff(diff(f(eta), eta), eta), eta)+w*x(f(eta)*(diff(diff(f(eta), eta), eta))-(m*m)*(diff(f(eta), eta))-(diff(f(eta), eta))^2) = 0, y*(diff(diff(theta(eta), eta), eta))/(pr*z)-b*f(eta)*(diff(f(eta), eta))*(diff(theta(eta), eta))-b*f(eta)^2*(diff(diff(theta(eta), eta), eta))+f(eta)*(diff(theta(eta), eta)) = 0, f(0) = N[j], (D(f))(0) = 1, (D(f))(20) = 0, theta(0) = 1, theta(20) = 0], numeric, method = bvp); plots[odeplot](sol1, [eta, ((D@@2)(f))(eta)], color = red); plots[odeplot](sol1, color = red); plots[odeplot](sol1, [eta, theta(eta)], color = K[j], linestyle = L[j]); fplt[j] := plots[odeplot](sol1, [eta, f(eta)], color = K[j], axes = boxed, linestyle = L[j]); tplt[j] := plots[odeplot](sol1, [[eta, theta(eta)]], color = K[j], axes = box, linestyle = L[j]) end do:

 

 

sol1(0)

[eta = 0., f(eta) = HFloat(29.999999999999986), diff(f(eta), eta) = HFloat(0.9999999999999996), diff(diff(f(eta), eta), eta) = HFloat(7.515045554999997), theta(eta) = HFloat(0.9999999999999996), diff(theta(eta), eta) = HFloat(-0.42693869190857225)]

(1)

odeplot(sol1, [x, y(x)], -4 .. 4, numpoints = 25)

odeplot(sol1, [1.32156, 5.29387], -4 .. 4, numpoints = 25)

(2)

 

 

``

``

NULL

NULL

NULL

NULL

``


 

Download MHD_cchf.mw

 

This is a picture of what maple looks like on  my laptop with a 14 inch screen (which ahas a 3200*1800 resolution).

As you can see the icons at the top are small, I'd love to make them permanently bigger; however the larger (smaller) probelm  is the default text size on the plot. Its microscopic. Is there anyway to change it so by default the font is much bigger every time i make a plot?

 

Does anyone know why the following gives an error of invalid loop statement termination?

if true then
  for i from 1 to 2 do
  end do
else
end if

while putting a semicolon after `end do' fixes it.

This seems to only occur in if else statements, when end do appears directly before the else

I can't figure out why this pattern is failing

restart;
r:= y=3;
patmatch(r,y=z::integer,'la');
patmatch(r,identical(y)=z::integer,'la');
patmatch(r,y::anything=z::anything,'la');

What Am I doing wrong?

 

 

I try to calculate the alpha1,alpha2…which were showed in the reference paper.  Actually, the parameter of A and B is identical to the reference result, but the parameter alpha1,alpha2…… do not as same as shown in the reference paper. The attachment is my Maple code about this problem. Please tell me why this does not work.  By the way, I can not get the integration result in which the integral function contains the differential, such as  alpha3 and alpha4.
 

 

Download feijisuan.mwfeijisuan.mw

 

 

 

Hi, 

 

I have a dataset for face images and I have to calculate the covariance matrix of them, but it generates a singular matrix,

I used inv(), pinv(), and  scaler the diagonal of images matrix by a number but nothing work,I am doing Face Recognition

please, any help?

how to massive install 100 maple into amazon to do distributed computing or cluster computing?

and how to write this distributed function to run into 100 maple instance?

assume there is a function with two parameter which is the range of array

and the total number of times of calculations is from 1 to 9^(9^2) and divided this range into many range by  each range length 100,000

how can it write the output into a list of length 9^(9^2) ?

will there limit in length of list or result?

and 100 instance of virtual machine may not enough to calculate, how to allocate the next 100,000 calculations to idle instance which finished previous 100,000 calculations?

 

How do I alter the font style of specific characters in say a plot title in the one below, i want "gcd" to be non itallics, but i want the rest to remain itallics. I need to be able to do this with command line code, because it will be for an animation made frame by frame from still images made in maple.

 




Maple Worksheet - Error
 

HELP.mw

Dear Colleagues!
I want to define a tridiagonal matrix and the entries should have the following form. Please help me in this regard.

hello! i have a problem about DEplot. can some of you help me to solve this problem? I use Maple 18. here the problem I've

restart;
with(DEtools);
 
>DE3:={diff(y(x),x)=y(x)-z(x),diff(z(x),x)=z(x)-2*y(x)};    
>DEplot(DE3,[y(x),z(x)],x=0..3,y=0..2,z=-4..4,arrows=large);

   when i enter it, I dont get the graphic. can you tell me why? thank you!

Here is an list of  expressions

[
k[a1]*C[T]*(R-x[1]-x[2])-k[d1]*x[1],
k[a2]*C[T]*(R-x[1]-x[2])-k[d2]*x[2]
]

I would like to have a counter that counts the number of parameters and variables. In my worksheets Variables always are x or y with a subscript, parameters are anything else.

I can't think of how to do this!

This is my code in which I try to solve the system of differential equations where the unknowns are the vectors x(t),y(t).
eq1:=diff(y(t),t)=-2*f(y(t),y(t))*B.A(t):
eq2:=diff(x(t),t)=2*(-1*B.Vector([1,1,1])+f(x(t),x(t))*B.y(t)-s(t)*f(y(t),y(t))*B.x(t)):
sys:=eq1,eq2;
dsolve({sys, x(0) = Vector([1,1,1]), y(0) = Vector([1,1,1]), eval(diff(x(t),t),t=0) = Vector([0,0,0]), eval(diff(y(t),t),t=0) = Vector([1,1,1])}, type = numeric, output = listprocedure);
The message I get is "Error, (in DEtools/convertsys) invalid input: solve expects its 1st argument, eqs, to be of type {`and`, `not`, `or`, algebraic, relation(algebraic), ({list, set})({`and`, `not`, `or`, algebraic, relation(algebraic)})}, but received {Vector(3, {(1) = YP[1], (2) = YP[2], (3) = YP[3]}, attributes = [coords = cartesian]), Vector(3, {(1) = YP[4]-1, (2) = YP[5]-1, (3) = YP[6]-1}, attributes = [coords = cartesian]), Vector(3, {(1) = YP[1]+1/2-2*((1...."

Any help would be much appreciated!
 

First 805 806 807 808 809 810 811 Last Page 807 of 2433