restart:
with(LinearAlgebra):
with(ArrayTools):
with(Statistics):
randomize():
with(plots):
with(combinat):

n := 100:
nstock := 7:
corr := .8:

R := Matrix(nstock, nstock, proc (i, j) options operator, arrow; `if`(i = j, 1, corr) end proc):
CD := Matrix(LUDecomposition(evalf(R), 'method' = 'Cholesky'), datatype = float[8]):

ev := [seq((1/5)*(rand(-3 .. 4))(), i = 1 .. nstock)]:
st := [seq((rand(1 .. 2))(), i = 1 .. nstock)]:

A small question:

When I send the following command, I can see the matrix of 10 x 2:

Matrix( [seq( [ n , sum( evalf(1/(n+1)), k=(1/3*n)..(2/3*n) )], n= 1..10)]);

However, when I want to evaluate for  n=1..50.. I cannot see any numbers but only a description of a matrix.

How may I can I see the matrix for n=1..50?

Thanks a lot for your attention,

Jean-Jacques

Hi; every body

i have a problem with fsolve using fours equestion. i use fsolve to slove four equestions and it doesnot give any soltion even if i determent the period of solution as follow,

x1=0..3, x2=0..2, x3=0..1/2, x4=0..5.

i have increased the digit to 100 but it still does not give solution where i am sure there is solution in this interval.

I am looking to create a list-of-lists with all the combinations of 1..7.
The order is not important so for example [1,7] [7,1] should only return [1,7]

ie

[[1],[2],[3],[4],[5],[6],[7],[1,2],[1,3],[1,4],[1,5],[1,6],[1,7],

[2,2], [3,3], [4,4] ......................
[3,2]...................
.......
[7,2].............

[1,2,1]........

[1,2,2].......     ]

I am no sure I am explaining...

I just bought an HP 8500A 910A printer. So far every other application except Maple prints correctly and well. When I print, each (whole) page is printed in the upper left hand quarter of a letter size sheet of paper. This never happened with my old HP LaserJet 4L. After much search, there do not seem to be any setable preferences that could lead to this result.

On the HP forum, there is another user with the same problem except the application is different....

Hey folks I need some help with basic string manipulation.

Say I want to find the sum of the digits of 123

What I've been doing is the loooong way of converting 123 to a string, breaking it up into 3 seperate numbers, converting these back to their decimal value, then adding them up.

How could I make this more efficient? Is there some part of StringTools that would do this for me?

Then...

a. How to write a  proc(a,h,A,B,C) procedure which calculates the area of the projection of the pyramid OKLMS on the plane p:A*x+B*y+C*z+D=0,where O(0,0,0), K(a,0,0), L(a,a,0), M(0,a,0), and S(a/2,a/2,h)?
b.  How to write a  proc(r,h,A,B,C) procedure which calculates the area of the projection of the cone
with the base {(x,y,z): x^2+y^2<=r^2,z=0} and the vertex S(0,0,h) on the plane p:A*x+B*y+C*z+D=0?

I would like to have some help to write the maple code (hopefully compiled) for

An Exact Polynomial Algorithm for the 0/1 Knapsack Problem , Edouard Petrounevitch
http://www.optimset.com/knapsack.pdf

I think such algorithm looks promising but I am no expert when it comes to optimization :-)

Is there a function or procedure within Maple (v13) that will return the highest power of a polynomial?

Related to this, how do I determine the error return value from coeff(a,x,i) ?

TIA

Dears,  I want to generate a following matrix

g:=proc(i,k); if 86<=i<=100    then if i+1<=k<=100  then Y   end if end if end proc:

A:=Matrix(100,100,g);

Is this true (Can i use two if statments)

Could any one help me

Amr

Coon's patch defines a patch from 4 curves forming a chain. 4-examples to Coon's patch are given following worksheet. Boundary curves in the examples are constructed by parametric cubic curves (in Bezier and Hermite form). First example is in 3D and comparable to parametric bicubic surface. Rest of examples are in 2D (abstract surface) which can be described shortly as:

• 2D Example#1: 4 circular-arc like curves are combined by Coon's patch to form a circular-like region

hoping someone can help me, one of my exam prep exercises asks the following

"

Consider the equation x^2+y^2 = 2+cos(x)*sin(y). Transform the equation into polar coordinates
using the ”subs” routine, and plot the resulting equation in polar coordinates (read the helppages
of plot to find the syntax for polar plots). Evaluate an appropriate integral to find the
area enclosed by the curve.  "

I did the conversion and plotting by

I have always preferred the notation  for the derivative of

Hi all,

I have this two equations:

ap[k]=Sum(a[n]*sin(n*theta)*f(n,k),n=1..nn);

a[n]=Sum(ap[k]*g(n,k),k=1..kk);

Where ap[k] and a[n] are the unknowns.

I want to convert the two equations in the Matrix form A*X=b to solve it numerically and where X=[ap[k, k=1..kk] and a[n, n=1..nn]] and A the matrix with a rand (nn+kk,nn+kk) the coef and b the second member and a vector (nn+kk)

Thank you for any help to do this with Maple

Hi everybody,

I've got a 3d maple plot which I would like to export to a 3d cad format. There are a couple of file formats and I do not want to narrow that to one (autocad, catia, solid edge, proEngineer ...)

If this is not possible: is there any file format which I can export to, from which with a third party tool it is possible to export to 3d cad file.

Thank you

Harald