Optimization problem with Matrix values - MS Excel...

I got an MS Excel file where the matrix (7054x60) is created and the last row of the matrix is used for optimization of its (the matrix) values. In Maple you can create the matrix as follows:

M := Matrix(7054, 60):
for i to 10 do M[1, i] := 1 end do:

Mat_proc := proc(x)
local i, j;
global M;
for i from 2 to 7054 do

How does this function...

How does this  function  work:

rtable_scanblock( M, [rtable_dims(M)],

(val,ind,res) -> `if`(val > res[2],[ind,val],res),

[[1,1],-infinity]);

Please could comment on each statement.

Gracias

Why is Maple 15 x100 (one hundred) timse slower th...

xsys11demo.mw

The attached worksheet (xsys11demo.mw, first-order non-linear ODE system) is ~x100 (one hundred) times slower that the "same" program in Mathematica 8. Both give the same/satisfactory numerical results and have similar/identical structure (I can supply the Mathematica 8 notebook, if requested).

I assume that my attached worksheet must be sub-optimally programmed and would be grateful...

Some source program can't be runned because of "> ...

Like this! Some error. How to do it

[IMG]http://i730.photobucket.com/albums/ww309/ytyyutianyun/Capture-6.png[/IMG]

I have the function which I run well in Maple V bu...

I have the function which I run well in Maple V
but in maple 15 .It's wrong. How can it be? and please help me to edit it.

for i from 0 to 15 do
t:=1+i/16;
p.i:=plot(sin(x*t),x=-10..10,axes=none):
od:
display(array(1..4,1..4,[[p0,p1,p2,p3],[p4,p5,p6,p7],
[p8,p9,p10,p11],[p12,p13,p14,p15]]));

How to plot the area defined by several non-linear...

Hi everyone,

I guess the question I am asking is quite common, however I am still not able to figure it out. I have several (right now three) non-linear inequalities. Given these inequalities, I try to plot them in one graph and then color the different areas with different colors. It would be also ok, if just the area where all inequalities hold is plotted. To do this I have already tried several things. With implicitplot and transparency it is generally working, but...

help with if then else...

Hello,

I am tring to do if–then–else in the do-loop for the parameter A[1]. Example: when k=3 we want to use A[1]=B[3] insted of B[1] but it seems my if–then–else did not do what I want. Any ideas?

Thank you

This is maple code:

`> restart;> k := 0; B[1] := 0.001/365: B[2] :=0.002/365:B[3] :=0.005/365:`
`> ode := diff(U(t), t) = -(A[1]+A[2]*U(t))*U(t);> ic[0] := U(365*k) = 1000;`

Cramer's Rule colum substitution...

I have a 6 x 6 matrix. I want to employ Cramer's rule to solve Gx=Θ. I need to sequently substitute column Vector Θ into the matrix columns. I can't get this to work. I have only being using Maple for a couple of weeks so still finding my way.

Numerical integration problem...

myf:=(mu,sigma)->int(exp(-(x-mu)^2/2/sigma^2)/sigma/sqrt(2*Pi)/(1+exp(-x)),x=-infinity..infinity);

plot3d('myf(mu,sigma)',mu=-5..5,sigma=0.5..10);

This plot was never created. I think it's taking too long to evaluate it when it's divegent.

Hi all,

For my research purpose, I need to integrate this function. I understand that there maybe values for which this integration is divegent. But is there a way to look into it? Say creat...

using modp in procedure...

how to write a procedure to ceiling a number such as 3.5 to 4

Animating a double pendulum/Numerical Ode...

HI everyone, im currently using maple 15 and im trying to animate at least the mass of my pendulum. My problem is that the  coordinate of each mass would be the solution of two numerical ODE and I can't animate this. I am able to plot the solution of my ODE (wich correpond to the two angle in the pendulum), but when it comes to animating... its an another piece of work. So here is what I tried: the code would correspond to the animation two masses... no rope yet.

forming a matrix multi-variable names in nonlinear...

I have a set of multi variate polynomial  equations. I need to setup a matrix [G][x]=[Θ]  Θ is a function of c1 and c2 up to 4th order terms

My problem x=[c15, c14c2 , c13c22 , c12c23 , c1c24 , c25 ] these 6 5th order terms...

Plotting Phase Portrait for a four equation system...

Hi,

I'm trying to plot a few phase portraits for this four equation system but maple wont let me...

```> restart;

> s := 10; d[T] := 0.2e-1; k1 := 2.4*10^(-5); k2 := 3*10^(-3);
> N := 5; delt := .24; c := 2.4; T0 := 1; ```
`with(DEtools); `
`with(plots);`
` `

[INSERT YOUR CODE HERE BY COPY-PASTING IN 1-D FORMAT]

`Can someone please help me? Thanks`

Numerical solution of ODE...

Hi everyone, im trying to solve the following system of ode (motion of a double pendulum) where im trying to plot numerical solution for T1(t) and T2(t). Been searching for a while... found nothing :) Here is my code , i also loaded the library plots, DEtools. . Im using maple 15

> Systeme := [2*(diff(T1(t), x, x))+cos(T1(t)-T2(t))*(diff(T2(t), x, x))+sin(T1(t)-T2(t))*(diff(T2(t), x))^2+19.6*sin(T1(t)) = 0, diff(T2(t), x, x...