Maple Questions and Posts

These are Posts and Questions associated with the product, Maple

B:=5

N:=1

R:=1/2

x = sum(R^g*product(-Br + 1 + Ng, r = 1 .. g - 1)/(B^g*g!), g = 0 .. infinity)

when i press enter it shows this

R := 1/2

1/2

(1)

B := 5

5

(2)

N := 1

1

(3)

x = sum(R^g*(product(-Br+1+Ng, r = 1 .. g-1))/(B^g*factorial(g)), g = 0 .. infinity)

x = 1/((-Br+1+Ng)*exp((1/10)*Br-1/10-(1/10)*Ng))

(4)

``

Download brn.mw

I need him to show it

x=1.090970406879337658

I would like to write this equation:

That is a symbol that I want to be able to use (the S can be added after inserting the symbol). Sometimes, this helps the students to comprehend what they are doing. It could be added the symbols for double and triple integral. So it is some kind of suggestion, but for the moment, it is the actual symbol I would like to have.

I think that I could write it in LaTeX but I don't know if I can do it in Maple and ask him to convert it inside the document.

Thank you in advance for your help.

Hello everyone.

I want to  choose the  numbers among the list A which are for example congruent to 1 mod 3

A = {3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101}

Hi,

I want to create graphical charts, but I'm having trouble with the Tabulate command. Any ideas? Thank you.

FicheGraphique.mw

Hello everyone. 

I have the followinf code but when I try to plot I am receiver an error. Please, someone coulg give me a hint?

A := 20

B := 10.37

P := 60*24*60

omega := 2*Pi/P

alpha := 0.7*10^(-6)

phi := 3.61

Profundidade := 0.1;

ntotal := 1

theta(z, t, k, C) :=A + sum(B*exp(z*sqrt(1/2*omega*m*C/k))*sin(omega*m*t - z*sqrt(1/2*omega*m*C/k) + phi), m = 1 .. 5);

SensibilidadeK := (z, t, k, C) -> diff(theta(z, t, 1, 1), k);
GrafE := plot(eval(SensibilidadeK*(Profundidade, t, k, C), [k = 1, C = 1]), t = 0 .. 86400, color = blue, legend = k, labels = ["Tempo [s]", "Coeficiente de Sensibilidade"], labeldirections = ["horizontal", "vertical"])

this is the error that I received: Warning, expecting only range variable t in expression SensibilidadeK*(.1, t, 1, 1) to be plotted but found name SensibilidadeK

I cannot view 3d graphics with my version of Ubuntu 20.04. I've updated all my computer's graphics card drivers and the problem persists. If I run without hardware acceleration, nothing changes; no visualization and no production possible.
Do you have any ideas for solving this problem? Maple uses OpenGL libraries for 3D production and visualization, and these libraries are installed on my computer. Would installing mesa solve the problem, for example?

Thanks in advance.

I try to understand why Maple throws 2 times an error but on a third attempt (with the same input) output is returned. Is that a new mechanism of suppression of error or warning messages and returning output up to a point where evaluation cannot further be performed.

With -sin instead of cos Maple returns output immediately. Does this mean that there is no information to the user available (yet) for this particular case?

three_times_entering_the_same.mw

I want to get from equation 27 to equation 30?

And then solve equation 30? (by inserting the 31 and 7 relations and the 8 relations)

latt01.docx

A very easy example: 

solve({a > 0, ln(a) + ln(1 + a) >= 0}, a);
 = 
                        /    2         \ 
                        |---------- < a| 
                       <  (1/2)         >
                        |5      + 1    | 
                        \              / 

The output is . Clearly,  is also a solution to this inequality, so the solutions have been lost. But there is no warning message. Why?

Respected fellows, greetings!
I wonder if there is a way to increase the length of the legend in maple? I can easily do it in mathematica but I failed to find a way to do the same in maple. It would be so nice if someone could guide me about that please.

hello, mybe someone can help me to make an estimation parameter use data to diferential equation system. I had have made the maple sheet but there are some error, thank you very much. data_fitting_.mw

Dear all

I would like if we can solve a problem of a  field homomorphism between two fields. 

Please, if possible a code that help me to define the homomorphism between finite field. 

homomorphism_finite_field.mw

Thank you 

It says that one may specify the number of significant (decimal) digits when performing calculations. However, it appears that setting a higher precision does not yield more satisfactory results. Actually, the recommended solver (in the package) can report that a maximization succeeded, and yet the reported solution can be, in effect, incorrect.

restart;

kernelopts(version);

         Maple 2023.0, X86 64 WINDOWS, Mar 06 2023, Build ID 1689885

 

fun := ((2*(x+y+z))*(sqrt(y*z*(z+x)*(x+y))/(z+2*x+y)+sqrt(z*x*(x+y)*(y+z))/(x+2*y+z)+sqrt(x*y*(y+z)*(z+x))/(y+2*z+x))-9*x*y*z/(x+y+z)-2*(x*y+x*z+y*z))/(sqrt(x*y*z/(x+y+z))*(x+y+z-sqrt(27*x*y*z/(x+y+z))))

Digits := 5

Optimization['Maximize'](fun, assume = nonnegative, initialpoint = ({seq})(w = (rand())(), `in`(w, [x, y, z])))

Warning, no iterations performed as initial point satisfies first-order conditions

 

[2.56454435679811255, [x = HFloat(8.44225460865e11), y = HFloat(1.5121750086e11), z = HFloat(3.58747328735e11)]]

(1)

Digits := 10

Optimization['Maximize'](fun, assume = nonnegative, initialpoint = ({seq})(w = (rand())(), `in`(w, [x, y, z])))

Warning, no iterations performed as initial point satisfies first-order conditions

 

[2.54449612902387834, [x = HFloat(9.50923834782e11), y = HFloat(8.94868300574e11), z = HFloat(2.30179425858e11)]]

(2)

Digits := 15

Optimization['Maximize'](fun, assume = nonnegative, initialpoint = ({seq})(w = (rand())(), `in`(w, [x, y, z])))

Warning, no iterations performed as initial point satisfies first-order conditions

 

[2.53798179305501392, [x = HFloat(9.91986977089e11), y = HFloat(5.97663762096e11), z = HFloat(4.31192847449e11)]]

(3)

Digits := 20

Optimization['Maximize'](fun, assume = nonnegative, initialpoint = ({seq})(w = (rand())(), `in`(w, [x, y, z])))

[2.5281266501331255053, [x = 583804136381.99996354, y = 332585592469.99985371, z = 642614553072.00010884]]

(4)

Digits := 25

Optimization['Maximize'](fun, assume = nonnegative, initialpoint = ({seq})(w = (rand())(), `in`(w, [x, y, z])))

Error, (in Optimization:-NLPSolve) complex value encountered

 

Digits := 30

Optimization['Maximize'](fun, assume = nonnegative, initialpoint = ({seq})(w = (rand())(), `in`(w, [x, y, z])))

Warning, undefined value encountered

 

[Float(infinity), [x = 996095848033.138573379019582678, y = 0., z = 473765214257.250967995851222582]]

(5)


 

Download NMaxValue.mw

It is said that the approximate supremum of  is 3e0 (under the assumptions). 

fun:=`assuming`((2*(x+y+z)*(sqrt(y*z*(z+x)*(x+y))/(z+2*x+y\
)+sqrt(z*x*(x+y)*(y+z))/(x+2*y+z)+sqrt(x*y*(y+z)*(z+x))/(y\
+2*z+x))-(9*x*y*z/(x+y+z)+2*(y*z+z*x+x*y)))/(sqrt(x*y*z/(x+y+z))*(x+y+z-sqrt(27*x*y*z/(x+y+z)))),[(x,y,z)>~0]):

I am not sure if the toolbox performs better. But is there a way to obtain significantly accurate output natively?

First Question

 

Let's define a function:

f := proc (x) options operator, arrow; a*x/(4*x^2+b) end proc

proc (x) options operator, arrow; a*x/(4*x^2+b) end proc

(1.1)

now define a new function that is the derivative of f.

g := proc (x) options operator, arrow; diff(f(x), x) end proc

proc (x) options operator, arrow; diff(f(x), x) end proc

(1.2)

g is not what I expected. I expect:

g := proc (x) options operator, arrow; a/(4*x^2+b)-8*a*x^2/(4*x^2+b)^2 end proc

NULL

and if i try to calculate g(0), the result is:

g(0)

Error, (in g) invalid input: diff received 0, which is not valid for its 2nd argument

 

NULL

instead of

a/b

a/b

(1.3)

Second Question

 

I need to define an integral function in which the variable is an integration boundary:

 

h := proc (x) options operator, arrow; int(f(t), t = 0 .. x) end proc

proc (x) options operator, arrow; int(f(t), t = 0 .. x) end proc

(2.1)

if I try to calculate :

h(x)

int(a*t/(4*t^2+b), t = 0 .. x)

(2.2)

how can i do the calculation and display the explicit form of the function, and assign to a name ?

  (1/8)*a*ln(4*x^2+b)-(1/8)*a*ln(b)

(1/8)*a*ln(4*x^2+b)-(1/8)*ln(b)*a

(2.3)

Third Question

 

is there a way to write a system of equation in text mode (or math) in the usual math notation with a big curly bracket followed by the list of equation ? graphically similar to the piecewice operator that seems to be not useful for this purpose?

About the first and the second question i read on the web something but i don't understand deeply what is the reason of the behaviour. I would like to understand really that. Thanks a lot.

Download Questions.mw

In the end of numerics - Mathematica Stack Exchange,  claimed that "I don't know if it also has generalized precision tracking". (Another answer additionally claimed that Mma chooses "significance arithmetic" to track the precision.) So, the question is simple: Does Maple always (automatically) keep track of the accuracy of inexact numbers through a computation?

First 68 69 70 71 72 73 74 Last Page 70 of 2097