Hello, I would like to know how to separate the complex date into the real part and imaginary part, then write out the date into two different file. As the following example says,
I have the data like this
1.4687+2.2874*I -1.1312+2.4717*I -2.6911+.38360*I
3.9923+6.2177*I -3.0749+6.7188*I -7.3151+1.0427*I
10.852+16.901*I -8.3585+18.264*I -19.885+2.8345*I
By using the command,
> P := proc(f,x::complex(numeric)) fprintf(f,`%g\t%g`,Re(x),Im(x)) end proc:
> writedata(terminal,A,float,P);
I have ouput the date into the file as the form like this,
1.468700 2.287400 -1.131200 2.471700 -2.691100 .383600

I've always had difficulties using maple to optimize a procedure of multiple variables.
I have a problem now where I have a procedure AreaRegion(x,y,z). There are many conditions and subroutines in this procedure that are used to calculate the area of a specific region defined by variables x,y, and z. Its algortihm is based loosly on a Graph Theory program. Anyway, back to the main problem I'm having.
I want to minimize AreaRegion(x,y,z). I tried
> Minimize(AreaRegion, 0..Pi,-2..2,-2..2)
But this gives me
> Warning, no iterations performed (And an incorrect answer)
I tried

I wonder if someone can tell me why the label (7) appears twice in my file and what I could do to get rid of one of the occurences.
As always, thanks for the help.

View 2292_Kepler4B.mw on MapleNet or

Download 2292_Kepler4B.mwView file details
I have a polynomial a large polynomail that I have got from Maple but I need to re-organize this based on powers so I can use it in java they way I need to eg.
`12412315 + 1235234X^2 + 32454X^3 + 2400X^4 + 24525434X^5 + 23412452X`

but I wish to format it as
`1 + X + X^2 + X^3 + X^4 + X^5`

Is there a way in maple to do this quickly or will I have to deal with this on the java end?
Cheers in advance

Can you haep me to optimize this code?
for s from size by -1 to 1 do
Vpq[1 .. dim, 1 .. dim, s] := (ArrayTools[ElementMultiply])(Rpq[1 .. dim, 1 .. dim, s], map(exp, -I*pq[s, 2]*Theta));
end do;
# Vpq[1..dim,1..dim,s]:=Rpq[1..dim,1..dim,s]*exp(-I*pq[s,2]*Theta[1..dim,1..dim]);
where
Rpq:=Array(1..dim,1..dim,1..size);
pq:=Array(1..size,1..2);
Theta:=Array(1..dim,1..dim);
with
dim:=100;
size:=1300;
I must work with simbolic precision, but the code is very slow!
Thanks

Just purchases Maple 11, and was trying to sort out how to add the new trig labels to a plot. Couldn't find anything in the helps docs. Most likely was looking in the wrong spot. Anyways, any help would be grand.
Cheers

I want to simplify following expresion by assuming that n is even or uneven. Is it possible to let Maple do this for you?

n~ Pi n~ Pi

-2 sin(-----) + cos(-----) n~ Pi

2 2

b[n~] = - --------------------------------

2

Pi n~

I have matrix elements of the type
(1/2)beta + (sqrt(5)/2)beta
which I'd like to write as
( 1/2 + sqrt(5)/2 ) beta
but can't.
Can someone help me?
Thanks

Hi,
I am trying to solve a 2nd order ODE with linear symmetries (according to odeadvisor!) subject to two boundary conditions. The ODE itself is not particularly pretty (It can't be solved analytically), and it involves quite a lot of other functions that I have to define before hand - sorry if this looks ugly:
*N:=2: Xi:=1: mu:=0: m:=4: l:=2: sigma:=1: Tau:=0.7:
M:=1/(2*(1-(Eta)^2)):
a:=Eta:
Eta:=Tau*sqrt(2/3):
omega:=0.9*m*Eta:
g:=r->sqrt((1-2*M/r^(2*N)+2*M*a^2/r^(2*N+2))^(-1)):
h:=r->sqrt(r^2*(1+2*M*a^2/r^(2*N+2))):
Omega:=r->2*M*a/(r^(2*N+2)+2*M*a^2):
f:=r->r/(g(r)*h(r)):
*

Download 1826_zernike.docView file details
Can you help me to create a code that calculate zernike moments, Zpq, with an image of 100x100, p=q=70? The formula is indicate in the file.
the objective is to use the symbolic calculus!! The problems are the time and the memory!!!
thanks for your help

Maybe somebody here can help me with my problem with Maple 10.06 being extremely slow on a Windows XP MCE machine.
I have bought a new Notebook with Core2Duo T7200 processor and 2GB RAM.
The first problem I experienced when I installed Maple was that Maple 10.06 did not run at all due to the large physical memory on the system. This was resolved with the help from Maplesoft Support Team. They sent me a new "launch.ini" file which fixed the Maple launch issue.
Now the problem I am facing is that Maple is extremely slow. For example if I click on the file menu it takes about 4 seconds before I can view the options. If I want to scroll down to the end of page in a worksheet it takes more than 20 seconds to scroll one page. Scrolling down is extremely slow. If I press “Execute the Entire Worksheet” it takes Maple ages before it finishes executing for example a one page worksheet filled with simple calculations.

can someone please show me how to plot this in maple as a directional field
w(t):=(1/17.5)*(2500-exp((-1/200)*t)(2500-17.5*w));
thank you very much

I want to take a 2 x 2 matrix and use it to determine the unstable and stable manifolds of a point in a torus. I then want to graph the manifolds in a unit square. Does anyone know how I can do this?

Please give a clue... I would have expected that if diff(Fu,v); evaluates
to zero (and if all functions involved are nice, say entire), then the following would be equal:
int(int(Fu*Fuv,v=0..infinity),u=0..max);
int(Fu*int(Fuv,v=0..infinity),u=0..max);
But Maple does not agree... Am I missing something?

Hello

The following is a sample code that I tried in maple 10 standard.

My problem is that whenever a plot contains a function with negative values, a usual plot displays it as it should, but when i try to display it on a log scale, all i get is an empty plot

sample code:

f:x=-5;

plot(f(x), x = -10 .. 10, y = -10 .. 10, axis = [mode = log]);

this gives out an empty plot, with axis in range of 10^0 to 10^(-6) on both axes - maple seems to ignore the instruction to display negative values.

perhaps it would also be helpful if someone could point out how to turn these values into decimals.