From this expression I want to extract only terms with the variable x.

F := (1/2/Pi+Q*cos(k*x))^2*(1/2/Pi+Q*cos(k*y))/(1+beta^2*(1/2/Pi+Q*cos(k*x))^2);

I don't want to manually write it out rather extract the terms programmaticallly. I want to be left with

(1/2/Pi+Q*cos(k*x))^2 / (1+beta^2*(1/2/Pi+Q*cos(k*x))^2)

I have tried the collect fucntion but that did not seem to do it. Any suggestions...

Like in the version 7 where that variable didn't exist.

I'm using the following function for my project,:

printlevel:=2:for Prc from 2 by 1 to 100 do for B from 2 by 0.5 to 100 do (mf(Prc,B)):=(f(Prc))*(m(Prc,B)) end do end do

Is there any way to be able to sort the answers in ascending order? I tried to use sort, but when I put sort(mf(Prc,B)) it gives me a wrong answer and jumps into Prc=101 and B=20.5.

Also is there any way to put a condition for show only real numbers, without complex numbers?

upload2.mw Dear guys!

Pleaes visit the attached file and tell me what should I do. Thanks a lot.

Hi there,

I'm doing a lot of computations with Maple right now (currently the ancient 10 and 12 versions but maybe soon 14).

I would like to do Unit-Tests of my Software as known for instance in JUnit with Java. Is it possible or do I have to use the ASSERT(...) - statements?

Thanks in advance.

Dear Friends:

My original equation is

solve({(1-3*q2)*(1+lamda) = 0, r1*q1-2*r2*XA*(1+lamda) = 0, (1-2*q2)*q2-r2*XA^2 = 0, 1-3*q1+r1*XA = 0}, {XA, q1, q2, lamda})

The answer is

{XA = -1/r1, q1 = 0, q2 = RootOf(r2-r1*_Z+2*_Z^2)/r1, lamda = -1}, {XA = RootOf(-1+9*r2*_Z^2), q1 = 1/3+(1/3)*r1*RootOf(-1+9*r2*_Z^2), q2 = 1/3, lamda = (1/6)*(9*r2*r1*RootOf(-1+9*r2*_Z^2)+r1^2-6*r2)/r2}

Two questions:

1. Actually I want...

let x , y in R , say for example

x=0.1243134710481

y=0.1243234710571

Then we can compare the digits where x and y agree and where they differ.

In the example , x and y agree on the first 4 digits , differ on the next digit, agree of the next 5 digits , differ on the next two digits, and agree on the last digit.

Q: Write a procedure compdigits in maple that given two decimal numbers returns a list stating the number of digits they are...

bestfit1-loop.mw, sn_union2.txt

Dear all

I've written a program, but it shows an error related to maxfun limit when I run it. Can anyone tell me what the problem is? and how can I solve it? The program and the data file are attached.

Thanks a lot.

Hello all,

This is my first time posting here; I usually find answers to all my questions by searching patiently but I was unsuccessful with this particular issue.

I attend an introduction Maple class and i'm building an animated bike as project. I was already rather comfortable with Maple so i'm trying to show off a little by adding lots of cheesy details to the scene, even if unnecessary. However, some objects such as the sky, which i would like to...

Hi all,

I have this function:

restart:

I2:=g->(200*g)/sqrt(0.04+g^2);

plot(I2(g),g=0..1); 

plot(I2(g),g=1..0);

Those two plots give the same result.

Is it possible to invert the x axes to start from 1 ?

I also tried this below, but the result is as above.

x:=seq([g,I2(g)],g=1..0,-0.02);

pointplot([x],style=line);

Thanks

                     gama2 q2 - 2 gama1 XA=0

                    [-1] q1 + [1 - 2 q1] - C=0

              [-1] q2 + [1 - 2 q2] - C + gama2 XA=0

Hello everybody,

I have this equation J:

> J := Matrix(2, 6, [[j41, j42, j43, j44, j45, j46], [j51, j52, j53, j54, j55, j56]]);

it's a 2 times 6 matrix made with the results of other equation, each one of those small j's are long analytical terms.

Later I want to generate a Matlab code of J using this:

> Matlab(J, resultname = "j4", output = "file.m", optimize);

I use the optimize code at the end because then I avoid getting...

Is there any way to use the final answer obtained on a previous section/subsection and use it on a different section/subsection on the same file?

Thanks, Jose

Hey all,
 I have created a nested while loop to investigate the Riemann zeta function: 

for q to 10 do
 m := 10^(-q);
  for s from 2 to 10 do
   n := 1;
   b := 1;
    while b >= m do
     b := evalf(abs(Zeta(s)-euclid(s, n)));
     n := n+1
    end do;
  print(m, s, n-1)
 end do
end do 

it...

Is there any easy way to browse 3D matrices within maple, other than storing matrices in an array?