Hello all.

I am using a k-means cluster routine to partition a set of points into a fixed number of clusters.

The solution assigns points belong to clusters, and this is given in matrix-form. The attached file gives an example of a simple problem that is concerns two clusters (matrices). The entries of each cluster / matrix represent the coordinates of the points in the plane.

I am looking to ..

1. Isolate and label each cluster solution (there may be up to 10), and 

2. For each matrix / cluster, arrange the entries into separate ordered pairs. 

For example, in this instance, I wish to obtain the following form ..

A: = [[-6.08, 52.99], [-7.26, 55.29], [-6.24, 53.29]]

B: = [[-9.72, 51.46], ... , [-9.81, 53.76]]

I have made several attempts to solve for this, but I simply cannot get the solution to output this form.

Any advise / help you can give will be gratefully received. 

Thanks for reading!

Download MaplePrimes_May_31.mw

When I try to solve an equation, or enter any equations using log, the answer is always incorrect. for example: log(0.5/1.65)=-1.194, when the correct answer is -0.519? 

I put together the attached worksheet to help me determine the cheapest way to buy "refreshments" for a party by comparing price and volume of different bottle size options.  The spreadsheet works fine as is.  However, when I right click on the output of line (14) and format pct_difference as percent with 2 decimal places and execute the worksheet, Maple hangs on that line and progresses no further.  This doesn't happen in Maple 2018 but the problem does show up in Maple 2024.  Suggestions please?

cost_comparison_-_liquid_(v01MP).mw

how to determine lambda, m0, and n0? a_i, and c_i are constants and c^2 = c[1]^2 + c[2]^2. solA.mw

This question is as much an observation of somthing I accidently stumbled across. I was using eval[recurse] to evaluate expressions reduced with LargeExpressions. I found eval['recurse'](eval['recurse']([Expr1 , Expr2] , [Q=.. Q1=.....])[]) to be better than simplify(eval['recurse']([Expr1 , Expr2] , [Q=.. Q1=.....])[]).

I only realised what was happening  when I put the below together. Then I could see the wood from the trees. 

It would be interesting to know why.

Download 2024-05-31_Eval_Recurse_vs_Simplify_Side_Rels.mw

counts_and_bins_data_output_from_histogram().mw

Download counts_and_bins_data_output_from_histogram().mw

Can anyone helps me with my optimization Problem.  Following are the issues :-

• I have to minimize the function TRC, i am unable to do. 
• I am unable to add a constraint with if statement. 
• Check whether i have represented I1 and I2 with respect to alpha and beta right or wrong

Attaching the sheet below, the background marked in yellow is the problem area. Thankyou

Basic_model.mw

How do I solve equation (1) for omega, rho, lambda1, and lambda2? verif.mw

Why this code does not work. Thank you.
restart;
with(plots);
with(geometry);
_EnvHorizontalName := 'x';
_EnvVerticalName := 'y';
x0 := 10;
y0 := 9;
a := 7;
b := 5;
c := sqrt(a^2 - b^2);
ellipse(el, x^2/a^2 + y^2/b^2 - 1);
point(F1, -c, 0);
point(F2, c, 0);
point(P, x0, y0);
eq := simplify((a^2 - x0^2)*(y - y0)^2 + (b^2 - y0^2)*(x - x0)^2 + 2*x0*y0*(x - x0)*(y - y0)) = 0;
eq := (a^2 - x0^2)*m^2 + 2*x0*y0*m + b^2 - y0^2 = 0;
sol := solve(%, m);
m1 := sol[1];
m2 := sol[2];
(y - y0 - m1) + (-x + x0);
(y - y0 - m2) + (-x + x0);
line(tang1, (y - y0 - m1) + (-x + x0));
line(tang2, (y - y0 - m2) + (-x + x0));
display*[textplot*([[-c, 0, "F1"], [c, 0, "F2"], [coordinates(P)[], "P"]], align = {"above", 'right'}), draw*([el(color = red), P(color = black, symbol = solidcircle, symbolsize = 16), tang1(color = green), tang2(color = green), F1(color = blue, symbol = solidcircle, symbolsize = 16), F2(color = red, symbol = solidcircle, symbolsize = 16)], axes = none)];
 

weibull_damage.mw
i have weibull plot...and i want to get size and shpae parametr...how can i get ...parameters .i don't know how to perform linear regression to get these parameters in maple..please help

I noticed that in a legend with:

1. Three elements
2. linestyle = [solid, longdash, dash]
3. thickness = [4, 4, 4]

The three different linestyles are distinguishable in the plots (of course, since the curves span the whole plot area) but indistinguishable in the legend box. Since the legend box is too narrow, the symbols for a solid line, a longdash line, and a dash line are equivalent, resulting in confusion regarding which element is associated to each linestyle. Note that I don't want to use three different colors to achieve that or change my font sizes. 

1. How can I "show more" of the linestyle in the legend box? "Longer" line symbols in the legend box would allow to dinstinguish a solid from a longdash from a dash even when all three are quite thick.
2. Alternatively, can I reduce the thickness of the line symbols in the legend box (leaving unaltered the thickness of the lines in the actual plot)? "Slimmer" line symbols in the legend box would allow to dinstinguish a solid from a longdash from a dash even when all three are quite short.

Can_I_change_the_location_of_the_color_bar_caption_in_Maple_2024.mw

In Maple 2024,

can I change the location of the color bar caption in Maple 2024? It conflicts with the color bar labels sometimes. See the attached maple sheet for an example.

I am using fsolve() to solve a highly nonlinear system of 6 equations in 6 variables: lambda_d1, lambda_i1, lambda_d2, lambda_i2, lambda_d3, lambda_i3.

fsolve() doesn't "solve"! I usually help fsolve() with some initial conditions and with the expected signs of the solution but in this case it's not enough. I noticed that if I comment out the expected signs line (that is, if I don't impose my 6 lambdas to be strictly positive), the fsolve() works.
How do I help fsolve() to pin down only positive solutions at each iteration? I have no reasons to believe that there aren't any positive solutions for all 6 lambdas...

Worksheet: fsolve_help.mw

thank you.

Download ode_exact.mw

How to find the exact solution of ODE's

can we express 'X' in terms of 'L'? i.e., X = (some const)*L XintoL.mw