The only good thing I can see out of this chaos is that it's giving me a chance to review some older interesting posts and questions that I have long since forgotten about. 

Searching older posts was fun back in the old mapleprimes, I don't know why but it's not so fun now, perhaps because the older forum was much faster and perhaps layed out differently.  I don't, for fun, look back now except if I am looking for something in particular and usually google does that for me so most older posts here in mapleprimes just get lost in the primes void.

Nonetheless, this security hole is a treat in itself bringing older posts to the forefront. 

@PatrickT thanks yes google is always a good fallback. 

I try to point out what doesn't work and hope someone can fix it.  I try to make a calculated guess of the best suggestion, sometimes, and point it out and hope someone makes a change.  In some cases I give a lot of push and then give up but in this case I think someone should be able to fix the mapleprimes search problem fairly easily. 

Thanks for the google tip though.  There always more than one way to approach the same problem and arrive at the same answer.

Another way, at least for the simple example of y=x^2, would be to plot it in 3d using spacecurve and orient the axis the way you want with orientation.

with(plots):
spacecurve([t,t^2,0],t=-10..10,color=red,axes=normal,labels=[x,y,z],orientation=[90,0])

You shouldn't have to move the text file.  If you specify the exact location as when you explore your c drive and use that destination in quotes it should work fine.  Make sure it's exact though, correct spaces and capitals as you know. 

As Joe showed above just use the path to your textfile on the c drive to your desktop. 
More explicitly

a:=readdata(`c:/Documents and Settings/All Users/Desktop/be.txt`,2):

This sounds like you want to keep the coding of your worksheet private.  Doesn't sound like there's any functionality to it as you said you just want the user to just read the worksheet so then why not just save your worksheet as a pdf and upload that ?

Using RSA you could have a second set of encoding and decoding keys.  Just distribute your 2nd decoding key with your 2nd encoded name within your message encoded with your first key.  Then they will have the means to decode your name and know it is from you, however they can not encode one because only you know the 2nd encoding key. 

I wouldn't worry about that.  Maple will be around for a long time.  Ironically after Stephanie replied to my question she happened to be on the list employees let go. 

Maybe the name will change but I don't think so, Maple has a great reputation.  There are a great many number of institutions using Maple and a lot of professors who stand by it.  Also the investment in the MapleSim project is huge.  The Japanese company will build on the product. 

Maple will certainly be around for a while, it's not going to dissappear anytime soon.

Okay I've been able to figure out how to fill another TextField with an initial textfield by pushing a button but it appears that you cannot do that with ListBox

> with(Maplets[Elements]);

> maplet := Maplet([[TextField['TF'](20)], [TextField['TF1'](20)], [Button("update", 'onclick' = 'A1')]], Action['A1'](SetOption('target' = 'TF1', Argument('TF'))));

> Maplets[Display](maplet);

Another thing is that if Listbox contains text that is too large to fit on your screen those selection options will never be seen although they do exist.

I'm trying this,

with(Maplets[Elements]):

maplet:=Maplet([[ListBox_A(FileTools:-ListDirectory("c:/")),ListBox_B( [ ] ) ]] ):

Maplets[Display](maplet)

So I'm trying to have two ListBoxes in the maplet side by side, the second one is empty until I select one of the entries from the first box.  Basically the selection of ListBox[A] puts the contents of it's directory into ListBox[B] but I'm not sure how to do it and I'm having trouble trying to figure it out. 

Any ideas?

Thanks.  I was thinking of mimicking the classic maple help similar to this except using file directories as top levels in a tree.

If I understand correctly you have directory pathnames in the first column of a textfile which have the backslash format instead of the forward slash. 

You could just use replace in the text file itself from notepad and replace all / to \ but I'm thinking you want Maple to change the backslashes to forward slashes for you?

Be nice to get a quad core computer but I'm still pretty comfortable and happy with my current one for the time being.  Closing in on the 5 year mark I should probably think about backing up my files.  So in principle a P2 could run millions of points smoothly?  That would point to memory hungry routines in the GUI then, which is where I like to do most of my work.  I upgraded the memory and added a new h.d. last year and I have no plans to upgrade them again.  I might at most plan to spend $100-$150 to upgrade my video card but that would be it for upgrading this one.  Interesting though about the hardware being capable but Maple software lacking or lagging in speed? 

And I never thought about updating Java.  I'm using version 6 update 7 and the most recent is update 22, I guess I'm a bit behind the times in the software upgrade.

I wonder if updating the Java would really help that much? 

But if even a fast computer bogs down, then I needn't worry.  I'll try the classic first.

Luckily I have located replies from my old mapleprimes database and will replicate them here.

2 Replies

Maple Challenge 2
"by : Robert Israel commented on 2007-12-25 17:06 "

If I understand you correctly, you want your function f to solve the system of inequalities (x-t)^2 + y^2 < 1, t > 0, t < T (where T is some given numeric constant > 0). You can do it (for numeric values of x and y) with

> f := (x,y) ->
    solve({(x-t)^2 + y^2 < 1, t > 0, t < T}, t);
I was somewhat disappointed to see that this would not work with symbolic x, y. But with a little thought you can define it by hand:

> f := (x,y) -> piecewise(abs(y) <1,  
      RealRange(Open(max(0,x-sqrt(1-y^2))),
        Open(min(T,x+sqrt(1-y^2)))),
      NULL);

Second reply

The order of Evaluation may be your problem
"by : jaytreiman commented on 2007-12-27 1600 "

Try defining a function like that below. It does the trick for a disk.
Similar functions may work for what you are doing.

f := proc(x,y)
eqn1 := eval(subs({x1=x,y1=y},(x1-t)^2 + y1^2 <= 1));
solve(eqn1,t);
end proc;

This post is broken,

@Will  - Please fix.