@Christopher2222 

Hi Christopher2222,

now all is working perfectly! There is a small question: When I change "cross" to "point" the point is infinitesimal - I can't increase it by amplify the "symbolsize". In the help of Maple it is displayed concerning "plot":

"(symbolsize=n)
The size (in points) of a symbol used in plotting can be given by a positive integer. This does not affect the symbol POINT. "

Have you any idea how to increase a "point"?

If you don't, it doesn't matter because it works using the "cross".

Thanks for your help!

p:=[xs,ys];

a:=plot(y(x),x=ug..og,color=blue,filled=true):

b:=pointplot(p,symbol=cross,symbolsize=50,color=red):

display({a,b});

Greetings,

Jörg

@Christopher2222 

Hi Christopher2222,

now all is working perfectly! There is a small question: When I change "cross" to "point" the point is infinitesimal - I can't increase it by amplify the "symbolsize". In the help of Maple it is displayed concerning "plot":

"(symbolsize=n)
The size (in points) of a symbol used in plotting can be given by a positive integer. This does not affect the symbol POINT. "

Have you any idea how to increase a "point"?

If you don't, it doesn't matter because it works using the "cross".

Thanks for your help!

p:=[xs,ys];

a:=plot(y(x),x=ug..og,color=blue,filled=true):

b:=pointplot(p,symbol=cross,symbolsize=50,color=red):

display({a,b});

Greetings,

Jörg

Hello Christopher2222,

Thanks for your fast answer. I tried like you supposed but it doesn't work yet. Would you be so kind and check the code which is displayed below?

The code is to calculate the balance point of an area. The calculations concerning the balance point are correct. I still have problems to display the function y(x) an the point [xs,ys] in one graphic.

restart;

y:=x->x^2:
ug:=0:og:=10:

plot(y(x),x=ug..og);

intXdA:=evalf(int(x*y(x),x=ug..og));

intdA:=evalf(int(y(x),x=ug..og));

xs:=evalf(intXdA/intdA);

intYdA:=evalf(int(1/2*y(x)*y(x),x=ug..og));

ys:=evalf(intYdA/intdA);

a:=plot(y(x),x=ug..og):

b:=pointplot([xs,ys]);

plots[display]({a,b});

Error, (in plots/object2plot) bad object to display symbol <------ this is the error

Greetings,

Jörg

Hello Christopher2222,

Thanks for your fast answer. I tried like you supposed but it doesn't work yet. Would you be so kind and check the code which is displayed below?

The code is to calculate the balance point of an area. The calculations concerning the balance point are correct. I still have problems to display the function y(x) an the point [xs,ys] in one graphic.

restart;

y:=x->x^2:
ug:=0:og:=10:

plot(y(x),x=ug..og);

intXdA:=evalf(int(x*y(x),x=ug..og));

intdA:=evalf(int(y(x),x=ug..og));

xs:=evalf(intXdA/intdA);

intYdA:=evalf(int(1/2*y(x)*y(x),x=ug..og));

ys:=evalf(intYdA/intdA);

a:=plot(y(x),x=ug..og):

b:=pointplot([xs,ys]);

plots[display]({a,b});

Error, (in plots/object2plot) bad object to display symbol <------ this is the error

Greetings,

Jörg