MaplePrimes - answers and comments on Question, Server problems?

Dogod — Fri, 21 May 2010 05:34:39 Z
Hi sorry, I see it is a bit slow but does work in this other sheet, which will be the error?

I wish someone help me, thank you very much ...

Re:

Dogod — Fri, 21 May 2010 05:36:52 Z

Hi sorry, I see it is a bit slow but does work in this other sheet, which will be the error?

I wish someone help me, thank you very much ...

View 16991_Programming GUI in Maple.mw on MapleNet or Download 16991_Programming GUI in Maple.mw
View file details

Re:Server problems?

Dogod — Fri, 21 May 2010 06:13:46 Z

Hello Many thanks you are very kind ...

I have no time now but I will watch what you say ... a question:

and how do I capture the constraints and the function to maximize (or minimize) from a TextArea? I know that would be assigned to variables ...

This I could not find it anywhere ... I would appreciate if I can say.

Thank you very much!

Hello, thank you both, are

Dogod — Mon, 24 May 2010 21:22:18 Z

Hello, thank you both, are right, but now what we need is that you can enter the number of restrictions on the TextArea and be read, and as you enter are you reading, assigned to variables and then plot these with inequal .. .

Is that possible? I have understood that Maple is read with "scanf", but do not know how to program it to occur in the TextArea.

View 16991_Version3.mw on MapleNet or Download 16991_Version3.mw
View file details
I would appreciate if I can help with the syntax ...

Greetings

inequal

pagan — Fri, 21 May 2010 06:05:09 Z

Get rid of the with(plots). You could keep it, but I suggest using the long form name plots:-inequal instead, wherever used. But if you keep it, then it has to be on its own, outside of a Do() call. It certainly should not be used in an attempt to set the value of the Plot0 component, which you presently have as Do(%Plot0=with(plots)). That doesn't make sense.

Your might want to put your code in procedures at some point, and with() won't work "properly" there either.

I suggest putting all your code into procedures defined outside the Action-when-clicked part of the Button Components. Just make it regular code, visible right there in your Document. It makes it easier to debug and develop. When it's finished and ready, then you can just add a few calls to those procedures inside the code section of the Components (and hide the code in an autoexecute, collapsed Block of your Document).

For example, suppose you move the code presently in the "Run Tutor" button into a visible proc named RunTutorproc.

RunTutorproc:=proc()
  DocumentTools:-Do(%Plot0 = plots:-inequal({x + 3*y <=200,
    2*x + 2*y <= 300, y <= 60, x >=0, y >=0}, x = -400..400,
    y = -400..400, optionsfeasible=(color=red),
    optionsexcluded=(color=white, thickness=4)));
end proc:

And you could add lots more into that proc body, of course. And then you can simply put a call

  RunTutorproc();

inside the Button's Action-when-clicked area. It's just a suggestion to make your development easier.

Small change needed

Scott03 — Fri, 21 May 2010 22:03:28 Z

All you need to do to make the worksheet work is to change this call in the "Run Tutor" button

Do(%Plot0 = plots:- inequal({x + 3*y <=200, 2*x + 2*y <= 300, y <= 60, x >=0, y >=0}, x = -400..400, y = -400..400, optionsfeasible=(color=red), optionsexcluded=(color=white, thickness=4)));

to this

Do(%Plot0 = plots:- inequal({%TextArea0, y <= 60, x >=0, y >=0}, x = -400..400, y = -400..400, optionsfeasible=(color=red), optionsexcluded=(color=white, thickness=4)));

Then all you need to do is enter the following in the text area: x + 3*y <=200, 2*x + 2*y <= 300

One other change that you can do is change the code in the "Restart" button to be the following

Do( %Plot0= PLOT());

This will place a blank plot in the plot region.

Scott