How to solve a linear programming problem in Maple...

[> restart;
[> OPTIMAL:=proc(f,Condition::set)
local vars,L,S,SS,k,m,K,Fmax,Fmin,sol_min,sol_MIN,sol_max,sol_MAX;
vars:=indets(f,name) union indets(Condition,name);
L:=map(convert,Condition,equality);
K:=combinat[choose](L);
S:=NULL:
for k to nops(k) do if solve(K[k])<>NULL then
extrema(f,K[k],vars,'s||k'):S:=S,a||values(s||k):fi od:
SS:={}
for k to nops([s]) do
if type(s[k],set) then SS:=SS union evalc(s[k]) fi od;
SS:=remove(has,SS,l);
S:=NULL:
for k to nops(ss) do if type(SS[k],set(equation)) and
map(evalb,evalf(simplify(subs(SS[k],Condition))))={true}
then S:=S,vatue(ss[k]) fi od;
SS =[s];
Fmax:=-infinity:
for k to nops(SS) do
if evalf(simplify(subs(ss[k],f)))>evalf(Fmax)
then Fmax:=simplify(value(subs(SS[k],f)));sol_max:=SS[k]; fi;od;
sol_MAX:=sol_max:
for k to nops(SS) do
if Fmax=simplify(value(subs(SS[k],f)))
and (SS[k] minus sol_max)<>{} then
sol_MAX:=sol_MAX,Ss[k] fi od;
‘Fmax'=simplify(expand(Fmax)),sol_MAX:
Fmin:=infinity:
for k to nops(SS) do
if evalf(simplify((subs(SS[k],f))))<evalf(Fmin)
then Fmin:=simplify((subs(SS[k],f)));sol_min:=SS[k]; fi;od;
sol_MIN:=sol_min:
for k to nops(SS) do
if Fmin=simplify(value(subs(SS[k],f)))
and (SS[k] minus sol_min)<>{} then
sol_MIN:=sol_MlN,SS[k] fi od;
RETURN('F[min]'=simplify(expand(Fmin)),sol_MlN,
'F[max]'=simplify(expand(Fmax)),sol_max);
end: ↵

" Error, unable to match delimiters"
I don't understand. Thank you, thank you.

Obtain output in matrix format...

Hello

Am trying to convert a vector projection to matrix type output.

Attached is a sample worksheet.

transform an equation into different form....

I was asked to transform (x+y)^2+(1)/x+y into ((x+y)^3+1)/x+y, I have tried nomer/denom, but i don't how to factorise the nomer bit into (x+y)^3+1 because maple factorise it differently by default. therefore, it would be grateful if anyone can help me with this...please?

Error, (in pdsolve/numeric/process_IBCs) initial/b...

Hello everyone,

I have a system of PDEs

restart:with(PDEtools):with(plots,implicitplot):

Pr:=1:A:=1:lambda:=1:Omega:=1:epsilon:=1:C1:=1:N:=5:b:=1:fw:=1:a:=1:

Eq1:=diff(f(eta,tau),eta,eta,eta)-diff(theta(eta,tau),eta)*diff(f(eta,tau),eta,eta)+

f(eta,tau)*diff(f(eta,tau),eta,eta)-(diff(f(eta,tau),eta))^2-(1+A*(1-theta(eta,tau)))*diff(f(eta,tau),eta)

+lambda*(1+epsilon*cos(Pi*tau))*theta(eta,tau)-Omega*diff(diff(f(eta,tau),tau),eta);

Graphing parameter domain for a coupled ode system...

Hello everyone,

I saw a question on a different forum related to the stability of the numerical solution of a coupled ode system. The original question was about the convergence of the far field condition (infinity) for some specific values of the different parameters involved.  For the details please see the link below

http://mathematica...

Numerical solution for nonlinear PDE equation...

Hello

I wish to solve nonlinear PDE equation numerically  in u & v coordinate . where u=t-x, v=t+x . we note x=(v-u)/2..

pde := diff(u(t,x),t,t) - diff(u(t,x),x,x) + x^2*u(t,x);

We need only initial condition let f(u)=sech(u) & g(v)=sech(v). So u((i,0)=f(ih), u(0,j)=g(jh)

we summe step size of time j =  step size of spatial i .

the stencil we use ,

Maple code procedure to solve wave equation...

Hello All

I looking to write Maple code procedure to solve this equation

restart;
with(PDEtools):
with(plots):
with(LinearAlgebra):
pde := diff(psi(t,x),t,t) - diff(psi(t,x),x,x) + V(x)*psi(t,x);

where V(x)->x^2;

I have to use this stencil

u[i+1,j]=-u[i-1,j1]+(1-1/8*h^2*v[i-1])*u[i,j-1]+(1-1/8*h^2*v[i+1])*u[i,j+1]; where i is spatial step and j is time step

Thanks

how to do F9 on mac...

How do i "show region ranges" on mac. on windows you just press F9 but you cant on mac??

Unable to open file...

Hi, I’ve recently begun using Maple 16. I just discovered a problem when trying to open my saved files. I can’t open them directly form the folder where they are saved, I get a Message saying: File XXX.mw could not be found, please select another file. I can accsess the same file through the recent files form within the application.

It is not a shortcut, but the original file I'm trying to open.
If it matters, I'm using windows 8

Large time consumption problem with contour plots...

Hello every one,

While plotting contours with grid size [200,200] my computer consume too much time to

execute the commond. To have an idea, the current process which I am running right now already

took 2380.22s and 68.60M and still its on.

Any suggestion to make the contour plot process faster?

Thanks

File could not be found...

I recently purchased a new MacBook Pro (retina) with Mountain Lion and found that my Maple 12 programs would not run.  So I updated to Maple 16.  Initially all seemed to work well.  But now when i try to open a Maple .mw file, I get the message

"File acm23test.mw could not be found.  Please select a different file."

What has happened and how can I get my programs working again?

DavidR

Printing from a Maplet...

I created a Maplet that calculates ODE (Ordinary Differential Equations) however I would like to create a button that can allow printing on paper

call to help loses kernel...

I am using an old package, Janet, I got from http://wwwb.math.rwth-aachen.de/Janet/janet.html with Maple 16.

I changed the libname to point to the directory where the package files are.

Few days ago I was able to call help(Janet); without any problems but now everytime I try to call help(Janet)

Maple front-end loses connection to the ihe Maple kernel.

The package loads fine...

Maple NAG connector can't find the library...

Hi,

I've bought NAG C Library for my mac in order to use it in Maple.

However, it seems that Maple doesn't know where to search for it.
Indeed, it returns

I've installed NAG C Library in usr/Library

Thank you very much for your help

pivot table and time series...

I have managed to download data for Nasdaq, NYSE and Amex in Maple. However,
my problem is how do I store the data in a txt file on my desktop in the most optimal way.
I want an mpl file so I can schedul the task manager to run the file each day in the background.
This is as far as I have come:

restart:
with(StringTools):
with(LinearAlgebra):

CSV := proc (Url) local theDLL, URLDownloadToFile, myDirectory, myFile, Destination, DL;

theDLL...

 1 2 3 4 5 6 7 Last Page 3 of 40
﻿