MrMarc

3163 Reputation

18 Badges

17 years, 133 days

MaplePrimes Activity


These are answers submitted by MrMarc

I can tell you one thing that Mathematica does better than Maple and that is it's integrated data sources.

for example you can type a country name and what time series you want to have GDP, taxes, spendings and Mathematic displays

such a time series instantly. You can type a  stock name and get the stock prices over the last 10 years. Very simple and very very

nice !  You can even ask questions like what country hade the highest GDP growth in 1990 . As I said that function is nice.

However I find Maples syntax to be much easier. The software does not appear to be written by some awkward and

sweaty nerd in a basement somewhere who applies cryptic and confusing syntax and expect everyone ells to "get it"  which

is the case for most software written before 1980's . I also find MATLAB's ploting GUI nice for example if you want to plot some

data you can select plots from a meny instead of having to write the individual command.  However having said all that I do really

like Maple beacuse as I said it is easy to use (program sliders, procedures, loops etc) and it got all the mathematical tools that

you need :-)   It would be nice though to combine the functionality of the different softwares to one massive freak of nature

mathematic environment 


X:=[A, B, C]:
t:=x->Typesetting:-mi(x, family = "Times", size = "18"):
map(t,[A, B, C] );

 

Yes that is exactly what I wanted.  Thank you for your insight  :-)  

The command is not particular pretty (but it works). I think Maple should provide a simple procedure for this 

I discovered one weakness though: It only works for letters and string not numbers 1,2,3 etc

and it does not seem to work on the comma in between the list elements. When the font size is large enough

it looks likes it is one word ABC and not [ A , B , C ]

 

 

Yes, you are right :-)  That was not a good example. Sorry about that.  Let say  X:=[A, B, C] ;

Then when we call X it should return the list in font size 18.

I would suspect something like typesetting(X, font=[times, roman, 18]) or something but I am not sure it can be done

with a command ?!

 

sound interesting...could you please post the algorithm ?  

It might be picked up by some smart Maple person :-)  

unfortunately I dont know anything about ballistic trajectory however I found a similar application

 

http://www.maplesoft.com/applications/view.aspx?SID=33082

 

it is however refreshing to hear that professors also can be incompetent   :-)

I actually updated my Maple 12 version to Maple 13 just to get this function :-)

As a student this is actually possible (the cost was 112 $ which is ok compared to $1245 for non students which

is 3-4 months rent ). I augmented your button code a bit but now it does exactly what I want (which is nice..nipie).

 


> with(Statistics);

with(DocumentTools);

from 1 to 50 do

r := evalf(Sample(RandomVariable(Normal(0, 1)), 1)[1], 1);

if `not`(assigned(LL)) then LL := [r] else LL := [op(LL), r] end if;

SetProperty(MathContainer0, 'value', LL, 'refresh' = true);

st := time[real](); while time[real]()-st < 0.5e-1 do  end do

end do;
 

For me this just opens up so much more good simulation capabilities.

Now a can start a system with a button and watch when the system (through the mathcontainers) comes to life....

alright fair enough....thanx for your input :-)

 

Nope still not working for me (maple 12) ...:-)

 

now I got an error  :

 

"Error in component button1 with caption "start" ; (inDocumentTools:-SetProperty) expecting 2 or 3 arguments, got 4 "

 

It is like a way to do simulation . Instead of having to press that button for example 100 times (for 100 random numbers)

I want to press that button one time and sequentialy (not simultaniously) see the random numbers being

generated in the mathcontainer
 

 

 

ok thanx for your input :-)

I had however some problem to get your code to work with an button and a mathcontainer.

What is the exact button code to get 4 sequential random numbers displayed (with an pause between) in a mathcontainer ?

 

I have uploaded an example of a button / mathcontainer / random number generator

 

View 8342_button.mw on MapleNet or Download 8342_button.mw
View file details

 

x:=A :
x;
unassign('x') :
x ;
                                      A
                                      x
 

jakubi,

I partial agree with you but what I was refereing to as "cool" was the complex game application in Maple irregardles of its nature.

The movie was about war and the theme of numereous video games is about war. I cant see a moral problem here, its just a

game (not reality). I am more interested in the technical and sophisticated application in Maple.... :-)

thank you that worked better  

I was not aware that you could put code directly into the embedded plot window section "Plot Expression"

I have learned something new today nice :-)    Again thanx for your help

yes, maybe a globe is a better option :-) 

but it is probably going to be quite complicated . maybe I should start a less demanding project.

It is not like I get paid for it ha ha. It is probably going to take at least a week or so ...

humm.....I dont really understand...sorry  :-)

If it is not to much to ask could you please upload a Maple worksheet where this is done   ?

It is then much easier for me to see what you are doing

Thanx Robert .. stable as usual !

Let me tell you why I wanted to do an animation ontop of an Image. You know the old movie "WarGames"

with the frase "Lets play Global Thermonuclear War".


It would be cool to design a simple game in Maple where you can animate trajectories for different countries for example

Europe  vs Africa , US vs Russia etc .  The user inputs the angel and force of the missile and then introduce some

random noise into the trajectories so that you dont hit your target all the time.


 

The missile trajectories could be something like this :

 

restart :
with(plots):

p := [seq([x, x, 30*x-x^2], x = 0 .. 30)]:

An := proc (x)

pointplot3d(p[round(x)], axes = box, color = red, symbol = solidcircle, symbolsize = 30)

end proc:

animate(An, [x], x = 1 .. nops(p), frames = nops(p), trace = nops(p)) ;

 

First 13 14 15 16 17 18 19 Last Page 15 of 24