Hello Kitonum12079,

thanks a lot for your genius answer!!

Greetings,

Hi acer!

Thanks a lot for your detailed help! Now I'm able to use and fill arrays. I can use it for a procedure which I wrote a couple of days ago.

Greetings, flash20001

Hi acer!

Thanks a lot for your detailed help! Now I'm able to use and fill arrays. I can use it for a procedure which I wrote a couple of days ago.

Greetings, flash20001

@pagan 

Hi pagan, thanks a lot for your detailed help!
Greetings, flash20001

@pagan 

Hi pagan, thanks a lot for your detailed help!
Greetings, flash20001

@Markiyan Hirnyk 

Hi Markiyan Hirnyk, thanks a lot for your help!
Greetings, flash20001

@Markiyan Hirnyk 

Hi Markiyan Hirnyk, thanks a lot for your help!
Greetings, flash20001

Hello Markiyan Hirnyk,

thanks for your help! But it doesn't run for me. I got Maple 7 but that won't be the reason.

I added: "p:=[xs,ys];" and "print(c);" to your code.

But it occurs the failure: "Plotting error, symbol expected for LEGEND option".

Would you please check the code again - if it isn't to annoying to you?

flsp:= proc(f,ug,og) global y,intXdA,intYdA,intdA,xs,ys,p,a,b,c;
> y:=unapply(f,x):
> intXdA:=evalf(int(x*y(x),x=ug..og));
> intYdA:=evalf(int(1/2*y(x)*y(x),x=ug..og));
> intdA:=evalf(int(y(x),x=ug..og));
> xs:=evalf(intXdA/intdA);
> ys:=evalf(intYdA/intdA);
> p:=[xs,ys];
> a:=plot(y(x),x=ug..og,color=blue,filled=true):
> b:=pointplot(p,symbol=cross,symbolsize=50,color=green,
> legend = typeset("The balance point has the coordinates \n xs=", xs, ", ys=", ys));
> c:=display({a,b}, scaling = constrained);      
> print(c);
> end:

greetings flash20001

Hello Markiyan Hirnyk,

thanks for your help! But it doesn't run for me. I got Maple 7 but that won't be the reason.

I added: "p:=[xs,ys];" and "print(c);" to your code.

But it occurs the failure: "Plotting error, symbol expected for LEGEND option".

Would you please check the code again - if it isn't to annoying to you?

flsp:= proc(f,ug,og) global y,intXdA,intYdA,intdA,xs,ys,p,a,b,c;
> y:=unapply(f,x):
> intXdA:=evalf(int(x*y(x),x=ug..og));
> intYdA:=evalf(int(1/2*y(x)*y(x),x=ug..og));
> intdA:=evalf(int(y(x),x=ug..og));
> xs:=evalf(intXdA/intdA);
> ys:=evalf(intYdA/intdA);
> p:=[xs,ys];
> a:=plot(y(x),x=ug..og,color=blue,filled=true):
> b:=pointplot(p,symbol=cross,symbolsize=50,color=green,
> legend = typeset("The balance point has the coordinates \n xs=", xs, ", ys=", ys));
> c:=display({a,b}, scaling = constrained);      
> print(c);
> end:

greetings flash20001

Hello Jarekkk,

thanks for your two versions. It's good to know that there are different ways.

Greetings, flash20001

Hello Jarekkk,

thanks for your two versions. It's good to know that there are different ways.

Greetings, flash20001

Hello Kitonum,
Thanks for your help! Now it's working.That was a small change with great effect.
Greetings, flash20001

Hello Kitonum,
Thanks for your help! Now it's working.That was a small change with great effect.
Greetings, flash20001

@Christopher2222 

Hi Christopher2222,

thanks for your help - I'm happy to use the "cross" to display the balance point of an area. With this solution it works good enough for me.
While my studies of "mechanical engineering" I used Maple frequently. Beside playing around with Maple I often program "Macros" for Excel using "VBA for Excel".
Now it's one day before Christmas and I wish you a pleasant Christmas and a happy new year.

Greetings,

Jörg

@Christopher2222 

Hi Christopher2222,

thanks for your help - I'm happy to use the "cross" to display the balance point of an area. With this solution it works good enough for me.
While my studies of "mechanical engineering" I used Maple frequently. Beside playing around with Maple I often program "Macros" for Excel using "VBA for Excel".
Now it's one day before Christmas and I wish you a pleasant Christmas and a happy new year.

Greetings,

Jörg