Thought always that the round d is reserved for function of two variables x,y , but  that seems to be not the case here ?

Download Controleren_dezelfde_antwoord_voo_expressies.mw

Here is a problem that I recently had to solve and I really liked it. I recommend it to all Maple fans:

"The contour of the Christmas tree on the occasion of the New Year 2022 is a triangle, which is divided into 7 small triangles, the bases of which are parallel. The areas of triangles and the star are measured in snowflakes, the values of which are presented on the balls (of course, the number of snowflakes must be integer). It is necessary to determine the areas of triangles, on the balls of which there are no numbers".

At first glance it seems that the area of the star is not related to the problem, but it is not. This will become clear only after the problem is solved.

Hi! I want to make animation from the sequence below to download but it's not working I mean that it's ok when I want to see animation on display but it cannot be seen as something like "display(seq(...,a=1..100),insequence=true)" which is easy to export

restart;
with(Fractals:-EscapeTime);
with(ImageTools);
with(plots);
M := seq(Mandelbrot(500, -0.17225 - evalf(a/100000) + (0.660347 + evalf(a/100000))*I, -0.17115 - evalf(a/100000) + (0.66116 + evalf(a/100000))*I, iterationlimit = 3000, output = layer1, cutoff = 10000), a = 1 .. 100);
seq([Embed(M[j])], j = 1 .. 100);

How to insert icons in a plot at given coordinates as shown below:
 

question6.mw
How you can see, in the following exercise I built five plots, every one with the graph of two functions. The exersise say that I must find coordinates of any intersection. I think I can do it with solve command. However, I want point out coordinates of  intersections inside the plots. Probably exists a command or a parameter to success with my objetive. How can I do it?

Thank you for helping me;
Greetings;
Lic. Marcus Vinicio Mora Salas;
Chemist;
Postgraduate student at University of Costa Rica;

Download question6.mw

Download Prj.mw

(Maple 2015)

Why is m1(t) not evaluated correctly when I use a compound condition?

restart:
m2(t) = piecewise(x1(t) < c and v1(t) < 0, 1,  0);
       m2(t) = piecewise(x1(t) < e2 and v1(t) < 0, 1, 0)

m1(t) = piecewise(x1(t) = c and v1(t) > 0, 0,  1);
                           m1(t) = 1

This doesn't happen for simple conditions
 

m2(t) = piecewise(x1(t) < c, 1,  0);
m1(t) = piecewise(x1(t) = c, 0,  1);
               m2(t) = piecewise(x1(t) < c, 1, 0)
               m1(t) = piecewise(x1(t) = c, 0, 1)

TIA

In Matlab I can copy a Figure as a vector graphic and paste it into Adobe Illustrator, where it is perfectly scalable and it can be exported as a say 100cm by 100cm 300 DPI jpg file.

In Maple I struggle to produce similar quality files

Thanks,

Peter

question5.mw

In document uploaded I tried to write a code to get as output 11 plots. I would like a format as this: 9 plots in 3 columns an 3 rows, and a fourth row with two center plots. To explain me better, I drew a rustic sketch of what I want, basically something like this:

However I tried but I fail and my output is horrible. So, I want to ask: Does exists some option to the plot[display] command or should I try another aproach?

Thank you for helping me;
Greetings;
Lic. Marcus Vinicio Mora Salas;
Chemist;
Postgraduate student.

As part of my course work I've encountered a block wherein I need to convert a 4th order TF to a SmithForm but am unable to do so.

Can anyone help me with the code as attatched.

Download SmithForm.mw

Hello!

how to find the solutions of a system of recursive equations? And the plot too.

I tried but...

B := rsolve({a(0) = 0, a(i) = (1 + 10^(-5)*(0.01*(i - 1) - 0.007)/0.0001)*a(i - 1) + 0.1*10^(-5)*c(i - 1), c(0) = 0, c(i) = 0.01*10^(-5)*(i - 1)/0.0001*a(i - 1) + (1 - 10^(-5))*0.1*c(i - 1)}, {a(i), c(i)}, 'genfunc'(t));
B := rsolve({a(i) = (0.9983000000 + 0.001000000000 i) a(i - 1)

   + 0.000001000000000 c(i - 1), 

  c(i) = 0.001000000000 (i - 1) a(i - 1) + 0.09999900000 c(i - 1)

  }, {a(i), c(i)}, genfunc(t))

rsolve_for_system_of_recursive_equations.mw

thanks

This is a simple problem of Chemistry. I solved the exercise, but there are three aspects I don't like about output:
1) Even kg*m² *s^-2 = J (SI unit to energy) and both are correct, one must be explicit with units in order to be totally clear, so I need an output with units of J/mol and not kg*m² *s^-2 mol^-1.
2) I had to hardcode number of significant figures, so I had to analize quantitys in order to determine this number, wich as you can see, is three. I think Maple can compute significant figures automatically, but I could not find the command in documentation and even in this case is not totally needed, I would like to learn how do it because it could be very useful for more complex expressions.
3) Finally, output must be expressed using scientific notation, it's say enthalpy = 10.4*10⁴ J/mol.
Therefore: How can I get adecuate output?
Thank you for helping me;
Greetings;
Lic. Marcus Vinicio Mora Sallas;
Chemist;
Postgraduate student. question4.mw

Download question4.mw

system_of_PDE.mw

Download system_of_PDE.mw

Sometimes its easier when doing math in maple input mode to use first the 2d maple input mode and convert this to maple input
Is there a hotkey assigned in Maple to do this toggling from 1d input to 2d input ( also from 1d output to 2d output  )

Now it must be done by mouse

In relation with the following code and its respective output:

I want get an output in wicht left side of equalitys be expressed in radical terms and not in terms of trigonometric expressions. I tried convert(expr, radical), but the result is not that I want. Could someone help me please? Also I want to know if exists a method to avoid hardcoding list of the forloop other than [seq(i, i = 1..5)];

Thank you for helping me;
Greetings;
Lic. Marcus Vinicio Mora Salas;
Chemist;
postgraduate student in University of Costa Rica