Maple Questions and Posts

These are Posts and Questions associated with the product, Maple

How do I create a wave in Maple such that the end which the wave hits of (fixed boundary condition) is formed of triangles rather than just a straight line. I have, 

with(plots):

animate(plot3d,[sin(Pi*(t-x))sin(Piy)Heaviside(t-x)-sin(Pi(t+x))sin(Piy)*Heaviside(t+x),x=0..4,y=0..1],t=-2*Pi..2*Pi);

Would I have to create a whole new formula or can I just add something to the code to give this different boundary? Or maybe I can use a different software other than maple, I just want to know which directions the waves will travel when they hit a ridged surface.

 

Say I wanted to create a five sides polygon, so the wave hits these two boundary conditions so i can see what happens next. (I added the two black lines in paint so it was easier to visualise)

How to translate the elliptic curve from the 4th to the 3rd curve with maple?

thanks.

 

Hi, I am using fsolve to find the roots x of a nonpolynomial expression f(x,a) = 0, using a loop for do to vary the values of the parameter a in small identical steps. At some stage, fsolve cannot find a solution. According to the Maple help, in this case fsolve returns a NULL sequence. I would like to know how to use the fact that fsolve cannot find a solution to break the loop with an if-then statement. 

How can plot  f := proc (x, y) options operator, arrow; sin(x)*cos(y) end proc

as surface and contour (contour is project on xy plan)

HOW I can find the function that satisfies these boundary conditions?

please help me.

Thanks

FUNCTION.mw

Download FUNCTION.mw

 

Hello!

I am trying to find a minimizer for the functional E (see Maple code), where u is in L2([0,rmax]) (Constraint) and u is approximated by a finite set of fourier coefficients in the basis {n*exp(ikx)}.

I don't have much expirience with maple so I could use some help solving this.

The codes I tried either show an erroer( unexpected parameters) or run a very long time until I interupt.

Do I have something wrong or can I reformulate the problem?

Thank you!

Kainmuth

 

Minimizetest2.mw
 

restart

``

with(Optimization);

[ImportMPS, Interactive, LPSolve, LSSolve, Maximize, Minimize, NLPSolve, QPSolve]

(1)

rmax := 20;

20

(2)

n := 1/sqrt(rmax);

(1/10)*5^(1/2)

(3)

const := abs(c1)^2+abs(c2)^2+abs(c3)^2 = 1;

abs(c1)^2+abs(c2)^2+abs(c3)^2 = 1

(4)

f := proc (x) options operator, arrow; n*c1+n*c2*exp(I*x)+n*c3*exp((2*I)*x) end proc;

proc (x) options operator, arrow; n*c1+n*c2*exp(I*x)+n*c3*exp((2*I)*x) end proc

(5)

E := proc (c1, c2, c3) options operator, arrow; int(abs(diff(f(x), x))^2, x = 0 .. rmax)+.5*(int(abs(f(x))^2*w(x-y)*abs(f(y))^2, x = 0 .. rmax)) end proc;

proc (c1, c2, c3) options operator, arrow; int(abs(diff(f(x), x))^2, x = 0 .. rmax)+.5*(int(abs(f(x))^2*w(x-y)*abs(f(y))^2, x = 0 .. rmax)) end proc

(6)

Optimization:-Minimize(E(f(x)), const);

Warning,  computation interrupted

 

``


 

Download Minimizetest2.mw

 

Dear all , I' would like to join a group to produce quantum information tools in Maple

 

Is there any way to get random numbers in Maple with the Sobol method?

Thank you.

How to make Maple determine whether the following is a sequence with a rule behind it or just random fractions:

3^893/2^1415, 3^1040/2^1648, 3^2192/2^3474, 3^3776/2^5984, 3^3910/2^6197, 3^5514/2^8739

equation of ellipse

eqn := (1/32)*(x-16)^2+(1/2025)*(y+0)^2 = 1

only interested in the positive section

plots[implicitplot]([(1/32)*(x-16)^2+(1/2025)*(y+0)^2 = 1], x = 0 .. 18, y = 0 .. 60, scaling = constrained)

equation for arch length of function

int(sqrt(1+(diff(eqn, x))^2), x = 0 .. 16)

Doesn't seem like the best way to solve this.

Wanting to generate a general fomula I can then use in excel to calculate the arch length of the positive only section of the ellipse

any ideas of what the assumptions could be to have maple solve this?

 

eqn2 := (x-h)^2/a^2+(y-k)^2/b^2 = 1;
                               2          2    
                        (x - h)    (y - k)     
                eqn2 := -------- + -------- = 1
                            2          2       
                           a          b        
                             "(->)"

     [[                                            (1/2)]  
     [[          / 2  2    2  2      2        2  2\     ]  
     [[    a k + \a  b  - b  h  + 2 b  h x - b  x /     ]  
     [[y = ---------------------------------------------], 
     [[                          a                      ]  

       [                                            (1/2)]]
       [          / 2  2    2  2      2        2  2\     ]]
       [    a k - \a  b  - b  h  + 2 b  h x - b  x /     ]]
       [y = ---------------------------------------------]]
       [                          a                      ]]

eqn3 := (a*k+sqrt(a^2*b^2-b^2*h^2+2*b^2*h*x-b^2*x^2))/a;
                                                     (1/2)
                   / 2  2    2  2      2        2  2\     
             a k + \a  b  - b  h  + 2 b  h x - b  x /     
     eqn3 := ---------------------------------------------
                                   a                      
diff(eqn3, x);
                           2        2                
                        2 b  h - 2 b  x              
          -------------------------------------------
                                              (1/2)  
            / 2  2    2  2      2        2  2\       
          2 \a  b  - b  h  + 2 b  h x - b  x /      a
`assuming`([int(sqrt(1+(diff(eqn3, x))^2), x = c .. d)], [a > 0, b > 0, c >= 0, d > c]);
 

 

Hi, I would like to plot multiple curves with arrows pointed at each curve. I don't know how to plot the arrows with values. A similar figure is attached. Thanks for helping . . .

Hello, I want to export several excel files using a loop to

matrixMY: = Matrix (0 .. 5, 0 .. 1);
d: = 0;
with (ExcelTools);
for h from 1 to 10 do:
Export (matrixMY, "d: \ myfiles [h] .xls", "Payroll", "B2");
matrixMY [d, 1]: = h;
end do:


But this does not work well.

Regards.

Ok this is an extract from the help page, i have no idea what this means nor how a procedural function that orders a finite list of objects in a certain way could possibly be described as "non deterministic", so i really really need someone to help me here please, most confusing part is in bold:

sort(L, F)
 

If F is the symbol address, then the elements are sorted by address (a non-deterministic run-time specific property of the underlying data structure)
 

Hello, i need to remove specific elements of a list but cannot do so with the conversion to a set and the use of the difference operation, because there are other repeatitions that are important so i cannot impose the condition of uniqueness in the process of excluding these elements, and want to keep other repeatitions in the original multiset.

I know this must be fairly straight forward because the "Remove Duplication" function retains the order of the original multiset

 

EDIT: i seem to have found a way to it using the "SearchAll" function from the ListTools package, so i can then reconstruct a second list by specifying a set of sequence ranges paritioned accordingly to the indices of the elements of the original i want removed that are obtains using this "SearchAll" function

First 842 843 844 845 846 847 848 Last Page 844 of 2216