Hello everyone, I need your help again. I've been trying recently to select different colors and other line options to different curves in the 2D plot generated by the algorithm attached to this message, but I've had no success whatsoever. I tried using the setcolors([]) option, but it didn't work.

Any help with that would be much appreciated.


Link:
Equações_H,_S_e_G_(r.mw

Let a convex polygon, for example Q:=polygon([[0,2],[1,4],[4,4],[5,1],[3,0]]), be given.
How to find the rectangle of the biggest area which is contained in Q?
A procedure is required. This problem seems to be more complex than the previous one.

I have two procedures X() and P() which both are working. (See attached worksheet )

LL_100)_Quandl_Get_D.mwLL_100)_Quandl_Get_D.mw

When I put:

z := X(P());
Do(%DataTable0 = z);

I get an error:

Attempted to set unknown property 'value' on component 'DataTable0'

why??

Hi

Is there any way to program a button component to stop current calculations and restart maple server?
Thank you.

Is there a way to speed up the calculations?
Thank you.

Download slow.mw

Let the polygon P:=polygon([[0,2],[1,4],[2,3.5],[4,4],[5,1],[4,0.75],[3,0]])

be given.
How to find the rectangle of the minimal area which contains P? Of course, with Maple. Is it a rectangle having a side parallel to the longest diagonal of P?
The same problem in the general case: a procedure is required.

If I type the following:

a := 1

a2 := 1.5

a*a2

When I press enter

I want it to display the expression without evaluating and then the result:

(1)*(1.5)

By default the program displays  1.5.  Is it possible to display it this way?

hello please help me for maple worksheet 17

how can i do parametric diff?

i know implicitdiff and diff but i don't know how can i do parametric diff thanks very much

i got loop dat gives me Vx and Vy functions in evry step,i need to solve this ode 


proc (X) options operator, arrow;
X(t) end proc;
proc (Y) options operator, arrow;
Y(t) end proc;

ode := diff(X(t), t) = evalf(subs(x = X(t), y = Y(t), subs(vvx = Vx, vvx))), diff(Y(t), t) = evalf(subs(x = X(t), y = Y(t), subs(vvy = Vy, vvy)));
ics := X(0) = xxx, Y(0) = yyy;
ds := dsolve([ode, ics], type = numeric, method = rkf45, maxfun = 0, output = listprocedure);
XX := rhs(ds[2]); YY := rhs(ds[3])

i got XX(t) and YY(t) this is one parametric function,she looks like this

[URL=http://hostingkartinok.com][IMG]http://s5.hostingkartinok.com/uploads/images/2013/11/6b7bc8537f9f8d3d37c7b30bc3c2b316.jpg[/IMG][/URL]

i need to get her 1st and last value of t when she exist.
i make XX(-9999999)  and XX(9999999) to catch erorr and get values.
but for some Vx and Vy i get  
"cannot evaluate the solution further left of %1, too many step failures, tolerances may be too loose for problem",−0.15345979       
erorr.

When he try to get XX(999999) he spends like 10-15 minuts, so its realy big waste of time , i just need to get this critical valuse,so maybe there is another way?

eq1:=
(1/4)*D^2*Pi-(1/4)*D^2*arccos((-D+2*h)/D)-(1/2)*sqrt(h)*sqrt(D-h)*D+h^(3/2)*sqrt
(D-h);
                          
eq2 :=
-(1/2)*sqrt(h)*sqrt(D-h)*D+h^(3/2)*sqrt(D-h)+(1/4)*D^2*arcsin((-D+2*h)/D)+(1/8)*
D^2*Pi;

These equations are the same. yet simplify(eq1-eq2,trig);
<>0
The Mathematica COMMAND FullSimplify[..] gets zero.

Use the command taylor to find the Taylor’s series about  pi of e^{-(x-pi)^2}

specifically compute the 11_th coefficient a₁₁.

taylor(exp(-(x-Pi)^2),x=Pi,11);

is this correct?

thanks

Hello,

I look for a way to color the different subsystems of my system in the 2D mode.

It should be to have a clearer presentation of my system.

Is somebody known as it is possible to color a subsystem ?

Thank you for help.

Hi!

How do I get Maple to factor to following long expression:

where one factor is (pp1^2+pp2^2+pp3^2)?

Thanks,

Arka

Hello there,

I have some troubles with plotting implicit functions , aswell with plotting polar ones.

When I ask the plot of my function it's not ''smooth'' , it has edgdes everywhere that aren't suposed to be there (I think).

These are 2 examples:

K:=x^2*(x^2+y^2)=a^2*y^2;a:=1;
implicitplot(K,x=-2..3,y=-6..6,colour=red);

K:=(x^2+y^2)^3=a^3*x*(x^2*3*y^2);

implicitplot(K,x=-6..6,y=-6..6,colour=red);

Can somebody help me out on how to draw them smoothly?

Maybe I have to change settings?

Thanks alot!

Thanks

x^4-1equivalent 0 mod 29

after find root of inverse?