## 15 Reputation

12 years, 193 days

## Thanks a lot...

Hello Kitonum12079,

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

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

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

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

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

## I got still a problem...

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.

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

## I got still a problem...

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.

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 Christopher22...

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 Christopher22...

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

 1 2 Page 1 of 2
﻿