Download value1.mw

You can use the maple player to view any worksheets for maple created by other people.  Specifically worksheets found in the maplesoft application center http://www.maplesoft.com/applications/index.aspx Or the maple cloud http://maplecloud.maplesoft.com/

The maple player is mainly a viewer but will also be interactive depending on the created worksheet. 

If you want to experiment on your own math problems, you need to purchase the actual Maple software.

The only thing I can think of is something to do with style sets and color and the information was lost somehow after it was saved.

@Mac Dude I've never seen this before.  In the file as notepad the second section Linear motion and action angle variables just before the execution I see

 for the 1-dimensional linear Hamiltonian is as follows:</Text-field>
</Input>
</Group></Presentation-Block><Presentation-Block>
<Group view="presentation" hide-input="false" hide-output="true" inline-output="false" labelreference="L686" drawlabel="true">
<Input>
<Text-field style="Text" layout="Normal"></Text-field>
</Input>
</Group></Presentation-Block><Presentation-Block>
<Group view="presentation" hide-input="false" hide-output="true" inline-output="false" labelreference="L19" drawlabel="true" redirect-target="L17">
<Input>
<Text-field prompt="&gt; " style="Maple Input" layout="Normal"><Equation executable="true" style="2D Input" input-equation="H = Physics:-Vectors:-`+`((1/2)*px^2, (1/2)*k(s)*x^2);"

Not sure if that helps anyone locate the issue. 

I renamed your data to data.csv  I could have overlapped the faster sine wave on the slow sine wave at the end but I was running out of time.  I think some parts I did could have been done easier.  The only difficulty was getting having to rerun the Fit with trial initialvalues to see what fits best.  I think it would be nice if Maple could just pick out the slow sine waves first in the FIT data as a default .. although I think it's actually harder to implement than I think.

Download fitting_data_to_sine4.mw

you could use dualaxisplot, but you have to include your function twice and it doesn't put tickmarks at the top of the axis.

with(plots):

dualaxisplot(x^2,x^2,x=0..4)

or you could use axis=[gridlines] option

plot(x^2,x=0..4,axis=[gridlines])

with(plots):

display(seq(plot(sin(m*x)), m = 1 .. 2))

The icons across the top of your screen are controlled by your graphics card - you can adjust those settings separate from maple through windows control panel - display.  The plot size I believe is also affected by this setting. 

The rest of the worksheet size is can be changed by holding crtl and a pressing a number (default size is 2)

The reason I ask is because the latest maple bug http://www.mapleprimes.com/posts/201844-Possible-Bug-In-Maple- appears to be fixed in Maple 2015 by first loading the Physics package.  But it needs to be loaded right after a restart.

I was hoping your Physics addons would also fix earlier versions of Maple since I don't think Maplesoft would be providing updates to earlier Maple versions. 

I tried a few other packages but only the Physics package seemed to rid Maple (only 2015) of the bug.  Also I only tried the second option of loading the Physics package into a user library rather than the system library for Maple18 to see if it worked in an earlier version which unfortunatley did not.

Download maplebug.mw

This would help

http://www.maplesoft.com/support/help/Maple/view.aspx?path=StringTools/IsControlCharacter

http://www.maplesoft.com/support/help/Maple/view.aspx?path=StringTools%2fHasControlCharacter

You might find simply running it twice will work.

see

http://www.mapleprimes.com/posts/200289-Convert-Help-Of-Older-Maple-Version-To-18

and

http://www.mapleprimes.com/questions/206659-How-To-Label-Contours-In-Maple-17-

Using map2 should get what you want

L := [[1, 2, 3], [4, 3, 2]]:

map2(map, `^`, L, 2)

                              [[2,4,9],[16,9,4]]

One more way

zip(`^`,L,2)

Not near Maple right now so I can't be sure but try

readdata("c:/yourfile.dat",float,2)

How about this

seq(`if`(data[..,1][i]="a",data[i],[op(data[i][3..4]),op(data[i][1..2])]),i=1..nops(data))