Maple 18 Questions and Posts

These are Posts and Questions associated with the product, Maple 18

Please I will like to know if there exists any command to isolate the known regular mathematical functions from an expression. For example, given the equation 

I need a means of isolating (ex & sin(v)) from the above expression

Thanks

How can we export image with minimum size? I plot the solution and then export the image as an .eps file. But when I try to generate the generate the pdf file on Latex, the file size is too large. But when I plot the solutions on Matlab and export the images as .eps file, then Latex generate pdf file with samll size. Why Maple generate images of large sizes?

solution.mw

I am using the Calculus Study Guide and the mathematical notation is half Maple notation and then half typeset notation. I have tried to tweak with Tools>Options>Display settings but it stays the same

For example:

{a[n]}[n = n[0]]^infinity;, where 
                             "a[n]"

 is the general term for the sequence, and 
                             "n[0]"

 is the starting index.
The notation is often shortened to {a[n]}; to save printing costs.

...and the math notation past the word "where" is in typeset notation but changed to Maple Notation when I cut and pasted.

Thank You in advance.

Please how can I define two sequences in a procedure with two arguments?

  ans:= Array([seq( [j, doCalc(j, u)], j=-2..0, 0.006, u=1..334)]):

The procedure is doCalc(j,u)  and I received this error: invalid input: seq expects between 1 and 3 arguments, but received 4

Find attached my complete code.Seq_Proc.mw

How to replace 7th-row(second last) of the matrix H116 (see eq. (14)) with the 1st-row of the matrix H16 (see eq. (15)) and create a new matrix of size same as H116?

matrixop.mw

Hi! Can anyone show me a quick example of a procedure with local and global variables?!? It seems that i'm not getting the hang of it, because i keep receiving "unable to parse" messages. 

During evaluating psi0 (see eq, (7))why we need two values of f (i.e., f,0 and f,3)? I asked one of my seniors and according to him these values are arbitrary. Can anyone explain why we need two values and why f,0 and f,3?

rwo.mw  

Dear maple user,

I have codes for Differential equations while applying one do and end loop i am able to plot the graph of G(x) while same problem with other way of applying do and end loop i am unable to plot. whats wrong with do and end loop. These are codes available in maple primes . while combining i am unable to plot .

any one resolve it.

Thanks in advance . 

 

restart:
with(DETools):
with(plots):
with(IntegrationTools):
de0 := {
    (1-p)*(diff(f(x),x,x,x))+p*(diff(f(x),x,x,x)+(1/2)*f(x)*(diff(f(x),x,x))),
    (1-p)*(diff(g(x),x$2))/Pr+p*((diff(g(x),x$2))/Pr+(1/2)*f(x)*(diff(g(x),x)))}:

ibvc0 := {f(0),(D(f))(0),(D(f))(5)-1,g(0)-1,g(5)}:
n:=2:

F := unapply( add(b[k](x)*p^k,k=0..n), x ):
G := unapply( add(c[k](x)*p^k,k=0..n), x ):

de := map( series, eval( de0, {f=F,g=G} ), p=0, n+1 ):

for k from 0 to n do

    if k = 0 then
        ibvc := expand( eval[recurse]( ibvc0, {f=F,g=G,p=0} ) ):
    else
        ibvc := { b[k](0), D(b[k])(0), (D@@2)(b[k])(0), c[k](0), D(c[k])(0) }:
    end if:

    sys := simplify( map( coeff, de, p, k ) ) union ibvc:
    soln := dsolve( sys ):
    
    b[k] := unapply( eval( b[k](x), soln ), x ):
    c[k] := unapply( eval( c[k](x), soln ), x ): 

end do:

'F(x)' = F(x)+O(p^(n+1)):
'G(x)' = G(x)+O(p^(n+1)):

Pr:=1:
plot(eval(G(x), p = 1), x = 0 .. 5, color = blue):
###### Same problem with other  way of do and and end loop unable to plot with G(x)
restart:
with(DETools):
with(plots):
with(IntegrationTools):
Pr:=1:
de1 := (1-p)*(diff(f(x), `$`(x, 3)))+p*(diff(f(x), `$`(x, 3))+(1/2)*f(x)*(diff(f(x), `$`(x, 2))));
de2 := (1-p)*(diff(g(x), `$`(x, 2)))/Pr+p*((diff(g(x), `$`(x, 2)))/Pr+(1/2)*f(x)*(diff(g(x), x)));
ibvc := f(0), (D(f))(0), (D(f))(5)-1, g(0)-1, g(5); n := 2; F := unapply(add(b[k](x)*p^k, k = 0 .. n), x); G := unapply(add(c[k](x)*p^k, k = 0 .. n), x);
DE1 := series(eval(de1, f = F), p = 0, n+1);
DE2 := series(eval(de2, g = G), p = 0, n+1);
CO := map(coeffs, eval([ibvc], f = F), p); CT := map(coeffs, eval([ibvc], g = G), p);

for k from 0 to n do IBVC1 := select(has, C*T, c[k]); slv := dsolve({coeff(DE2, p, k), op(IBVC1)}); c[k] := unapply(rhs(slv), x) end do;
G(x) = G(x)+O(p^(n+1));
plot(eval(G(x), p = 1), x = 0 .. 5);
 

Hi, Maple users 

I hope you are doing well.
Here I solved one of the ode problems by dsolve.
But I am getting  "Error, invalid subscript selector" error.
Kindly do the needful to find a solution.
Thank you.

JVB.mw

 I want to plot phase portrait but i get some errors. I didn't understand errors? Can anyone help me? zuhal_faz_portresi.mw

I have been studying the solutions of the equation below using Maple and Mathematica. 

Here, I want to express the solutions for k. In Maple, the solution is imaginary. As one may see below.

On the other hand, if one solves that  exact equation with Mathematica, then one has real solutions. That is,

Based on the above, I have a few questions:

1. What is the correct solution for the first equation above? That is, are the solutions real or complex?

2. How may I obtain the real solutions, k_{1,2}, above using Maple?

Attached below you may find my mwfile with my doubts.

Mydoubts.mw

Thanks in advance.

Hi! I'm having doubts about the "automatic spacing" in maple. I would like to know two things:

1-can incorrect spacing ruin my code? (Ex by typing "spacebar" too many times )

2- i know that to type spacebar is obligatory after: proc()" "...end proc;    Is there any other situation in wich to use spacebar isn't optional? Thanks for your answers

I want to reverse a catenated expression (eg. xxtt ->x,x,t,t). I don't know the command to achieve this. Anyone with an idea please help

Thanks

Hi! I've got a set of subsets S with Abeing the i-subset. I need to sum up all the x's in all the Ai's. How can this be achieved?

(ex):

sum( { {a, b, c}, {a, b, d} } )= 2a+2b+c+d

Hello,

I am writing an arrow procedure and will like to know if there is a way to implement the following 
 

bj := (G, y) ->  (`@`(seq((t -> u -> v -> G(u, t) - v)(args[1 + nargs - i]), i = 1 .. nargs - 2)))(y)
bj(F, y, a, b, c, d);
v:=[p, q, r, s]
the output

My question is, how can I replace the v with each element of the list to get the following as output
F(F(F(F(y,a)-p),b)-q,c)-r,d)-s

Aany suggestion will be highly appreciated

 

First 8 9 10 11 12 13 14 Last Page 10 of 87