Advanced Search

Scot Gould

Scot Gould

537 Reputation

14 Badges

10 years, 218 days
Upland, California, United States
Contact Scot Gould
Dr. Scot Gould is a professor of physics in the W.M. Keck Science Department of Claremont McKenna, Pitzer, and Scripps Colleges - members of The Claremont Colleges in California. He was involved in the early development of the atomic force microscope. His research has included numerous studies and experiments using scanning probe microscopes, particularly those involving natural fibers such as spider silk. More recently, he was involved in developing and sustaining AISS. This full-year multi-unit, non-traditional, interdisciplinary undergraduate science education course integrated topics from biology, chemistry, physics, mathematics, and computer science. His current interest is integrating computational topics into the physics curriculum. He teaches the use of Maple's computer algebraic and numerical systems to assist students in modeling and visualizing physical and biological systems. His Dirac-notation-based quantum mechanics course is taught solely through Maple.

MaplePrimes Activity


These are answers submitted by Scot Gould

First approach.... better options out th...

Scot Gould 537
October 13 2023
1 0

Since I don't know what this looks like, let's make a collection of space curve.

 

Copy your text data:

 

> 

restart; xData := [0., 0.4995839572e-1*sin(x), 0.9966865249e-1*sin(x), .1488899476*sin(x), .1973955598*sin(x), .2449786631*sin(x), .2914567945*sin(x), .3366748194*sin(x), .3805063771*sin(x), .4228539261*sin(x), .4636476090*sin(x), .5028432109*sin(x), .5404195003*sin(x), .5763752206*sin(x), .6107259644*sin(x), .6435011088*sin(x), .6747409422*sin(x), .7044940642*sin(x), .7328151018*sin(x), .7597627549*sin(x), .7853981634*sin(x)]


Match with t with the same number of point.

> 

tData := [seq(0.5e-1*n, n = 0 .. upperbound(xData)-1)]

 

Create a function (using the older version of the MakeFunction procedure) from the data:

 

> 

xtPoint := unapply([x, xData[n], tData[n]], x, n)

And from each point, make a spaaaaace curve.

 

> 

xtLine := unapply([seq(xtPoint(x, n), n = 1 .. upperbound(tData))], x)

 

Next, a generic plot of a collection of space curves

 

> 

plots:-spacecurve(xtLine(x), x = -Pi .. Pi, size = [500, 500], color = "xkcd:blue", thickness = 3, labels = ["x", "xData", "tData"], labelfont = ["Times New Roman", 15], orientation = [84, 21, 160])

 


Low-budget version of 3D surface data.

 

Creating a sequence of points without the option numpoints in the sequence function.

From it, we make "Let's go surfing now; everybody is learning how" data.

> 

N := 100; x0 := -Pi; xf := Pi; dX := (xf-x0)/(N-1); surfData := [seq(xtLine(dX*n+x0, round(n*upperbound(xData)/N+1)), n = 0 .. N-1)]

And plot

 

> 

plots:-surfdata(surfData, labels = ["x", "xData", "tData"], labelfont = ["Times New Roman", 15], orientation = [84, 21, 160], size = [500, 500])

 

Note bug in 3D plot. Need to report.

> 

``


 

Download My_3d_plot.mw

First part... to get you started....

Scot Gould 537
October 05 2023
0 0

Of course, if you don't understand how to use the palettes, that is a different issue. 

Write out A^T as B and each component of the matrix.

 

> 

restart; B := Matrix(2, 2, {(1, 1) = a__11, (1, 2) = a__21, (2, 1) = a__12, (2, 2) = a__22}); I2x2 := Matrix(2, 2, {(1, 1) = 1, (1, 2) = 0, (2, 1) = 0, (2, 2) = 1}); equation1 := 4/(B+2*I2x2) = (Matrix(2, 2, {(1, 1) = 1, (1, 2) = 1, (2, 1) = -3/2, (2, 2) = 1/2}))

Matrix(2, 2, {(1, 1) = a__11, (1, 2) = a__21, (2, 1) = a__12, (2, 2) = a__22})

  

Matrix(2, 2, {(1, 1) = 1, (1, 2) = 0, (2, 1) = 0, (2, 2) = 1})

  

Matrix(%id = 36893490656581279980) = Matrix(%id = 36893490656581280100)

 (1)

 

Solve for each component.

 

> 

answer := solve(equation1, {a__11, a__12, a__21, a__22})

{a__11 = -1, a__12 = 3, a__21 = -2, a__22 = 0}

 (2)

 

Assign each component the value in answer and then write out A

 

> 

assign(answer); A := Matrix(2, 2, {(1, 1) = a__11, (1, 2) = a__12, (2, 1) = a__21, (2, 2) = a__22})

Matrix(%id = 36893490656581256964)

 (3)
> 

NULL


Download Matrix_Question.mw

Tools -> Options or Preferences...

Scot Gould 537
September 03 2023
0 0

Windows: From the menu bar, select Tools followed by Options

Mac: Select Preferences from the menu bar. 

On the first tab, at the bottom of the display, search for auto save every X minutes. Personally, I turn off keep files. I want to keep only those files for which Maple was shut down mid-calculation.  

 

ctrl-d...

Scot Gould 537
August 01 2023
0 1

Check out shortcuts in help. Ctrl-d might work since it deletes all output.

try print to pdf...

Scot Gould 537
July 27 2023
1 0

Export has a problem in Windows that is corrected by choosing to print to a PDF. Not as convenient, but it fixes the problem. I suggest you try that.

Alternative...

Scot Gould 537
April 12 2023
3 0

I prefer to use the elementwise operator ~. I find it more readable than using map.

outList := lhs~(eq1)

 

a guess...

Scot Gould 537
April 09 2023
1 0

My guess is that the variable x has been assigned a value of 1.71. So, use a different variable in your plot

  plot(f(x1), x1 = -0.667 .. 1.71, -5..20, gridlines)

No need to label the vertical axis because it really isn't the variable in the vertical direction. 

Another example of premature evaluation...

Scot Gould 537
March 20 2023
1 5

The magenta error of death tells us the equation in fsolve is being evaluated before it is ever used. Put a single quote around the equation in fsolve and it will work.

h := y -> fsolve( ' f(x__0) = y', x__0 = Range)

They will learn...

Scot Gould 537
March 08 2023
1 1

I can empathize. Students in my class last week struggled with the same issue.  

For them, it was applying the slope (Euler's) numerical method to solve an ordinary

differential equation. If the endpoints were exact, such as 0 and 2, the looping took

forever. However, if the endpoints were floating point approximations such as 0.0

and/or 2.0, the calculations were instantaneous.

Because of these struggles, it has become ingrained in their head they must enter

constants in numerical calculations as floating-point numbers. And maybe that is

the best one can hope for since I agree with others, there probably is no way to

force Maple to see all numbers as approximations.

Regarding integrals, there is no need to memorize evalf or the option numeric.

Simply set the endpoints to floating point numbers, and Maple will generate a

floating point outcome. For example:

 

Exact integral:

> 

int(exp(-x^2), x = 0 .. infinity)

(1/2)*Pi^(1/2)

 (1)

 

Using the floating-point approximation.

> 

int(exp(-x^2), x = 0. .. infinity)

.8862269255

 (2)

   ``

Download Forcing_floating_point_approximations.mw

Full precision...

Scot Gould 537
February 09 2023
1 0

It is my experience that full-precision equations usually lead to full-precision answers, if possible.  If you prefer a "floating point approximation", change one of the numbers from a whole number in your equation to a floating point value. For example, 4 to 4. or 4.0.  Maple will report a floating point result. 

If you don't obtain a floating point result after making the modification, as suggested, take the result and evaluate it to a floating point value using the evalf procedure. 

ODE or PDE....

Scot Gould 537
February 08 2023
1 1

It is late, so the experts probably are asleep. Here is a quick reply.

 

As I read what you uploaded, the PDE is not a PDE but a 2nd order ODE with a parameter k in the initial conditions.

 

> 

restart; interface(imaginaryunit = 'I')

Rewriting the PDE as an ODE for which the variable u is a function of time:

> 

ode := (10*I)*(diff(u(t), t))+diff(u(t), t, t)-16*u(t) = 0

And setting the initial conditions at t = 0

> 

ices := u(0) = sqrt((1/2)*Pi)*csch((1/2)*Pi*k), (D(u))(0) = -(1/4)*sqrt(2)*Pi^(3/2)*csch((1/2)*Pi*k)*coth((1/2)*Pi*k)

Solve numerically, but let k be a floating parameter one can adjust on the fly:

 

> 

sols := dsolve({ices, ode}, numeric, output = listprocedure, parameters = [k])

Extracting out the variables:

> 

u := eval(u(t), sols); u_dot := eval(diff(u(t), t), sols)

 

Since k can be anything but appears to be somewhere between 0 and 100, make a plotting procedure that plots the magnitude of u and the u-dot for "t = 0 to 1." (Both variables are complex, so adjust to suit your interest.)

 

> 

"PlotVariables := proc(k::float) global sols, u, u_dot; sols(parameters = [k]); plot([|u(t)|, |u_dot(t)|], t= 0..1, legend = ['u', '(u)']); end proc: "

Now explore:

> 

Explore(PlotVariables(k), parameters = [k = 0 .. 100.0], initialvalues = [k = 50.0])

Play with the slider and satisfy the other conditions.

 


 

Download ODE_or_PDE_solution.mw

initialization file...

Scot Gould 537
January 09 2023
1 0

Try this help page to load the suggested commands:

https://www.maplesoft.com/support/help/maple/view.aspx?path=worksheet%2Freference%2Finitialization

error...

Scot Gould 537
January 04 2023
1 2

See if the procedure error() works for you.

For fun...

Scot Gould 537
December 31 2022
0 0

@zenterix For fun, I was playing around with the plots package.  It almost mimics your first plot.  However, to see it properly, download it. 

> 

restart; with(plots); symbolsize := 12
> 

display(pointplot([seq(`<,>`(x, x-1), x = -1 .. 5)], 'symbolsize' = symbolsize, symbol = circle, color = blue), plot(floor(x), x = -2 .. 5, color = blue, thickness = 4), pointplot([seq(`<,>`(x, x), x = -2 .. 4)], 'symbolsize' = symbolsize, symbol = solidcircle, color = blue), scaling = constrained, tickmarks = [8, 0], view = [-3 .. 6.5, -3 .. 5], arrow(`<,>`(-3, 0), `<,>`(9.5, 0), color = green, width = 1/100, head_width = 1/8, head_length = 1/7), arrow(`<,>`(0, -3), `<,>`(0, 8), color = green, width = 1/100, head_width = 1/8, head_length = 1/7), labels = [" ", " "], textplot([5.4, 4, "g", font = ["times", 20]], color = blue), size = [600, 600])

 
> 

``
> 

NULL

Download Plot_Floor.mw

Multiple options for Restore Backup...

Scot Gould 537
December 07 2022
1 0

Under Tools->Options (or Preferences on the Mac), at the bottom of the first page of the popup box is where you can control how often Maple saves a backup copy and if it keeps every copy of a backup file. I believe it the default is 3 minutes, but you can set it to any value. In addition, Maple  keeps every copy of the backup file. Personally, I turn off the "Keep files" so that the folder isn't filled with backup copies I don't need to use. If you safely close the file, it deletes the backup copy. But if you don't, the backup copy is still there. That makes it much easier to find the backup file of needed. 

However, when one uses File -> Restore Backup, one can ask to display the details of the files which allows you to sort by when the file was created. 

IMO, the system is much improved over the previous backup system. 

1 2 3 4 Page 1 of 4