Let be q(x) some polynomial of degree = 2 in several, n variables x[i],
x to be thought as (row) vector

Can Maple provide the quadratic normalform for q (real resp. complex)?

By this it is meant that q ° f (x) equals one of

  Sum( c[i]*x[i], i=1..n)
  Sum( c[i]*x[i], i=1..n) + 1
  Sum( c[i]*x[i], i=1..n) + x[n+1]

where c[i] in K, K = Reals or Complex (should not matter so much, except
char(K), and square roots have to exist, so Rationals(squareRoots) is fine),
and f: K^n -> K^n is affine ( = bijective and linear + shift vector)?

<p>I have a 1-dimensional list in the form of  data := [1,2,3,4...]. There are 5000 elements in this list, and only about 2000 don't repeat anywhere else in the list, the other 3000 do. What I want to do, is plot the number of times a given element repeats vs what that element is. For example, if an element with the value 5 is repeated 12 times in the list, than I want 5 on the x-axis, and 12 on the y axis. </p>
<p>I am using Maple 11. Can anyone help?? Thanks!</p>

Hi all,

I  have problem about translate from maple to C Language. I do project about cryptography, now I can write command in Maple. I don't know how to translate to C language

How should i do?

Anser me please.

Thank you so much.

Hi all,

I have a base rectangle with the size bx * by  and several rectangles which have all the same size ax*ay but can be arranged horizontally or vertically (ay*ax).

Is there a way to calculate the best arrangement?

 

How can i get a bifurcation diagram and also identify the types of bifurcation that occur for these equations: 1) fa(x) = a + ln(x) , x>0 2) fa(x) = a - ln(x) , x>0 3) fa(x) = a * ln(x) , x>0 4) fa(x) = a + x - exp(x) , x>0

How do I plot the output of the Maximize command?

For example, here's a function that determines the value of x in the range [0,3] at which a particular fuction is maximized:

with(Optimization);

f := (x,t) -> -x^2+3*t*x-1

fmax := t -> rhs(Maximize(f(x,t),x=0..3)[2][1]);

How do I switch the autosaving off?

Hello! I am trying to create a double exponential smoothing model by optimizing the parameters a and b. The model is quite big and Maples needs a very long computation time. Can anyone help me on this one? I'll attach my file: View 9101_double_exponential_smoothing.mw on MapleNet or Download 9101_double_exponential_smoothing.mw

Hi

I am seeking a generalized collect command in Maple to collect a expresion W

W:=mu[1]*mu[3]^3*sin(mu[1]*Pi)*cos(mu[2]*Pi)*sin(mu[3]*Pi)*cos(mu[4]*Pi)+mu[4]^3*mu[3]*cos(mu[1]*Pi)*cos(mu[2]*Pi)*sin(mu[3]*Pi)*sin(mu[4]*Pi)-mu[3]^3*mu[2]*cos(mu[1]*Pi)*sin(mu[2]*Pi)*sin(mu[3]*Pi)*cos(mu[4]*Pi)-mu[4]^3*mu[2]*cos(mu[1]*Pi)*sin(mu[2]*Pi)*cos(mu[3]*Pi)*sin(mu[4]*Pi);  

to two different expresions W1 and W2 as

W1:=mu[3]*cos(mu[2]*Pi)*sin(mu[3]*Pi)-cos(mu[3]*Pi)*sin(mu[2]*Pi)*mu[2];

Hi there,

I'm having a problem when attempting an implicitplot of an expression containing an integral.

Here is a minimal example of what I'm trying to do:

restart: with(plots): with(DEtools):
f:= t-> t^(-2);
F:= x-> Int(f(t), t=x..1);
G:= (x,y) -> evalf(F(x)-y): G(x,y);
implicitplot(G(x,y), x=0..1, y=0..1);
plots[implicitplot](G(x,y), x=0..1, y=0..1, grid=[100,100]);

The above results in the following error message:

Dear All, I'm trying to plot points generated by something called the logistic map by using the following code:

> L:=array(1..30,1..1);
   x:=0.3;
   for i from 1 to 30 do
   x:=4*x*(1-x);
   L[i,1]:=x
   od;
   print(L);
 

>Lpoints:=convert(L,listlist);
>plots[pointplot](Lpoints,symbol=point);

 

I need help with a math problem  it is:

Mark works as a quality control expert in a beverage factory. The assembly line that he works on produces 20,000 bottles in 24-hour period. Mark samples about 120 bottles an hour and rejects the line if he finds more than 1/50 of the sample to be defective.

About how many defctive bottles should Mark allow before rejecting the entire beverage line?

I started the problem:

20,000/24hr

120samples/hr=120 samples x 24hr = 2,880 samples/24hrs

Hi.  I'm trying to compute a posterior distribution (Bayesian inference), which requires integration.  I have set up the integral and have attempted to solve it numerically using evalf(Int...) with Maple 12 Worksheet interface and the command-line version.  When executing with Maple 12, I eventually (hours later) get a error - "connection to kernel lost".  When executing with the command-line, eventually the process seems to terminate.  The information about memory used stops updating and nothing happens.  Here is my code:

Hi

I used maple to solve a 4th order ode:

ode:=(h2(x)*diff(eta1IItrans(x),x$4)+diff(h2(x),x)*diff(eta1IItrans(x),x$3)+(1/(g1*h1))*((w^2)*(h1+h2(x))*diff(eta1IItrans(x),x$2)+(w^2)*diff(h2(x),x)*diff(eta1IItrans(x),x)+(w^4/g)*eta1IItrans(x))=0);

avec h2:=x->h2I*exp(d*x):

I have 2 questions:

-I can get a solution only with precise values of parameters (g, h, d etc...) but I would like a literal one.